Google
 
Trailing-Edge - PDP-10 Archives - clisp - clisp/upsala/clisp.comprs
There are no other files named clisp.comprs in the archive.
!~Filename~:!
CLISP

!& Setup CLISP Library:!
[0[1
0m.vCLISP Return to Superior
FSLispT"N
:iEditor TypeCLISP
f[DFile
qBuffer Nameu0
[Previous Buffer
m(m.mSelect Buffer)*CLISP*
m(m.mCLISP Mode)
m(m.mSelect Buffer)0
]Previous Buffer
:i*fo..qCLisp Mode Hooku0
@:i*|m(m.m& CLISP Enter CLisp Mode)|u1
@:i*|01|m.vCLisp Mode Hook
m.m& CLISP FS SuperiorfsSuperior
:i*fo..qReturn from Superior Hooku0
@:i*|m(m.m& CLISP Return from Superior)|u1
@:i*|01|m.vReturn from Superior Hook
:i*fo..qExit to Superior Hooku0
@:i*|m(m.m& CLISP Return to Superior)|u1
@:i*|01|m.vExit to Superior Hook
:i*fo..qExit Hooku0
@:i*|m(m.m& CLISP Exit Emacs)|u1
@:i*|01|m.vExit Hook
m.m^R CLISP Return to Superiorm.vMM ^R Return to Superior
m.m^R Return to Superioru:.X()
0fo..qCLISP Setup Hooku1
fq1"gm1'
M(M.M& CLISP Execute JCL)'


!& CLISP FS Superior:!
:"l,0i100100.fsExit'
fsOSTeco"efs%oplsp"n1,m.mLISPT Command"E
m(m.mLoad Library)DSK:EMACS;LISPT'''
"l[10[2f[BBindfj
j:s,"l.,(:l).x2'
j:s,"lr:k'
hx1
f]BBind
fq1"g
f~1nil"n
0fo..qTags Find File"e
1,M(M.MVisit File)1'
"#m(m.mFind File)1'''
fq2"gm2'
]2]1'
100100.fsExit

!& CLISP Enter CLisp Mode:!
m.m& CLISP Compile Commandm.lCompile Command
m.m^R Evaluate Defunm.q..Z
m.mEvaluate Regionm.q.. 
m.m^R CLISP Find Functionm.q...S
m.mEdit Definitionm.q...
fq.xfsqvector[..o
g.xq..om.q.x
]..o


!CLisp Mode:!!Common Lisp Mode:!
M(M.M& Init Buffer Locals)
fqBuffer Filenames:"g
f6CLISPfsDFN2'
M.M^R Indent for LispM.QI
1,1M.LSpace Indent Flag
1,Q(1,Q.M.QW)M.Q.
1,56M.LComment Column
1,(:I*;)M.LComment Start
1,(:I*)M.LParagraph Delimiter
1,3m.lDisplay Matching Paren
QPermit Unmatched Paren"L
1,0M.LPermit Unmatched Paren'
1,1m.lLisp WHEN Indent
1,2m.lLisp IF Indent
1,1m.lLisp UNLESS Indent
1,1m.lLisp CATCH Indent
1,1m.lLisp THROW Indent
1,1m.lLisp CONDITION-BIND Indent
1,2m.lLisp DO* Indent
1,1m.lLisp FLET Indent
1,1m.lLisp LABELS Indent
1,1m.lLisp TYPECASE Indent
1,1m.lLisp WITH-KEYWORDS Indent
1,1m.lLisp WITH-OPEN-FILE Indent
1,1m.lLisp WITH-OPEN-STREAM Indent
1,1m.lLisp WITH-OUTPUT-TO-STRING Indent
1,1m.lLisp WITH-INPUT-FROM-STRING Indent
1,1m.lLisp MULTIPLE-VALUE-CALL Indent
1,2m.lLisp MULTIPLE-VALUE-BIND Indent
1,2m.lLisp MULTIPLE-VALUE-SETQ Indent
1,1m.lLisp DO-MOST-SYMBOLS Indent
1,1m.lLisp DO-ALL-SYMBOLS Indent
1,1m.lLisp DO-SYMBOLS Indent
M.Q..D
0FO..QCLisp ..DF"NU..D'
"#W:G..DU..D
Q..DM.VCLisp ..D
-1[132<%1*5+1:F..DA>
9*5+1:F..D 
!"""""!1M(M.M& Alter ..D)||"|\/''`','@'#'[A]A{A}A
  '
1M(M.M& Set Mode Line)CLISP

!& CLISP Mode:!
:m(m.mCLisp Mode)

!& CLISP Return from Superior:!
0m.vCLISP Return to Superior
m(m.m& CLISP Handle Retval)
qCLISP Old Buffer Name[1
m(m.mSelect Buffer)1]1
qPrevious Bufferfo..qCLISP Old Previous Bufferm.vPrevious Buffer
m(m.m& CLISP Execute JCL)


!& CLISP Return to Superior:!
f~Buffer Name*CLISP*"n
qBuffer Namem.vCLISP Old Buffer Name
qPrevious Bufferm.vCLISP Old Previous Buffer
m(m.mSelect Buffer)*CLISP*'
z-b"e1m.vCLISP Return to Superior'
:FR
:I*ZFSEchoDisplay
0FSEchoChar


!^R CLISP Return to Superior:!
0FO..QExit to Superior Hook[1
Q1"NM1'
FM(M.M& Exit EMACS)
100000.FSEXIT
0FO..QReturn from Superior Hook[1
Q1"NM1'

!& CLISP Exit Emacs:!
0fo..qCLISP Return to Superior"e'
m..f
f~Buffer Name*CLISP*"n
qBuffer Namem.vCLISP Old Buffer Name
qPrevious Bufferm.vCLISP Old Previous Buffer
m(m.mSelect Buffer)*CLISP*'
hk
i(throw (quote user::exit-emacs) t)



!& CLISP Execute JCL:!
1:@<
[0[1
f[BBind
fj
hx0
f]BBind
fsXJNameu1
f~1CLISP"em0'
]1]0>


!^R CLISP Find Function:!
.[0
FSVB[1
FSVZ[2
0FSVB
0FSVZ
1,FFind Function: [3
FF-1"E
F[4
1000[5
<Q4-Q5:J;
<.,Q4+Q5:FB(defun 3 (defmacro 3 ;
13,FKAF 


"G0l
m(m.m^R Reposition Window)'>
Q5*3U5>
]5]4'
J
<:S(defun 3 (defmacro 3 ;
13,FKAF 


"G0l
m(m.m^R Reposition Window)'>
Q2FSVZ
Q1FSVB
Q0J
:I*FNF	Unable to find function 3FSErr

!& CLISP Save Region:!
F[VBF[VZ
FF"E:,.'"#F'FFSBoundaries
Q..O[3
Q:.B(:I**CLISP*M(M.M& Find Buffer)+4)[..O
ZJ
G3
0


!^R CLISP Save DEFUN:!
.(
M(M.M^R CLISP Mark Defun)
M(M.M& CLISP Save Region)
)j


!^R CLISP Mark Defun:!
.:
.[1
:-S
("LL'
"#1-.+BA-("EJ'
"#JOBufbeg''
FL+.-Q1"L
!Bufbeg!
:S
("L0L''
.(@FLLL.:)J
<B-.;-L-(:F);
@F	 R1A-;"NL0;'
>
0

!^R CLISP Zap to Lisp:!
0[0
ff"nu0q0"n
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
bji(values 

zjff"ei(throw (quote user::exit-emacs) nil)'
i)

0m.vCLISP Return to Superior
''
m(m.m^R Return to Superior)


!& CLISP Handle Retval:!
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
bj
.(1@fll),.k@f
kzj-@f
k
hfx*m.vCLISP Lisp Value
0fsXModified0fsModified


!Evaluate Buffer:!
q..o[3
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
zj
g3
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'


!Evaluate Region:!
m(m.m& CLISP Save Region)
ff"e
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
'


!Evaluate Region into Buffer:!
m(m.m& CLISP Save Region)
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
gCLISP Lisp Value
i
'


!Evaluate into Buffer:!
1,fEvaluate into Buffer: [1
fq1"g
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
g1
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
gCLISP Lisp Value'
'


!Evaluate Expression:!
1,fEvaluate Expression: [1
fq1"g
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
g1
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
'


!^R Evaluate Defun:!
m(m.m^R CLISP Save Defun)
ff"e
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
'


!Edit Definition:!
[v
1,fEdit Definition: 
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
i(progn (format t "~a" (emacs::get-definition (quote s))) (values))
!''!
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
f[BBindgCLISP Lisp Value
z-3"gz-3,zf~nil"ezj-3d''
hxvf]BBind
f~vnil"e@ftNo definition for s, sorry.
0fsEchoActive'
"#qs,qvm(m.m& CLISP Edit Definition)''
"#@ftNo definition of s, sorry.0fsEchoActive'


!& CLISP Edit Definition:!
[s[v
f[BBind
gvbj1a-42."e1d
zj0a-42."e-1d
bj:s::"nb,.k'
hxv''
hk
gsbj:s:::"n.-1"nb,.k
hxs''
f]BBind
f[Dfile
e?v"ef]Dfile
m(m.mFind File)v
m(m.m^R CLISP Find Function)s'
"#f]Dfile
m(m.mSelect Buffer)*Definition of s*
hkgvbjm(m.mCLISP Mode)'


!& CLISP Compile Command:!
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
i(compile-file "1"!''!
fq4"gig4'i)

]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1'


!Set Package:!
1,fSet Package: [1
fq1"g
m(m.m& Set Package)1
@ftUpdate attribute line as well
1m(m.m& Yes or No)"n
1,m(m.mUpdate Attribute Line)1''


!& Set Package:!
f[1
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
i(in-package (quote 1))

]..o
1m(m.m^R CLISP Zap to Lisp)


!Update Attribute Line:!
[10[2.[Pfn1:<qPj>
ff-2"e
1,fPackage: u2'
j
@F	 
R
:fb-*-"l
.,(fb-*-fkc.)ki '
"#
i2r
qComment Startu1
q1"e:i0;;; '
0fo..qComment Beginf"nu1'
f=1;"e:i*;;; u1'
g1i-*-i -*-fkc
.(qComment End"ngComment End)j''
i Mode:gMode
fsLispT"n
f~ModeCLISP"e
i; Package:
.u1
q2"em(m.mEvaluate into Buffer)(package-name *package*)'
"#g2'
q1j:s""nfkd:s""nfkd''''


!Reparse Attribute Line:!
[1.[Pfn1:<qPj>
j
@F	 
R
:FB-*-"L
.U11:FB:-*-+2"EFKCQ1,.X1'
"#Q1J:FBMode:"L
.,(FB;-*-FKC.)X1''
FQ1"Gf~Mode1"n
M(M.M1 Mode)1U5''
fsLispT"n
f~ModeCLISP"e
:fbPackage:"l
.,(fb;-*-fkc.)x1
fq1"gm(m.m& Set Package)1'''''


!& CLISP Process File Options:!
[0[1[2[3[4.[PfnqPj
0[5
0[6
1@:<J
FSOSTECO"N
:FBEDIT BY "L
<L1A-;"N1;'>''
@F	 
R
:FB-*-"L
.U11:FB:-*-+2"EFKCQ1,.X1'
"#Q1J:FBMode:"L
.,(FB;-*-FKC.)X1''
FQ1"GM(M.M1 Mode)1U5'
fsLispT"n
f~ModeCLISP"e
:fbPackage:"l
[1
.,(fb;-*-fkc.)x1
fq1"gm(m.m& Set Package)1'
]1''''
FSOSTECO"NQ5"E
QBuffer FilenamesF[DFILE
FSDFN2U1FQ1"E:I1<Null>'1,M.M& 1 ModeU0
Q0"NM0W1U5'
"#J@F 
L
12F~(FILECREATED"E
M(M.MInterlisp Mode)W1U5''''
ZJ:Z,Z-10000FB


"EZ-10000"LJ''
.-Z"N
:SLocal Modes"L
Q5"E1M(M.M& Init Buffer Locals)
:IModeFundamental'
.(FKC0X0)J
1A-:"EC':X1
128*5,32:i2
*5:f2 /
"*5:f2 |!'!
<L.-Z;
FQ0F~0"N!<!>'
FQ0C1A-15."E!<!>'
4F~END:@;
.,(S:.-2,.+1F=::"EC'
).-1X3
.u6@f	 l
1a-34"eq2[..d
.+1,(@fll).-1x4
]..d
@:i4"4"!''!'
"#.(:\u4)-."eq6-1j'
.,(:s1
:w.)@f 	"n
q6,.x4''
F~3Mode"E
-[Initial Local Count
M(M.M4 Mode)
-1FSQPUNW
!<!>'
FQ3-2:G3-"E
M4M(M.MMake Local Q)3!<!>'
Q4M.L3
>
-1U5''
>(
Q5:"GM(M.M& Set Mode Line)'
)"EJ'
!"!@FT
Error processing file's mode or local variables
0FSECHOACT
J

!~DOC~ ~Filename~:!
The Teco half of the Common Lisp Emacs system

!~DOC~ & Setup CLISP Library:!
S Set up CLISP variables, run CLISP Setup Hook and
execute any JCL given.

!~DOC~ & CLISP FS Superior:!
S Fs Superior for CLISP library.

!~DOC~ & CLISP Enter CLisp Mode:!
S This places a few things on keys in CLisp mode.
   M-Z	     ^R Evaluate Defun
   M-Space   Evaluate Region
   C-M-S     ^R CLISP Find Function
   M-.       Edit Definition
In order to do this, a private copy of .X is created.

!~DOC~ CLisp Mode:! !~DOC~ Common Lisp Mode:!
C Set things up for editing Common Lisp.
Puts ^R Indent for LISP on Tab, puts tab-hacking rubout on Rubout.
Paragraphs are delimited only by blank lines.

!~DOC~ & CLISP Mode:!
S Sets Lisp mode for .CLISP files

!~DOC~ & CLISP Return from Superior:!
S Do necessary stuff

!~DOC~ & CLISP Return to Superior:!
S Do necessary stuff

!~DOC~ ^R CLISP Return to Superior:!
^R Go back to EMACS's superior job.
Run Exit to Superior Hook before Exit Hook, hope it works.
With argument, saves visited file first.
Otherwise, does auto save if auto save mode is on.
Runs Exit Hook (if any) going out,
and Return from Superior Hook coming back.

!~DOC~ & CLISP Exit Emacs:!
S Exit from %emacs-top-level if CLISP Return from
Superior is nonzero.

!~DOC~ & CLISP Execute JCL:!
S Run on TOPS-20 when Emacs continued by Lisp.
If there is JCL from CLISP, then execute it.  Otherwise do nothing.

!~DOC~ ^R CLISP Find Function:!
^R Find Function in Buffer.
This function will find a Lisp Function in the buffer, repeatedly searching
greater and greater portions of the File centering its search about an
approximate location of the Function.  This function will search for a string
of the form ^J, ^M, or ^L followed by "(DEFUN <Function Name> " or "(DEFMACRO
<Function Name> ".  If called from ^R Mode, the function will prompt for a
function name.  The format of the Teco call is:

<Approximate Location>M(M.M & CLISP Find Function)<Function Name>

If no <Approximate Location> is given or if the function is called with more
than one argument, then the entire file is searched starting from the
beginning. 

!~DOC~ & CLISP Save Region:!
S Stores Region between Mark and Point to be returned to Lisp.
The Region is appended to the contents of the *CLISP* Buffer.  A pair of
arguments may be given instead of the Mark, if called from a Teco program. 

!~DOC~ ^R CLISP Save DEFUN:!
^R Stores the Top Level List the Point is in to be returned to Lisp.
If the Point is between Lists, the following List is stored.

!~DOC~ ^R CLISP Mark Defun:!
^R Put point and mark around this defun (or next).

!~DOC~ ^R CLISP Zap to Lisp:!
^R Returns (things) to Lisp.
If called with no argument, zaps *CLISP* buffer and goes to Lisp.
If called with non-zero argument, just zap *CLISP* buffer to Lisp.
If called with zero argument, just goes to Lisp, discarding all zaps.

!~DOC~ & CLISP Handle Retval:!
S Get return value from Lisp
into q$CLISP Lisp Value$

!~DOC~ Evaluate Buffer:!
C Evaluate buffer in Lisp

!~DOC~ Evaluate Region:!
C Evaluate region in Lisp.
If given an argument, only saves the region, for later zap.

!~DOC~ Evaluate Region into Buffer:!
C Evaluate region, inserting result into buffer

!~DOC~ Evaluate into Buffer:!
C Evaluate a Lisp expression into buffer at point.

!~DOC~ Evaluate Expression:!
C Evaluate a Lisp expression.

!~DOC~ ^R Evaluate Defun:!
^R Evaluates the Top Level list the point is in, in Lisp.
If the point is between lists, the following list is evaluated.
If called with an argument, only saves the defun for later zap.

!~DOC~ Edit Definition:!
C Edit the definition of a function.
Tries to find the source file of a compiled function, or the definition
of an interpreted function.

!~DOC~ & CLISP Edit Definition:!
S Found a definition, get file or buffer.
Precomma arg is function to edit, postcomma is definition (file or
Lisp code).

!~DOC~ & CLISP Compile Command:!
S Compile Command for CLISP.

!~DOC~ Set Package:!
C Set current package to string arg.
Zaps an (in-package <foo>) expression to Lisp.

!~DOC~ & Set Package:!
& The work routine of Set Package.

!~DOC~ Update Attribute Line:!
C Update the -*-Mode:<foo>; Package:<bar> -*- line.
With precomma arg 1, reads package from string arg, otherwise from Lisp.

!~DOC~ Reparse Attribute Line:!
C Reparse the -*-<foo>-*- line for Mode & Package.
Sets Mode and Package from the -*-Mode:<Mode>; Package:<Package>-*- line.

!~DOC~ & CLISP Process File Options:!
S Set mode and local vars from file.
Select the mode specified at the front of the loaded file,
and if it's last page specifies local variable values,
set them up.

!~DIRECTORY~:!
& Setup CLISP Library
& CLISP FS Superior
& CLISP Enter CLisp Mode
CLisp Mode
Common Lisp Mode
& CLISP Mode
& CLISP Return from Superior
& CLISP Return to Superior
^R CLISP Return to Superior
& CLISP Exit Emacs
& CLISP Execute JCL
^R CLISP Find Function
& CLISP Save Region
^R CLISP Save DEFUN
^R CLISP Mark Defun
^R CLISP Zap to Lisp
& CLISP Handle Retval
Evaluate Buffer
Evaluate Region
Evaluate Region into Buffer
Evaluate into Buffer
Evaluate Expression
^R Evaluate Defun
Edit Definition
& CLISP Edit Definition
& CLISP Compile Command
Set Package
& Set Package
Update Attribute Line
Reparse Attribute Line
& CLISP Process File Options