NIL
79:IL:BTV!

UNBOUND ATOM
IL:BTV!
(DEBUG broken)
80:BTV!


Basic frame at   55570
  55566:      53 163426 *local* (SIMPLE-ERROR 
"These symbols are not available in the ~A package:~%%~{~S ~}~%%" ("XCL-TEST" &))
  55570:  100000  55566 

Frame xtn at   55572, frame name= DEBUG
  55572:  140004  55537 [USE= 4, X,  alink]
  55574:   66250     73 [fn header]
  55576:   55634    116 [next, pc]
  55600:   71250     73 [nametable]
  55602:   55570  55536 [blink, clink]
  55604:      16      1 *local* 1
  55606:      53 163426 *local* (SIMPLE-ERROR 
"These symbols are not available in the ~A package:~%%~{~S ~}~%%" ("XCL-TEST" &))
  55610:       0      0 *local* NIL
  55612:  177777      1 *local* [unbound]
  55614:  177777      2 *local* [unbound]
  55616:  177777      0 *local* [unbound]
  55620:  177777      0 *local* [unbound]
  55622:  177777      0 *local* [unbound]
  55624:  177773      6 [padding]
  55626:       0     17 [padding]
  55630:  177776      0 
  55632:  177775      4 
DEBUG


Basic frame at   55522
  55514:      63  33670 *local* 
"These symbols are not available in the ~A package:~%%~{~S ~}~%%"
  55516:      54 164744 *local* "XCL-TEST"
  55520:      54 156056 *local* (*TEST-BATCH-RESULTS* 
*TEST-COMPILE* *TEST-FILE-PATTERN* *TEST-MODE* 
CL-READFILE DO-ALL-TESTS DO-TEST DO-TEST-FILE 
DO-TEST-GROUP EXPECT-ERRORS --)
  55522:  100000  55514 

Frame xtn at   55524, frame name= CL§ERROR
  55524:  140001  55471 [USE= 1, X,  alink]
  55526:  131430     73 [fn header]
  55530:   55566    107 [next, pc]
  55532:      75 107044 [nametable]
  55534:   55522  55470 [blink, clink]
  55536:      16      3 *local* 3
  55540:      63  33670 *local* 
"These symbols are not available in the ~A package:~%%~{~S ~}~%%"
  55542:      53 163736 *local* ("XCL-TEST" (
*TEST-BATCH-RESULTS* *TEST-COMPILE* *TEST-FILE-PATTERN* 
*TEST-MODE* CL-READFILE DO-ALL-TESTS DO-TEST DO-TEST-FILE
 DO-TEST-GROUP --))
  55544:  177777      3 *local* [unbound]
  55546:  177777      4 *local* [unbound]
  55550:  177777 163736 *local* [unbound]
  55552:  177777 163772 *local* [unbound]
  55554:  177777 156056 *local* [unbound]
  55556:       0  60463 [padding]
  55560:       0     17 [padding]
  55562:  177776      0 
  55564:  177775      4 
CL§ERROR


Basic frame at   55454
  55454:  100000  55454 

Frame xtn at   55456, frame name= 
RESOLVE-EXPORT-MISSINGA0001
  55456:  140001  55451 [USE= 1, X,  alink]
  55460:   40660     62 [fn header]
  55462:   55514    207 [next, pc]
  55464:      16    236 [nametable]
  55466:   55454  55450 [blink, clink]
  55470:      53 163624 *PROCEED-CASES* (|S(PROCEED-CASE 
NAME IMPORT-PROCEED TAG & SELECTOR 0 TEST 
|<Compiled Function TRUE/75,107050> & 
RESOLVE-EXPORT-MISSINGA0001A0002) |S(PROCEED-CASE NAME 
ABORT-EXPORT-PROCEED TAG & SELECTOR 1 TEST 
|<Compiled Function TRUE/75,107044> & 
RESOLVE-EXPORT-MISSINGA0001A0003))
  55472:   55404    401 [fvar PROCEED-CASE7984  on stack]
  55474:   47104   6014 [fvar *PROCEED-CASES*  top value]
  55476:   55364    401 [fvar PACKAGE  on stack]
  55500:   55366    401 [fvar MISSING  on stack]
  55502:  177777  55474 [padding]
  55504:  140000  55444 [padding]
  55506:       0     27 [padding]
  55510:       0  23542 §NORMAL
  55512:  177776      0 
RESOLVE-EXPORT-MISSINGA0001


Basic frame at   55434
  55430:      53 163612 *local* (NIL)
  55432:       0  60475 *local* 
RESOLVE-EXPORT-MISSINGA0001
  55434:  100000  55430 

Frame xtn at   55436, frame name= *CATCH*
  55436:  140001  55405 [USE= 1, X,  alink]
  55440:    4410     74 [fn header]
  55442:   55454     53 [next, pc]
  55444:      16      2 [nametable]
  55446:   55434  55404 [blink, clink]
  55450:       0  17343 [padding]
  55452:       0     23 [padding]
*CATCH*


Basic frame at   55370
  55364:      74 175464 PACKAGE #<Package XCL-TEST>
  55366:      54 156056 MISSING (*TEST-BATCH-RESULTS* 
*TEST-COMPILE* *TEST-FILE-PATTERN* *TEST-MODE* 
CL-READFILE DO-ALL-TESTS DO-TEST DO-TEST-FILE 
DO-TEST-GROUP EXPECT-ERRORS --)
  55370:  100000  55364 

Frame xtn at   55372, frame name= RESOLVE-EXPORT-MISSING
  55372:  140001  55251 [USE= 1, X,  alink]
  55374:   36400     72 [fn header]
  55376:   55430     66 [next, pc]
  55400:      16  55234 [nametable]
  55402:   55370  55250 [blink, clink]
  55404:      53 163612 PROCEED-CASE7984 (NIL)
  55406:  177777  36270 *local* [unbound]
  55410:  177777 175464 *local* [unbound]
  55412:  177777  36270 *local* [unbound]
  55414:  177777 175464 *local* [unbound]
  55416:  177777      0 *local* [unbound]
  55420:  100000  55412 [padding]
  55422:       0     17 [padding]
  55424:      54 156056 (*TEST-BATCH-RESULTS* 
*TEST-COMPILE* *TEST-FILE-PATTERN* *TEST-MODE* 
CL-READFILE DO-ALL-TESTS DO-TEST DO-TEST-FILE 
DO-TEST-GROUP EXPECT-ERRORS --)
  55426:  177776      0 
RESOLVE-EXPORT-MISSING


Basic frame at   55234
  55230:      54 123164 *local* (DO-TEST DO-TEST-GROUP 
EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ 
DO-ALL-TESTS CL-READFILE DO-TEST-FILE *TEST-MODE* --)
  55232:      74 175464 *local* #<Package XCL-TEST>
  55234:  100000  55230 

Frame xtn at   55236, frame name= EXPORT
  55236:  140001  55167 [USE= 1, X,  alink]
  55240:   63020     26 [fn header]
  55242:   55364    347 [next, pc]
  55244:       0     17 [nametable]
  55246:   55234  55166 [blink, clink]
  55250:      16      2 *local* 2
  55252:      54 123164 *local* (DO-TEST DO-TEST-GROUP 
EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ 
DO-ALL-TESTS CL-READFILE DO-TEST-FILE *TEST-MODE* --)
  55254:      74 175464 *local* #<Package XCL-TEST>
  55256:      74 175464 *local* #<Package XCL-TEST>
  55260:      53 163252 *local* (*TEST-FILE-PATTERN* 
*TEST-COMPILE* *TEST-BATCH-RESULTS* *TEST-MODE* 
DO-TEST-FILE CL-READFILE DO-ALL-TESTS TEST-SETQ 
TEST-DEFMACRO TEST-DEFUN --)
  55262:       0      0 *local* NIL
  55264:       0 100674 *local* *TEST-FILE-PATTERN*
  55266:      54 123164 *local* (DO-TEST DO-TEST-GROUP 
EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ 
DO-ALL-TESTS CL-READFILE DO-TEST-FILE *TEST-MODE* --)
  55270:       0      0 *local* NIL
  55272:       0 100674 *local* *TEST-FILE-PATTERN*
  55274:       0      0 *local* NIL
  55276:       0      0 *local* NIL
  55300:       0      0 *local* NIL
  55302:       0      0 *local* NIL
  55304:      54  36200 *local* "DO-TEST"
  55306:       0      0 *local* NIL
  55310:       0 100660 *local* DO-TEST
  55312:       0      0 *local* NIL
  55314:       0      0 *local* NIL
  55316:      54 156114 *local* (NIL NIL)
  55320:       0      0 *local* NIL
  55322:       0 100660 *local* DO-TEST
  55324:      54 156252 *local* (DO-TEST DO-TEST-FILE 
DO-TEST-GROUP EXPECT-ERRORS TEST-DEFMACRO TEST-DEFUN 
TEST-SETQ)
  55326:       0      0 *local* NIL
  55330:       0      0 *local* NIL
  55332:       0      0 *local* NIL
  55334:       0      0 *local* NIL
  55336:       0      0 *local* NIL
  55340:  177777      0 *local* [unbound]
  55342:  177777      0 *local* [unbound]
  55344:  177777      0 *local* [unbound]
  55346:  177777      0 [fvar *PACKAGE*  not looked up]
  55350:      54  31700 [padding]
  55352:       0     23 [padding]
  55354:  177776      0 
  55356:  177757     40 
  55360:  177764     66 
  55362:      74 175464 #<Package XCL-TEST>
EXPORT


Basic frame at   55152
  55150:      54 123054 ARGS ("XCL-TEST" (§EXPORT DO-TEST
 DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO 
TEST-SETQ DO-ALL-TESTS CL-READFILE --) (§USE "LISP"))
  55152:  100000  55150 

Frame xtn at   55154, frame name= DEFPACKAGE
  55154:  140001  55123 [USE= 1, X,  alink]
  55156:   57550     26 [fn header]
  55160:   55230    363 [next, pc]
  55162:       0      0 [nametable]
  55164:   55152  55122 [blink, clink]
  55166:      74 175464 PACKAGE #<Package XCL-TEST>
  55170:      54 123336 OPTION (§EXPORT DO-TEST 
DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO 
TEST-SETQ DO-ALL-TESTS CL-READFILE DO-TEST-FILE --)
  55172:       0  13566 KEY §EXPORT
  55174:      54 123164 CL§VALUES (DO-TEST DO-TEST-GROUP 
EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ 
DO-ALL-TESTS CL-READFILE DO-TEST-FILE *TEST-MODE* --)
  55176:  177777     23 SYMBOLS-TO-SHADOW [unbound]
  55200:  177777      3 POST-MAKE-FORMS [unbound]
  55202:  177777      2 *local* [unbound]
  55204:  177777  30750 *local* [unbound]
  55206:  177777 164374 *local* [unbound]
  55210:  177777      2 FORM [unbound]
  55212:      16      3 [padding]
  55214:       0     37 [padding]
  55216:  177776      0 
  55220:      54 124172 ((§EXPORT DO-TEST DO-TEST-GROUP 
EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ 
DO-ALL-TESTS CL-READFILE --) (§USE "LISP"))
  55222:  177776      2 
  55224:  177776      4 
  55226:  177776      6 
DEFPACKAGE


Basic frame at   55106
  55102:      54 123362 *FORM* (DEFPACKAGE "XCL-TEST" (
§EXPORT DO-TEST DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN 
TEST-DEFMACRO TEST-SETQ DO-ALL-TESTS CL-READFILE --) (
§USE "LISP"))
  55104:       0  13554 *local* DEFPACKAGE
  55106:  100000  55102 

Frame xtn at   55110, frame name= \EVALFORM
  55110:  140001  55077 [USE= 1, X,  alink]
  55112:  133254     23 [fn header]
  55114:   55150    152 [next, pc]
  55116:   55162    226 [nametable]
  55120:   55106  55076 [blink, clink]
  55122:       0  13554 *local* DEFPACKAGE
  55124:  177777 101740 *ARGVAL* [unbound]
  55126:  177777     23 *TAIL* [unbound]
  55130:  177777  77514 *FN* [unbound]
  55132:  177777 164374 *local* [unbound]
  55134:  177777      0 *local* [unbound]
  55136:  177777      0 *local* [unbound]
  55140:  177777      0 [padding]
  55142:      16  26423 [padding]
  55144:       0     33 [padding]
  55146:  177776      0 
\EVALFORM


Basic frame at   55062
  55056:      54 123362 *local* (DEFPACKAGE "XCL-TEST" (
§EXPORT DO-TEST DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN 
TEST-DEFMACRO TEST-SETQ DO-ALL-TESTS CL-READFILE --) (
§USE "LISP"))
  55060:       0      0 \INTERNAL NIL
  55062:  100000  55056 

Frame xtn at   55064, frame name= EVAL
  55064:  140001  55015 [USE= 1, X,  alink]
  55066:  133154     23 [fn header]
  55070:   55102     52 [next, pc]
  55072:       0     23 [nametable]
  55074:   55062  55014 [blink, clink]
  55076:       0     17 [padding]
  55100:       0     23 [padding]
EVAL


Basic frame at   55000
  54774:       0      0 STREAM NIL
  54776:      54 123140 ARGS (§READTABLE "xcl" §PACKAGE (
DEFPACKAGE "XCL-TEST" & &))
  55000:  100000  54774 

Frame xtn at   55002, frame name= \DO-DEFINE-FILE-INFO
  55002:  140001  54763 [USE= 1, X,  alink]
  55004:   43224     25 [fn header]
  55006:   55056    143 [next, pc]
  55010:      74 147640 [nametable]
  55012:   55000  54762 [blink, clink]
  55014:       0      0 PACKAGE NIL
  55016:      75  66644 CL§READTABLE 
|<ReadTable XCL/75,66644>
  55020:       0      0 BASE NIL
  55022:      54 123362 VALUE (DEFPACKAGE "XCL-TEST" (
§EXPORT DO-TEST DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN 
TEST-DEFMACRO TEST-SETQ DO-ALL-TESTS CL-READFILE --) (
§USE "LISP"))
  55024:       0      0 *local* NIL
  55026:       0      0 *local* NIL
  55030:       0      0 *local* NIL
  55032:      54 123064 TAIL (§PACKAGE (DEFPACKAGE 
"XCL-TEST" & &))
  55034:  177777    207 P [unbound]
  55036:  177777      0 R [unbound]
  55040:  177777      0 [fvar *INTERLISP-PACKAGE* 
 not looked up]
  55042:  177777     17 [padding]
  55044:      16      0 [padding]
  55046:       0     37 [padding]
  55050:  177770     14 
  55052:      54 123064 (§PACKAGE (DEFPACKAGE "XCL-TEST" & &))
  55054:  177776     16 
\DO-DEFINE-FILE-INFO


Basic frame at   54746
  54744:      54 123140 ARGS (§READTABLE "xcl" §PACKAGE (
DEFPACKAGE "XCL-TEST" & &))
  54746:  100000  54744 

Frame xtn at   54750, frame name= DEFINE-FILE-INFO
  54750:  140001  54717 [USE= 1, X,  alink]
  54752:   43170     25 [fn header]
  54754:   54774     52 [next, pc]
  54756:       0      0 [nametable]
  54760:   54746  54716 [blink, clink]
  54762:   54576    401 [fvar FILECREATEDLOC  on stack]
  54764:  177777      0 [padding]
  54766:      16     50 [padding]
  54770:       0     17 [padding]
  54772:      16    417 271
DEFINE-FILE-INFO


Basic frame at   54702
  54676:      54 123346 *FORM* (DEFINE-FILE-INFO 
§READTABLE "xcl" §PACKAGE (DEFPACKAGE "XCL-TEST" & &))
  54700:       0   7766 *local* DEFINE-FILE-INFO
  54702:  100000  54676 

Frame xtn at   54704, frame name= \EVALFORM
  54704:  140001  54673 [USE= 1, X,  alink]
  54706:  133254     23 [fn header]
  54710:   54744    152 [next, pc]
  54712:       0     37 [nametable]
  54714:   54702  54672 [blink, clink]
  54716:       0   7766 *local* DEFINE-FILE-INFO
  54720:  177777 123346 *ARGVAL* [unbound]
  54722:  177777  65000 *TAIL* [unbound]
  54724:  177777      0 *FN* [unbound]
  54726:  177777 155210 *local* [unbound]
  54730:  177777      0 *local* [unbound]
  54732:  177777  54720 *local* [unbound]
  54734:  177777  54674 [padding]
  54736:   21310     24 [padding]
  54740:       0     33 [padding]
  54742:  177776      0 
\EVALFORM


Basic frame at   54656
  54652:      54 123346 *local* (DEFINE-FILE-INFO 
§READTABLE "xcl" §PACKAGE (DEFPACKAGE "XCL-TEST" & &))
  54654:       0      0 \INTERNAL NIL
  54656:  100000  54652 

Frame xtn at   54660, frame name= EVAL
  54660:  140001  54541 [USE= 1, X,  alink]
  54662:  133154     23 [fn header]
  54664:   54676     52 [next, pc]
  54666:   54720    230 [nametable]
  54670:   54656  54540 [blink, clink]
  54672:       0     23 [padding]
  54674:       0     23 [padding]
EVAL


Basic frame at   54524
  54512:      74 147640 STREAM 
|<Input Stream 74,147640 on {ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM;35>
  54514:       0      0 LDFLG NIL
  54516:       0      0 PRINTFLG NIL
  54520:      75  63770 DEFAULTENV {READER-ENVIRONMENT}#
75,63770
  54522:       0    114 LOAD-VERBOSE-STREAM T
  54524:  100000  54512 

Frame xtn at   54526, frame name= \LOAD-STREAM
  54526:  140001  54461 [USE= 1, X,  alink]
  54530:   41460     25 [fn header]
  54532:   54652   1320 [next, pc]
  54534:       0     23 [nametable]
  54536:   54524  54460 [blink, clink]
  54540:       0      0 DFNFLG NIL
  54542:       0    114 BUILDMAPFLG T
  54544:       0    114 FILEPKGFLG T
  54546:       0    114 ADDSPELLFLG T
  54550:      54 122622 LISPXHIST ((&) (75 "2/") 
"<not yet evaluated>" *HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  54552:       0      0 PRLST NIL
  54554:      75  63770 FILECREATEDENV {
READER-ENVIRONMENT}#75,63770
  54556:       0 100627 FILE 
{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM;35
  54560:       0      0 FILEMAP NIL
  54562:       0      0 FNADRLST NIL
  54564:       0      0 ROOTNAME NIL
  54566:      16     50 TEM 40
  54570:       0      0 FILECREATEDLST NIL
  54572:      54 123346 LOADA (DEFINE-FILE-INFO 
§READTABLE "xcl" §PACKAGE (DEFPACKAGE "XCL-TEST" & &))
  54574:       0      0 MAYBEWANTFILEMAP NIL
  54576:      16    417 FILECREATEDLOC 271
  54600:      75  63770 E {READER-ENVIRONMENT}#75,63770
  54602:       0      0 ADR NIL
  54604:      74 175744 *PACKAGE* #<Package INTERLISP>
  54606:      75  66740 *READTABLE* 
|<ReadTable OLD-INTERLISP-FILE/75,66740>
  54610:      16     12 *READ-BASE* 10
  54612:      16     12 *PRINT-BASE* 10
  54614:   17536   6014 [fvar FILEPKGFLG  top value]
  54616:  101640  26455 [fvar RESETVARSLST 
 non-stack binding]
  54620:  177777     23 [fvar LOADEDFILELST 
 not looked up]
  54622:   16572   6014 [fvar DFNFLG  top value]
  54624:   17640   6014 [fvar BUILDMAPFLG  top value]
  54626:   17636   6014 [fvar ADDSPELLFLG  top value]
  54630:   54414    401 [fvar LISPXHIST  on stack]
  54632:  177777   1730 [fvar 
*COMMON-LISP-READ-ENVIRONMENT*  not looked up]
  54634:      21   1530 [padding]
  54636:       0    117 [padding]
  54640:  177757     36 
  54642:      54 103432 ((&) (& NIL))
  54644:       0 100627 
{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM;35
  54646:  177775     42 
  54650:  177773     52 
\LOAD-STREAM


Basic frame at   54444
  54440:      77  72554 *local* (LOADA0001)
  54442:       0   1512 *local* INTERNAL
  54444:  100000  54440 

Frame xtn at   54446, frame name= ERRORSET
  54446:  140001  54415 [USE= 1, X,  alink]
  54450:   41204     25 [fn header]
  54452:   54512    226 [next, pc]
  54454:  177777      0 [nametable]
  54456:   54444  54414 [blink, clink]
  54460:      74 147640 STREAM 
|<Input Stream 74,147640 on {ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM;35>
  54462:       0      0 TEM NIL
  54464:   54374    401 [fvar LDFLG  on stack]
  54466:  101640  26455 [fvar RESETVARSLST 
 non-stack binding]
  54470:   54372    401 [fvar FILE  on stack]
  54472:  177777      0 [fvar RESETY  not looked up]
  54474:   54376    401 [fvar PRINTFLG  on stack]
  54476:   14116   6014 [fvar 
*OLD-INTERLISP-READ-ENVIRONMENT*  top value]
  54500:   17570   6014 [fvar PRETTYHEADER  top value]
  54502:  177777  54426 [padding]
  54504:  177777      2 [padding]
  54506:       0     37 [padding]
  54510:  177775      2 
ERRORSET


Basic frame at   54400
  54372:       0 100626 FILE 
CL§§{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM
  54374:       0      0 LDFLG NIL
  54376:       0      0 PRINTFLG NIL
  54400:  100000  54372 

Frame xtn at   54402, frame name= LOAD
  54402:  140001  54345 [USE= 1, X,  alink]
  54404:   41330     25 [fn header]
  54406:   54440    117 [next, pc]
  54410:      25  41330 [nametable]
  54412:   54400  54344 [blink, clink]
  54414:      54 122622 LISPXHIST ((&) (75 "2/") 
"<not yet evaluated>" *HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  54416:       0      0 RESETY NIL
  54420:       0      0 RESETZ NIL
  54422:   54104    401 [fvar LISPXHIST  on stack]
  54424:  101640  26455 [fvar RESETVARSLST 
 non-stack binding]
  54426:  177777   2105 [padding]
  54430:      16      3 [padding]
  54432:       0     37 [padding]
  54434:  177774      4 
  54436:       0      0 NIL
LOAD


Basic frame at   54330
  54324:      54 165464 *local* (LOAD (QUOTE 
CL§§{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM))
  54326:       0      0 *local* NIL
  54330:  100000  54324 

Frame xtn at   54332, frame name= CL§EVAL
  54332:  140001  54315 [USE= 1, X,  alink]
  54334:  113044     30 [fn header]
  54336:   54372    357 [next, pc]
  54340:      16  43060 [nametable]
  54342:   54330  54314 [blink, clink]
  54344:      54 165464 *local* (LOAD (QUOTE 
CL§§{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM))
  54346:       0      0 *local* NIL
  54350:       0      0 *local* NIL
  54352:       0      0 *local* NIL
  54354:      16      1 *local* 1
  54356:       0      0 *local* NIL
  54360:      16      0 *local* 0
  54362:  177777  43060 [padding]
  54364:      16 177777 [padding]
  54366:       0     23 [padding]
  54370:  177770     14 
CL§EVAL


Basic frame at   54300
  54274:      54 172642 TODO ((LOAD &))
  54276:       0      0 ENV NIL
  54300:  100000  54274 

Frame xtn at   54302, frame name= EVAL-INPUT
  54302:  140001  54153 [USE= 1, X,  alink]
  54304:   41124     62 [fn header]
  54306:   54324    230 [next, pc]
  54310:       0   3151 [nametable]
  54312:   54300  54152 [blink, clink]
  54314:  177777      2 FN [unbound]
  54316:  177777  21362 CNT [unbound]
  54320:       6   5020 [padding]
  54322:       0     27 [padding]
EVAL-INPUT


Basic frame at   54136
  54130:      73 126264 *local* (CL§§REDO 63)
  54132:       0      0 *local* NIL
  54134:       0  60645 *local* EVAL-INPUT
  54136:  100000  54130 

Frame xtn at   54140, frame name= DO-EVENT
  54140:  140001  54103 [USE= 1, X,  alink]
  54142:       0     35 [fn header]
  54144:   54274    677 [next, pc]
  54146:       0     17 [nametable]
  54150:   54136  54102 [blink, clink]
  54152:      16      3 *local* 3
  54154:      73 126264 *local* (CL§§REDO 63)
  54156:       0      0 *local* NIL
  54160:       0  60645 *local* EVAL-INPUT
  54162:      62 156006 *local* ((REDO exec-REDO §HISTORY
 NIL) (UNDO exec-UNDO §EVAL NIL) (SHH exec-SHH §QUIET NIL
) (REMEMBER exec-REMEMBER §EVAL NIL) (PL exec-PL §EVAL 
NIL) (PB exec-PB §EVAL NIL) (NDIR exec-NDIR §EVAL NIL) (
FIX exec-FIX §HISTORY NIL) (DO-EVENTS exec-DO-EVENTS 
§EVAL NIL) (DIR exec-DIR §EVAL NIL) --)
  54164:      62 155542 *local* (REDO exec-REDO §HISTORY 
NIL)
  54166:      54 124036 *local* (*HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  54170:      54 122622 *local* ((&) (75 "2/") 
"<not yet evaluated>" *HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  54172:       0  60722 *local* §HISTORY
  54174:       0      0 *local* NIL
  54176:       0      0 *local* NIL
  54200:      54 172642 *local* ((LOAD &))
  54202:      54 172642 *local* ((LOAD &))
  54204:       0      0 *local* NIL
  54206:      67  21362 HELPCLOCK 619176827
  54210:       0      0 *local* NIL
  54212:   53524    401 [fvar *CURRENT-EVENT*  on stack]
  54214:  141546   6014 [fvar *EXEC-FONTS*  top value]
  54216:  177777 177400 [fvar IT  not looked up]
  54220:   53536    401 [fvar CL§++  on stack]
  54222:   53534    401 [fvar +  on stack]
  54224:   53542    401 [fvar -  on stack]
  54226:  177777     15 [fvar CL§//  not looked up]
  54230:  177777    401 [fvar /  not looked up]
  54232:  177777      0 [fvar CL§**  not looked up]
  54234:  177777     27 [fvar CL§*  not looked up]
  54236:   53514    401 [fvar *THIS-EXEC-COMMANDS* 
 on stack]
  54240:  141552   6014 [fvar EXEC-COMMANDS  top value]
  54242:  177777      2 [fvar CL§***  not looked up]
  54244:   17636   6014 [fvar ADDSPELLFLG  top value]
  54246:   54104    401 [fvar LISPXHIST  on stack]
  54250:   53540    401 [fvar CL§+++  on stack]
  54252:  177777     23 [fvar CL§///  not looked up]
  54254:  177777     62 [padding]
  54256:   54276     74 [padding]
  54260:       0     63 [padding]
  54262:  177776      0 
  54264:  177765     24 
  54266:  177774     32 
  54270:  177775     36 
  54272:      54 165464 (LOAD (QUOTE 
CL§§{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM))
DO-EVENT


Basic frame at   54066
  54062:      62  35110 *local* (
CMLEXECA0002A0003A0004A0005)
  54064:       0   1512 *local* INTERNAL
  54066:  100000  54062 

Frame xtn at   54070, frame name= ERRORSET
  54070:  140001  54015 [USE= 1, X,  alink]
  54072:   70400     62 [fn header]
  54074:   54130    125 [next, pc]
  54076:  177777  33444 [nametable]
  54100:   54066  54014 [blink, clink]
  54102:      73 126264 *local* (CL§§REDO 63)
  54104:      54 122622 LISPXHIST ((&) (75 "2/") 
"<not yet evaluated>" *HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  54106:      16      0 HELPCLOCK 0
  54110:   54014    401 [fvar LISPXHIST  on stack]
  54112:   53242    401 [fvar ENVIRONMENT  on stack]
  54114:   53270    401 [fvar FUNCTION  on stack]
  54116:  177777     25 [fvar RESETY  not looked up]
  54120:  177777    205 [padding]
  54122:      63  33444 [padding]
  54124:       0     33 [padding]
  54126:  177774      4 
ERRORSET


Basic frame at   54000
  54000:  100000  54000 

Frame xtn at   54002, frame name= CMLEXECA0002A0003A0004
  54002:  140001  53733 [USE= 1, X,  alink]
  54004:   76300     62 [fn header]
  54006:   54062    155 [next, pc]
  54010:  177772     10 [nametable]
  54012:   54000  53732 [blink, clink]
  54014:       0      0 LISPXHIST NIL
  54016:       0      0 RESETY NIL
  54020:       0      0 *local* NIL
  54022:   53512    401 [fvar OUTPUT  on stack]
  54024:   33102   6014 [fvar LISPXHISTORY  top value]
  54026:   53520    401 [fvar *EXEC-ID*  on stack]
  54030:    5136   6014 [fvar LISPXHIST  top value]
  54032:   53256    401 [fvar TOP-LEVEL-P  on stack]
  54034:   53524    401 [fvar *CURRENT-EVENT*  on stack]
  54036:   53226    401 [fvar PROMPT  on stack]
  54040:  101640  26455 [fvar RESETVARSLST 
 non-stack binding]
  54042:  141546   6014 [fvar *EXEC-FONTS*  top value]
  54044:      63  37130 [padding]
  54046:       0     37 [padding]
  54050:      54 122622 ((&) (75 "2/") 
"<not yet evaluated>" *HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  54052:       0    114 T
  54054:      75  13410 {FONTDESCRIPTOR}#75,13410
  54056:  177774      4 
  54060:       0      0 NIL
CMLEXECA0002A0003A0004


Basic frame at   53716
  53702:      16     11 *local* 9
  53704:      16      0 *local* 0
  53706:      16      4 *local* 4
  53710:       0  60677 *local* CMLEXECA0002A0003A0004
  53712:       0      0 *local* NIL
  53714:      54 122402 *local* ((OLD-INTERLISP-ERROR 17 &))
  53716:  100000  53702 

Frame xtn at   53720, frame name= 
\DO.PROGV.SETUP.FRAME.AND.EXECUTE
  53720:  140001  53643 [USE= 1, X,  alink]
  53722:  114664     30 [fn header]
  53724:   54000    332 [next, pc]
  53726:      21   1304 [nametable]
  53730:   53716  53642 [blink, clink]
  53732:      16  53630 *local* 22424
  53734:      16  53660 *local* 22448
  53736:       1  53660 *local* {}#1,53660
  53740:      16      1 *local* 1
  53742:  177777      0 *local* [unbound]
  53744:  177777      7 *local* [unbound]
  53746:  177777     10 *local* [unbound]
  53750:  177777     14 *local* [unbound]
  53752:  177777  53660 *local* [unbound]
  53754:  177777      0 *local* [unbound]
  53756:  177777      0 \INTERRUPTABLE [unbound]
  53760:  177777      0 \INTERRUPTABLE [unbound]
  53762:      57  65754 [padding]
  53764:       0     37 [padding]
  53766:  177773      6 
  53770:      73 173610 {\CODEHUNK28}#73,173610
  53772:       1  53660 {}#1,53660
  53774:       1  53660 {}#1,53660
  53776:       0    114 T
\DO.PROGV.SETUP.FRAME.AND.EXECUTE


Basic frame at   53626
  53620:       0      0 *local* NIL
  53622:      54 122402 *local* ((OLD-INTERLISP-ERROR 17 &))
  53624:       0  60677 *local* CMLEXECA0002A0003A0004
  53626:  100000  53620 

Frame xtn at   53630, frame name= \PROGV
  53630:  141001  53611 [V, USE= 1, X,  alink]
  53632:  173610     73 [fn header]
  53634:   53702    137 [next, pc]
  53636:   53660    401 [nametable]
  53640:   53626  53610 [blink, clink]
  53642:      16      0 [padding]
  53644:      16      4 [padding]
  53646:      16     11 [padding]
  53650:  177777  10120 [padding]
  53652:  177777      0 [padding]
  53654:       0     23 [padding]
  53656:  177774      4 
  53660:       0      0 NIL
  53662:       0      0 NIL
  53664:       0  23034 \PROGV
  53666:       4      0 {}#4,0
  53670:       0      0 NIL
  53672:       0      0 NIL
  53674:       0      0 NIL
  53676:       0      0 NIL
  53700:       0      0 NIL
\PROGV


Basic frame at   53574
  53570:      62  37276 *local* (CMLEXECA0002A0003)
  53572:       0    114 *local* T
  53574:  100000  53570 

Frame xtn at   53576, frame name= ERRORSET
  53576:  140001  53510 [USE= 1,  alink]
  53600:   42240     62 [fn header]
  53602:   53620     64 [next, pc]
  53604:       0  77234 [nametable]
  53606:   53574  53510 [blink, clink]
  53610:   53256    401 [fvar TOP-LEVEL-P  on stack]
  53612:   16760   6014 [fvar *LAST-CONDITION* 
 top value]
  53614:  177775      2 [padding]
  53616:       0     17 [padding]
ERRORSET


Basic frame at   53474
  53474:  100000  53474 

Frame xtn at   53476, frame name= CMLEXECA0002
  53476:  140001  53426 [USE= 1,  alink]
  53500:   40220     62 [fn header]
  53502:   53570    200 [next, pc]
  53504:       0      0 [nametable]
  53506:       0      0 [blink, clink]
  53510:       0  22553 *CURRENT-EXECUTIVE-TYPE* 
COMMON-LISP
  53512:      60  16640 OUTPUT |<Output Stream 60,16640>
  53514:       0      0 *THIS-EXEC-COMMANDS* NIL
  53516:      75  66656 *READTABLE* 
|<ReadTable LISP/75,66656>
  53520:      63  33444 *EXEC-ID* "2/"
  53522:       0      0 #RPARS NIL
  53524:      54 122622 *CURRENT-EVENT* ((&) (75 "2/") 
"<not yet evaluated>" *HISTORY* (CL§§REDO 63) 
*LISPXPRINT* ("
" &) SIDE (-1))
  53526:      74 175716 CL§* #<Package LISP>
  53530:      55 164674 CL§** "21-Oct-86 04:48:43"
  53532:      53 173414 CL§*** (#<Package FASL> #<Package USER> #<Package KEYWORD> #<Package XCL-TEST> #<Package SYSTEM> #<Package LISP> #<Package COMPILER> #<Package INTERLISP> #<Package XEROX-COMMON-LISP>)
  53534:      54 165556 + (CL§IN-PACKAGE (QUOTE LISP))
  53536:       0   6541 CL§++ MAKESYSDATE
  53540:      53 173430 CL§+++ (CL§LIST-ALL-PACKAGES)
  53542:      54 165464 - (LOAD (QUOTE 
CL§§{ERIS}<LISPCORE>LIBRARY>DO-TEST.DCOM))
  53544:      73 122450 / (#<Package LISP>)
  53546:      54 122460 CL§// ("21-Oct-86 04:48:43")
  53550:      53 173412 CL§/// ((#<Package FASL> #<Package USER> #<Package KEYWORD> #<Package XCL-TEST> #<Package SYSTEM> #<Package LISP> #<Package COMPILER> #<Package INTERLISP> #<Package XEROX-COMMON-LISP>))
  53552:   53234    401 [fvar COMMANDS  on stack]
  53554:   53250    401 [fvar READTABLE  on stack]
  53556:  177777     11 [padding]
  53560:  100000  53550 [padding]
  53562:       0     57 [padding]
  53564:  177756     40 
  53566:      63  33444 "2/"
CMLEXECA0002


Basic frame at   53412
  53376:      16     12 *local* 10
  53400:      16      1 *local* 1
  53402:      16      4 *local* 4
  53404:       0  60704 *local* CMLEXECA0002
  53406:      56  41626 *local* (*PACKAGE*)
  53410:       0      0 *local* NIL
  53412:  100000  53376 

Frame xtn at   53414, frame name= 
\DO.PROGV.SETUP.FRAME.AND.EXECUTE
  53414:  140001  53334 [USE= 1,  alink]
  53416:  114664     30 [fn header]
  53420:   53474    332 [next, pc]
  53422:      74 175744 [nametable]
  53424:       0     23 [blink, clink]
  53426:      16  53322 *local* 22226
  53430:      16  53352 *local* 22250
  53432:       1  53354 *local* {}#1,53354
  53434:      16      1 *local* 1
  53436:  177777      0 *local* [unbound]
  53440:  177777     10 *local* [unbound]
  53442:  177777     11 *local* [unbound]
  53444:  177777     15 *local* [unbound]
  53446:  177777  53354 *local* [unbound]
  53450:  177777   4355 *local* [unbound]
  53452:  177777      0 \INTERRUPTABLE [unbound]
  53454:  177777      0 \INTERRUPTABLE [unbound]
  53456:  100000  53446 [padding]
  53460:       0     37 [padding]
  53462:  177773      6 
  53464:      73 173610 {\CODEHUNK28}#73,173610
  53466:       1  53354 {}#1,53354
  53470:       1  53354 {}#1,53354
  53472:       0    114 T
\DO.PROGV.SETUP.FRAME.AND.EXECUTE


Basic frame at   53320
  53312:      56  41626 *local* (*PACKAGE*)
  53314:      67  47374 *local* (#<Package INTERLISP>)
  53316:       0  60704 *local* CMLEXECA0002
  53320:  100000  53312 

Frame xtn at   53322, frame name= \PROGV
  53322:  141001  53220 [V, USE= 1,  alink]
  53324:  173610     73 [fn header]
  53326:   53376    137 [next, pc]
  53330:   53354    401 [nametable]
  53332:      16      2 [blink, clink]
  53334:      16      1 [padding]
  53336:      16      4 [padding]
  53340:      16     12 [padding]
  53342:  177777      0 [padding]
  53344:  177777      2 [padding]
  53346:       0     23 [padding]
  53350:  177774      4 
  53352:      74 175716 #<Package LISP>
  53354:       0      0 NIL
  53356:       0      0 NIL
  53360:       0  23034 \PROGV
  53362:       4      0 {}#4,0
  53364:    4355      0 
  53366:       0      0 NIL
  53370:  100007      0 
  53372:       0      0 NIL
  53374:       0      0 NIL
\PROGV


Basic frame at   53204
  53200:       0  36476 *local* §TOP-LEVEL-P
  53202:       0    114 *local* T
  53204:  100000  53200 

Frame xtn at   53206, frame name= CMLEXEC
  53206:  140001  53150 [USE= 1,  alink]
  53210:   70644     35 [fn header]
  53212:   53312    401 [next, pc]
  53214:      73 164000 [nametable]
  53216:  177777      0 [blink, clink]
  53220:      16      2 *local* 2
  53222:  177777      2 *local* [unbound]
  53224:  177777      3 *local* [unbound]
  53226:      63  42454 PROMPT "> "
  53230:      16      2 *local* 2
  53232:      16      3 *local* 3
  53234:       0      0 COMMANDS NIL
  53236:      16      2 *local* 2
  53240:      16      3 *local* 3
  53242:       0      0 ENVIRONMENT NIL
  53244:      16      2 *local* 2
  53246:      16      3 *local* 3
  53250:      75  66656 READTABLE 
|<ReadTable LISP/75,66656>
  53252:      16      2 *local* 2
  53254:      16      1 *local* 1
  53256:       0    114 TOP-LEVEL-P T
  53260:      16      2 *local* 2
  53262:      16      3 *local* 3
  53264:      16      2 *local* 2
  53266:      16      3 *local* 3
  53270:       0  60645 FUNCTION EVAL-INPUT
  53272:   27642   6014 [fvar *PER-EXEC-VARIABLES* 
 top value]
  53274:  141502   6014 [fvar CMLPROMPT  top value]
  53276:   43014   6014 [fvar CMLRDTBL  top value]
  53300:   52722    401 [padding]
  53302:       0     43 [padding]
  53304:  177776      0 
  53306:  177757     44 
  53310:  177775     50 
CMLEXEC


Basic frame at   53134
  53130:      62  45640 *FORM* (CMLEXEC §TOP-LEVEL-P T)
  53132:       0  60570 *local* CMLEXEC
  53134:  100000  53130 

Frame xtn at   53136, frame name= \EVALFORM
  53136:  140001  53116 [USE= 1,  alink]
  53140:  133254     23 [fn header]
  53142:   53200    375 [next, pc]
  53144:  120000     24 [nametable]
  53146:  130540  36074 [blink, clink]
  53150:  177777    126 *local* [unbound]
  53152:       0      0 *ARGVAL* NIL
  53154:       0      0 *TAIL* NIL
  53156:       0  60570 *FN* CMLEXEC
  53160:  177777  36074 *local* [unbound]
  53162:  177777 177777 *local* [unbound]
  53164:  177777 177777 *local* [unbound]
  53166:  177777      0 [padding]
  53170:  120000      4 [padding]
  53172:       0     33 [padding]
  53174:  177774      6 
  53176:       0   3433 *ARGVAL*
\EVALFORM


Basic frame at   53102
  53100:      66  31154 *local* ((TTYDISPLAYSTREAM &) (
CMLEXEC §TOP-LEVEL-P T) (\PICK.EVALQT))
  53102:  100000  53100 

Frame xtn at   53104, frame name= PROGN
  53104:  140001  53053 [USE= 1, X,  alink]
  53106:  140210     23 [fn header]
  53110:   53130     74 [next, pc]
  53112:  140000  53100 [nametable]
  53114:   53102  53052 [blink, clink]
  53116:      66  31320 *TAIL* ((CMLEXEC §TOP-LEVEL-P T) 
(\PICK.EVALQT))
  53120:  177777 177777 [padding]
  53122:  177777 177777 [padding]
  53124:       0     23 [padding]
  53126:  177776      0 
PROGN


Basic frame at   53036
  53032:      66  31376 *FORM* (PROGN (TTYDISPLAYSTREAM &
) (CMLEXEC §TOP-LEVEL-P T) (\PICK.EVALQT))
  53034:       0   2455 *local* PROGN
  53036:  100000  53032 

Frame xtn at   53040, frame name= \EVALFORM
  53040:  140001  53023 [USE= 1, X,  alink]
  53042:  133254     23 [fn header]
  53044:   53100    152 [next, pc]
  53046:      16      2 [nametable]
  53050:   53036  53022 [blink, clink]
  53052:       0   2455 *local* PROGN
  53054:  177777     17 *ARGVAL* [unbound]
  53056:  177777      0 *TAIL* [unbound]
  53060:  177777  72320 *FN* [unbound]
  53062:  177777   7145 *local* [unbound]
  53064:  177777  53060 *local* [unbound]
  53066:  177777  53046 *local* [unbound]
  53070:  177777     23 [padding]
  53072:   53104     73 [padding]
  53074:       0     33 [padding]
  53076:  177776      0 
\EVALFORM


Basic frame at   53006
  53002:      77  72534 *local* (\MAKE.PROCESS0A0001)
  53004:       0    114 *local* T
  53006:  100000  53002 

Frame xtn at   53010, frame name= ERRORSET
  53010:  140001  52714 [USE= 1,  alink]
  53012:   53320     25 [fn header]
  53014:   53032     42 [next, pc]
  53016:   52744    401 [nametable]
  53020:  177777      0 [blink, clink]
  53022:   52714    401 [fvar #FORM#  on stack]
  53024:  177777     17 [padding]
  53026:      75  72320 [padding]
  53030:       0     17 [padding]
ERRORSET


Basic frame at   52700
  52674:      66  31376 *local* (PROGN (TTYDISPLAYSTREAM &) (CMLEXEC §TOP-LEVEL-P T) (\PICK.EVALQT))
  52676:      55 101600 *local* {PROCESS}#55,101600
  52700:  100000  52674 

Frame xtn at   52702, frame name= \MAKE.PROCESS0
  52702:  140001  14015 [USE= 1, X,  alink]
  52704:   53400     25 [fn header]
  52706:   53002    533 [next, pc]
  52710:       0      0 [nametable]
  52712:   52700  14014 [blink, clink]
  52714:      66  31376 #FORM# (PROGN (TTYDISPLAYSTREAM &
) (CMLEXEC §TOP-LEVEL-P T) (\PICK.EVALQT))
  52716:       0   1500 HELPFLAG BREAK!
  52720:      16     72 \CURRENTDISPLAYLINE 58
  52722:      16     76 \#DISPLAYLINES 62
  52724:      66 174064 \LINEBUF.OFD 
|<IO Stream 66,174064>
  52726:      75  66726 *READTABLE* 
|<ReadTable INTERLISP/75,66726>
  52730:      75  61740 \PRIMTERMTABLE {TERMTABLEP}#75,
61740
  52732:      75  62000 \PRIMTERMSA {CHARTABLE}#75,62000
  52734:      60   4064 TtyDisplayStream 
|<Output Stream 60,4064>
  52736:       0    114 \INTERRUPTABLE T
  52740:       0      0 \TTYWINDOW NIL
  52742:       0      0 READBUF NIL
  52744:      60   4064 \TERM.OFD 
|<Output Stream 60,4064>
  52746:      60   4064 \PRIMO