(FILECREATED "18-Sep-86 19:40:28" ("compiled on " {ERIS}SOURCES>LLINTERP.;37) "16-Sep-86 11:57:30" in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "18-Sep-86 19:38:36" {ERIS}SOURCES>LLINTERP.;37 124289 changes to: (VARS LLINTERPCOMS) (FNS \STKNAME) previous date: "28-Aug-86 12:34:47" {ERIS}SOURCES>LLINTERP.;35) (RPAQQ LLINTERPCOMS ((E (* ; "Don't fontify these common functions") (SETQ FNSLST (LDIFFERENCE FNSLST (QUOTE (EVALV PROG SET SETQ RETURN GO QUOTE AND OR PROGN COND PROG1 FUNCTION EVAL APPLY))))) (COMS (* ; "For calling interpreted functions") (FNS \INTERPRETER \INTERPRETER1 \SETUP-COMPILED-CLOSURE-CALL \STKNAME)) (COMS (* ; "recursive interpreter") (FNS EVAL \EVAL \EVALFORM \EVALFORMASLAMBDA \EVALOTHER APPLY APPLY* \CHECKAPPLY* \CKAPPLYARGS DEFEVAL) (DECLARE: DONTCOPY (MACROS .APPLY.)) (VARS ( \DEFEVALFNS NIL) (\EVALHOOK)) (SPECVARS *EVALHOOK*) (ADDVARS (LAMBDASPLST LAMBDA NLAMBDA CL:LAMBDA OPENLAMBDA)) (GLOBALVARS \DEFEVALFNS \EVALHOOK LAMBDASPLST CLISPARRAY) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (CLISPARRAY))) (GLOBALVARS CLISPARRAY) (COMS (* ; "Free variable manipulation") (FNS EVALV \EVALV1 \EVALVAR BOUNDP SET \SETVAR SETQ SETN \STKSCAN \SETFVARSLOT)) (COMS (* ; "PROG and friends") ( FNS PROG \PROG0 \EVPROG1 RETURN GO EVALA \EVALA ERRORSET)) (FNS QUOTE AND OR PROGN COND \EVPROGN PROG1 ) (COMS (* ; "Evaluating in different stack environment") (FNS ENVEVAL ENVAPPLY FUNCTION \FUNCT1 \MAKEFUNARGFRAME STKEVAL STKAPPLY RETEVAL RETAPPLY)) (COMS (* ; "Blip and other stack funniness") (FNS BLIPVAL SETBLIPVAL BLIPSCAN) (FNS DUMMYFRAMEP REALFRAMEP REALSTKNTH \REALFRAMEP) (INITVARS (OPENFNS ( QUOTE (APPLY* SETQ AND OR COND SELECTQ PROG PROGN PROG1 ARG SETARG ERSETQ NLSETQ RESETFORM RESETLST RESETVARS RPTQ SAVESETQ SETN UNDONLSETQ XNLSETQ)))) (VARS \BLIPNAMES) (GLOBALVARS BRKINFOLST) ( GLOBALVARS \BLIPNAMES OPENFNS))) (COMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA READVA READATOM READOCT SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY NOSUCHATOM) (FNS BACKTRACE \BACKTRACE \SCANFORNTENTRY \PRINTSTK \PRINTFRAME \PRINTBF) (DECLARE: EVAL@COMPILE DONTCOPY ( COMS * RAIDCOMS))) (COMS (FNS CCODEP EXPRP SUBRP FNTYP ARGTYPE NARGS ARGLIST \CCODEARGLIST \CCODEIVARSCAN) (COMS (* ; "Translation machinery for new LAMBDA words") (PROP VARTYPE LAMBDATRANFNS) (ALISTS (LAMBDATRANFNS))) (DECLARE: DONTCOPY (MACROS \CCODENARGS \CCODEFNTYP \CCODEARGTYPE))) (COMS (* ;; "proclaim and friends need to come first because DEFVARs put it out. With package code in the init, also need this here rather than CMLEVAL" ) (FUNCTIONS PROCLAIM) (* ; "used by the codewalker, too") (MACROS VARIABLE-GLOBALLY-SPECIAL-P VARIABLE-GLOBAL-P)) (FUNCTIONS SPECIAL-FORM-P) (PROP FILETYPE LLINTERP) (DECLARE: EVAL@COMPILE DONTCOPY (ADDVARS (LAMS FAULTEVAL FAULTAPPLY))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PROG1 COND PROGN OR AND QUOTE GO PROG SETN SETQ) (NLAML FUNCTION RETURN) (LAMA APPLY* \INTERPRETER))) (LOCALVARS . T) (SPECVARS *TAIL* *FN* *FORM* *ARGVAL*))) \INTERPRETER D1 (L (0 N) P 16Q \INTERRUPTABLE) ŸeHaHkÙj£ Idlð“Á É\dl ð²#¿`gÎ0`LÎ2`hÎ4l~`É6d`ðš _¿L \²-Ldgð™¿HLOIdgð¬dgð¦dgð²w¿LµIJk2O dOó¢±î¿O" ]d²-°d_d—¿Oið—Ol# ¿KkØ»µãKJñ²KJÙ°²Mdið•l# †¿k»j^KlØmüå_lØØ_°;gð²hL LHkÙk2O*dO(ó²,¿O,_¿_¿j_¿O°QhýkÙdjñ³ù¿MOOJNIL a_0¿O.µO0h_._,¿O*kÔ_*°¹O0&_.¿°òdýOkØ_nñ–hl4 ¿µêOOa_&¿O$µO&h_$_"¿O kÔ_ ±þöO&&_$¿°ñ(562Q \LISPERROR 473Q \INTERPRETER1 400Q \SMASHLINK 375Q \STACKARGPTR 325Q \LISPERROR 266Q \LISPERROR 227Q FAULTAPPLY 146Q \INTERPRETER-LAMBDA 121Q CLOSURE-FUNCTION 112Q CLOSURE-ENVIRONMENT) (362Q FUNARG 331Q LITATOM 250Q LITATOM 167Q OPENLAMBDA 161Q NLAMBDA 153Q LAMBDA 133Q CL:LAMBDA 105Q CLOSURETYPE# 75Q \InterfacePage 64Q \InterfacePage 56Q \InterfacePage 51Q \SETUP-COMPILED-CLOSURE-CALL 46Q \InterfacePage) () \INTERPRETER1 D1 (L (6 DEF 5 FN 4 NPVARARGS 3 NACTUAL 2 NTSIZE 1 NNILS 0 ARGLIST) P 14Q \INTERRUPTABLE P 6 \INTERRUPTABLE P 0 *TAIL*) < FfBkIÑÊ‡kIÑÈÑºkdIÑÈAàÙ\DàlØØmüåÑ»@µ±ª²e@jlBlØOµ±“_¿KOÐOÓÍ¿KOÐCOñ”OjØLIl ØÙâOCÙn€ØØÍ¿O_¿OkÔ_¿OkÔ_¿OkÔ_¿°ªK@ÓÍ¿KBlØÐFgð’j°%`kdIÑÊðjð”IlÙ„kIÑÈÑÈCàØÐCÎ¿CjØÍ¿Kl EÒlÿåÇ¿KEÓÍKBÍ¿KJÊÏ¿kIÑjÏ0¿KÒ½kIÑMÏ¿kIÑMÏ‡¿kIÑKÓÍ¿kIÑkÏ`¿kjðhðH˜H,¿HX°÷H,NIL (263Q \STACKSPACE 253Q NLAMBDA 234Q LITATOM 125Q LITATOM) () \SETUP-COMPILED-CLOSURE-CALL D1 (L (0 CLOSURE)) I`È@Éò kHÑÊðjð”HlÙ„kHÑÈ\_kLÑÈ]kHÑÈ^kHÑÊðjðhð_—kHÑÈ _¿kHÑÈ_kLÑÊp•LlÙ\€LMÙâ[IÈdnÿñ•nÿÿÙkÙZO¬OLÙIÈýñ¢± IÈKàØH _ kO ÑÈØ_¿kOÑÊlðšOkOÑÈÔ°ékO ÑkMÑKàÄ¿O KàØ¼kHÑÊ‡jð®kHÑdÊ‡mÿÔÏ‡°BkOÑÊ‡jð®kOÑdÊ‡mÿÔÏ‡ŠMOMÙlØ ¿OHlÙð‘HƒHlÙ_kHÑÈOÙ ¿O ½i_¿JKó²JKÕdjñŸkLÑhÎ¿LlÔ¼kÙ°î¿`LÐjÍ¿kLÑMÍ¿kLÑlÏLlØ_¿`OÐjÍ¿kOÑlÏ¿kOÑkÏp¿O²kOÑLÍ¿kOÑOµNÍ ¿kOÑNkä„kOÑNÍ¿IÒ_"¿kOÑO"Ï¿kOÑO"Ï‡¿kOÑIÓÍ¿kOÑIÈÍOl Ø_¿IÈdnÿñ•nÿÿÙkÙkØà_¿@É_²`OÐOÎ¿OlÔ_¿OmÿÔO_$jñ²`OÐnÿÿÍ¿OlÔ_¿O$kÙ°âkOÑOlÔ_Í¿OOOÙ `OÍO(1075Q \MAKEFREEBLOCK 422Q \MAKEFREEBLOCK 366Q \MAKEFREEBLOCK 207Q \FREESTACKBLOCK) (1100Q \InterfacePage 1016Q \STACKSPACE 755Q \STACKSPACE 531Q \STACKSPACE 472Q \STACKSPACE 2 \InterfacePage) () \STKNAME D1 (L (0 POS)) dk@ÑÊ`jð«k@ÑÊ‡k@ÑÈŠk@ÑÊ‡k@ÑÈÑÉdgð²:¿`k@ÑÊðjð”@lÙ„k@ÑÈkHÑÈHkHÑÈÙâkHÑÊpÙkÕlÖÔÐÉNIL (55Q \STACKSPACE 46Q \INTERPRETER) () EVAL D1 (L (0 U) I 1 \INTERNAL) @,NIL NIL () \EVAL D1 (L (0 FORM)) @d“ lð”@ @d3³û (32Q \EVALOTHER 20Q \EVALVAR 6 \EVALFORM) NIL () \EVALFORM D1 (L (1 TEMP) P 3 *FN* P 2 *TAIL* P 1 *ARGVAL* I 0 *FORM*) ä@bdlð²0dÁ Êjð³ ¿AÁ Ê!dkð’¿°`lð²@@kHÁ Ébd`ð²(¿j@dgJZd²j,IkØYlPñ²ðJl4 ¿°çlð²8Adgð²¿Ab¢A³©@@j¾M°Rdgð³¯dgð³¨dgð³¡¿`™@` µ@ b±ÿI–Jl ¿Ih¹KdýNkØ^nñ–hl4 ¿µìNL(333Q \LISPERROR 301Q \LISPERROR 264Q FAULTEVAL 255Q GETHASH 143Q \LISPERROR) (252Q CLISPARRAY 245Q CLISPARRAY 236Q OPENLAMBDA 227Q LAMBDA 220Q CL:LAMBDA 162Q NLAMBDA 113Q *ARGVAL* 75Q CLOSURETYPE#) () \EVALFORMASLAMBDA D1 (L (0 FAULTX) P 2 *FN* P 1 *TAIL* P 0 *ARGVAL*) 4j@dgIYd²,HkØXlPñ²ðIl4 ¿°ç–Il ¿Hh¸J(53Q \LISPERROR 41Q \LISPERROR) (11Q *ARGVAL*) () \EVALOTHER D1 (L (0 X)) @ `µ@@kH(3 TYPENAME) (6 \DEFEVALFNS) () APPLY D1 (L (1 V 0 U) I 2 \INTERNAL) y@Hdlð²¿HdÁ Êjð²&¿HÁ ÉX²1Hdgð²¿H³)H²$Ak@Á Ê!lð°ñgðHX°¶H¥@A j¹A°dýIkØYnñ–hl4 ¿µìI@(160Q \LISPERROR 127Q FAULTAPPLY) (110Q FUNARG 47Q NLAMBDA) () APPLY* D1 (L (0 U)) ›eHjñ´ka Idlð²8¿IdÁ Êjð¯¿IÁ Ê!lð¢±‡°`Á Éµ°Ydgð¦dgð²'¿°i ³dIµèIHl2OdOó¢±ó¿O dgð–¿IY°–dgð²-¿I²,I³&ka_¿Hl2O dOó¢±×¿O"kOgð²¤Hdkð—¿kaºjJlð™ka»lakKHdlðž¿ka¼lalalLlð²ka½lalalalMkaHl2O*dO(óŸ¿O,_¿¾j_¿O°9a_0¿O.µO0h_._,¿O*kÔ_*°ÔO0&_.¿°òdýOkØ_nñ–hl4 ¿µêONa_¿OµOh__¿OkÔ_±þñO&_¿°ña_&¿O$µO&h_$_"¿O kÔ_ ±ÿ O&&_$¿°ñ(515Q \LISPERROR 154Q FAULTAPPLY 116Q CCODEP) (257Q OPENLAMBDA 176Q NLAMBDA 161Q FUNARG 105Q CL:LAMBDA 77Q LAMBDA) () \CHECKAPPLY* D1 (L (0 FN)) Y@Hdlð²dÁ Êjð²8¿HÁ ÉX²8Hgð²0HX²*H²&H³!ghgk@hhÁ Ê!lð³ã@(100Q \CKAPPLYARGS) (75Q QUOTE 71Q LAMBDA 44Q NLAMBDA) () \CKAPPLYARGS D1 NIL 3kfÑÈmþål Ù!kdHÑÈlÙYÑÉddjñŸkIlÙYÑÉJºkÙ°îJNIL NIL () DEFEVAL D1 (L (1 FN 0 TYPE)) (@`HµAš@A`¿H` ¿°æ(40Q DREMOVE) (43Q \DEFEVALFNS 35Q \DEFEVALFNS 26Q \DEFEVALFNS 22Q \DEFEVALFNS 3 \DEFEVALFNS) () (RPAQQ \DEFEVALFNS NIL) (RPAQQ \EVALHOOK NIL) (ADDTOVAR LAMBDASPLST LAMBDA NLAMBDA CL:LAMBDA OPENLAMBDA) (RPAQQ CLISPARRAY NIL) EVALV D1 (L (2 RELFLG 1 POS 0 VAR)) A˜hA ¿@ B”A ¿(24Q RELSTK 16Q \EVALV1 11Q \SMASHLINK 6 \STACKARGPTR) NIL () \EVALV1 D1 (L (0 VAR)) @d•¿@dið/ÉNIL (4 LITATOM) () \EVALVAR D1 (L (0 VAR)) +@d“dið/HÉYdgð²¿HÒmþå`Òð”@ I(46Q FAULTEVAL) (37Q \VALSPACE 23Q NOBIND) () BOUNDP D1 (L (0 VAR)) "@lð´@ gðhðµ@/Òmþå`Òðhð(12Q GETTOPVAL) (33Q \VALSPACE 15Q NOBIND) () SET D1 (L (1 VALUE 0 VAR)) 6@µAd”l /HÒkð–HAÎ¿°@ið›Adið«l ¿ƒHAA(54Q \LISPERROR 12Q \LISPERROR) (16Q LITATOM) () \SETVAR D1 (L (1 VALUE 0 VAR)) 6@µAd”l /HÒkð–HAÎ¿°@ið›Adið«l ¿ƒHAA(54Q \LISPERROR 12Q \LISPERROR) (16Q LITATOM) () SETQ D1 (L (0 U) P 0 *TAIL*) @@H,HXµ ,¿°ò(23Q \SETVAR) NIL () SETN D1 (L (0 U) P 0 *TAIL*) @@H,HXµ ,¿°ò(23Q \SETVAR) NIL () \STKSCAN D1 (L (0 VAR)) ÜkfÑÈmþål Ù@ÓRHjð—`IÐIÐkHÑÊ`jð«kHÑÊ‡kHÑÈŠkHÑÊ‡kHÑÈÑ]ÈºMlÐ]Èdjðž¿kHÑÈmþål ÙX°¸Ið²vMJÐ[Êdjð²#¿kKÊ‡àkdHÑÊðjð”HlÙ„kHÑÈÑÈØÑdl€ð²¿KÊ‡àHl ØØ¼kLÑÊjð²-kLÑlÀð² kKÊ‡àHl ØØÑ^Èkåjð²‰NÊNÈÑ¿Mk±ÿo(324Q SHOULDNT) (31Q \VALSPACE 16Q LITATOM) () \SETFVARSLOT D1 (L (1 NEWBINDING 0 VAR)) yf@ÓRkHÑÊ`jð«kHÑÊ‡kHÑÈŠkHÑÊ‡kHÑÈÑ\ÈºLlÐ\Èdjð¿o@ ¿Lk°ìIð²úLJÐ[ÊlÀð²îkKÊ‡àHl ØØÑ^AÓÍ¿NdAÒ]Ï‡¿MÏA(101Q ERROR) (4 LITATOM) ( 75Q "Binding slot not found in caller's frame") PROG D1 (L (0 U)) Mj@2I°d\d‘\“Lið–Ll# ¿HkÔ¸µãHdlØmüåZlØØ[ƒhýkÙdjñ³ù¿@dKHJI (112Q \PROG0 36Q \LISPERROR) (23Q LITATOM) () \PROG0 D1 (L (5 VARLST 4 NTSIZE 3 NVARS 2 NNILS) P 15Q \INTERRUPTABLE P 7 \INTERRUPTABLE I 1 *TAIL* I 0 *FIRSTTAIL*) E¢±›f1kHÑÊ‡kHÑÈÑ¿kdHÑÈBàÙZCàlØØmüåÑ¹EJLµsEJHl ØÙâlDlØOµu Il gÒlÿåÇ¿IgÓÍIDÍ¿kHÑjÏ0¿IÒ»kHÑKÏ¿kHÑKÏ‡¿kHÑIÓÍ¿kHÑkÏ`¿kjðhðAbd³_^œ`MÐN Î¿L¼MlÔ½±ÿr_¿IOÐOdÓÍ¿IOÐOn€ØÍ¿O_¿OkÔ_¿OkÔ_¿OkÔ_¿±ÿKµ°˜,¿°”(262Q \EVPROG1) (321Q LITATOM 253Q \STACKSPACE 141Q PROG 127Q PROG) () \EVPROG1 D1 (I 0 *TAIL*) @,@bµ,¿°õNIL NIL () RETURN D1 (L (0 FORM)) |@, f¹kIÑÊ`jð«kIÑÊ‡kIÑÈŠkIÑÊ‡kIÑÈÑÉgð²&kIÑÊðjð•kIÑÈ„kIÑÈ l Ù¹hId¿H kIÑÊðjð•kIÑÈ„kIÑÈ l ÙYjð²™hl h(170Q \LISPERROR 125Q VALUES-LIST 120Q \SMASHLINK 4 \MVLIST) (57Q \PROG0) () GO D1 (L (0 U)) ˆf@"kHÑÊ`jð«kHÑÊ‡kHÑÈŠkHÑÊ‡kHÑÈÑÉgð²6IkddHÑÊðjð”HlÙ„kHÑÈÑÈ[ÑÉZ²kKlØÑJÎ¿hHdhkHÑÊðjð•kHÑÈ„kHÑÈ l ÙXjð²‰Il h(204Q \LISPERROR 140Q \SMASHLINK) (53Q \PROG0) () EVALA D1 (L (1 A 0 X)) Ij1A°d[d“ið–Kl# ¿HkÔ¸µäHdlØmüåYlØØZƒhýkÙdjñ³ù¿JHI@A (106Q \EVALA 33Q \LISPERROR) (17Q LITATOM 13Q LISTP) () \EVALA D1 (L (4 ALIST 3 FORM 2 NTSIZE 1 NVARS 0 NNILS) P 13Q \INTERRUPTABLE P 4 \INTERRUPTABLE) Úf1kHÑÊ‡kHÑÈÑkdHÑÈ@àÙYAàlØØmüåÑZDIHl ØÙâlBlØI MµSJl gÒlÿåÇ¿JgÓÍJBÍ¿kHÑjÏ0¿JÒ»kHÑKÏ¿kHÑKÏ‡¿kHÑJÓÍ¿kHÑkÏ`¿kjðhðC,_¿`OÐOÎ¿JOÐOÓÍ¿JOÐNn€ØÍ¿M½NkÔ¾OkÔ_¿OkÔ_¿OlÔ_¿±ÿdNIL (250Q LITATOM 225Q \STACKSPACE 121Q EVALA 107Q EVALA) () ERRORSET D1 (L (2 W 1 V 0 U)) @,hNIL NIL () QUOTE D1 (L (0 U)) @NIL NIL () AND D1 (L (0 U) P 0 *TAIL*) @hðµ@Hd¤¿H,,´ýHX°ðNIL NIL () OR D1 (L (0 U) P 0 *TAIL*) @´@Hd¤¿H,,µýHX°ðNIL NIL () PROGN D1 (L (0 U) P 0 *TAIL*) @´@Hd¤¿H,,¿HX°ñNIL NIL () COND D1 (L (0 U) P 0 *TAIL*) )@HµHd”l ,YœH–H IHX°ß(37Q \EVPROGN 17Q \LISPERROR) NIL () \EVPROGN D1 (I 0 *TAIL*) @™@,¿@b°ö@,NIL NIL () PROG1 D1 (L (0 U) P 0 *TAIL*) @´@H,HXµ,¿°öNIL NIL () ENVEVAL D1 (NAME *ENV* L (4 CFLG 3 AFLG 2 CPOS 1 APOS 0 FORM)) "hAd’ Bd’ C”A ¿D”B ¿@,(34Q RELSTK 25Q RELSTK 17Q \SMASHLINK 14Q \STACKARGPTR 6 \STACKARGPTR) NIL () ENVAPPLY D1 (NAME *ENV* L (5 CFLG 4 AFLG 3 CPOS 2 APOS 1 ARGS 0 FN)) —hBd’ Cd’ D”B ¿E”C ¿@Hdlð²¿HdÁ Êjð²&¿HÁ ÉX²1Hdgð²¿H³)H²$Ak@Á Ê!lð°ñgðHX°¶H¥@A j¹A°dýIkØYnñ–hl4 ¿µìI@(216Q \LISPERROR 165Q FAULTAPPLY 34Q RELSTK 25Q RELSTK 17Q \SMASHLINK 14Q \STACKARGPTR 6 \STACKARGPTR) (146Q FUNARG 105Q NLAMBDA) () FUNCTION D1 (L (1 ENV 0 FN)) A²g@mÿg h@(16Q STKNTH) (13Q FUNCTION 5 FUNARG) () \FUNCT1 D1 (L (3 VARLST 2 NTSIZE 1 NVARS 0 NNILS) P 15Q \INTERRUPTABLE P 7 \INTERRUPTABLE) îf1kHÑÊ‡kHÑÈÑkdHÑÈ@àÙZAàlØØmüåÑYCJLµpCJHl ØÙâlBlØOµk Il gÒlÿåÇ¿IgÓÍIBÍ¿kHÑjÏ0¿IÒ»kHÑKÏ¿kHÑKÏ‡¿kHÑIÓÍ¿kHÑkÏ`¿kjðhðhH ¾kMÑN,Î¿L¼MlÔ½±ÿ|_¿IOÐOÓÍ¿IOÐOn€ØÍ¿O_¿OkÔ_¿OkÔ_¿OkÔ_¿±ÿY(232Q \MAKESTACKP) (275Q LITATOM 133Q *FUNARG* 121Q *FUNARG*) () \MAKEFUNARGFRAME D1 (NAME FUNARG L (0 ENV)) Pj1@°d[d•¿Kið–Kl# ¿HkÔ¸µæHdlØmüåYlØØZƒhýkÙdjñ³ù¿JHI@bdÈjd@(114Q \SMASHLINK 102Q \FUNCT1 31Q \LISPERROR) (15Q LITATOM) () STKEVAL D1 (L (3 INTERNALFLG 2 FLG 1 FORM 0 POS)) h@ B”@ ¿A,(15Q RELSTK 7 \SMASHLINK 4 \STACKARGPTR) NIL () STKAPPLY D1 (NAME *ENV* L (3 FLG 2 ARGS 1 FN 0 POS)) ˆh@ C”@ ¿AHdlð²¿HdÁ Êjð²&¿HÁ ÉX²1Hdgð²¿H³)H²$BkAÁ Ê!lð°ñgðHX°¶H¥AB j¹B°dýIkØYnñ–hl4 ¿µìIA(177Q \LISPERROR 146Q FAULTAPPLY 15Q RELSTK 7 \SMASHLINK 4 \STACKARGPTR) (127Q FUNARG 66Q NLAMBDA) () RETEVAL D1 (NAME *ENV* L (3 INTERNALFLG 2 FLG 1 FORM 0 POS)) 9@ hHkHÑÊðjð•kHÑÈ„kHÑÈ l Ùdjð–¿@l B”@ ¿A,(63Q RELSTK 55Q \SMASHLINK 52Q \LISPERROR 3 \STACKARGPTR) NIL () RETAPPLY D1 (NAME *ENV* L (3 FLG 2 ARGS 1 FN 0 POS)) ©@ !hHkHÑÊðjð•kHÑÈ„kHÑÈ l ÙXdjð–¿@l C”@ ¿AYdlð²dÁ Êjð²&¿IÁ ÉY²0Idgð²¿I³(I²#BkAÁ Ê!lð°ñgðœI°¸I¥AB jºB°dýJkØZnñ–hl4 ¿µìJA(240Q \LISPERROR 207Q FAULTAPPLY 64Q RELSTK 56Q \SMASHLINK 53Q \LISPERROR 3 \STACKARGPTR) (171Q FUNARG 130Q NLAMBDA) () BLIPVAL D1 (L (2 FLG 1 IPOS 0 BLIPTYP)) Aµf‚ @Ó"@gð³!@gð³@gð³@gðªBið´‚±ÖjBdið²"¿HI Z²@gðž`JÐÉµ‚±²jk£kb¿HI Z²@gð²wB`JÐÉµjZñ²BJÙb¿kHÑÊðjð²ikHÑÈ°gkHÑÈHkHÑÊ‡kHÑÈÑÈdnÿñ•nÿÿÙkÙkØààlØØ»¿`KÐÉgð²KJBÙkØàÔ»`KÐÉKlÔ[°ÜkBkÙbñ²™`JÐÉkHÑÈ l ÙXdjð¢±ÿ_h(145Q \VAROFFSET 101Q \VAROFFSET 7 \STACKARGPTR) (360Q \STACKSPACE 330Q \STACKSPACE 311Q *ARGVAL* 302Q \STACKSPACE 163Q \STACKSPACE 154Q *ARGVAL* 115Q \STACKSPACE 110Q *ARGVAL* 50Q *ARGVAL* 41Q *FN* 32Q *FORM* 23Q *TAIL* 13Q LITATOM) () SETBLIPVAL D1 (L (3 VAL 2 N 1 IPOS 0 BLIPTYP)) éAµf‚ @Ó"@gð³@gð³@gðª@gð´‚±»B£kb‡kBñ”B ¿HI Z²@gð²x`JÐÉZšBJñ²BJÙb¿kHÑÊðjð²mkHÑÈ°kkHÑÈHkHÑÊ‡kHÑÈÑÈdnÿñ•nÿÿÙkÙkØààlØØ»¿`KÐÉgð²KJBÙkØàÔ»`KÐCÎCKlÔ[°ÚkBkÙbñ²—`JÐCÎCkHÑÈ l ÙXdjð¢±ÿ\h(102Q \VAROFFSET 74Q \ILLEGAL.ARG 7 \STACKARGPTR) (316Q \STACKSPACE 264Q \STACKSPACE 245Q *ARGVAL* 236Q \STACKSPACE 117Q \STACKSPACE 111Q *ARGVAL* 47Q *ARGVAL* 41Q *FN* 32Q *FORM* 23Q *TAIL* 13Q LITATOM) () BLIPSCAN D1 (L (1 IPOS 0 BLIPTYP)) hAµf‚ !@dgð³dgð¬dgð¦gð´C@ÓºHJ Y²@gð´`IÐÉ•hH kHÑÊðjð•kHÑÈ„kHÑÈ l ÙXdjð²Éh(106Q \MAKESTACKP 57Q \VAROFFSET 7 \STACKARGPTR) (74Q \STACKSPACE 66Q *ARGVAL* 50Q LITATOM 41Q *ARGVAL* 34Q *FN* 26Q *TAIL* 17Q *FORM*) () DUMMYFRAMEP D1 (L (0 POS)) @i hð(4 REALFRAMEP) NIL () REALFRAMEP D1 (L (1 INTERPFLG 0 POS)) @ A (7 \REALFRAMEP 3 \STACKARGPTR) NIL () REALSTKNTH D1 (L (3 OLDPOS 2 INTERPFLG 1 POS 0 N)) QA j@ñ“j@Ù€@j@ñ²kHÑÊðjð•kHÑÈkHÑÈ ‡kHÑÈmþål ÙXdjð‘hB ²ÐIkÙYjñ³ÈCH (116Q \MAKESTACKP 77Q \REALFRAMEP 3 \STACKARGPTR) NIL () \REALFRAMEP D1 (L (1 INTERPFLG 0 FRAME) F 1 \INTERNAL) lk@ÑÊ‡k@ÑÈÑÉHdgð³+dgð‘igð¨Hdgð²¿h@ Qdgð¦dgð²ßhlðhðµ Hd`‘A l\ðhðµ H µH`(142Q EXPRP 127Q CHCON1 63Q \SMASHLINK) (150Q BRKINFOLST 120Q OPENFNS 76Q SELECTQ 70Q INTERNAL 52Q APPLY 43Q EVAL 34Q \INTERPRETER 25Q *ENV*) () (RPAQ? OPENFNS (QUOTE (APPLY* SETQ AND OR COND SELECTQ PROG PROGN PROG1 ARG SETARG ERSETQ NLSETQ RESETFORM RESETLST RESETVARS RPTQ SAVESETQ SETN UNDONLSETQ XNLSETQ))) (RPAQQ \BLIPNAMES (*TAIL* *FORM* *FN* *ARGVALS*)) BACKTRACEA0001 D1 (NAME ERRORSET F 0 FLAGS F 1 IPOS F 2 EPOS F 3 MACROY F 4 PRINTFN) FQµmÿ Rµi PµjclåjðPkåjðhðPlåjðhðPl åjðhðPlåjðTµg ci(100Q \BACKTRACE 16Q \STACKARGPTR 7 \STACKARGPTR) (74Q PRINT) () BACKTRACE D1 (L (3 FILE) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 4 PRINTFN I 2 FLAGS I 1 EPOS I 0 IPOS F 4 RESETVARSLST) ;C 1gHhhTcYog £g»IcgI K“J(66Q ERROR! 61Q APPLY 36Q BACKTRACEA0001 3 OUTPUT) (52Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) ( 30Q (BACKTRACEA0001)) \BACKTRACE D1 (L (11Q RADIX 10Q CNT 7 PRINTFN 6 ALINKS 5 JUNK 4 LOCALS 3 VARS 2 NAMES 1 EPOS 0 IPOS) P 0 .I7) X G¤lb¿glGh!G²oG ¿o ¿GkÔb¿@ ¹E¢±¿¿o ¿Hk@ÑÊðjð”@lÙ„k@ÑÈZ ¿¿Jk@ÑÊ`jð«k@ÑÊ‡k@ÑÈŠk@ÑÊ‡k@ÑÈÑG¿¿o ¿H@ ¿o ¿IkG¿@G °kC¢D²^k@ÑÊðjð”@lÙ„k@ÑÈk@ÑÊ`jð«k@ÑÊ‡k@ÑÈŠk@ÑÊ‡k@ÑÈÑGD“g€i¿BšIkG¿¿@GD“g€i‡B–IkG¿A@ð³-F™k@ÑÈmþå°k@ÑÊðjð•k@ÑÈ„k@ÑÈ l Ùbjð¢±þÄi(432Q \PRINTFRAME 414Q TERPRI 377Q \PRINTBF 270Q \PRINTFRAME 252Q PRIN1 242Q PRINTNUM 234Q PRIN1 224Q TERPRI 220Q \PRINTBF 150Q TERPRI 144Q PRINTNUM 113Q PRIN1 103Q TERPRI 77Q TERPRI 66Q \STKNAME 52Q PRIN1 42Q PRINTNUM) (425Q LOCALS 372Q LOCALS 12Q FIX) ( 247Q ", frame name= " 231Q "Frame xtn at " 110Q "Basic frame at " 47Q ": " 35Q (FIX 3)) \SCANFORNTENTRY D1 (L (1 NTENTRY 0 NMT)) -l@ÈlØ@HÐÈZjð‘hA@IÐÈð“jJÑHkÔ¸IkÔ¹°áNIL NIL () \PRINTSTK D1 (L (0 I) F 0 .I7) *P@ o P`@ÐÈ P`@kØÐÈ k (47Q SPACES 43Q PRINTNUM 26Q PRINTNUM 13Q PRIN1 4 PRINTNUM) (32Q \STACKSPACE 17Q \STACKSPACE) ( 10Q ": ") \PRINTFRAME D1 (L (2 VARSONLY 1 PRINTFN 0 FRAME)) –k@ÑÊ`jð«k@ÑÊ‡k@ÑÈŠk@ÑÊ‡k@ÑÈÑj@k@ÑÊ‡k@ÑÈÑÈdnÿñ•nÿÿÙkÙkØààlØØSB’±*@ ¿o ¿k@ÑÊ0jð§o ¿k@ÑÊPjð§o ¿k@ÑÊ`jð§o ¿k@ÑÊpjð§o ¿k@ÑÊ‡]jð³o ¿k ¿M ¿o ¿k@ÑÊðjð§o ¿k@Ñ¿o ¿¿@lØ ¿k@ÑÊ‡k@ÑÈÑ¿o ¿¿@lØ ¿k@Ñ¿o ¿¿@lØ ¿k@ÑÊ`jð«k@ÑÊ‡k@ÑÈŠk@ÑÊ‡k@ÑÈÑ¿o ¿¿@lØ ¿k@ÑÊðjð£k@Ñ¿o ¿¿HÊ\@l Øj_¿¹JIñ¢±ÜB¤I ¿LOñ²RHOn€Ø [®Bið’±g[¢±¥kIÑÊjð²B•l ¿K ¿k ¿kIÑÉkA°|B³zK ¿o°fB³lHOnÀØ [²Ro ¿K ¿o ¿kIÑÈkåjð²-kIÑ^ÊNÈÑÒ[dkð–¿o°mþå`Òð¤ooˆoƒo ¿h ¿IlÔ¹OkÔ_¿±ÿ#B³0k@ÑÈºJIñ´&I ¿kIÑÊjð™kIÑÉkA‚¿IlÔ¹°Úh(1212Q TERPRI 1163Q \PRINTSTK 1121Q TERPRI 1114Q PRIN1 1011Q PRIN1 1001Q PRIN2 774Q PRIN1 762Q \SCANFORNTENTRY 736Q PRIN1 713Q SPACES 706Q PRIN2 701Q SPACES 637Q \SCANFORNTENTRY 616Q \PRINTSTK 562Q TERPRI 556Q PRIN1 531Q \PRINTSTK 521Q TERPRI 515Q PRIN1 443Q \PRINTSTK 433Q TERPRI 427Q PRIN1 413Q \PRINTSTK 403Q TERPRI 377Q PRIN1 352Q \PRINTSTK 342Q TERPRI 336Q PRIN1 322Q PRIN1 301Q PRIN1 271Q PRIN1 264Q SPACES 257Q PRIN1 234Q PRIN1 213Q PRIN1 172Q PRIN1 151Q PRIN1 130Q PRIN1 120Q \PRINTSTK) (1063Q \VALSPACE 653Q *local*) ( 1111Q "[padding]" 1104Q " not looked up]" 1077Q " top value]" 1072Q " non-stack binding]" 1053Q " on stack]" 1006Q " " 771Q "[fvar " 743Q " [unbound]" 553Q "[blink, clink]" 512Q "[nametable]" 424Q "[next, pc]" 374Q "[fn header]" 333Q " alink]" 317Q "X, " 276Q ", " 254Q "USE=" 231Q "N, " 210Q "V, " 167Q "C, " 146Q "F, " 125Q "[") \PRINTBF D1 (L (3 VARSONLY 2 PRINTFN 1 NMT 0 BL)) Ô@k@ÑÈÙâk@ÑÊpÙkÙk@ÑÈjJHó’±C¤I ¿AµHC£¿C’±@ k@ÑÊ`jð§o ¿k@ÑÊ‡jð³o ¿k@ÑÊ‡ ¿k ¿JjØ [ªCið³&g[² C•l ¿K ¿k ¿`IÐÉkB¿IlÔ¹JkÔZ±ÿpC³‚@Iñ¢±ÿ|I ¿o ¿h ¿IlÔ¹°âh(310Q TERPRI 303Q PRIN1 273Q \PRINTSTK 224Q SPACES 217Q PRIN2 212Q SPACES 166Q \SCANFORNTENTRY 157Q TERPRI 153Q SPACES 146Q PRIN1 134Q PRIN1 112Q PRIN1 72Q \PRINTSTK 57Q TERPRI 46Q \PRINTSTK) (230Q \STACKSPACE 200Q *local*) ( 300Q "[padding]" 131Q "usecnt= " 107Q "residual ") CCODEP D1 (L (0 FN)) ?@dlð²%dÁ Êjð¿@Á Ê@jðhðhðÁ Él ð´il ð³ú@´ @ÊClðNIL NIL () EXPRP D1 (L (0 FN)) +@Hdlð²dÁ Êjð«¿HÁ Ê@jðhðÁ É´iNIL NIL () SUBRP D1 (L (0 FN)) hNIL NIL () FNTYP D1 (L (0 FN)) ±@Hdlð²=Á XdÊ@jð¥ X°-ÊjðhðHÉ¸²HÊ!djð“gdkð“glð³lgH²HHdgð³dgð¥dgðž¿HX³'H²$gdgð²¿HX¥H“gggð´gHl ð´úHÉÊ!djð³‘dkð³”lð²˜g(30Q \PSEUDOCODE.REALDEF) (256Q CEXPR* 216Q EXPR 210Q FUNARG 204Q FEXPR 200Q FEXPR* 161Q NLAMBDA 154Q EXPR* 134Q OPENLAMBDA 126Q LAMBDA 117Q CL:LAMBDA 104Q CFEXPR* 73Q CFEXPR 63Q CEXPR) () ARGTYPE D1 (L (0 FN)) ®@HYdlð²"Á ÊjðhðHÁ É¸”HÊ!Hd¢±‡b°Õlð²fHdgð’ldgð¥dgð›¿HX¢H³éjdgð›¿HX¢H³0kgð—Hb°H dgð³Ödgð³ádgð³¯gð´lId`ð³l ð´HÉÊ!(170Q FNTYP) (234Q CLOSURETYPE# 220Q FEXPR* 212Q EXPR* 203Q FEXPR 174Q EXPR 152Q FUNARG 131Q NLAMBDA 107Q OPENLAMBDA 101Q LAMBDA 70Q CL:LAMBDA) () NARGS D1 (L (0 FN)) Ÿ@AHdlð²,Á ÊjðhðHÁ É¸²HÈdnÿñ•nÿÿÙkÙ¹jIñ‘kIH²GHdgð³ñdgð¬dgð¦dgð²¿HXµj²ÒHj»Z¡KKkÔ»J°õgð´H Hl ð´úHÉÈdnÿñ•nÿÿÙkÙ¼jLñ³—L(174Q NARGS) (163Q FUNARG 121Q OPENLAMBDA 113Q NLAMBDA 105Q LAMBDA 76Q CL:LAMBDA) () ARGLIST D1 (L (0 FN)) ‹@Hdlð²"Á ÊjðhðHÁ É¸”H Hµ @g X²3Hdgð“gdgð«dgð¥dgð”¿Hgð²Hb°¢Hl ð–HÉ @i Xµo@ h@ð³ôHb±ÿy(174Q ERROR 161Q FNCHECK 153Q \CCODEARGLIST 52Q GETPROP 37Q \CCODEARGLIST) (124Q FUNARG 112Q OPENLAMBDA 104Q NLAMBDA 76Q LAMBDA 71Q U 64Q CL:LAMBDA 47Q EXPR) ( 170Q "Args not available:") \CCODEARGLIST D1 (L (1 SMARTP 0 FNHD)) ø @Èdnÿñ•nÿÿÙkÙAjHñ“gHjð‘h@ÈZ@ÈâJdjð“¿l€àlØ\Ù[djð’¿°lñ˜@LKâ¹ˆ@LÐÉ\µ-Jjð¨@lJI¹HkÙj2 NdMó²]¿OY@Ê!lð²zd\²ÒA‘LLA MµN_gð³$Odgð³d•¿O _¿OµOh_^¿M]°ÍO&_°õIµ gN _¿OµOh__¿NkÔ^±ÿ€O&_¿°óI(325Q PACK* 256Q MKATOM 140Q \CCODEIVARSCAN 111Q \CCODEIVARSCAN) (321Q *ARG* 241Q &INTERLISP 230Q &OPTIONAL 30Q U) () \CCODEIVARSCAN D1 (L (3 IVARS 2 SIZE 1 START 0 FNHD)) .@AÐ!jHÈÑY²HBÐÈZnÀåjð™JjØICb¿HkÐ¸°ÝCNIL NIL () (PUTPROPS LAMBDATRANFNS VARTYPE ALIST) (ADDTOVAR LAMBDATRANFNS) PROCLAIM D1 (L (0 PROCLAMATION)) 9@´5@dgð²¿@‰dgi¿µôhgð´@‰dgi¿µôh(60Q PUTPROP 30Q PUTPROP) (54Q GLOBALVAR 42Q GLOBAL 24Q GLOBALLY-SPECIAL 11Q SPECIAL) () (PUTPROPS VARIABLE-GLOBALLY-SPECIAL-P MACRO ((VARIABLE) (GET VARIABLE (QUOTE GLOBALLY-SPECIAL)))) (PUTPROPS VARIABLE-GLOBAL-P MACRO ((VARIABLE) (GET VARIABLE (QUOTE GLOBALVAR)))) SPECIAL-FORM-P D1 (L (0 X)) @ÁÉg'NIL (7 SPECIAL-FORM) () (PUTPROPS LLINTERP FILETYPE COMPILE-FILE) (PUTPROPS LLINTERP COPYRIGHT ("Xerox Corporation" T 1981 1982 1983 1984 1985 1986)) NIL