Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/lambdatran.com
There are no other files named lambdatran.com in the archive.
(FILECREATED "18-NOV-81 22:30:33" ("compiled on " <LISPUSERS>LAMBDATRAN.;24) (2 . 2) brecompiled 
explicitly: NARGS in "INTERLISP-MAXC " dated "18-NOV-81 22:01:03")
(FILECREATED "18-NOV-79 22:45:22" <LISPUSERS>LAMBDATRAN.;24 7286 changes to: LAMBDATRANCOMS previous 
date: " 6-AUG-79 22:50:04" <LISPUSERS>LAMBDATRAN.;23)
(VIRGINFN (QUOTE ARGLIST) T)
(MOVD? (QUOTE ARGLIST) (QUOTE OLDARGLIST))
(VIRGINFN (QUOTE NARGS) T)
(MOVD? (QUOTE NARGS) (QUOTE OLDNARGS))
(VIRGINFN (QUOTE ARGTYPE) T)
(MOVD? (QUOTE ARGTYPE) (QUOTE OLDARGTYPE))
ARGLIST BINARY
#"-.,<`",<,<,<w"2B+
Zw-,+
Zw3B+
3B +
2B +

,<`"!+Z3B+ZwZ

,XBp3B+XB`/+Zw,<ZD![[[ZXBp3B+,<,<w ",XBp3B++,<`"!+)?"	(FN . 1)
(VARIABLE-VALUE-CELL CLISPARRAY . 28)
(VARIABLE-VALUE-CELL LAMBDATRANFNS . 38)
CGETD
SUBRP
LAMBDA
NLAMBDA
FUNARG
OLDARGLIST
ASSOC
(KT EVCC BHC GETHSH URET2 SKLST KNIL ENTER1)0  xXHpxX@
ARGTYPE BINARY
Z",~2B+Z",~2B+
Z",~2B+

Z",~Z,~9L`(FN . 1)
OLDARGTYPE
FNTYP
EXPR
FEXPR
EXPR*
FEXPR*
(ASZ KNIL ENTER1)H

FNTYP1 BINARY
-.,<Z3B+Z`Z,XBp3B+B+Z`,<ZD[XBp3B+[pZXBp3B+3B+3B+2B++2B+Z+,<,<` ",+~`(X . 1)
(VARIABLE-VALUE-CELL CLISPARRAY . 8)
(VARIABLE-VALUE-CELL LAMBDATRANFNS . 17)
FNTYP
ASSOC
EXPR
EXPR*
FEXPR
FEXPR*
(EVCC URET1 GETHSH KNIL ENTER1)@@88
LTDWIMUSERFN BINARY
`O]-.HOZ,<Z,<@S@
,~Z-,+ZZ,3B+
Z+Z	-,+Z
XBBVXB+Z-,Z+Z3B+Z-,77++Z+ZXB

BVXB,<ZDV[ZXB`3B+NZXB,<`,<` ",XB`-,+"Z,~Z`,<ZBV,\3B+*Z`,<Z#,<,<W$W,\2B+>[`-,Z[,<,<,<,<Zw~XBwZw-,+1+=Zw-,ZZXBp3BX+<2BX+6+<Z2B+8+<,<YZ&,<,,<,<w$Y+>[wXBw+/Zw/,<`,<`$ZZ3B+D,<Z,<`ZF[,~Z`3B[+F2B\+NZ`Z2B+M[G,<ZH,<,<,<,<Z8L\ZI,~Z`,~B
%	 d



B2<@(VARIABLE-VALUE-CELL EXPR . 46)
(VARIABLE-VALUE-CELL FAULTFN . 152)
(VARIABLE-VALUE-CELL FAULTX . 154)
(VARIABLE-VALUE-CELL LAMBDASPLST . 14)
(VARIABLE-VALUE-CELL FAULTAPPLYFLG . 128)
(VARIABLE-VALUE-CELL LAMBDATRANFNS . 50)
(VARIABLE-VALUE-CELL CLISPCHANGE . 58)
(VARIABLE-VALUE-CELL COMMENTFLG . 108)
(VARIABLE-VALUE-CELL FAULTARGS . 133)
(VARIABLE-VALUE-CELL EXPR . 0)
(VARIABLE-VALUE-CELL FAULTFN . 0)
NIL
NIL
NIL
GETD
ASSOC
EXPR
GETP
DECLARE
CLISP:
LTSTKNAME
ATTACH
CLISPTRAN
FAULTAPPLY
RETAPPLY
LAMBDA
NLAMBDA
DWIMIFY0?
(BHC LIST2 SKNLST EVCC KT SKLA KNIL FMEMB SKLST ENTER0)p(! @0L	@K3h.X, X(+x
LTSTKNAME BINARY




-.,<,<	,<
,<ZH
XBp,<,<`$,<p"Z+"@(NAME . 1)
(VARIABLE-VALUE-CELL BOUNDPDUMMY . 7)
-1
LTSTKNAME
REALSTKNTH
SETSTKNAME
RELSTK
(URET1 KT KNIL ENTER1)@

NARGS BINARY
-.,<`"2B+,<,<,<@`+ZZXBZw,<8"ZwXB8Z,~3B+Z`2B+Z",~-,+B,~Z",~Z,~JD	

(X . 1)
OLDNARGS
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
ARGLIST
LENGTH
(SKLST ASZ KT CF KNIL ENTER1)p8x0HP
(PRETTYCOMPRINT LAMBDATRANCOMS)
(RPAQQ LAMBDATRANCOMS ((* Translation machinery for new LAMBDA words) (LOCALVARS . T) (DECLARE: FIRST 
(P (VIRGINFN (QUOTE ARGLIST) T) (MOVD? (QUOTE ARGLIST) (QUOTE OLDARGLIST)) (VIRGINFN (QUOTE NARGS) T) 
(MOVD? (QUOTE NARGS) (QUOTE OLDNARGS)) (VIRGINFN (QUOTE ARGTYPE) T) (MOVD? (QUOTE ARGTYPE) (QUOTE 
OLDARGTYPE)))) (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS) (ADDVARS (DWIMUSERFORMS (
LTDWIMUSERFN))) (PROP VARTYPE LAMBDATRANFNS) (ALISTS (LAMBDATRANFNS)) (PROP MACRO LTSTKNAME) (P (
PUTHASH (QUOTE LTSTKNAME) (QUOTE (NIL)) MSTEMPLATES)) (P (RELINK (QUOTE WORLD))) (DECLARE: 
EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T)) (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST 
LAMBDATRANFNS BOUNDPDUMMY)) (DECLARE: DOCOPY (DECLARE: EVAL@LOADWHEN (NEQ (EVALV (QUOTE LDFLG)) (QUOTE
 SYSLOAD)) (RECORDS LAMBDAWORD))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (
ADDVARS (NLAMA) (NLAML LTSTKNAME) (LAMA)))))
(ADDTOVAR DWIMUSERFORMS (LTDWIMUSERFN))
(PUTPROPS LAMBDATRANFNS VARTYPE ALIST)
(ADDTOVAR LAMBDATRANFNS)
(PUTPROPS LTSTKNAME MACRO (X (CONS COMMENTFLG X)))
(PUTHASH (QUOTE LTSTKNAME) (QUOTE (NIL)) MSTEMPLATES)
(RELINK (QUOTE WORLD))
(DECLARE: EVAL@LOADWHEN (NEQ (EVALV (QUOTE LDFLG)) (QUOTE SYSLOAD)) (DECLARE: EVAL@COMPILE (RECORD 
LAMBDAWORD (TRANFN FNTYP ARGLIST))))
NIL