(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 18:09:04" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLINTERP.;1 ) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 16:25:22" "{Pele:mv:envos}Sources>CLTL2>LLINTERP.;1" 155590 previous date%: "31-Dec-92 01:36:17" "{Pele:mv:envos}Sources>LLINTERP.;6") \INTERPRETER :D8 (L (0 N) P 14 \INTERRUPTABLE) âeHaHkÙj£ Idd3@ð•¿IÁ É\dÃ²-¿`gÎ0`LÎ2`hÎ4l~`É6dÃ²¿LÉ_¿LÉ\²:Ldgð›¿HLOIdgð³dgðªdgð¢±Š¿LµIJk2O dOó¢±¿O" ]d²1°"d_d—¿Oið™Ol# ¿KkØ»µßKJñ²KJÙ°²Mdið—l# ˆ¿k»j^KàkØlØmüå_ØlkØâØkØ_°Cgð¢±ÿxhL LHkÙk2O*dO(ó².¿O,_¿_¿j_¿O°UhýkÙdjñ³ù¿MOOJNIL a_0¿O.µO0h_._,¿O*kÔ_*°·O0&_.¿°òdýnOkØ_ñ¨hl4 ¿µèOOa_&¿O$µO&h_$_"¿O kÔ_ ±þØO&&_$¿°ñ(437 \LISPERROR 380 \INTERPRETER1 319 \SMASHLINK 314 \STACKARGPTR 258 \LISPERROR 225 \LISPERROR 190 FAULTAPPLY 130 \INTERPRETER-LAMBDA) (299 FUNARG 264 LITATOM 209 LITATOM 154 OPENLAMBDA 146 NLAMBDA 137 LAMBDA 117 CL:LAMBDA 103 CLOSURE 92 CLOSURE 83 CLOSURE 74 \InterfacePage 63 \InterfacePage 55 \InterfacePage 48 \SETUP-COMPILED-CLOSURE-CALL 43 \InterfacePage 32 COMPILED-CLOSURE) () \INTERPRETER1 :D8 (L (6 DEF 5 FN 4 NPVARARGS 3 NACTUAL 2 NTSIZE 1 NNILS 0 ARGLIST) P 13 \INTERRUPTABLE P 7 \INTERRUPTABLE P 0 *TAIL*) ‚FfRkIÑÉºkdIÑÈAàÕ\DàÔlØmüåÑ»@µ±þd¢±jldBÔOµ±æ_dlð‘ÓŒlð’O„]3 —KOÐjMÑ„KOÐMÎ¿KOÐCOó‘j‚n€Í¿KOkØÐCOó’O‹LIl ØÕâOCÕØÍ¿O_¿OkÔ_¿OlÔ_¿OlÔ_¿±ÿ€lð’@ÓŒ@lð‘@„^3 ”KjNÑKNÎ¿KlBÔÐjÍ¿KlBÔkØÐFgð’j°'`kdIÑÊðjð”IlÙ„kIÑÈÑÈCàÔÐCÎ¿CÍ¿ KdÈnðåEÒnÿåäÍ¿KlkØÐEÓÍKBÍ¿KJÊÏ¿kIÑjÏ0¿kIÑKÎ¿kIÑkÏ`¿kjðhðH˜H,¿HX°÷H,(209 SHOULDNT 90 SHOULDNT) (258 \STACKSPACE 248 NLAMBDA) () \SETUP-COMPILED-CLOSURE-CALL :D8 (L (0 CLOSURE)) M`È@Éò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ÿÔÏ‡°FkOÑÊ‡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Í¿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(575 \MAKEFREEBLOCK 287 \MAKEFREEBLOCK 257 \MAKEFREEBLOCK 144 \FREESTACKBLOCK) (580 \InterfacePage 526 \STACKSPACE 491 \STACKSPACE 480 COMPILED-CLOSURE 362 \STACKSPACE 329 \STACKSPACE 12 COMPILED-CLOSURE 4 \InterfacePage) () \STKNAME :D8 (L (0 POS)) [k@ÑÊ`jð¥k@ÑÉ„k@ÑÉÉdgð²<¿`k@ÑÊðjð”@lÙ„k@ÑÈkHÑÈHkHÑÈÙâkHÑÊpÙkÕlÖÔÐÉNIL (36 \STACKSPACE 27 \INTERPRETER) () \ENVCALL.UFN :D8 (P 0 \INTERRUPTABLE I 0 \INTERRUPTABLE) +`gÎ0`hÎ2`hÎ4l~`É6NIL (38 \InterfacePage 27 \InterfacePage 19 \InterfacePage 12 \SETUP-ENVIRONMENT-CALL 7 \InterfacePage) () \SETUP-ENVIRONMENT-CALL :D8 NIL c`Èñ€kHÑÈ¹kHÑÊðjð”HlÙ„kHÑÈºkJÑÈ»kHÑÊðjð•kHÑÈ„kHÑÈ l Ù¼kLÑÈ½h____ _"¿kMlÕÑ_dÉ_OÉ_OÉ^dÈdnÿñ•nÿÿÙkÙ_NÈ_MOlÔàÕ_OOó™jOó¤O_¿JHlÙð’i°KlJKÕÔ ¿HlÙ»h²@KdMð²;¿IKÕ_¿h_$¿kIÑÊlð²OkIÑÈ_$Ô_¿IO$Ô¹°ãOOó—I_¿O°CKIKÕ ¿OOàÔK _ kO ÑÈÔ_¿kO ÑkOÑOàÄ¿OMOÕ ¿i_¿O _"dOàÔ_ kLÑOÍjOó³#OOÕ_&jñ²kO ÑhÎ¿O lÔ_ ¿O&kÙ°ækO Ñn€Í¿kO ÑO"ÍO lÔ_ ¿kO ÑnÀÍ¿kO ÑkÏp¿Ll Ô_(¿O² kO ÑO lÙÍ¿kO ÑO(Í ¿kO ÑO(kä…kO ÑO(Í¿kO ÑNÎ¿kO ÑNÈÍO l ØNÈdnÿñ•nÿÿÙkÙkØà_.¿_,¿O²kO,ÑOÎ¿O,lÔ_,¿O.kÙO._*jñ²kO,ÑnÿÿÍ¿O,lÔ_,¿O*kÙ°äkO ÑO,lÔ_,Í¿O,OO,Õ ¿`O ÍO (596 \MAKEFREEBLOCK 309 \MAKEFREEBLOCK 273 \FREESTACKBLOCK 260 \MAKEFREEBLOCK 180 \MAKEFREEBLOCK) (602 \InterfacePage 4 \InterfacePage) () EVAL :D8 (L (0 U) I 1 \INTERNAL) @,NIL NIL () \EVAL :D8 (L (0 FORM)) %@d• dd3@ð—¿@ 3‘@@ (34 \EVALOTHER 22 \EVALVAR 8 \EVALFORM) NIL () \EVALFORM :D8 (L (1 TEMP) P 5 *FN* P 4 *TAIL* P 3 *ARGVAL* I 0 *FORM*) @bdd3@ð²)¿AdÁ Êjð³¿AÁ Ê!dkð’¿°Alð²q°HÁ ÉbHYÃ³\IÃ³THÃ²xAdgð²&¿Ab¡A@@jºI±@@kHdgð³dgð¨dgð²-¿j@dgL\d²;,KkØ[lPñ²ðLl4 ¿°å€`@` µ @ b±ÿ˜Ll ¿Kh»MdýnJkØZñ¨hl4 ¿µêJH(265 \LISPERROR 237 \LISPERROR 222 FAULTEVAL 213 GETHASH 190 \LISPERROR) (208 CLISPARRAY 201 CLISPARRAY 164 *ARGVAL* 147 OPENLAMBDA 139 LAMBDA 130 CL:LAMBDA 85 NLAMBDA 75 LISTP 67 CLOSURE 59 COMPILED-CLOSURE) () \EVALFORMASLAMBDA :D8 (L (0 FAULTX) P 2 *FN* P 1 *TAIL* P 0 *ARGVAL*) :j@dgIYd²,HkØXlPñ²ðIl4 ¿°å˜Il ¿Hh¸J(49 \LISPERROR 37 \LISPERROR) (11 *ARGVAL*) () \EVALOTHER :D8 (L (0 X)) @ `µ@@kH(5 TYPENAME) (10 \DEFEVALFNS) () APPLY :D8 (L (1 V 0 U) I 2 \INTERNAL) @Hdd3@ð²¿HdÁ Êjð²(¿HÁ ÉX²5Hdgð²¿H³-H²(Ak@Á Ê!lð°ñgðŸHX°²H§@A j¹A°dýnIkØYñ¨hl4 ¿µêI@(120 \LISPERROR 93 FAULTAPPLY) (76 FUNARG 41 NLAMBDA) () APPLY* :D8 (L (0 U)) «eHjñ´ka Idd3@ð²<¿IdÁ Êjð¯¿IÁ Ê!lð¢±•°lÁ Éµ°#Ydgð¨dgð²+¿°s ³lIµâ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°;a_0¿O.µO0h_._,¿O*kÔ_*°ÔO0&_.¿°òdýnOkØ_ñ¨hl4 ¿µèONa_¿OµOh__¿OkÔ_±þçO&_¿°ña_&¿O$µO&h_$_"¿O kÔ_ ±ÿ O&&_$¿°ñ(349 \LISPERROR 116 FAULTAPPLY 84 CCODEP) (189 OPENLAMBDA 138 NLAMBDA 123 FUNARG 73 CL:LAMBDA 65 LAMBDA) () \CHECKAPPLY* :D8 (L (0 FN)) e@Hdd3@ð²¿HdÁ Êjð²B¿HÁ ÉX²BHgð²8HX²2H².H³)ghg@¹kIhhÁ Ê!lð³Û@(76 \CKAPPLYARGS) (69 QUOTE 63 LAMBDA 40 NLAMBDA) () \CKAPPLYARGS :D8 NIL 3kfÑÈmþål Ù!kdHÑÈlÙYÑÉddjñŸkIlÙYÑÉJºkÙ°îJNIL NIL () DEFEVAL :D8 (L (1 FN 0 TYPE)) 3@`H²H` ¿Až@A`¿H(23 DREMOVE) (45 \DEFEVALFNS 39 \DEFEVALFNS 28 \DEFEVALFNS 18 \DEFEVALFNS 5 \DEFEVALFNS) () EVALV :D8 (L (2 RELFLG 1 POS 0 VAR)) AœhA ¿@ B–A ¿(28 RELSTK 20 \EVALV1 13 \SMASHLINK 8 \STACKARGPTR) NIL () \EVALV1 :D8 (L (0 VAR)) @d•¿@dið/ÉNIL (6 LITATOM) () \EVALVAR :D8 (L (0 VAR)) @d²dið³/Édgð–¿@ (26 FAULTEVAL) (17 NOBIND) () BOUNDP :D8 (L (0 CL::VAR)) @d3@ð´@/ÉgðhðNIL (15 NOBIND) () SET :D8 (L (1 VALUE 0 VAR)) <@µ Ad–l /HÒkð–HAÎ¿°@iðAdiðl ¿ƒHAA(50 \LISPERROR 12 \LISPERROR) (18 LITATOM) () \SETVAR :D8 (L (1 VALUE 0 VAR)) <@µ Ad–l /HÒkð–HAÎ¿°@iðAdiðl ¿ƒHAA(50 \LISPERROR 12 \LISPERROR) (18 LITATOM) () SETQ :D8 (L (0 U) P 0 *TAIL*) @@H,HXµ ,¿°ð(21 \SETVAR) NIL () \STKSCAN :D8 (L (0 VAR)) ŠkfÑÈmþål Ù@dlð‘Ó‹lð‘@„âHjð²(Id3 ²¿nÿÿIñ²`ll IÚØ_ÐOÐIlÐkHÑÊ`jð¥kHÑÉ„kHÑÉ]ÈºMlÐ½j_¿lj_¿_¿OOó³)OáMjOØ_¿dÊjð¥OlæOÂä_¿OkÔ_°ÖOdj Ÿ¿kHÑÈmþål ÙX±ÿgI ¢±¼j_¿lj_¿_¿OOó³)OáMJOØ_¿dÊjð¥OlæOÂä_¿OkÔ_°ÖO[ããnÀådjð²$¿kKlÿåÓàkdHÑÊðjð”HlÙ„kHÑÈÑÈØÑdn€ð²¿KlÿåÓàHl ØØ¼kLÑÊjð²2kLÑnÀð²"kKlÿåÓàHl ØØÑ^Èkåjð¢±ÿ?NÈNÈÑ¿Ml±þã(385 SHOULDNT 197 EQP 174 EQP 31 SHOULDNT) (58 \PNPSPACE) () \SETFVARSLOT :D8 (L (1 NEWBINDING 0 VAR)) rf@BkHÑÊ`jð¥kHÑÉ„kHÑÉ\ÈºLlÐ\Éµo@ ¿Ll°ëI ²õLJ [ããnÀånÀ ²ÝkKlÿåÓàHl ØØÑ]AÓÍ¿MAÒÍA(84 EQP 69 \GETBASEFIXP 60 EQP 48 ERROR) NIL ( 42 "Binding slot not found in caller's frame") PROG :D8 (L (0 U)) [j@2I°"d\d‘\“Lið˜Ll# ¿HkÔ¸µßHdàkØlØmüåZØlkØâØkØ[ƒhýkÙdjñ³ù¿@dKHJI (88 \PROG0 34 \LISPERROR) (21 LITATOM) () \PROG0 :D8 (L (5 VARLST 4 NTSIZE 3 NVARS 2 NNILS) P 13 \INTERRUPTABLE P 8 \INTERRUPTABLE I 1 *TAIL* I 0 *FIRSTTAIL*) -E¢±ŽfAkHÑ¿kdHÑÈBàÙZCàØlØmüåÑ¹EJMµqEJHl ØÙâldDØOµ{ IdÈnðågÒnÿåäÍ¿IlkØÐgÓÍIDÍ¿kHÑjÏ0¿kHÑIÎ¿kHÑkÏ`¿kjðhðAbd’±Š_²`NÐO Î¿M½NlÔ¾±ÿmd[dlð‘Ó‹lð‘K„\3 —IOÐjLÑ„IOÐLÎ¿IOÐn€Í¿IOkØÐOÍ¿O_¿OkÔ_¿OlÔ_¿OlÔ_¿±ÿ"µ±ÿl,¿±ÿg(214 SHOULDNT 174 \EVPROG1) (164 \STACKSPACE 104 PROG 84 PROG) () \EVPROG1 :D8 (I 0 *TAIL*) @,@bµ,¿°õNIL NIL () RETURN :D8 (L (0 FORM)) u@, fkIÑÊ`jð¥kIÑÉ„kIÑÉÉgð²'kIÑÊðjð•kIÑÈ„kIÑÈ l Ù¹hI ¿H$kIÑÊðjð•kIÑÈ„kIÑÈ l ÙYjð²£hl h(113 \LISPERROR 71 \SMASHRETURN 6 \MVLIST) (37 \PROG0) () GO :D8 (L (0 U)) €f@"kHÑÊ`jð¥kHÑÉ„kHÑÉÉgð²7IkddHÑÊðjð”HlÙ„kHÑÈÑÈ[ÑÉZ²kKlØÑJÎ¿hH hkHÑÊðjð•kHÑÈ„kHÑÈ l ÙXjð²“Il h(124 \LISPERROR 86 \SMASHRETURN) (32 \PROG0) () EVALA :D8 (L (1 A 0 X)) Yj1A°#d[d“ið˜Kl# ¿HkÔ¸µÞHdàkØlØmüåYØlkØâØkØZƒhýkÙdjñ³ù¿JHI@A (86 \EVALA 33 \LISPERROR) (19 LITATOM 13 LISTP) () \EVALA :D8 (L (4 ALIST 3 FORM 2 NTSIZE 1 NVARS 0 NNILS) P 12 \INTERRUPTABLE P 5 \INTERRUPTABLE) ý fAkHÑÉkdHÑÈ@àÙYAàØlØmüåÑZDIHl ØÙâldBØINµPJdÈnðågÒnÿåäÍ¿JlkØÐgÓÍJBÍ¿kHÑjÏ0¿kHÑJÎ¿kHÑkÏ`¿kjðhðC,_¿`OÐOÎ¿O[dlð‘Ó‹lð‘K„\3 —JOÐjLÑ„JOÐLÎ¿JOÐn€Í¿JOkØÐOÍ¿N¾OkÔ_¿OlÔ_¿OlÔ_¿OlÔ_¿±ÿ9(173 SHOULDNT) (140 \STACKSPACE 90 EVALA 70 EVALA) () ERRORSETA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FORM F 3 SI::NLSETQ-VALUE) i@R,hcgNIL (15 :NORMAL) () ERRORSET :D8 (L (1 FLAG) P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 FORM F 4 *CONDITION-HANDLER-BINDINGS* F 5 *PROCEED-CASES*) /`UAiðhðA‘T†oTI gð´H(34 ERRORSETA0001) (40 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) ( 23 (CL:ERROR . SI::NLSETQHANDLER)) SI::ERRORSET-PRINT-FUNCTION :D8 (L (1 STREAM 0 DATUM)) oA (10 PRIN1) NIL ( 4 "Unwind to ERRORSET") LET :D8 (L (0 U)) [j@2I°"d\d‘\“Lið˜Ll# ¿HkÔ¸µßHdàkØlØmüåZØlkØâØkØ[ƒhýkÙdjñ³ù¿@KHJI (88 \LET0 34 \LISPERROR) (21 LITATOM) () LET* :D8 (L (0 U)) [jA@Y°"d\d‘\“Lið˜Ll# ¿HkÔ¸µßHdàkØlØmüåZØlkØâØkØ[ƒhýkÙdjñ³ù¿@KHJI (88 \LET* 34 \LISPERROR) (21 LITATOM) () \LET0 :D8 (L (4 VARLST 3 NTSIZE 2 NVARS 1 NNILS) P 13 \INTERRUPTABLE P 8 \INTERRUPTABLE I 0 *TAIL*) ,D¢±ŽfAkHÑ¿kdHÑÈAàÙZBàØlØmüåÑ¹DJMµqDJHl ØÙâldCØOµ{ IdÈnðågÒnÿåäÍ¿IlkØÐgÓÍICÍ¿kHÑjÏ0¿kHÑIÎ¿kHÑkÏ`¿kjðhð@’±@,_²`NÐO Î¿M½NlÔ¾±ÿmd[dlð‘Ó‹lð‘K„\3 —IOÐjLÑ„IOÐLÎ¿IOÐn€Í¿IOkØÐOÍ¿O_¿OkÔ_¿OlÔ_¿OlÔ_¿±ÿ"@,¿@b±ÿi(214 SHOULDNT 174 \EVPROG1) (164 \STACKSPACE 104 LET 84 LET) () \LET* :D8 (L (4 VARLST 3 NTSIZE 2 NVARS 1 NNILS) P 11 \INTERRUPTABLE P 5 \INTERRUPTABLE I 0 *TAIL*) UD¢±fAkHÑ¿kdHÑÈAàÙZBàØlØmüåÑ¹DJHl ØÙâJBkÙàlØBkÙàlØCØ NµfIdÈnðågÒnÿåäÍ¿IlkØÐgÓÍICÍ¿kHÑjÏ0¿kHÑIÎ¿kHÑkÏ`¿kjðhðDJNµ‚±…@’±§@,d[dlð‘Ó‹lð‘K„\3 —IOÐjLÑ„IOÐLÎ¿IOÐn€Í¿IOkØÐOÍ¿`OÐnÿÿÍ¿N¾OkÔ_¿OlÔ_¿OmþÔ_¿OmþÔ_¿±ÿ%_¿`OÐO´ O Î¿N¾OlÔ_¿±ÿO@,¿@b±ÿO(311 \EVPROG1 194 SHOULDNT) (295 \STACKSPACE 240 \STACKSPACE 105 LET* 85 LET*) () QUOTE :D8 (L (0 U)) @NIL NIL () AND :D8 (L (0 U) P 0 *TAIL*) @hðµ @H£H,H,´üHX°ñNIL NIL () OR :D8 (L (0 U) P 0 *TAIL*) @´ @H£H,H,µüHX°ñNIL NIL () PROGN :D8 (L (0 U) P 0 *TAIL*) @´ @H£H,H,¿HX°òNIL NIL () COND :D8 (L (0 U) P 0 *TAIL*) -@Hµ Hd–l ,YžH˜H IHX°Û(35 \EVPROGN 17 \LISPERROR) NIL () \EVPROGN :D8 (I 0 *TAIL*) @™@,¿@b°ö@,NIL NIL () PROG1 :D8 (L (0 U) P 0 *TAIL*) @´@H,HXµ,¿°öNIL NIL () ENVEVAL :D8 (NAME *ENV* L (4 CFLG 3 AFLG 2 CPOS 1 APOS 0 FORM)) ,hAd” Bd” C–A ¿D–B ¿@,(38 RELSTK 29 RELSTK 21 \SMASHLINK 16 \STACKARGPTR 8 \STACKARGPTR) NIL () ENVAPPLY :D8 (NAME *ENV* L (5 CFLG 4 AFLG 3 CPOS 2 APOS 1 ARGS 0 FN)) ©hBd” Cd” D–B ¿E–C ¿@Hdd3@ð²¿HdÁ Êjð²(¿HÁ ÉX²5Hdgð²¿H³-H²(Ak@Á Ê!lð°ñgðŸHX°²H§@A j¹A°dýnIkØYñ¨hl4 ¿µêI@(160 \LISPERROR 133 FAULTAPPLY 38 RELSTK 29 RELSTK 21 \SMASHLINK 16 \STACKARGPTR 8 \STACKARGPTR) (116 FUNARG 81 NLAMBDA) () FUNCTION :D8 (L (1 ENV 0 FN)) A›o@ @(12 ERROR) NIL ( 6 "FUNARGs no longer supported--use Common Lisp lexical closures") \FUNCT1 :D8 (L (3 VARLST 2 NTSIZE 1 NVARS 0 NNILS) P 13 \INTERRUPTABLE P 7 \INTERRUPTABLE) f1kHÑÉkdHÑÈ@àÙZAàØlØmüåÑYCJLµnCJHl ØÙâldBØOµj IdÈnðågÒnÿåäÍ¿IlkØÐgÓÍIBÍ¿kHÑjÏ0¿kHÑIÎ¿kHÑkÏ`¿kjðhðhH ¾kMÑN,Î¿L¼MlÔ½±ÿ~_dlð‘ÓŒlð’O„[3 —IOÐjKÑ„IOÐKÎ¿IOÐn€Í¿IOkØÐOÍ¿O_¿OkÔ_¿OlÔ_¿OlÔ_¿±ÿ5(191 SHOULDNT 145 \MAKESTACKP) (100 *FUNARG* 80 *FUNARG*) () \MAKEFUNARGFRAME :D8 (NAME FUNARG L (0 ENV)) `j1@°d[d•¿Kið˜Kl# ¿HkÔ¸µâHdàkØlØmüåYØlkØâØkØZƒhýkÙdjñ³ù¿JHI@bdÈjd@(92 \SMASHLINK 80 \FUNCT1 29 \LISPERROR) (15 LITATOM) () STKEVAL :D8 (L (3 INTERNALFLG 2 FLG 1 FORM 0 POS)) h@ B–@ ¿A,(19 RELSTK 11 \SMASHLINK 6 \STACKARGPTR) NIL () STKAPPLY :D8 (NAME *ENV* L (3 FLG 2 ARGS 1 FN 0 POS)) –h@ C–@ ¿AHdd3@ð²¿HdÁ Êjð²(¿HÁ ÉX²5Hdgð²¿H³-H²(BkAÁ Ê!lð°ñgðŸHX°²H§AB j¹B°dýnIkØYñ¨hl4 ¿µêIA(141 \LISPERROR 114 FAULTAPPLY 19 RELSTK 11 \SMASHLINK 6 \STACKARGPTR) (97 FUNARG 62 NLAMBDA) () RETEVAL :D8 (NAME *ENV* L (3 INTERNALFLG 2 FLG 1 FORM 0 POS)) Q@ kHÑÊðjð•kHÑÈ„kHÑÈ l ÙYjð´@l ¿hH B–@ ¿A, I ¿$(74 SI::UNWIND 68 \MVLIST 60 RELSTK 52 \SMASHRETURN 44 \LISPERROR 5 \STACKARGPTR) NIL () RETAPPLY :D8 (NAME *ENV* L (3 FLG 2 ARGS 1 FN 0 POS)) Ì@ 1kHÑÊðjð•kHÑÈ„kHÑÈ l ÙYjð´@l ¿hH C–@ ¿A[dd3@ð²¿KdÁ Êjð²7¿KÁ É[²CKdgð²,¿K³@ÈZ@ÈâlJdjð“¿l€àÔ\Õ[djð’¿°lóš@LKâ¹ˆ@LÐÉ\µ jHó²kg²óLdgðdg'”¿L€¼A‘LLA MµN_dgð³d —¿O _¿OµOh_^¿M]°ÎO&_°õJjðª@lJI¹HkÙj2 NdMó²¿OY@Ê!lð²3dIµ gN _¿OµOh__¿NkÔ^°ÆO&_¿°ôI(256 PACK* 209 \CCODEIVARSCAN 168 MKATOM 159 STRINGP 74 \CCODEIVARSCAN) (250 *ARG* 150 &OPTIONAL 118 :INTERLISP 109 &OPTIONAL 95 U) () \CCODEIVARSCAN :D8 (L (3 IVARS 2 SIZE 1 START 0 FNHD)) »AàÑ j¾lj½¼MLó²N_d3 ²3d²%¿jO°'Ná@HMØ»dÊjð¤Klæ€KÂä¾MkÔ]°ÎããOnÿÿåÑY²m@HBàØ_¿_¿j_¿lj_¿_¿OOó³+OáOOOØ_¿dÊjð¥OlæOÂä_¿OkÔ_°ÔOZããnÀåj šJlÿåICb¿HlÔ¸±ÿPC(163 EQP) NIL () CONSTANTS :D8 (L (0 VARS)) D`¬ld ¿@°*dHd™gH…gHh`µ×@(59 PUTHASH 12 HASHARRAY) (54 COMPVARMACROHASH 45 CONSTANT 36 CONSTANT 17 COMPVARMACROHASH 4 COMPVARMACROHASH) () CONSTANTEXPRESSIONPA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FORM F 3 SI::NLSETQ-VALUE) i@R hcg(12 EVAL) (21 :NORMAL) () CONSTANTEXPRESSIONP :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 FORM F 8 *PROCEED-CASES* F 9 *CONDITION-HANDLER-BINDINGS* F 10 *BC-MACRO-ENVIRONMENT*) D@d3@ð²2@d´‚±5dið’±-¿`´‚±#@` b´‚±°Ë@d¢±dgð“¿@dgð²¿@d3@ð´‚±ã@hð´‚±Ø@gð²W`WioWI gð´Hd”dh@Wgkghbd h@d`²61Lµ @M h d²P_¿Nµ Oh^½L\°ÙO&¾°÷ ³'@` L´@dL bôhð´±þÊh3´@h(301 MACROEXPANSION 287 GETMACROPROP 273 \DEFINEDP 240 CONSTANTEXPRESSIONP 231 APPLY 201 EVAL 193 COMPILER:OPTIMIZE-AND-MACROEXPAND 188 COMPILER:MAKE-CONTEXT 148 CONSTANTEXPRESSIONPA0001 44 GETHASH) (282 COMPILERMACROPROPS 212 CONSTANTFOLDFNS 182 :PREDICATE-P 176 :VALUES-USED 154 :NORMAL 127 SI::NLSETQ-PROCEED-CASE 116 CONSTANT 80 FUNCTION 68 QUOTE 39 COMPVARMACROHASH 27 COMPVARMACROHASH) ( 136 (CL:ERROR . SI::NLSETQHANDLER)) (PRETTYCOMPRINT LLINTERPCOMS) (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 (* ; "EVCALL ufn.") (FNS \ENVCALL.UFN \SETUP-ENVIRONMENT-CALL)) (COMS (* ; "recursive interpreter") (FNS EVAL \EVAL \EVALFORM \EVALFORMASLAMBDA \EVALOTHER APPLY APPLY* \CHECKAPPLY* \CKAPPLYARGS DEFEVAL) (DECLARE%: DONTCOPY (MACROS .APPLY.)) (COMS (* ; "Free variable manipulation") (FNS EVALV \EVALV1 \EVALVAR BOUNDP SET \SETVAR SETQ \STKSCAN \SETFVARSLOT)) (COMS (* ; "PROG and friends") (FNS PROG \PROG0 \EVPROG1 RETURN GO EVALA \EVALA ERRORSET SI::ERRORSET-PRINT-FUNCTION)) (COMS (* ; "LET and friends -- need these in the init") (FNS LET LET* \LET0 \LET*)) (FNS QUOTE AND OR PROGN COND \EVPROGN PROG1) (COMS (VARS (\DEFEVALFNS NIL) ( \EVALHOOK)) (SPECVARS *EVALHOOK*) (ADDVARS (LAMBDASPLST LAMBDA NLAMBDA CL:LAMBDA OPENLAMBDA)) ( GLOBALVARS \DEFEVALFNS \EVALHOOK LAMBDASPLST CLISPARRAY) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ( CLISPARRAY)) (P (MOVD? (QUOTE SETQ) (QUOTE SETN) NIL T))) (GLOBALVARS CLISPARRAY)) (COMS (* ; "Evaluating in different stack environment") (FNS ENVEVAL ENVAPPLY FUNCTION \FUNCT1 \MAKEFUNARGFRAME STKEVAL STKAPPLY RETEVAL RETAPPLY) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; "For bootstrapping, IL:FUNCTION is as good as CL:FUNCTION") (P (MOVD? (QUOTE FUNCTION) (QUOTE CL:FUNCTION) NIL T)))) (COMS (* ; "Blip and other stack funniness") (FNS BLIPVAL SETBLIPVAL BLIPSCAN) (FNS \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 (* ; "CONSTANTS mechanism") (FNS CONSTANTS CONSTANTEXPRESSIONP) (INITVARS (COMPVARMACROHASH (HASHARRAY 100))) (* ; "We need this initialized for the INIT, so don't put it off. (It used to start out NIL and get set later)" ) (ADDVARS (CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT IQUOTIENT IMIN IMAX IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND)) (GLOBALVARS COMPVARMACROHASH CONSTANTFOLDFNS)) ( DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (LOCALVARS . T)) (SPECVARS *TAIL* *FN* *FORM* *ARGVAL*) (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS (LAMS FAULTEVAL FAULTAPPLY))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA CONSTANTS PROG1 COND PROGN OR AND QUOTE LET* LET GO PROG SETQ) (NLAML FUNCTION RETURN) (LAMA BOUNDP APPLY* \INTERPRETER))))) (RPAQQ \DEFEVALFNS NIL) (RPAQQ \EVALHOOK NIL) (ADDTOVAR LAMBDASPLST LAMBDA NLAMBDA CL:LAMBDA OPENLAMBDA) (RPAQQ CLISPARRAY NIL) (MOVD? (QUOTE SETQ) (QUOTE SETN) NIL T) (MOVD? (QUOTE FUNCTION) (QUOTE CL:FUNCTION) NIL T) (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*)) (PUTPROPS LAMBDATRANFNS VARTYPE ALIST) (ADDTOVAR LAMBDATRANFNS) (RPAQ? COMPVARMACROHASH (HASHARRAY 100)) (ADDTOVAR CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT IQUOTIENT IMIN IMAX IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND) (PUTPROPS LLINTERP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993)) NIL