(FILECREATED " 8-Dec-84 12:01:50" ("compiled on " {ERIS}LIBRARY>LAMBDATRAN.;2) " 4-Dec-84 16:52:06" recompiled changes: nothing in "INTERLISP-D 4-Dec-84 ..." dated " 4-Dec-84 17:11:49") (FILECREATED " 8-Dec-84 12:01:32" {ERIS}LIBRARY>LAMBDATRAN.;2 7143 changes to: (VARS LAMBDATRANCOMS) previous date: "18-NOV-79 22:45:22" {ERIS}LIBRARY>LAMBDATRAN.;1) (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)) (MOVD? (QUOTE NILL) (QUOTE LTDWIMUSERFN)) ARGLIST D1 (L (0 FN)) \@ H ³ H²Hdgð«dgð¥dgð’¿i¿h”@ `–H`µH` Y²ãHkIYið³ÙIb°§(102Q ASSOC 56Q OLDARGLIST 12Q SUBRP 3 CGETD) (77Q LAMBDATRANFNS 67Q CLISPARRAY 62Q CLISPARRAY 42Q FUNARG 34Q NLAMBDA 26Q LAMBDA) NIL ARGTYPE D1 (L (0 FN)) -@ µ'@ dgð‘jdgð‘kdgð’lgð´l(11Q FNTYP 3 OLDARGTYPE) (45Q FEXPR* 35Q EXPR* 25Q FEXPR 15Q EXPR) NIL FNTYP1 D1 (L (0 X)) G`–@`µ+@` d²Xdgð³dgð«dgð¥dgð” £g@kH(71Q FNTYP 25Q ASSOC) (76Q EXPR 63Q FEXPR* 55Q FEXPR 47Q EXPR* 40Q EXPR 22Q LAMBDATRANFNS 12Q CLISPARRAY 5 CLISPARRAY) NIL LTDWIMUSERFN D1 (P 1 FAULTFN P 0 EXPR F 10Q FAULTX F 11Q FAULTAPPLYFLG F 12Q EXPR F 13Q FAULTFN F 14Q FAULTARGS F 15Q CLISPCHANGE) çWW2WµW´2Wlð´*WY X°!d`”¿W°lð˜WY XƒWZd` \´‚±”icJkL[´‚±„JI ð©JdIgðž¿K!M^µJK W²7gKW_gð¨Odgð’¿iƒ`ð¬gI#N ¿°ÇN°¿Kdgð¦dgð²¿JWðœWWhddI WK(340Q DWIMIFY0? 266Q ATTACH 221Q RETAPPLY 204Q CLISPTRAN 146Q GETD 110Q ASSOC 71Q GETD 35Q GETD) (311Q NLAMBDA 303Q LAMBDA 257Q LTSTKNAME 252Q COMMENTFLG 242Q CLISP: 232Q DECLARE 213Q FAULTAPPLY 156Q EXPR 105Q LAMBDATRANFNS 45Q LAMBDASPLST) NIL LTSTKNAME D1 (L (0 NAME)) mÿgi`X@ H h(27Q RELSTK 23Q SETSTKNAME 16Q REALSTKNTH) (13Q BOUNDPDUMMY 7 LTSTKNAME) NIL NARGSA0019 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X) P c#(3 ARGLIST) NIL NIL NARGS D1 (I 0 X) @ µo ´@µj”@ k(31Q LENGTH 14Q NARGSA0019 3 OLDNARGS) NIL (11Q (DUMMY.FOR.ERRORSET)) (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)) (MOVD? (QUOTE NILL) (QUOTE LTDWIMUSERFN)))) (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: DONTCOPY (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)) (PUTPROPS LAMBDATRAN COPYRIGHT ("Xerox Corporation" 1984)) NIL