Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/inter.elib
There are no other files named inter.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   UjdsyGaW 
,

3
:A{GPH[Le=mSu	~



x
P	W*L1z=FEUdbRvFU^#,8FFS!^hiu@l

& Getdef& Inter Display Text& LISP SUPERIOR"& Prettyprint Undoably Replace& Setup INTER LibraryGrind Sexp^R ARGLIST^R DEFINEQ^R EVAL^R Eval Current^R EVAL Everything^R Exit To LISP^R Find Sexp^R LISP ERROR^R LISP RESET^R List Start^R Pretty Print^R Print to Level

^R QUOTE^R Replace Sexp~DIRECTORY~~DOC~ & Clear Screen~DOC~ & Getdef~DOC~ & Inter Display Text~DOC~ & LISP SUPERIOR(~DOC~ & Prettyprint Undoably Replace~DOC~ & Setup INTER Library~DOC~ Grind Sexp~DOC~ ^R ARGLIST~DOC~ ^R DEFINEQ~DOC~ ^R EVAL~DOC~ ^R Eval Current~DOC~ ^R EVAL Everything~DOC~ ^R Exit To LISP~DOC~ ^R Find Sexp~DOC~ ^R LISP ERROR~DOC~ ^R LISP RESET~DOC~ ^R List Start~DOC~ ^R Pretty Print~DOC~ ^R Print to Level~DOC~ ^R QUOTE~DOC~ ^R Replace Sexp~DOC~ ~Filename~~Filename~

~INVERT~ [B
28,(FQA):GAUB
FTB
|[0[1
Q..OU:..U(0)
.,(.+)X0
Q0U:..U(1)
.U:..U(2)
Z-(.+)U:..U(3)
:I*PrettyprintU:..U(4)
D
[0
.[1
G0
Q1J
[0
M(M.MSelect Buffer)*FROM-LISP*
ZJ
.U0
I(DEFINEQ 
F[DFILE
E[FNE]
ER
FSIFACCESS
FY
I)

Q0J
.,ZFSBOUNDARIES
-1fspjaty
[A[B[0
"GM(M.MSelect Buffer)*FROM-LISP*'
"N
FSIFILEUA
QLISPFILEUB
FSUREAD"N
F~AB"N
F[DFILE
2,ERB'
0FSIFACCESS'
FSUREAD"E
2,ERB'
U0
"L-Q0U0'
"G
ZJ'
Q0FY
"L
.+,.FXA
MA'
"G
R
.,ZFSBOUNDARIES'
'
+1"G-1FSPJATY'
.0F[REFRESH
0F[LINES
0F[TOPLINE
F+
[J
.UJ
@FL
QJJ
M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
1000000.+FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
BJ
0M(M.M^R EVAL)M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
7000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
10000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
j
M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
13000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
l0FO..QExit to Superior Hook0"nm0]0'
6000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
l0FO..QExit to Superior Hook0"nm0]0'
5000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
m0FO..QExit to Superior Hook0"nm0]0'
11000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
#1M(M.M^R List Start)
I
j
M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
12000000.FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
1a-("n-s('
A:FTWarning:  Grind Sexp does not work for Interlisp code.
You can use ^R Pretty Print, on C-T P, instead.
If you really want to use the Maclisp Grinder,
then load the GRIND library.
0v0FO..QExit to Superior Hook0"nm0]0'
4000000.+(FSHPOS)FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
[J
.UJ
@FL
QJJ
M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
3000000.+FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
[J
.UJ
@FL
QJJ
M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
2000000.+FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
{M(M.M& Clear Screen)
0FO..QExit to Superior Hook0"nm0]0'
FSEXIT
0FO..QReturn from Superior Hook0"nm0]0'
O[J[T
FSJNAMEUJ
F~JLISP"E
1M.VLISPFILE
FSHSNAMEFSDSNAME
2,EREMACS.TEMP.FILE.0
FSIFILEULISPFILE
q.TuT
M(M.MMake Prefix Character).TU.T
F[BBIND
GPrefix Char List
0J
:S.T"E
I.T  
HXPrefix Char List'
F]BBIND
M.M^R ArglistU:.T(A)
M.M^R LISP ERRORU:.T()
M.M^R Replace SexpU:.T(C)
M.M^R DEFINEQU:.T(D)
M.M^R EVALU:.T(E)
M.M^R Find SexpU:.T(F)
M.M^R Print To LevelU:.T(L)
M.M^R Pretty PrintU:.T()
M.M^R QUOTEU:.T(Q)
M.M^R LISP RESETU:.T()
M.M^R Eval CurrentU:.T(S)
M.M^R EVAL EverythingU:.T(U)
M.M^R Exit To LISPU:.T(Z)
qTU:.T()
F~Editor NameDMACS"E
M.M^R Exit To LispM.VMM Quit'
M.M& Lisp SuperiorFSSUPERIOR
M(M.MSelect Buffer)*FROM-LISP*
M(M.MInterlisp Mode)
FSOSPEED-1200"G1'"#-1'M.VDisplay Matching Paren
:I*InterlispM.VDefault Major Mode'
	INTEREMACS-INTERLISP interface.S Insert text bizzarelyrS Replaces text.
First precomma arg is how many characters to kill.
Second precomma arg is string to insert.2S Inserts a LISP definition from a file.
Takes two pre-arguments that indicate where to start reading
from and how much to read.  Takes a string argument -- the
file name.+S Insert as directed by call from LISP.#S Completely clears the screen.u^R Return to LISP and evaluate sexp after point.
If an argument is supplied, that many expressions will be read.E^R Returns to LISP and EVALs every expression in the buffer.
   ]^R Return to LISP and cause an error.
  Useful for exiting from the edit command EMACS:.(^R Return to LISP and cause a RESET.f^R Builds a replace expression for the structure editor.
Uses the contents of the current buffer.N^R Write into window 2 the arglist of the atom after point.
Writes into window 2 the argument list of the function after point (or after
open parenthesis after point.)  Uses the LISP function ARGLIST.y^R Shallow print expression after point into window 2.
Prints expression with PRINTLEVEL set to EMACS.P.PRINT.LEVEL.?^R Evals expr after point and prints into the other window.>^R Marks the SEXP at point with  and returns to INTERLISP+^R Finds the start of the current list.-C Warns about Interlisp vs. Maclisp woes.I^R Undoably prettyprints expr after point.
Uses LISP pretty printer.p^R Return to LISP with expression after point.
The expression after point will be made the value of the current
history event.  This value can be retrieved with VALUEOF.
If an argument is supplied, that many expressions will be read.^R Return to LISP and apply DEFINEQ to expression after point.
For example, if the point is just before

(FOO (X) (EQUAL X 3))

then FOO will be defined as the function that tests whether its
argument is 3.  If an argument is supplied, that many expressions 
will be read.a^R Simply return to LISP.
Calling (DOWN) in LISP will return to the current state of
EMACS.S SETUPY& Inter Display Text
& Prettyprint Undoably Replace
& Getdef
& LISP SUPERIOR
& Clear Screen
^R EVAL
^R EVAL Everything
^R LISP ERROR
^R LISP RESET
^R Replace Sexp
^R ARGLIST
^R Print to Level
^R Eval Current
^R Find Sexp
^R List Start
Grind Sexp
^R Pretty Print
^R QUOTE
^R DEFINEQ
^R Exit To LISP
& Setup INTER Library
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2