github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-09 17:16:58 +00:00
Code Issues Projects Releases Wiki Activity
Files
133f7b4969a2240b08913a0a1cdcd7ef83cabc80
Interlisp.medley/sources/LLINTERP.LCOM
Matt Heffron 133f7b4969 Make (ARGLIST fn T) and (SMARTARGLIST fn T) a bit "smarter" with the atomic name of the arg for a LAMBDA nospread with a CCODEP definition. 
E.g., before (ARGLIST 'FONTCOPY T) returned U; now it returns FONTSPECS as in the CCODEP. Likewise for SMARTARGLIST.
2026-05-08 23:59:31 -07:00

319 lines
27 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 8-May-2026 23:51:42" ("compiled on "
{DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;2) "27-Apr-2026 13:05:01" brecompiled changes%:
\CCODEARGLIST in "FULL 27-Apr-2026 ..." dated "27-Apr-2026 13:06:09")
(FILECREATED " 8-May-2026 23:51:41" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;2 120946
:EDIT-BY "mth" :CHANGES-TO (FNS \CCODEARGLIST) :PREVIOUS-DATE "30-Jun-2022 22:42:02"
{DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;1)
\INTERPRETER :D8
(L (0 N) P 14 \INTERRUPTABLE) âeHaHkÙj£
Idd3@ð•¿IÁ
É\dò-¿`gÎ0`LÎ2`hÎ4l~`É6dò¿LÉ_¿LÉ\²:Ldgð›¿HLOI dgð³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¢±<00>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Ñ<4E>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ÿÔ<C3BF>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Ù<6B>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±<00>@@kHdgð³dgð¨dgð²-¿j@dgL\d²;,KkØ[lPñ²ðLl4
¿°å€`<00>@`
µ @ 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) <00>@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<11> 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ð<69>/É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ð<69>Adið­l
¿ƒHAA(50 \LISPERROR 12 \LISPERROR)
(18 LITATOM)
()
\SETVAR :D8
(L (1 VALUE 0 VAR)) <@µ
Ad–l
/HÒkð–HAο°@ið<69>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)) fkfÑÈmþål
Ù@dlð‘Ó‹lð‘@„ÒHjð“@Á kHÑÊ`jð¥kHÑÉ„kHÑÉ]ȺMlнj_¿lj_¿_¿OOó³)OáMjOØ_¿dÊjð¥Olæ<>OÂä_¿OkÔ_°ÖOdj
ž¿kHÑÈmþål
ÙX°ŠI
¢±¼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±þä(349 SHOULDNT 161 EQP 139 EQP 31 SHOULDNT)
NIL
()
\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<03>[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ØI NµP JdÈ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ð@’±<00>@,_²`NÐO οM½NlÔ¾±ÿmd<03>[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*) U D¢±<00>fAkHÑ¿kdHÑÈAàÙZBàØlØmüåѹDJHl
ØÙâJBkÙàlØBkÙàlØCØ
Nµf IdÈnðågÒnÿåäÍ¿IlkØÐgÓÍICÍ¿kHÑjÏ0¿kHÑIοkHÑkÏ`¿kjðhðDJNµ‚±…@’±§@,d<03>[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³<K²7BkA I ¿$Á
Ê!lð°âgðŸK°£K¨AB
°ÑjºB°dýnJkØZñ¨hl4
¿µêJA°¯(194 \LISPERROR 166 FAULTAPPLY 130 SI::UNWIND 124 \MVLIST 60 RELSTK 52 \SMASHRETURN 44 \LISPERROR 5 \STACKARGPTR)
(150 FUNARG 100 NLAMBDA)
()
BLIPVAL :D8
(L (2 FLG 1 IPOS 0 BLIPTYP))  Aµf„ @"@gð³'@gð³@gð³@gðªBið´‚±çjBdið²)¿HI
Z²@gð²`JÐɵ‚±¼jk£kb¿HI
Z²"@gð²{B`JÐɵjZñ²BJÙb¿kHÑÊðjð²mkHÑÈ°kkHÑÈHl
ØkHÑÉÈdnÿñ•nÿÿÙkÙkØààØlØ»¿`KÐÉgð²KJBÙkØàÔ»`KÐÉKlÔ[°ÖkBkÙbñ²—`JÐÉkHÑÈ l
ÙXdjð¢±ÿUh(116 \VAROFFSET 73 \VAROFFSET 9 \STACKARGPTR)
(263 \STACKSPACE 237 \STACKSPACE 220 *ARGVAL* 211 \STACKSPACE 134 \STACKSPACE 125 *ARGVAL* 90 \STACKSPACE 82 *ARGVAL* 46 *ARGVAL* 37 *FN* 28 *FORM* 19 *TAIL*)
()
SETBLIPVAL :D8
(L (3 VAL 2 N 1 IPOS 0 BLIPTYP)) ûAµf„ @"@gð³ @gð³@gð¬@gð´‚±ÇB£kb‰kBñ–B ¿HI
Z²!@gð²|`JÐÉZšBJñ²BJÙb¿kHÑÊðjð²qkHÑÈ°okHÑÈHl
ØkHÑÉÈdnÿñ•nÿÿÙkÙkØààØlØ»¿`KÐÉgð²KJBÙkØàÔ»`KÐCÎCKlÔ[°ÔkBkÙbñ²•`JÐCÎCkHÑÈ l
ÙXdjð¢±ÿRh(76 \VAROFFSET 68 \ILLEGAL.ARG 9 \STACKARGPTR)
(224 \STACKSPACE 196 \STACKSPACE 179 *ARGVAL* 170 \STACKSPACE 93 \STACKSPACE 85 *ARGVAL* 45 *ARGVAL* 37 *FN* 28 *FORM* 19 *TAIL*)
()
BLIPSCAN :D8
(L (1 IPOS 0 BLIPTYP)) wAµf„ !@dgð³dgð³dgð¨gð´G@ºHJ
Y²@gð´
`IÐÉ—hH
kHÑÊðjð•kHÑÈ„kHÑÈ l
ÙXdjð²Áh(85 \MAKESTACKP 56 \VAROFFSET 9 \STACKARGPTR)
(73 \STACKSPACE 65 *ARGVAL* 44 *ARGVAL* 37 *FN* 28 *TAIL* 19 *FORM*)
()
\REALFRAMEP :D8
(L (1 INTERPFLG 0 FRAME) F 1 \INTERNAL)  k@ÑÉÉHd3@ð´‚±ŒHdgð³Qdgð‘igð²l@
gðhðHgðªHdgð²¿h@
Qdgð¨dgð²»hd3@ðhðµ(Hd`‘A l\ðhðµH µ H`(148 EXPRP 135 CHCON1 91 \SMASHLINK 56 \STKARG)
(156 BRKINFOLST 126 OPENFNS 106 SELECTQ 98 INTERNAL 80 APPLY 71 EVAL 61 INTERNAL 45 ERRORSET 36 \INTERPRETER 27 *ENV*)
()
BACKTRACEA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FLAGS F 1 IPOS F 2 EPOS F 3 PRINTFN) LQµmÿ Rµi PµjclåjðPkåjðhðPlåjðhðPl åjðhðPlåjðSµgh
(73 \BACKTRACE 18 \STACKARGPTR 9 \STACKARGPTR)
(66 PRINT)
()
BACKTRACE :D8
(L (3 FILE) P 0 SI::*RESETFORMS* I 4 PRINTFN I 2 FLAGS I 1 EPOS I 0 IPOS) /gC hhhg ¿$(40 SI::RESETUNWIND 35 \MVLIST 30 BACKTRACEA0001 10 OUTPUT)
(25 SI::RESETUNWIND 4 OUTPUT)
()
\BACKTRACE :D8
(L (9 RADIX 8 CNT 7 PRINTFN 6 ALINKS 5 JUNK 4 LOCALS 3 VARS 2 NAMES 1 EPOS 0 IPOS) P 0 .I7) m
G¤lb¿glGh!G²#oGh ¿oh
¿GkÔb¿@ ¹E¢±<00>¿¿o ¿Hk@ÑÊðjð”@lÙ„k@ÑÈZ
¿¿Jk@ÑÊ`jð¥k@ÑÉ„k@ÑÉG ¿¿o ¿H@
¿o ¿IkG¿@G
°hC¢D²[k@ÑÊðjð”@lÙ„k@ÑÈk@ÑÊ`jð¥k@ÑÉ„k@ÑÉGD•g€i ¿BœIkG¿¿@GD•g€i ‡B–IkG¿A@ð³-F™k@ÑÈmþå°k@ÑÊðjð•k@ÑÈ„k@ÑÈ l
Ùbjð¢±þ±i(303 \PRINTFRAME 285 TERPRI 270 \PRINTBF 208 \PRINTFRAME 192 PRIN1 181 PRINTNUM 173 PRIN1 162 TERPRI 156 \PRINTBF 127 TERPRI 121 PRINTNUM 94 PRIN1 83 TERPRI 77 TERPRI 66 \STKNAME 52 PRIN1 40 PRINTNUM)
(296 LOCALS 263 LOCALS 12 FIX)
( 187 ", frame name= " 168 "Frame xtn at " 89 "Basic frame at " 46 ": " 32 (FIX 3))
\SCANFORNTENTRY :D8
(L (1 NTENTRY 0 NMT)) Eld@ÈØ@HÐÉZ¡hA@I
Ùjð²Jd3 ²d”¿jJÑããJnÿÿåÑHlÔ¸IlÔ¹°È(26 \GETBASEFIXP)
NIL
()
\PRINTSTK :D8
(L (0 I) F 0 .I7) 9P@
o P`@ÐÈ
P`@kØÐÈ
k (54 SPACES 48 PRINTNUM 31 PRINTNUM 16 PRIN1 6 PRINTNUM)
(37 \STACKSPACE 22 \STACKSPACE)
( 11 ": ")
\PRINTFRAME :D8
(L (2 VARSONLY 1 PRINTFN 0 FRAME)) èk@ÑÊ`jð¥k@ÑÉ„k@ÑÉj@l
Øk@ÑÉÈdnÿñ•nÿÿÙkÙkØààØlØSB’±V@ ¿o ¿k@ÑÊ0jðªo ¿k@ÑÊPjðªo ¿k@ÑÊ`jðªo ¿k@ÑÊpjðªo ¿k@Ñʇ]jð³)o ¿kh
¿Mh
¿oh
¿k@ÑÊðjðªo ¿k@Ñ¿o ¿¿@lØ ¿k@Ñ¿o ¿¿@lØ ¿k@Ñ¿o ¿¿@lØ ¿k@ÑÊ`jð¥k@ÑÉ„k@ÑÉ¿o ¿¿@lØ ¿k@ÑÊðjð£k@Ñ¿o ¿¿HÊ\@l
Øj_¿¹JIñ¢±B¦I ¿LOñ²fHoOØ
[³Bið’±Ùo[¢±ÏkIÑÊjð²&B—l ¿K ¿k ¿kIÑÉkA± B’±œKh
¿o°~B’±ˆHoOØ
[²coh
¿Kh
¿oh
¿kIÑÈkåjð²2kIÑ^ÈNÈÑÒ[dkð—¿o°%mþå`Òð¦o°oŠo„oh
¿h ¿IlÔ¹OkÔ_¿±þðB³4k@ÑȺJIñ´*I ¿kIÑÊjð™kIÑÉkA„¿IlÔ¹°Öh(732 TERPRI 707 \PRINTSTK 671 TERPRI 664 PRIN1 587 PRIN1 575 PRIN2 567 PRIN1 553 \SCANFORNTENTRY 526 PRIN1 501 SPACES 494 PRIN2 487 SPACES 448 \SCANFORNTENTRY 427 \PRINTSTK 397 TERPRI 391 PRIN1 367 \PRINTSTK 357 TERPRI 351 PRIN1 319 \PRINTSTK 309 TERPRI 303 PRIN1 288 \PRINTSTK 278 TERPRI 272 PRIN1 257 \PRINTSTK 247 TERPRI 241 PRIN1 226 PRIN1 206 PRIN1 194 PRIN1 186 SPACES 178 PRIN1 156 PRIN1 136 PRIN1 116 PRIN1 96 PRIN1 76 PRIN1 65 \PRINTSTK)
(631 \VALSPACE)
( 658 "[padding]" 652 " not looked up]" 646 " top value]" 639 " non-stack binding]" 621 " on stack]" 581
" " 561 "[fvar " 545 -1073741824 532 " [unbound]" 463 "local" 440 -2147483648 386 "[blink, clink]" 346
"[nametable]" 298 "[next, pc]" 267 "[fn header]" 236 " alink]" 221 "X, " 200 ", " 173 "USE=" 151 "N, "
131 "V, " 111 "C, " 91 "F, " 71 "[")
\PRINTBF :D8
(L (3 VARSONLY 2 PRINTFN 1 NMT 0 BL)) þ@k@ÑÈÙâk@ÑÊpÙkÙk@ÑÈjJHó²\C¦@Iñ’±´C’±Ð@ k@ÑÊ`jðªo ¿k@Ñʇjð³#oh
¿k@Ñʇh
¿kh
¿C¦I ¿Aµ
C³¢¿°šjJØ
[¬Cið³0g[²(C—l ¿K ¿k ¿`IÐÉkB¿IlÔ¹JkÔZ±ÿEI ¿oh
¿h ¿IlÔ¹±ÿ)h(241 TERPRI 234 PRIN1 222 \PRINTSTK 189 SPACES 182 PRIN2 175 SPACES 151 \SCANFORNTENTRY 140 TERPRI 128 \PRINTSTK 119 TERPRI 113 SPACES 105 PRIN1 92 PRIN1 70 PRIN1 51 \PRINTSTK)
(195 \STACKSPACE 163 *local*)
( 228 "[padding]" 86 "usecnt= " 65 "residual ")
CCODEP :D8
(L (0 FN)) 2@dd3@ð²%¿@dÁ
Êjð­¿@Á
ÊÀjðhðhðÁ
ÉÃ (47 CL:COMPILED-FUNCTION-P)
(41 COMPILED-CLOSURE)
()
EXPRP :D8
(L (0 FN)) -@Hdd3@ð²¿HdÁ
Êjð«¿HÁ
ÊÀjðhðÁ
É´iNIL
NIL
()
SUBRP :D8
(L (0 FN)) hNIL
NIL
()
FNTYP :D8
(L (0 FN)) Þ@Hdd3@ð²I¿HÁ
XdÊÀjð§ X°5ÊjðhðHɸ²'HÊ!djð•gdkð•gl𒱎gH²[Hdgð³dgð¨dgð²¿HX³1H².gdgð²¿HX§H•gggð´gHôùHÉÊ!djð’±ÿodkð’±ÿrlð¢±ÿxg(28 \PSEUDOCODE.REALDEF)
(219 CEXPR* 188 COMPILED-CLOSURE 180 COMPILED-CLOSURE 173 EXPR 165 FUNARG 159 FEXPR 153 FEXPR* 136 NLAMBDA 129 EXPR* 110 OPENLAMBDA 102 LAMBDA 93 CL:LAMBDA 80 CFEXPR* 67 CFEXPR 57 CEXPR)
()
ARGTYPE :D8
(L (0 FN)) Í@HYdò$¿HÁ
ÊjðhðHÁ
ɸ”HÊ!Hd¢±£b°Òò{Hdgð’ldgð§dgð›¿HX¢H³åjdgð›¿HX¢H³=kgð˜Hb±ÿH dgð³Ídgð³Ødgð³žgð´lIdóŠÃ´
HÉÊ!(137 FNTYP)
(197 COMPILED-CLOSURE 189 COMPILED-CLOSURE 182 CLOSURE 169 FEXPR* 161 EXPR* 152 FEXPR 143 EXPR 120 FUNARG 101 NLAMBDA 81 OPENLAMBDA 73 LAMBDA 62 CL:LAMBDA 52 LISTP 11 LITATOM)
()
NARGS :D8
(L (0 FN)) ´@AHdd3@ð².¿HÁ
ÊjðhðHÁ
ɸ²HÈdnÿñ•nÿÿÙkÙ¹jIñ‘kIH²THdgð³ïdgð³dgð¨dgð²¿HXµj²ÉHj»Z¡KKkÔ»J°õgð´
H HôùHÉÈdnÿñ•nÿÿÙkÙ¼jLñ³„L(139 NARGS)
(154 COMPILED-CLOSURE 146 COMPILED-CLOSURE 128 FUNARG 92 OPENLAMBDA 84 NLAMBDA 75 LAMBDA 66 CL:LAMBDA)
()
ARGLIST :D8
(L (1 SMARTP 0 FN)) @Hdd3@ð²+¿HÁ
ÊjðhðHÁ
ɸ—HA
Hµ@g
X²CHdgð•gdgð¯dgð§dgð”¿Hgð²$Hhb¿b°‰HÞHÉA
@i
Xµo@
h@ð³ñHhb¿b±ÿN(163 ERROR 149 FNCHECK 141 \CCODEARGLIST 51 GETPROP 36 \CCODEARGLIST)
(133 COMPILED-CLOSURE 126 COMPILED-CLOSURE 105 FUNARG 93 OPENLAMBDA 85 NLAMBDA 77 LAMBDA 70 U 63 CL:LAMBDA 46 EXPR)
( 157 "Args not available:")
\CCODEARGLIST :D8
(L (1 SMARTP 0 FNHD)) 1
@Èdnÿñ•nÿÿÙkÙAHjð‘hjHó’A²K@ÈZ@ÈâlJdjð“¿l€àÔ\Õ[djð’¿°lóš@LKâ ¹ˆ@LÐÉ\µjHó²z@Ê!lð”jIµg²ä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(271 PACK* 224 \CCODEIVARSCAN 183 MKATOM 174 STRINGP 74 \CCODEIVARSCAN)
(265 *ARG* 165 &OPTIONAL 133 :INTERLISP 124 &OPTIONAL 108 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@Wgkgh bd 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 ((COMS (* ; "Compilation pre-requisites") (DECLARE%: EVAL@COMPILE DONTCOPY (FILES
(LOADCOMP) LLBASIC LLSTK LLCODE LLPARAMS ACODE))) (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) (P (MOVD? (QUOTE APPLY*)
(QUOTE SPREADAPPLY*))) (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 APPLY* \INTERPRETER)))))
(MOVD? (QUOTE APPLY*) (QUOTE SPREADAPPLY*))
(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)
NIL
Reference in New Issue View Git Blame Copy Permalink