PDP-10 Archive: emacs/xlisp.elib from mit_emacs_170_teco_1220 (original) (raw)
Trailing-Edge-PDP-10 Archives-mit_emacs_170_teco_1220- emacs/xlisp.elib
There are no other files named xlisp.elib in the archive.
PW [0+8+FQ(+4)[1 0FO1 0F"G+Q1 ' +FQ()+4U1 FQ1"L0 ' ,Q1:M(Q1+4(]1]0)) BlJV?^>pE~ %+ <
iKih |
A" . 6A\Ou[p -#079Jh]nQDV(6YEU_f |& Query Loop& XLISP Indent SexpChange / to \$Change LAMBDA Combination to LET#Interchange slash and backslashLowercase Lisp BufferLowercase Lisp Region!Modernize FUNCTION References!Modernize LAMBDA Combinations Modernize LAMBDA References Modernize MAP References Modernize NIL Occurrences(Modernize Old CATCH/THROW References Modernize QUOTE ReferencesModernize StringsUppercase Lisp BufferUppercase Lisp RegionDIRECTORYDOC & Query Loop DOC & XLISP Indent SexpDOC Change / to \DOC Change LAMBDA Combination to LET)DOC Interchange slash and backslash DOC Lowercase Lisp Buffer DOC Lowercase Lisp Region'DOC Modernize FUNCTION References'DOC Modernize LAMBDA Combinations%DOC Modernize LAMBDA References"DOC Modernize MAP References#DOC Modernize NIL Occurrences.DOC Modernize Old CATCH/THROW References$DOC Modernize QUOTE ReferencesDOC Modernize Strings DOC Uppercase Lisp Buffer DOC Uppercase Lisp RegionDOC FilenameFilename
INVERTr:iQuery/ [..J[C[0[P
<m();w
:i*CChange? fsechodispw@v
@:fiuC
qC-4110."e ?uC'"#:fiuC'
@ft C ...
qC- ^"efi
.:ww1:<>oPause'
qCf ,.:"lfi
.u0m()q0j
qC- ,"e
!Pause!
:iCOk? fsechodispw@v
:fiuC
qC-4110."e ?uC'"#:fiuC'
@ft C ...
qC- "efi
oLoop'
qCfQqXx:"lfi
'
qC- ^"efi
.:ww1:<>oPause'
qC- "efi
oPause'
qC-
"efi @m(m.m^R New Window) oPause' qC- ?"efi ftSpace = Continue C-L = Redisplay C-R = Edit Q or X = Exit Anything else aborts and is reread as a command. --Pause--oPause' ' qC- ."e ' oLoop' qC- "efi oLoop' qC- "efi :-."n.'fkroSkipLoop' qC-
"efi
@m(m.m^R New Window)woLoop'
qCf?:"lfi
!"!ftSpace = Replace entry and move on C-L = Redisplay
Comma = Replace entry and await approval C-R = Edit
Rubout = Don't replace this entry
Period = Replace and exit Anything else exits
Q or X = Exit and is reread as a command.
--Pause--oLoop'
qCfXxQq"lfi
'
'
!Loop!:-."n.'!SkipLoop!>
:iCEnd of ..Jfsechodisplay
0fsechoactive
9@:i|:s(FUNCTION(fkc) |,(
@:i*|.[0fll1f[noquitw-d
q0j9d@f
k
.u0!"!i#'2r
m(m.m& XLISP Indent SEXP)
|)!"<!m(m.m& Query Loop)Modernize: (FUNCTION exp) => #'exp
@:i*|:s(CATCH(THROW(
fkc) |,(
@:i*|.[0[11f[noquitwc@fll
<:@fll1a- ;:@;l>@fll
:@fll1a- ;"e!"!:iCH; Can't hack commentfserr'
@m(m.m^R Transpose Sexps)
-2@fll!"!i'q0+1ji
|)!"<!m(m.m& Query Loop)Modernize: (CATCH/THROW form tag) => (CATCH/THROW 'tag form)
1@:i|:s(QUOTE(fkc) |,(
@:i|.[0fll1f[noquitw-d
q0j6d@f
k
.u0!"!i'2r
m(m.m& XLISP Indent SEXP)
|)!"<!m(m.m& Query Loop)Modernize: (QUOTE exp) => 'exp
@:i*|!"!:s#'(LAMBDA(fkcc) |,(
@:i*|i#rm(m.m& XLISP Indent SEXP)
|)!"<"!m(m.m& Query Loop)Modernize: '(LAMBDA ...) => #'(LAMBDA ...)M@:i*|[0<:s(MAP"e0 '
.-4u0
1a:"b@fll'
@f
l
!"!1a- '"eq0j-1 '>
|,(
@:i*|c@fll!"!s'ri#rm(m.m& XLISP Indent SEXP)
|)!"<"!m(m.m& Query Loop)Modernize: (MAPx 'fun ...) => (MAPx #'fun ...)Y@:i*:s/|"e0 'r-1 ,(
@:i*~1f[noquit
f[vbwf[vz
!"!0,0a- '"e-d'
.,(s/|-d.)fsbound
jd<.-z;1a- /"ec'
"#1af"|!'!:"li/''
c>
ji"!'!zji"!'!j
~)!<!m(m.m& Query Loop)Modernize: |...| => "..."!''!z[S
j0uS
<.-z;
qS"e1af"|!'!:"l1auS''
"#1a-qS"e0uS''
qS"e1fc'
1a- /"ec'
"#1a- ;"e:s
:c
jz h {[S j0uS <.-z; qS"e1af"|!'!:"l1auS'' "#1a-qS"e0uS'' qS"e1@fc' 1a- /"ec' "#1a- ;"e:s :c
jz
h @f[vbf[vz
.,(w.)ffsbound
m(m.mLowercase Lisp Buffer) @f[vbf[vz
.,(w.)ffsbound
m(m.mUppercase Lisp Buffer) ?[0[1[2
[L[A
f[noquit
g(flx*(f[bbind))q..OuL
jfll-djdfll
g(zfx*(f[bbind))q..OuA
jqLu..O
jc1a- l"e@flkilet'
"#@flkiLET'
s(rflfsbound
jc.,(z-1)fsbound
<<@f
k
0,1a- ;"el'"#0;'>
.-z;
qAu..O
<@f
k
0,1a- ;"el'"#0;'>
3fNIL"e0,4a"b3di()2r''
2f()"e
2d-@f k
@f k
0,1a- ;"el'
g(b,.fx*(qLu..O@fll))i '
"#
1:<@fll>"n
:iTFA Too Few Actual Argsfserr'
@f l
0,1a- ;"el'
g(b,.fx(qLu..Oi(@flli ))
i) '
zj qAu..O@f k 0,1a- ;"eg(hfx*(qLu..Oi ))' "#.-z"eqLu..O' "#:iTMA Too Many Actual Argsfserr'' zj-@f k 0,(fsz)fsboundw 1fsnoquit qAu..Of]bbind g(hfx(f]bbindwflk)) -@fll@m(m.m& XLISP Indent SEXP) @:i*|:s((LAMBDA(fkc)|,( m.mChange LAMBDA Combination to LET( ))m(m.m& Query Loop)LAMBDA Combinations: ((LAMBDA ...) ...) to (LET (...) ...)K@:i*|:sNIL(fkcc)|,( @:i*|3di()|)m(m.m& Query Loop)NIL: NIL => ()b[0 .(1:<@fll>w.u0)j .(1:<:fll>w.-q0"g)j0 ' 0,1a- ("n)j0 ' )j ]0 f:m(m.m^R Indent Sexp) j@f l 1:fb--"e i;;; -- Mode: Lisp; -- js--' 1:fbEscape:"e i Escape: Slash;' "#:fwl .,(s;-:fwl.)f~slash"n :i*CBuffer not using slash escape charfsechodisplay 0fsechoactivel0,.(j) '' [S j0uS <.-z; qS"e1af"|!'!:"l1auS'' "#1a-qS"e0uS'' qS"e 1a- ;"e:sop'' 1a- "ei\oLoop' 1a- #"e 2a- /"e2c' 2a- "e2c'oLoop' 1a- /"e0,2a- /"ed' "#f\' coLoop' !Loop! :c
js--sEscape::fwl
iBack
:iCConversion of / to \ complete.Afsechodisplay0fsechoactive
jz
h uj
@:i*|:<:s57"ezj0;'0,-2a:"d0,-2a:"a0,1a:"d2r0;'''>.-z|,(
@:i*|2di#//|(
))m(m.m& Query Loop)Change / to : Maybe change octal 57 to #//
j
@:i*|:<:s47"ezj0;'0,-2a:"d0,-2a:"a0,1a:"d2r0;'''>.-z|,(
@:i*|2d0,1a- ."ed'i#//|(
))m(m.m& Query Loop)Change / to : Maybe change decimal 47 to #//
j
@:i*|:<:s#o57"ezj0;'0,1a:"d0;'>.-z|,(
@:i*|2di#//|(
))m(m.m& Query Loop)Change / to : Maybe change #o57 to #//
j
@:i*|:sslash|,(
@:i*|5r-4f~BACK"e-4d'
"#1a- s"eiback'
"#2a- L"eiBACK'
"#iBackfs'''5c|(
))!""""!m(m.m& Query Loop)Change / to : Maybe interchange slash'' and backslash
jz
h XLISP%Macros for transforming Lisp Code3& Loop doing things and asking for confirmation)S Change (FUNCTION form) => #'form #S CATCH/THROW => CATCH/THROW %S Change (QUOTE form) => 'form -S Change '(LAMBDA ...) => #'(LAMBDA ...) 4S Change (MAPxxx '... ...) => (MAPxxx #'... ...))S Search for things in |...| => "..."XS Lowercase a buffer of lisp text
respecting things that should not get lowercased.XS Uppercase a buffer of lisp text
respecting things that should not get uppercased.%S Lowercase a region of Lisp text%S Uppercase a region of Lisp text & The name says it, man...0S Change ((LAMBDA ...)...) => (LET (...)...)S Change NIL to ()2& Like ^R Indent SEXP but tries not to err out5S Update buffer for the new Lisp backslash syntax S Swap slash and backslash :& Query Loop
Modernize FUNCTION References
Modernize Old CATCH/THROW References
Modernize QUOTE References
Modernize LAMBDA References
Modernize MAP References
Modernize Strings
Lowercase Lisp Buffer
Uppercase Lisp Buffer
Lowercase Lisp Region
Uppercase Lisp Region
Change LAMBDA Combination to LET
Modernize LAMBDA Combinations
Modernize NIL Occurrences
& XLISP Indent Sexp
Change / to
Interchange slash and backslash
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-15,q35g2q:..o(0)+q2