ACCESSFNS VCELL had bogus computation

sources/LLINTERP

@@ -1,13 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED " 2-Feb-95 17:31:23" {DSK}<lispcore>sources>LLINTERP.;3
 120814 
 
-      changes to%:  (VARS LLINTERPCOMS)
+
(FILECREATED "27-Oct-2021 21:03:21" {DSK}<home>larry>medley>sources>LLINTERP.;2
 127414 
 
-      previous date%: "31-Aug-94 14:38:32" {DSK}<lispcore>sources>LLINTERP.;2)
+      changes to%:  (FNS \STKSCAN)
+
+      previous date%: " 2-Feb-95 17:31:23" {DSK}<home>larry>medley>sources>LLINTERP.;1)
 
 
 (* ; "
-Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1994, 1995 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1981-1988, 1990-1992, 1994-1995 by Venue & Xerox Corporation.
 The following program was created in 1981 but has not been published
 within the meaning of the copyright law, is furnished under license,
 and may not be used, copied and/or disclosed except in accordance
@@ -16,7 +17,7 @@ with the terms of said license.
 
 (PRETTYCOMPRINT LLINTERPCOMS)
 
-(RPAQQ LLINTERPCOMS
 
+(RPAQQ LLINTERPCOMS

        [(COMS                                                (* ; "Compilation pre-requisites")

               (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                       LLBASIC LLSTK LLCODE LLPARAMS ACODE)))
@@ -368,35 +369,36 @@ with the terms of said license.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS .APPLY. MACRO ((U V)                               (* body for APPLY, used by RETAPPLY 
+(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))
+                                 (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])
 )
 )
 
@@ -444,7 +446,9 @@ with the terms of said license.
                                        (GO LP])])
 
 (\STKSCAN

-  [LAMBDA (VAR)
                                          (* ; "Edited 27-Jan-91 14:48 by jds")

+  [LAMBDA (VAR)                                              (* ; 
+
                                                           "Edited 27-Oct-2021 20:51 by larry")

+                                                             (* ; "Edited 27-Jan-91 14:48 by jds")

 
     (* ;; "Returns pointer to place where VAR is bound")

 
@@ -455,7 +459,7 @@ with the terms of said license.
           [COND
              ((fetch
 (FX INVALIDP) of
 FX)            (* ; 
 
                                                   "Reached top of stack without finding a binding")

-              (RETURN (fetch
 (VALINDEX VCELL) of
 ATOM#]
+              (RETURN (\VALCELL VAR]
           (SETQ NT (fetch
 (FX NAMETABLE) of
 FX))
           (SETQ NTSIZE (fetch
 (FNHEADER NTSIZE) of
 NT))
           (SETQ NT (\ADDBASE NT (fetch
 (FNHEADER OVERHEADWORDS) of
 T)))
@@ -1216,9 +1220,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
@@ -1433,7 +1436,7 @@ with the terms of said license.
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
-(RPAQQ RAIDCOMS
 
+(RPAQQ RAIDCOMS

        ((MACROS PSTKFLD PRINTSTKFIELDS PSTK PRINTVA)
         (ADDVARS (RDCOMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA
                               READVA READOCT READATOM SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY 
@@ -1445,29 +1448,30 @@ with the terms of said license.
                         NOSUCHATOM))))
 (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]
+(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])
 
-[PUTPROPS PRINTSTKFIELDS MACRO (FIELDS (CONS 'PROGN (MAPCAR FIELDS (FUNCTION (LAMBDA (X)
-                                                                               (CONS 'PSTKFLD X]
+(PUTPROPS PRINTSTKFIELDS
 MACRO
 [FIELDS (CONS 'PROGN (MAPCAR FIELDS (FUNCTION (LAMBDA (X)
+                                                                                       (CONS
+                                                                                        'PSTKFLD X])
 
-(PUTPROPS PSTK MACRO ((N . FIELDS)
-                      (\PRINTSTK
 (IPLUS FRAME N))
-                      (PRINTSTKFIELDS . FIELDS)
-                      (TERPRI)))
+(PUTPROPS PSTK
 MACRO
 ((N . FIELDS)
+                              (\PRINTSTK
 (IPLUS FRAME N))
+                              (PRINTSTKFIELDS . FIELDS)
+                              (TERPRI)))
 
-[PUTPROPS PRINTVA MACRO (LAMBDA (X)
-                          (printout NIL "{" (HILOC X)
-                                 ","
-                                 (LOLOC X)
-                                 "}"]
+(PUTPROPS PRINTVA
 MACRO
 [LAMBDA (X)
+                                  (printout NIL "{" (HILOC X)
+                                         ","
+                                         (LOLOC X)
+                                         "}"])
 )
 
 (ADDTOVAR RDCOMS
 (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA 
@@ -1628,29 +1632,29 @@ with the terms of said license.
 (* ; "Translation machinery for new LAMBDA words")

 
 
-(PUTPROPS LAMBDATRANFNS VARTYPE
 ALIST)
+(PUTPROPS LAMBDATRANFNS
 VARTYPE
 ALIST)
 
 (ADDTOVAR LAMBDATRANFNS
 )
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
-[PUTPROPS \CCODENARGS MACRO ((FNH)
-                             ([LAMBDA (N)
-                                (COND
-                                   ((ILESSP N 0)
-                                    1)
-                                   (T N]
-                              (fetch
 (FNHEADER NA) of
 FNH]
+(PUTPROPS \CCODENARGS
 MACRO
 ((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*]
+(PUTPROPS \CCODEFNTYP
 MACRO
 ((FNH)
+                                     (SELECTQ (\CCODEARGTYPE FNH)
+                                         (0 'CEXPR)
+                                         (1 'CFEXPR)
+                                         (2 'CEXPR*)
+                                         'CFEXPR*)))
 
-(PUTPROPS \CCODEARGTYPE MACRO ((FNH)
-                               (fetch
 (FNHEADER ARGTYPE) of
 FNH)))
+(PUTPROPS \CCODEARGTYPE
 MACRO
 ((FNH)
+                                       (fetch
 (FNHEADER ARGTYPE) of
 FNH)))
 )
 )
 
@@ -1714,9 +1718,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)
@@ -1743,33 +1746,119 @@ 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 (6448 23709 (\INTERPRETER 6458 . 11054) (\INTERPRETER1 11056 . 17624) (
-\SETUP-COMPILED-CLOSURE-CALL 17626 . 22773) (\STKNAME 22775 . 23707)) (23738 29150 (\ENVCALL.UFN 23748
- . 23880) (\SETUP-ENVIRONMENT-CALL 23882 . 29148)) (29189 34066 (EVAL 29199 . 29299) (\EVAL 29301 . 
-29511) (\EVALFORM 29513 . 30744) (\EVALFORMASLAMBDA 30746 . 30936) (\EVALOTHER 30938 . 31145) (APPLY 
-31147 . 31254) (APPLY* 31256 . 32371) (\CHECKAPPLY* 32373 . 33478) (\CKAPPLYARGS 33480 . 33823) (
-DEFEVAL 33825 . 34064)) (35868 43313 (EVALV 35878 . 36087) (\EVALV1 36089 . 36244) (\EVALVAR 36246 . 
-36609) (BOUNDP 36611 . 36827) (SET 36829 . 37195) (\SETVAR 37197 . 37567) (SETQ 37569 . 38241) (
-\STKSCAN 38243 . 41763) (\SETFVARSLOT 41765 . 43311)) (43347 56354 (PROG 43357 . 45873) (\PROG0 45875
- . 49505) (\EVPROG1 49507 . 49710) (RETURN 49712 . 50253) (GO 50255 . 51070) (EVALA 51072 . 53001) (
-\EVALA 53003 . 55596) (ERRORSET 55598 . 56203) (SI::ERRORSET-PRINT-FUNCTION 56205 . 56352)) (56413 
-69065 (LET 56423 . 58566) (LET* 58568 . 60716) (\LET0 60718 . 64378) (\LET* 64380 . 69063)) (69066 
-70642 (QUOTE 69076 . 69107) (AND 69109 . 69317) (OR 69319 . 69567) (PROGN 69569 . 69848) (COND 69850
- . 70184) (\EVPROGN 70186 . 70399) (PROG1 70401 . 70640)) (71130 78021 (ENVEVAL 71140 . 71390) (
-ENVAPPLY 71392 . 71649) (FUNCTION 71651 . 71881) (\FUNCT1 71883 . 74332) (\MAKEFUNARGFRAME 74334 . 
-76531) (STKEVAL 76533 . 76681) (STKAPPLY 76683 . 76852) (RETEVAL 76854 . 77458) (RETAPPLY 77460 . 
-78019)) (78142 85650 (BLIPVAL 78152 . 82053) (SETBLIPVAL 82055 . 84797) (BLIPSCAN 84799 . 85648)) (
-85651 86346 (\REALFRAMEP 85661 . 86344)) (86722 96117 (RAIDCOMMAND 86732 . 90338) (RAIDSHOWFRAME 90340
- . 90723) (RAIDSTACKCMD 90725 . 91906) (RAIDROOTFRAME 91908 . 92170) (PRINTADDRS 92172 . 92698) (
-PRINTVA 92700 . 92845) (READVA 92847 . 92925) (READATOM 92927 . 93509) (READOCT 93511 . 94142) (
-SHOWSTACKBLOCKS 94144 . 95390) (SHOWSTACKBLOCK1 95392 . 95543) (PRINCOPY 95545 . 95677) (NOSUCHATOM 
-95679 . 96115)) (96118 104746 (BACKTRACE 96128 . 96485) (\BACKTRACE 96487 . 97593) (\SCANFORNTENTRY 
-97595 . 99225) (\PRINTSTK 99227 . 99414) (\PRINTFRAME 99416 . 103399) (\PRINTBF 103401 . 104744)) (
-107255 116599 (CCODEP 107265 . 107540) (EXPRP 107542 . 107801) (SUBRP 107803 . 107858) (FNTYP 107860
- . 108620) (ARGTYPE 108622 . 109236) (NARGS 109238 . 109725) (ARGLIST 109727 . 110976) (\CCODEARGLIST 
-110978 . 115374) (\CCODEIVARSCAN 115376 . 116597)) (117516 119747 (CONSTANTS 117526 . 117817) (
-CONSTANTEXPRESSIONP 117819 . 119745)))))
+  (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)))))
 STOP