(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "10-Nov-98 22:07:17" ("compiled on " {DSK}medley2.1>lispusers>lambdatran.;1) "20-Dec-94 17:11:06" tcompl'd in "Medley 2.1 PARC Full Sysout 24-Oct-98 ..." dated "24-Oct-98 12:37:47") (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 :D8 (L (0 FN)) p@ H ³&H²"Hdgð¯dgð§dgð’¿i¿h–@ `œH` µH`Y²ÙHkIYið³ÏIb°“(76 GETHASH 58 OLDARGLIST 14 SUBRP 5 CGETD) (85 LAMBDATRANFNS 71 CLISPARRAY 64 CLISPARRAY 44 FUNARG 36 NLAMBDA 28 LAMBDA) () ARGTYPE :D8 (L (0 FN)) 9@ µ1@ dgð‘jdgð‘kdgð’lgð´l(13 FNTYP 5 OLDARGTYPE) (49 FEXPR* 39 EXPR* 29 FEXPR 19 EXPR) () FNTYP1 :D8 (L (0 X)) [`œ@` µ3@`d²9Xdgð³dgð¯dgð§dgð– ¥g@kH(75 FNTYP 19 GETHASH) (82 EXPR 67 FEXPR* 59 FEXPR 51 EXPR* 42 EXPR 28 LAMBDATRANFNS 14 CLISPARRAY 7 CLISPARRAY) () LTDWIMUSERFN :D8 (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´8Wd3@ð´0WY X°%`“W°Wd3@ðšWY XƒWZd`\´‚±´icJkL[´‚±¤JI ð¯JdIg ðž¿K!M^µJK W²GgKW_gðªOdgð’¿i…`ð³gIhN ¿°µN°Kdgð¨dgð²¿JWðžWWhddI WK(262 DWIMIFY0? 214 ATTACH 165 RETAPPLY 148 CLISPTRAN 125 GETP 110 GETD 63 GETD 31 GETD) (237 NLAMBDA 229 LAMBDA 204 LTSTKNAME 196 COMMENTFLG 186 CLISP%: 176 DECLARE 157 FAULTAPPLY 120 EXPR 77 LAMBDATRANFNS 40 LAMBDASPLST) () LTSTKNAME :D8 (L (0 NAME)) %mÿgi`X@ H h(33 RELSTK 27 SETSTKNAME 20 REALSTKNTH) (15 BOUNDPDUMMY 9 LTSTKNAME) () NARGSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R chcg(10 ARGLIST) (21 :NORMAL) () NARGS :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 X F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) A@ µ.`TioUI gð´H´@µj–@ k(60 LENGTH 34 NARGSA0001 5 OLDNARGS) (40 :NORMAL 15 SI::NLSETQ-PROCEED-CASE) ( 23 (CL:ERROR . SI::NLSETQHANDLER)) (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