github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-15 04:26:19 +00:00
Code Issues Projects Releases Wiki Activity

Rmk51 end game of external format integration (#814)

Browse Source 
* Compile device-creation functions for new default interface

* UNICODE:  minor bug

* LLINTERP: MOVD? APPLY* to SPREADAPPLY*

* External format interface: a few more adjustments

* CLSTREAMS: Recompile, no source change

* PRETTYFILEINDEX: suppress when printing gitmaps to a non-display stream

* UNIXCOMM: Default format comes from device

Also, I seemed to have reverted back to LCOM with FAKE-COMPILE-FILE
This commit is contained in:
rmkaplan
2022-07-03 18:49:04 -07:00
committed by GitHub
parent f86be45834
commit d7ca40ebeb
28 changed files with 1037 additions and 802 deletions
Download Patch File Download Diff File Expand all files Collapse all files

295
sources/LLINTERP
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "27-Oct-2021 21:03:21" {DSK}<home>larry>medley>sources>LLINTERP.;2 127414
(FILECREATED "30-Jun-2022 22:42:02" 
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;4 120990
changes to%: (FNS \STKSCAN)
previous date%: " 2-Feb-95 17:31:23" {DSK}<home>larry>medley>sources>LLINTERP.;1)
:PREVIOUS-DATE "30-Jun-2022 18:04:04"
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;3)
(* ; "
@@ -22,19 +22,19 @@ with the terms of said license.
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
LLBASIC LLSTK LLCODE LLPARAMS ACODE)))
[E (* ;
 "Don't fontify these common functions")
 "Don't fontify these common functions")
(SETQ FNSLST
(LDIFFERENCE FNSLST
'(EVALV PROG SET SETQ RETURN GO QUOTE AND OR PROGN COND PROG1 FUNCTION EVAL
APPLY]
(COMS (* ;
 "For calling interpreted functions")
(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? 'APPLY* 'SPREADAPPLY*))
(DECLARE%: DONTCOPY (MACROS .APPLY.))
(COMS (* ; "Free variable manipulation")
(FNS EVALV \EVALV1 \EVALVAR BOUNDP SET \SETVAR SETQ \STKSCAN \SETFVARSLOT))
@@ -42,7 +42,7 @@ with the terms of said license.
(FNS PROG \PROG0 \EVPROG1 RETURN GO EVALA \EVALA ERRORSET
SI::ERRORSET-PRINT-FUNCTION))
(COMS (* ;
 "LET and friends -- need these in the init")
 "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)
@@ -54,11 +54,11 @@ with the terms of said license.
(P (MOVD? 'SETQ 'SETN NIL T)))
(GLOBALVARS CLISPARRAY))
[COMS (* ;
 "Evaluating in different stack environment")
 "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")
 "For bootstrapping, IL:FUNCTION is as good as CL:FUNCTION")
(P (MOVD? 'FUNCTION 'CL:FUNCTION NIL T]
(COMS (* ; "Blip and other stack funniness")
(FNS BLIPVAL SETBLIPVAL BLIPSCAN)
@@ -75,7 +75,7 @@ with the terms of said license.
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * RAIDCOMS)))
(COMS (FNS CCODEP EXPRP SUBRP FNTYP ARGTYPE NARGS ARGLIST \CCODEARGLIST \CCODEIVARSCAN)
(COMS (* ;
 "Translation machinery for new LAMBDA words")
 "Translation machinery for new LAMBDA words")
(PROP VARTYPE LAMBDATRANFNS)
(ALISTS (LAMBDATRANFNS)))
(DECLARE%: DONTCOPY (MACROS \CCODENARGS \CCODEFNTYP \CCODEARGTYPE)))
@@ -366,39 +366,40 @@ with the terms of said license.
(LAMBDA (TYPE FN) (* edited%: "13-DEC-78 23:18") (PROG ((F (FASSOC TYPE \DEFEVALFNS))) (COND (F (SETQ \DEFEVALFNS (DREMOVE F \DEFEVALFNS)))) (COND (FN (SETQ \DEFEVALFNS (CONS (CONS TYPE FN) \DEFEVALFNS)))) (RETURN (CDR F))))
)
)
(MOVD? 'APPLY* 'SPREADAPPLY*)
(DECLARE%: DONTCOPY
(DECLARE%: EVAL@COMPILE
(PUTPROPS .APPLY. MACRO [(U V) (* body for APPLY, used by RETAPPLY
 too)
(PROG ((DEF U))
LP [COND
((LITATOM DEF)
(COND
((NOT (fetch (LITATOM CCODEP) of DEF))
(PUTPROPS .APPLY. MACRO [(U V) (* body for APPLY, used by RETAPPLY
 too)
(PROG ((DEF U))
LP [COND
((LITATOM DEF)
(COND
((NOT (fetch (LITATOM CCODEP) of DEF))
(* EXPR)
(SETQ DEF (fetch (LITATOM DEFPOINTER) of
DEF)))
((EQ (fetch (LITATOM ARGTYPE) of DEF)
3)
(GO NLSTAR))
(T (GO NORMAL]
[COND
((LISTP DEF)
(SELECTQ (CAR DEF)
(NLAMBDA (AND (NLISTP (CADR DEF))
(CADR DEF)
(GO NLSTAR)))
(FUNARG (SETQ DEF (CADR DEF))
(GO LP))
NIL))
((NULL DEF)
(RETURN (FAULTAPPLY U V]
NORMAL
(RETURN (SPREADAPPLY U V))
NLSTAR
(SETQ DEF (fetch (LITATOM DEFPOINTER) of DEF)))
((EQ (fetch (LITATOM ARGTYPE) of DEF)
3)
(GO NLSTAR))
(T (GO NORMAL]
[COND
((LISTP DEF)
(SELECTQ (CAR DEF)
(NLAMBDA (AND (NLISTP (CADR DEF))
(CADR DEF)
(GO NLSTAR)))
(FUNARG (SETQ DEF (CADR DEF))
(GO LP))
NIL))
((NULL DEF)
(RETURN (FAULTAPPLY U V]
NORMAL
(RETURN (SPREADAPPLY U V))
NLSTAR
(* NLAMBDA*)
(RETURN (SPREADAPPLY* U V])
(RETURN (SPREADAPPLY* U V])
)
)
@@ -1220,8 +1221,8 @@ with the terms of said license.
)
)
(RPAQ? OPENFNS '(APPLY* SETQ AND OR COND SELECTQ PROG PROGN PROG1 ARG SETARG ERSETQ NLSETQ
RESETFORM RESETLST RESETVARS RPTQ SAVESETQ SETN UNDONLSETQ XNLSETQ))
(RPAQ? OPENFNS '(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*))
(DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1449,41 +1450,39 @@ with the terms of said license.
(DECLARE%: EVAL@COMPILE
(PUTPROPS PSTKFLD MACRO [(FLD STR TEST FMT STR2)
(PROG ((FLD (fetch (FX FLD) of FRAME)))
(DECLARE (LOCALVARS FLD))
(COND
(TEST (PRIN1 'STR)
(SELECTQ (CONSTANT (NTHCHAR 'STR -1))
(= (printout NIL %, FLD STR2))
NIL)
T])
(PROG ((FLD (fetch (FX FLD) of FRAME)))
(DECLARE (LOCALVARS FLD))
(COND
(TEST (PRIN1 'STR)
(SELECTQ (CONSTANT (NTHCHAR 'STR -1))
(= (printout NIL %, FLD STR2))
NIL)
T])
(PUTPROPS PRINTSTKFIELDS MACRO [FIELDS (CONS 'PROGN (MAPCAR FIELDS (FUNCTION (LAMBDA (X)
(CONS
'PSTKFLD X])
(CONS 'PSTKFLD X])
(PUTPROPS PSTK MACRO ((N . FIELDS)
(\PRINTSTK (IPLUS FRAME N))
(PRINTSTKFIELDS . FIELDS)
(TERPRI)))
(\PRINTSTK (IPLUS FRAME N))
(PRINTSTKFIELDS . FIELDS)
(TERPRI)))
(PUTPROPS PRINTVA MACRO [LAMBDA (X)
(printout NIL "{" (HILOC X)
","
(LOLOC X)
"}"])
(printout NIL "{" (HILOC X)
","
(LOLOC X)
"}"])
)
(ADDTOVAR RDCOMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA
READVA READOCT READATOM SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY NOSUCHATOM
)
(FNS \BACKTRACE \STKNAME \PRINTBF \PRINTFRAME \SCANFORNTENTRY \PRINTSTK))
(ADDTOVAR RDCOMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA READVA
READOCT READATOM SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY NOSUCHATOM)
(FNS \BACKTRACE \STKNAME \PRINTBF \PRINTFRAME \SCANFORNTENTRY \PRINTSTK))
(ADDTOVAR EXPANDMACROFNS PSTKFLD PRINTSTKFIELDS PSTK PRINTVA)
(ADDTOVAR DONTCOMPILEFNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA
READVA READATOM READOCT SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY
NOSUCHATOM)
(ADDTOVAR DONTCOMPILEFNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA
READVA READATOM READOCT SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY
NOSUCHATOM)
)
(DEFINEQ
@@ -1639,22 +1638,22 @@ with the terms of said license.
(DECLARE%: EVAL@COMPILE
(PUTPROPS \CCODENARGS MACRO ((FNH)
([LAMBDA (N)
(COND
((ILESSP N 0)
1)
(T N]
(fetch (FNHEADER NA) of FNH))))
([LAMBDA (N)
(COND
((ILESSP N 0)
1)
(T N]
(fetch (FNHEADER NA) of FNH))))
(PUTPROPS \CCODEFNTYP MACRO ((FNH)
(SELECTQ (\CCODEARGTYPE FNH)
(0 'CEXPR)
(1 'CFEXPR)
(2 'CEXPR*)
'CFEXPR*)))
(SELECTQ (\CCODEARGTYPE FNH)
(0 'CEXPR)
(1 'CFEXPR)
(2 'CEXPR*)
'CFEXPR*)))
(PUTPROPS \CCODEARGTYPE MACRO ((FNH)
(fetch (FNHEADER ARGTYPE) of FNH)))
(fetch (FNHEADER ARGTYPE) of FNH)))
)
)
@@ -1718,8 +1717,8 @@ with the terms of said license.
)
(ADDTOVAR CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT IQUOTIENT IMIN
IMAX IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND)
(ADDTOVAR CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT IQUOTIENT IMIN IMAX
IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS COMPVARMACROHASH CONSTANTFOLDFNS)
@@ -1746,119 +1745,33 @@ with the terms of said license.
(ADDTOVAR LAMA APPLY* \INTERPRETER)
)
(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
'(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? 'SETQ '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? 'FUNCTION 'CL:FUNCTION NIL T]
(COMS (* ; "Blip and other stack funniness")
(FNS BLIPVAL SETBLIPVAL BLIPSCAN)
(FNS \REALFRAMEP)
[INITVARS (OPENFNS '(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])
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA CONSTANTS PROG1 COND PROGN OR AND QUOTE LET* LET GO PROG SETQ)
(ADDTOVAR NLAML FUNCTION RETURN)
(ADDTOVAR LAMA BOUNDP APPLY* \INTERPRETER)
)
(PUTPROPS LLINTERP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988
1990 1991 1992 1994 1995))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6396 23657 (\INTERPRETER 6406 . 11002) (\INTERPRETER1 11004 . 17572) (
\SETUP-COMPILED-CLOSURE-CALL 17574 . 22721) (\STKNAME 22723 . 23655)) (23686 29098 (\ENVCALL.UFN 23696
. 23828) (\SETUP-ENVIRONMENT-CALL 23830 . 29096)) (29137 34014 (EVAL 29147 . 29247) (\EVAL 29249 .
29459) (\EVALFORM 29461 . 30692) (\EVALFORMASLAMBDA 30694 . 30884) (\EVALOTHER 30886 . 31093) (APPLY
31095 . 31202) (APPLY* 31204 . 32319) (\CHECKAPPLY* 32321 . 33426) (\CKAPPLYARGS 33428 . 33771) (
DEFEVAL 33773 . 34012)) (36106 43695 (EVALV 36116 . 36325) (\EVALV1 36327 . 36482) (\EVALVAR 36484 .
36847) (BOUNDP 36849 . 37065) (SET 37067 . 37433) (\SETVAR 37435 . 37805) (SETQ 37807 . 38479) (
\STKSCAN 38481 . 42145) (\SETFVARSLOT 42147 . 43693)) (43729 56736 (PROG 43739 . 46255) (\PROG0 46257
. 49887) (\EVPROG1 49889 . 50092) (RETURN 50094 . 50635) (GO 50637 . 51452) (EVALA 51454 . 53383) (
\EVALA 53385 . 55978) (ERRORSET 55980 . 56585) (SI::ERRORSET-PRINT-FUNCTION 56587 . 56734)) (56795
69447 (LET 56805 . 58948) (LET* 58950 . 61098) (\LET0 61100 . 64760) (\LET* 64762 . 69445)) (69448
71024 (QUOTE 69458 . 69489) (AND 69491 . 69699) (OR 69701 . 69949) (PROGN 69951 . 70230) (COND 70232
. 70566) (\EVPROGN 70568 . 70781) (PROG1 70783 . 71022)) (71512 78403 (ENVEVAL 71522 . 71772) (
ENVAPPLY 71774 . 72031) (FUNCTION 72033 . 72263) (\FUNCT1 72265 . 74714) (\MAKEFUNARGFRAME 74716 .
76913) (STKEVAL 76915 . 77063) (STKAPPLY 77065 . 77234) (RETEVAL 77236 . 77840) (RETAPPLY 77842 .
78401)) (78524 86032 (BLIPVAL 78534 . 82435) (SETBLIPVAL 82437 . 85179) (BLIPSCAN 85181 . 86030)) (
86033 86728 (\REALFRAMEP 86043 . 86726)) (87109 96504 (RAIDCOMMAND 87119 . 90725) (RAIDSHOWFRAME 90727
. 91110) (RAIDSTACKCMD 91112 . 92293) (RAIDROOTFRAME 92295 . 92557) (PRINTADDRS 92559 . 93085) (
PRINTVA 93087 . 93232) (READVA 93234 . 93312) (READATOM 93314 . 93896) (READOCT 93898 . 94529) (
SHOWSTACKBLOCKS 94531 . 95777) (SHOWSTACKBLOCK1 95779 . 95930) (PRINCOPY 95932 . 96064) (NOSUCHATOM
96066 . 96502)) (96505 105133 (BACKTRACE 96515 . 96872) (\BACKTRACE 96874 . 97980) (\SCANFORNTENTRY
97982 . 99612) (\PRINTSTK 99614 . 99801) (\PRINTFRAME 99803 . 103786) (\PRINTBF 103788 . 105131)) (
107892 117236 (CCODEP 107902 . 108177) (EXPRP 108179 . 108438) (SUBRP 108440 . 108495) (FNTYP 108497
. 109257) (ARGTYPE 109259 . 109873) (NARGS 109875 . 110362) (ARGLIST 110364 . 111613) (\CCODEARGLIST
111615 . 116011) (\CCODEIVARSCAN 116013 . 117234)) (118282 120513 (CONSTANTS 118292 . 118583) (
CONSTANTEXPRESSIONP 118585 . 120511)))))
(FILEMAP (NIL (6409 23670 (\INTERPRETER 6419 . 11015) (\INTERPRETER1 11017 . 17585) (
\SETUP-COMPILED-CLOSURE-CALL 17587 . 22734) (\STKNAME 22736 . 23668)) (23699 29111 (\ENVCALL.UFN 23709
. 23841) (\SETUP-ENVIRONMENT-CALL 23843 . 29109)) (29150 34027 (EVAL 29160 . 29260) (\EVAL 29262 .
29472) (\EVALFORM 29474 . 30705) (\EVALFORMASLAMBDA 30707 . 30897) (\EVALOTHER 30899 . 31106) (APPLY
31108 . 31215) (APPLY* 31217 . 32332) (\CHECKAPPLY* 32334 . 33439) (\CKAPPLYARGS 33441 . 33784) (
DEFEVAL 33786 . 34025)) (35871 43460 (EVALV 35881 . 36090) (\EVALV1 36092 . 36247) (\EVALVAR 36249 .
36612) (BOUNDP 36614 . 36830) (SET 36832 . 37198) (\SETVAR 37200 . 37570) (SETQ 37572 . 38244) (
\STKSCAN 38246 . 41910) (\SETFVARSLOT 41912 . 43458)) (43494 56501 (PROG 43504 . 46020) (\PROG0 46022
. 49652) (\EVPROG1 49654 . 49857) (RETURN 49859 . 50400) (GO 50402 . 51217) (EVALA 51219 . 53148) (
\EVALA 53150 . 55743) (ERRORSET 55745 . 56350) (SI::ERRORSET-PRINT-FUNCTION 56352 . 56499)) (56560
69212 (LET 56570 . 58713) (LET* 58715 . 60863) (\LET0 60865 . 64525) (\LET* 64527 . 69210)) (69213
70789 (QUOTE 69223 . 69254) (AND 69256 . 69464) (OR 69466 . 69714) (PROGN 69716 . 69995) (COND 69997
. 70331) (\EVPROGN 70333 . 70546) (PROG1 70548 . 70787)) (71277 78168 (ENVEVAL 71287 . 71537) (
ENVAPPLY 71539 . 71796) (FUNCTION 71798 . 72028) (\FUNCT1 72030 . 74479) (\MAKEFUNARGFRAME 74481 .
76678) (STKEVAL 76680 . 76828) (STKAPPLY 76830 . 76999) (RETEVAL 77001 . 77605) (RETAPPLY 77607 .
78166)) (78289 85797 (BLIPVAL 78299 . 82200) (SETBLIPVAL 82202 . 84944) (BLIPSCAN 84946 . 85795)) (
85798 86493 (\REALFRAMEP 85808 . 86491)) (86869 96264 (RAIDCOMMAND 86879 . 90485) (RAIDSHOWFRAME 90487
. 90870) (RAIDSTACKCMD 90872 . 92053) (RAIDROOTFRAME 92055 . 92317) (PRINTADDRS 92319 . 92845) (
PRINTVA 92847 . 92992) (READVA 92994 . 93072) (READATOM 93074 . 93656) (READOCT 93658 . 94289) (
SHOWSTACKBLOCKS 94291 . 95537) (SHOWSTACKBLOCK1 95539 . 95690) (PRINCOPY 95692 . 95824) (NOSUCHATOM
95826 . 96262)) (96265 104893 (BACKTRACE 96275 . 96632) (\BACKTRACE 96634 . 97740) (\SCANFORNTENTRY
97742 . 99372) (\PRINTSTK 99374 . 99561) (\PRINTFRAME 99563 . 103546) (\PRINTBF 103548 . 104891)) (
107393 116737 (CCODEP 107403 . 107678) (EXPRP 107680 . 107939) (SUBRP 107941 . 107996) (FNTYP 107998
. 108758) (ARGTYPE 108760 . 109374) (NARGS 109376 . 109863) (ARGLIST 109865 . 111114) (\CCODEARGLIST
111116 . 115512) (\CCODEIVARSCAN 115514 . 116735)) (117687 119918 (CONSTANTS 117697 . 117988) (
CONSTANTEXPRESSIONP 117990 . 119916)))))
STOP