(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "19-Feb-87 10:42:22" ("compiled on " {QV}PARSER>NEXT>LAMBDATRAN.;2) "21-Jan-87 21:13:09" bcompl'd in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED "19-Feb-87 10:40:43" {QV}PARSER>NEXT>LAMBDATRAN.;2 9556 changes to%: (FNS FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS) previous date%: "19-Feb-87 09:56:18" {QV}PARSER>NEXT>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 :D4 (L (0 FN)) \@ H ³ H²Hdgð«dgð¥dgð’¿i¿h”@ `˜H` µH`Y²ãHkIYið³ÙIb°§(58 GETHASH 46 OLDARGLIST 10 SUBRP 3 CGETD) (65 LAMBDATRANFNS 55 CLISPARRAY 50 CLISPARRAY 34 FUNARG 28 NLAMBDA 22 LAMBDA) () ARGTYPE :D4 (L (0 FN)) -@ µ'@ dgð‘jdgð‘kdgð’lgð´l(9 FNTYP 3 OLDARGTYPE) (37 FEXPR* 29 EXPR* 21 FEXPR 13 EXPR) () FNTYP1 :D4 (L (0 X)) G`˜@` µ)@`d²Xdgð³dgð«dgð¥dgð” £g@kH(57 FNTYP 13 GETHASH) (62 EXPR 51 FEXPR* 45 FEXPR 39 EXPR* 32 EXPR 20 LAMBDATRANFNS 10 CLISPARRAY 5 CLISPARRAY) () LTDWIMUSERFN :D4 (P 1 FAULTFN P 0 EXPR F 8 FAULTX F 9 FAULTAPPLYFLG F 10 EXPR F 11 FAULTFN F 12 FAULTARGS F 13 CLISPCHANGE) èWW2WµW´2Wlð´*WY X°!d`”¿W°lð˜WY XƒWZd`\´‚±—icJkL[´‚±‡JI ð«JdIg ðž¿K!M^µJK W²8gKW_gð¨Odgð’¿iƒ`ðgIhN ¿°ÆN°¾Kdgð¦dgð²¿JWðœWWhddI WK(225 DWIMIFY0? 183 ATTACH 145 RETAPPLY 132 CLISPTRAN 111 GETP 100 GETD 57 GETD 29 GETD) (202 NLAMBDA 196 LAMBDA 175 LTSTKNAME 170 COMMENTFLG 162 CLISP%: 154 DECLARE 139 FAULTAPPLY 108 EXPR 69 LAMBDATRANFNS 37 LAMBDASPLST) () LTSTKNAME :D4 (L (0 NAME)) mÿgi`X@ H h(23 RELSTK 19 SETSTKNAME 14 REALSTKNTH) (11 BOUNDPDUMMY 7 LTSTKNAME) () NARGSA0001 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 X F 6 PROCEED-CASE0020 F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) Li@ggggVgjghgg WggWi¼U c h (71 \MVLIST 63 ARGLIST 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (50 SI::NLSETQHANDLER 47 CL:ERROR 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () NARGS :D4 (P 0 PROCEED-CASE0020 I 0 X) >@ d³.hH !I»IºKdgð•¿J „j:´h´@µj”@ k(57 LENGTH 37 CL:VALUES-LIST 15 NARGSA0001 3 OLDNARGS) (30 :NORMAL) () (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 1987)) NIL