(FILECREATED "13-Aug-86 20:42:52" ("compiled on " {ERIS}LIBRARY>CMLSTEP.;25) "13-Aug-86 19:21:02" tcompl'd in "Xerox Lisp 4-Aug-86 ..." dated " 4-Aug-86 22:17:52") (FILECREATED "13-Aug-86 20:41:37" {ERIS}LIBRARY>CMLSTEP.;25 82765 changes to: (VARS CMLSTEPCOMS) (FNS %%STEP-SPREADAPPLY* %%STEP-SPREADAPPLY %%STEP-.EVALFORM. %%STEP-PROG1 %%STEP-SETQ %%STEP-\EVPROGN %%STEP-COND %%STEP-PROGN %%STEP-OR %%STEP-AND %%STEP-RETURN %%STEP-GO %%STEP-\PROG0 %%STEP-PROG %%STEP-\EVALFORM %%STEP-AWAKEN %%STEP-BREAK-INTERRUPT CL:EVALHOOK APPLYHOOK %%STEP-EVALQT %%STEP-EVAL) (MACROS .STEP-EVALFORM.) previous date: "13-Aug-86 17:34:00" {ERIS}LIBRARY>CMLSTEP.;23) %%STEP-AWAKEN D1 (P 1 STEPMENUWINDOW P 0 STEPMAINWINDOW F 2 %%*STEP-STATE* F 3 %%*STEP-INDENTATION-LEVEL* F 4 \TERM.OFD F 5 %%STEP-MENU) c icjcT Xdg Hg YHgg I Hg UHgg YHgI IgH g h(137Q %%STEP-READ-EVAL-PRINT 133Q STKPOS 125Q PUTWINDOWPROP 115Q PUTWINDOWPROP 103Q ATTACHMENU 66Q GETWINDOWUSERPROP 55Q OPENW 50Q ATTACHWINDOW 35Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 14Q WFROMDS) (130Q %%STEP-READ-EVAL-PRINT 121Q STEPMAINWINDOW 111Q STEPMENUWINDOW 100Q TOP 75Q RIGHT 63Q STEPMENUWINDOW 45Q TOP 42Q RIGHT 32Q STEPMENUWINDOW 21Q STEPMENUWINDOW) () %%STEP-CLOSE D1 (P 1 STEPMENUWINDOW P 0 STEPMAINWINDOW F 2 %%*STEP-STATE* F 3 *EVALHOOK* F 4 \TERM.OFD) ' hcdcT Xdg Yd I g h(43Q RETFROM 35Q CLOSEW 31Q DETACHWINDOW 24Q GETWINDOWUSERPROP 14Q WFROMDS) (40Q %%STEP-READ-EVAL-PRINT 21Q STEPMENUWINDOW) () %%STEP-ABORT D1 (F 0 %%*STEP-STATE* F 1 *EVALHOOK*) hcdcNIL NIL () %%STEP-SLEEP D1 (L (0 FUNCTIONS) F 0 %%*STEP-STATE* F 1 *EVALHOOK* F 2 %%*STEP-INDENTATION-LEVEL*) @jcgcjchNIL (10Q %%STEP-COMMAND-LOOP) () %%STEP-STEP-FORM D1 (P 0 RESULTS I 1 ENVIRONMENT I 0 FORM) @ghA H H (26Q VALUES-LIST 22Q %%STEP-PRINT-VALUES 13Q \MVLIST 10Q CL:EVALHOOK) (3 %%STEP-COMMAND-LOOP) () %%STEP-EVAL-FORM D1 (P 0 RESULTS I 1 ENVIRONMENT I 0 FORM) @hdA H H (24Q VALUES-LIST 20Q %%STEP-PRINT-VALUES 11Q \MVLIST 6 CL:EVALHOOK) NIL () %%STEP-PRINT D1 (P 2 I P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* I 0 FORM F 3 *STANDARD-OUTPUT* F 4 %%*STEP-PRINT-LEVEL* F 5 %%*STEP-PRINT-LENGTH* F 6 %%*STEP-INDENTATION-LEVEL* F 7 %%*STEP-MAX-INDENTATION*) TUVW S JS @S (30Q CL:PRIN1 23Q SPACES 16Q FRESHLINE 7 MIN) NIL () %%STEP-PRINT-VALUES D1 (P 2 VALUE P 1 *PRINT-LENGTH P 0 *PRINT-LEVEL I 0 VALUE-LIST F 3 *STANDARD-OUTPUT* F 4 %%*STEP-PRINT-LEVEL* F 5 %%*STEP-PRINT-LENGTH*) 5S @ TU@ doS JS hS h(61Q TERPRI 46Q CL:PRIN1 40Q PRINC 22Q %%STEP-PRINT 3 FRESHLINE) NIL ( 34Q " ") %%STEP-COMMAND-LOOP D1 (P 6 SYSPRETTYFLG P 5 A0064 P 4 TEMP P 2 %%*STEP-INDENTATION-LEVEL* I 1 ENVIRONMENT I 0 FORM F 7 *STANDARD-OUTPUT* F 10Q %%*STEP-STATE* F 11Q %%*STEP-INDENTATION-LEVEL*) @W @hdA i@d"WY;hWk@dl -@ oW @hdA W W H:II@ Mdgg(Mdg&@ h@A [bK\@A g@A Mdg@hdA gW @W MdgW i@W lgo W Mdgg gh h@ghA (475Q CL:EVALHOOK 462Q \DO-THROW 457Q \MVLIST 441Q %%STEP-RETURN 424Q TERPRI 416Q CL:BREAK 375Q %%STEP-PRINT 362Q FRESHLINE 341Q %%STEP-PRINT 332Q FRESHLINE 317Q CL:EVALHOOK 307Q %%STEP-ABORT 273Q %%STEP-EVAL-FORM 260Q %%STEP-STEP-FORM 236Q \MVLIST 233Q MACROEXPAND 223Q SPECIAL-FORM-P 174Q %%STEP-ABORT 156Q %%STEP-BREAK-LOOP 150Q %%STEP-PRINT 127Q TERPRI 122Q CL:PRIN1 115Q CL:EVALHOOK 106Q PRINC 75Q %%STEP-PRINT 67Q CONSTANTP 12Q CL:EVALHOOK) (470Q %%STEP-COMMAND-LOOP 453Q TOP-LEVEL-CATCHER 445Q ^ 433Q RETURN 405Q BREAK 351Q PPRINT 323Q PRINT 301Q FINISH 264Q SKIP 212Q MACRO 202Q STEP 166Q ABORT) ( 413Q "Step" 101Q " = ") %%STEP-BREAK-LOOP D1 (I 0 ANSWER) g (5 EVALQT) (2 :) () %%STEP-BREAK-INTERRUPT D1 (I 0 COMMAND) g g@ h(16Q RETFROM 5 STKPOS) (12Q %%STEP-BREAK-LOOP 2 %%STEP-BREAK-LOOP) () %%STEP-PARSE-FUNCTIONS D1 (P 2 FN P 1 NON-FUNCTIONS P 0 FUNCTIONS I 0 LIST F 3 *ERROR-OUTPUT*) 2 @dJdl JHJIISoI H(56Q FORMAT 24Q FBOUNDP) NIL ( 52Q "Non-functions ignored - ~S") %%STEP D1 (P 0 FUNCTIONS I 0 FORMS) =@oi@o` h@il@ H H@ (72Q TOY.EVAL 63Q %%STEP-SLEEP 54Q %%STEP-PARSE-FUNCTIONS 40Q %%STEP-SLEEP 30Q %%STEP-ABORT 11Q %%STEP-AWAKEN) (25Q \TTY.PROCESS) ( 20Q (NIL) 4 (T)) STEP D1 (P 0 $EXPR$) +eHk2JdIK aL Mh\JkZM&(23Q %%STEP) NIL () %%STEP-INIT D1 (F 2 %%STEP-MENU) C`dododgdg dgjdndhHdI chNIL (45Q DEFAULTMENUHELDFN 36Q CLRPROMPT 27Q %%STEP-WHENSELECTEDFN 2 MENUTYPE#) ( 20Q ((AWAKEN NIL "Turn stepping on.") (CLOSE NIL "Turn stepping off. Close this menu.") (ABORT NIL "Abort stepping mode.") (STEP NIL "Evaluate current expression in step mode.") (SKIP NIL "Evaluate current expression without stepping.") (MACRO NIL "Step macroexpansion.") (FINISH NIL "Finish evaluation, but without stepping.") (PRINT NIL "Print current expression.") (PPRINT NIL "Pretty-print current expression.") (BREAK NIL "Enter break loop.") (EVAL NIL "Evaluate an arbitrary expression in current environment.") (RETURN NIL "Prompt for value to return as result of current exp.") (^ NIL "Throw to top level.")) 10Q "STEPPER") %%STEP-WHENSELECTEDFN D1 (P 0 COMMAND I 2 BUTTON I 1 MENU I 0 ITEM) 6@X`HdgghgghggHhh h(62Q PROCESS.EVAL) (50Q QUOTE 45Q %%STEP-BREAK-INTERRUPT 37Q %%STEP-CLOSE 32Q CLOSE 23Q %%STEP-AWAKEN 15Q AWAKEN 10Q \TTY.PROCESS) () CL:EVALHOOK D1 (P 3 *SKIP-APPLYHOOK* P 2 *APPLYHOOK* P 1 *SKIP-EVALHOOK* P 0 *EVALHOOK* I 3 ENV I 2 APPLYHOOKFN I 1 EVALHOOKFN I 0 FORM) AiB@ (11Q %%STEP-EVAL) NIL () APPLYHOOK D1 (P 3 *SKIP-EVALHOOK* P 2 *SKIP-APPLYHOOK* P 1 *APPLYHOOK* P 0 *EVALHOOK* I 4 ENV I 3 APPLYHOOKFN I 2 EVALHOOKFN I 1 ARGS I 0 FUNCTION) BCi@A (12Q %%STEP-APPLY) NIL () %%STEP-LISPXA0002 D1 (NAME ERRORSET P 0 X F 1 EDITQUIETFLG F 2 LISPZ F 3 LISPY F 4 LISPXTEM) 8icR+dSHi Hi Tioghdi hh(54Q MAPRINT 33Q LISPXPRIN1 24Q HISTORYMATCH 21Q EDITFPAT) (45Q % ) ( 42Q " does not appear in ") %%STEP-LISPXA0003 D1 (NAME ERRORSET F 0 READBUF F 1 LISPY F 2 LISPXHIST F 3 LISPXID) !hcQR P chhid S (35Q %%STEP-LISPX 31Q LISPXREAD 15Q LISPXREADBUF 10Q LISPXUNREAD) NIL () %%STEP-LISPX D1 (P 23Q TAIL P 22Q X P 21Q MACROY P 20Q MACROX P 17Q LISPXLINE P 16Q X P 13Q LISPXVALUES P 12Q DONTSAVEFLG P 11Q LISPXTEM P 10Q LISPXVALUE P 7 LISPZ P 6 LISPY P 5 LISPXLINE P 4 LISPXLISTFLG P 3 LISPXOP P 2 HELPFLAG P 1 LISPXHIST P 0 HELPCLOCK I 4 LISPXFLG I 3 LISPXXUSERFN I 2 LISPXXMACROS I 1 LISPXID I 0 LISPXX F 24Q RESETVARSLST F 25Q REREADFLG F 26Q ARCHIVELST F 27Q LISPXCOMS F 30Q ADDSPELLFLG F 31Q EDITQUIETFLG F 32Q HISTSTR2 F 33Q READBUF F 34Q LISPXMACROS F 35Q LISPXUSERFN F 36Q LISPXHIST F 37Q HISTSTR0 F 40Q HELPFLAG F 41Q LISPXHISTORYMACROS F 42Q MACROPROPS F 43Q HISTORYCOMS F 44Q CLISPFLG F 45Q CLISPCHARS F 46Q IT F 47Q REDOCNT) BW8bCW:g gbl W@@i=W*i _gi Ogi i@hi ]Mb@dlaW*`_gO _gKB^LhNh_KWB^ Kdgh_g6M[bM]Kg ^MAgAg^K XKgNKgGKg@Kg9Kg2Kg+Kg$KgKgKgKgKdgLG@hDgKdgM!gKdg`AhKM YgM gKdgW*ggMqgKdg OdN ONNN_IgOh MhOhhO)NdKNA N MhNhNh ^W*W4NmcNIINKgWDOgW6W(c(W(_"og O c6O"dW(O c(W( W(kO" O NI I(4421Q LISPXUNREAD 4411Q ERROR! 4400Q NLEFT 4367Q TAILP 4334Q %%STEP-LISPXA0003 4237Q LISPXUSE0 4217Q \APPEND2 4205Q %%STEP-EVAL 4143Q \NCONC2 4076Q LISPXGETINPUT 4043Q LISPXFIND 4022Q MEMB 4005Q MEMB 3772Q MEMB 3762Q LISPXFIND 3746Q ERROR 3716Q LISPXUSE 3666Q LISPXFIX 3654Q %%STEP-APPLY* 3645Q GETSTREAM 3641Q STREAMPROP 3633Q GETSTREAM 3625Q STREAMPROP 3617Q GETSTREAM 3612Q COPY 3607Q LISPXFIND 3576Q LDIFF 3514Q \APPEND2 3507Q COPY 3474Q LISPXFIND 3410Q LDIFF 3366Q NLEFT 3267Q FNCHECK 3252Q BOUNDP 3225Q LDIFF 3177Q NLEFT 3043Q PRINT 3033Q MAPRINT 3003Q \DEFINEDP 2775Q /SETATOMVAL 2772Q UNION 2755Q /SETATOMVAL 2752Q UNION 2735Q /REMPROP 2724Q /PUT 2717Q LISPXFIND 2703Q \APPEND2 2666Q ERROR! 2655Q NLEFT 2644Q TAILP 2611Q %%STEP-LISPXA0002 2553Q LISPXFIND 2524Q LDIFF 2430Q \APPEND2 2425Q LISPXFIND 2365Q LISPXUSEC 2346Q \APPEND2 2331Q HISTORYSAVE 2266Q VALUES-LIST 2254Q SHOWPRINT 2230Q LISPXSTOREVALUE 2210Q \MVLIST 2205Q %%STEP-APPLY 2201Q LISPX/ 2173Q LISPX/ 2166Q %%STEP-EVAL 2162Q LISPX/ 2153Q PRINT 2143Q PRIN1 2126Q ARGTYPE 2115Q ARGTYPE 2072Q NTHCHAR 2026Q %%STEP-EVAL 2022Q LISPX/ 1747Q %%STEP-EVAL 1727Q NLAMBDA.ARGS 1670Q HISTORYSAVE 1647Q FIXSPELL 1633Q GETLIS 1613Q ADDSPELL 1600Q \DEFINEDP 1533Q FIXSPELL 1510Q ADDSPELL 1475Q BOUNDP 1446Q FIXSPELL 1412Q ADDSPELL 1376Q GETLIS 1364Q GETLIS 1353Q \DEFINEDP 1311Q LISPXREAD 1264Q ERROR 1242Q PRINT 1227Q FLENGTH 1211Q \NCONC2 1201Q LISPXFIND 1163Q PRINT 1146Q ERROR! 1107Q PRINTHISTORY 1056Q ERROR! 1033Q PRINT 1016Q UNDOLISPX2 774Q LISPXFIND 757Q ERROR! 716Q ERROR! 662Q UNDOLISPX 645Q HISTORYSAVE 426Q BOUNDP 373Q GETPROP 251Q MEMB 203Q READLINE 171Q SYNTAXP 156Q SYNTAXP 145Q CHCON1 142Q LASTC 104Q READLINE 70Q PRINT 56Q GETTOPVAL 35Q CLOCK 21Q \DEFINEDP) (4331Q INTERNAL 4302Q READBUF 4271Q NAME 4133Q ...ARGS 4037Q INPUT 4033Q LISPXHISTORY 4016Q *HISTORY* 4001Q USE-ARGS 3766Q ...ARGS 3756Q ENTRY 3752Q LISPXHISTORY 3742Q  3724Q ... 3712Q LISPXHISTORY 3703Q use 3674Q USE 3636Q FIXFN 3622Q FIXFN 3603Q INPUT 3563Q - 3560Q LISPXHISTORY 3551Q fix 3542Q FIX 3501Q * 3470Q INPUT 3464Q LISPXHISTORY 3455Q repeat 3446Q REPEAT 3377Q F 3346Q times 3340Q TIMES 3321Q NOT 3314Q until 3304Q UNTIL 3205Q F 3153Q until 3145Q while 3137Q UNTIL 3130Q WHILE 3076Q repeat 3067Q REPEAT 3060Q redo 3051Q REDO 3024Q % 2761Q HISTORYCOMS 2741Q LISPXCOMS 2732Q STATE 2713Q COPIES 2706Q LISPXHISTORY 2675Q *HISTORY* 2606Q INTERNAL 2557Q EDITQUIETFLG 2547Q INPUT 2542Q LISPXHISTORY 2475Q in 2466Q IN 2457Q : 2446Q NAME 2437Q name 2421Q INPUT 2415Q LISPXHISTORY 2412Q RETRY: 2403Q RETRY 2374Q retry 2362Q LISPXHISTORY 2354Q  2337Q ORIGINAL 2317Q *GROUP* 2313Q *HISTORY* 2304Q LISPXHISTORY 2077Q - 1660Q LISPXHISTORY 1621Q DWIMFLG 1516Q DWIMFLG 1430Q DWIMFLG 1300Q LAMBDA 1235Q archived 1176Q COPIES 1172Q LISPXHISTORY 1141Q ABORT 1126Q ARCHIVE 1117Q archive 1077Q LISPXHISTORY 1064Q @@ 1051Q ABORT 1041Q ?? 1026Q forgotten 1001Q LISPXHISTORY 771Q ENTRIES 765Q LISPXHISTORY 752Q ABORT 741Q FORGET 732Q forget 722Q BREAK! 711Q ABORT 700Q RETRY: 671Q retry: 653Q  635Q LISPXHISTORY 626Q undo 617Q UNDO 603Q NAME 574Q name 553Q retry 544Q fix 536Q use 527Q repeat 520Q redo 511Q  502Q ... 473Q USE 464Q FIX 455Q REPEAT 446Q REDO 437Q RETRY 417Q : 411Q _ 370Q *HISTORY* 344Q E 323Q ORIGINAL 261Q ORIGINAL 244Q *HISTORY* 234Q LISPXHISTORY 165Q RIGHTBRACKET 152Q RIGHTPAREN 53Q HELPFLAG 45Q BREAK! 25Q LISPXUSERFN 16Q LISPXUSERFN) ( 4326Q (%%STEP-LISPXA0003) 3737Q "... what??" 3021Q "****Note: " 3013Q (is also the name of a function. When typed in, its interpretation as a history command will take precedence.) 2603Q (%%STEP-LISPXA0002) 2137Q " = " 1630Q (EXPR FILEDEF) 1373Q (EXPR FILEDEF CLISPWORD) 1261Q "doesn't take any arguments" 1157Q (no archive list)) %%STEP-EVALQTA0001 D1 (NAME ERRORSET P 0 *EVALHOOK* F 1 LISPXID) gid Q i(16Q %%STEP-LISPX 12Q LISPXREAD) (2 %%STEP-COMMAND-LOOP) () %%STEP-EVALQT D1 (I 0 LISPXID F 0 TOPLISPXBUFS) 8@gbi @i` oi i Pci (64Q %%STEP-AWAKEN 60Q TERPRI 46Q CLBUFS 41Q %%STEP-EVALQTA0001 30Q PROMPTCHAR 17Q FRESHLINE 12Q ENTEREVALQT) (25Q LISPXHISTORY 4 _) ( 35Q (%%STEP-EVALQTA0001)) %%STEP-READ-EVAL-PRINT D1 NIL g (5 %%STEP-EVALQT) (2 <) () %%STEP-SPREADAPPLY* D1 (P 0 ANSWER I 1 TAIL I 0 FN) %@ bdld jAk@hi (42Q BREAK1 6 %%STEP-FN) NIL () %%STEP-SPREADAPPLY D1 (P 1 DEF P 0 ANSWER I 1 TAIL I 0 FN) @@ bddl-d j!jAdJkZnhl4 J@@ gIggggIhggghhh0A#d[ddi3 gKhMLh^L&N  (241Q EVAL 235Q \APPEND2 76Q GETD 63Q \LISPERROR 6 %%STEP-FN) (204Q QUOTE 140Q FORM 135Q %%STEP-EVAL 132Q do 121Q QUOTE 116Q in 113Q FORM 110Q for 102Q LAMBDA) () %%STEP-.EVALFORM. D1 (P 3 ELEMENT I 1 TAIL I 0 FN) '@ @Ad[ IHhZH&J (44Q %%STEP-APPLY 17Q %%STEP-EVAL 3 %%STEP-FN) NIL () %%STEP-APPLY* D1 (P 1 DEF P 0 U) [eHjkaIdl7I jI !l^I Ydgdg$b ]IIHl2KdJ¿L dgIYdg)I(I"kaHl2 OdOO gHdkka lkala Hdlkalala lkalalala kaHl2OdOO a_ OO h__Ok_O &_aMNh]Kk[,N&a_OOh__Ok_FO&_(377Q %%STEP-SPREADAPPLY 350Q %%STEP-SPREADAPPLY* 325Q %%STEP-SPREADAPPLY* 302Q %%STEP-SPREADAPPLY* 265Q %%STEP-SPREADAPPLY* 243Q %%STEP-SPREADAPPLY* 150Q FAULTAPPLY 115Q CCODEP) (247Q OPENLAMBDA 172Q NLAMBDA 155Q FUNARG 104Q CL:LAMBDA 76Q LAMBDA) () %%STEP-APPLY D1 (P 0 DEF I 2 \INTERNAL I 1 V I 0 U) `@HdlH j&H X3HdgH+H&@A H !lgHXH@A @A (135Q %%STEP-SPREADAPPLY 127Q FAULTAPPLY 71Q %%STEP-SPREADAPPLY*) (110Q FUNARG 45Q NLAMBDA) () %%STEP-\EVALFORM D1 (I 1 TEMP I 0 FORM) @bdl, jA !dk𒿰@l@@ A bd`@@ l4AdgAbA@@ dgdgdg¿`@` b@ bm(220Q FAULTEVAL 207Q GETHASH 145Q %%STEP-SPREADAPPLY 103Q %%STEP-.EVALFORM. 54Q %%STEP-SPREADAPPLY*) (204Q CLISPARRAY 177Q CLISPARRAY 170Q OPENLAMBDA 161Q LAMBDA 152Q CL:LAMBDA 120Q NLAMBDA 71Q CLOSURETYPE#) () %%STEP-\EVAL D1 (I 0 FORM) @d l@ @d3 (32Q \EVALOTHER 20Q \EVALVAR 6 %%STEP-\EVALFORM) NIL () %%STEP-EVAL D1 (P 1 *EVALHOOK* P 0 HOOKFN I 1 \INTERNAL I 0 U F 2 *EVALHOOK* F 3 *SKIP-EVALHOOK*) RShhcRH@ @ (30Q %%STEP-\EVAL 23Q %%STEP-APPLY*) NIL () %%STEP-PROG1 D1 (P 0 *TAIL* I 0 U) @@H HX (27Q %%STEP-EVAL 14Q %%STEP-EVAL) NIL () %%STEP-SETQ D1 (P 0 *TAIL* I 0 U) #@@H o H  (40Q \SETVAR 31Q %%STEP-EVAL 22Q %%STEP-SETQ 13Q %%STEP-EVAL) NIL ( 17Q (*TAIL* (CDR *TAIL*))) %%STEP-\EVPROGN D1 (I 0 *TAIL*) @@ @b@ (23Q %%STEP-EVAL 7 %%STEP-EVAL) NIL () %%STEP-COND D1 (P 1 VAL P 0 *TAIL* I 0 U) +@H Hdl  YHH IHX(41Q %%STEP-\EVPROGN 25Q %%STEP-EVAL 17Q \LISPERROR) NIL () %%STEP-PROGN D1 (P 0 *TAIL* I 0 U) @@HdH  HX(27Q %%STEP-EVAL 22Q %%STEP-EVAL) NIL () %%STEP-OR D1 (P 0 *TAIL* I 0 U) @@HH o (30Q %%STEP-OR 20Q %%STEP-EVAL) NIL ( 25Q ((%%STEP-EVAL (CAR *TAIL*)) (PROGN (SETQ *TAIL* (CDR *TAIL*)) (GO LP)))) %%STEP-AND D1 (P 0 *TAIL* I 0 U) "@h@HdH  HX(31Q %%STEP-EVAL 24Q %%STEP-EVAL) NIL () %%STEP-RETURN D1 (L (0 FORM)) ~@ fkI`jkIkIkIkIg&kIjkIkI l ٹhId H kIjkIkI l Yjhl h(172Q \LISPERROR 127Q VALUES-LIST 122Q \SMASHLINK 6 \MVLIST 3 %%STEP-EVAL) (61Q %%STEP-\PROG0) () %%STEP-GO D1 (P 3 FIRSTARG P 2 GOTAIL P 1 LABEL P 0 FRAME I 0 U) f@"kH`jkHkHkHkHg6IkddHjHlلkH[ZkKlJhHd hkHjkHkH l XjIl h(204Q \LISPERROR 140Q \SMASHLINK) (53Q %%STEP-\PROG0) () %%STEP-\PROG0 D1 (P 16Q \INTERRUPTABLE P 15Q VAR P 14Q NT2 P 13Q NT1 P 12Q VAR# P 10Q \INTERRUPTABLE P 7 VAR P 6 VALUEOFF P 3 NILSTART P 2 NT P 1 HEADER P 0 PROGFRAME I 5 VARLST I 4 NTSIZE I 3 NVARS I 2 NNILS I 1 *TAIL* I 0 *FIRSTTAIL*) EfAkHkHѹkdHB[ClmѺEKMsEKHl lDl OwJl glǿJgJDkHj0JҼkHLkHLkHJkHk`kjhAbda_`NO MNlԾp_JOOdJOOnO_Ok_Ok_Ok_I (413Q %%STEP-EVAL 264Q \EVPROG1) (323Q LITATOM 254Q \STACKSPACE 141Q %%STEP-PROG 127Q %%STEP-PROG) () %%STEP-PROG D1 (I 0 U) o (6 %%STEP-PROG) NIL ( 3 (((NVARS 0) (VARLST (CAR U)) NTSIZE NNILS) (for VAR in VARLST do (* Count number of vars to bind, check validity) (COND ((OR (NULL (\DTEST (COND ((LISTP VAR) (SETQ VAR (CAR VAR))) (T VAR)) (QUOTE LITATOM))) (EQ VAR T)) (LISPERROR "ATTEMPT TO BIND NIL OR T" VAR))) (add NVARS 1)) (RETURN (.CALLAFTERPUSHINGNILS. (SETQ NNILS (IPLUS NVARS (SETQ NTSIZE (CEIL (ADD1 NVARS) WORDSPERQUAD)) (FOLDHI (fetch (FNHEADER OVERHEADWORDS) of T) WORDSPERCELL) (SUB1 CELLSPERQUAD))) (%%STEP-\PROG0 U U NNILS NVARS NTSIZE VARLST))))) HOOK D1 (P 0 *EVALHOOK* I 0 X) g@ (11Q %%STEP-EVAL) (2 EVAL-HOOK-FUNCTION) () EVAL-HOOK-FUNCTION D1 (P 1 VALUES P 0 *HOOKLEVEL* I 1 ENVIRONMENT I 0 FORM F 2 *TRACE-OUTPUT* F 3 *HOOKLEVEL*) 5SkRoHl@ @ghA RoHlI I (62Q VALUES-LIST 56Q FORMAT 36Q \MVLIST 33Q CL:EVALHOOK 22Q FORMAT) (26Q EVAL-HOOK-FUNCTION) ( 46Q "~%%~V@TValue: ~S" 12Q "~%%~V@TForm: ~S") HOOK-TEST D1 NIL o (6 HOOK) NIL ( 3 (CONS (CL:FLOOR *PRINT-BASE* 3) (QUOTE B))) (PRETTYCOMPRINT CMLSTEPCOMS) (RPAQQ CMLSTEPCOMS ((* * CMLSTEP -- Single Stepper STEP -- By Kelly Roach *) (INITVARS ( %%*STEP-PRINT-LEVEL* 4) (%%*STEP-PRINT-LENGTH* 5) (%%*STEP-MAX-INDENTATION* 40) (%%*STEP-STATE* NIL) ( %%*STEP-INDENTATION-LEVEL* 0)) (FNS %%STEP-AWAKEN %%STEP-CLOSE %%STEP-ABORT %%STEP-SLEEP %%STEP-STEP-FORM %%STEP-EVAL-FORM) (FNS %%STEP-PRINT %%STEP-PRINT-VALUES %%STEP-COMMAND-LOOP %%STEP-BREAK-LOOP %%STEP-BREAK-INTERRUPT %%STEP-PARSE-FUNCTIONS %%STEP STEP) (FNS %%STEP-INIT %%STEP-WHENSELECTEDFN) (P (%%STEP-INIT)) (COMS (* This is all stuff that should be eliminated once the real EVALHOOK mechanism is implemented. *) (INITVARS (*EVALHOOK* NIL) (*SKIP-EVALHOOK* NIL) ( *APPLYHOOK* NIL) (*SKIP-APPLYHOOK* NIL)) (FNS CL:EVALHOOK APPLYHOOK) (FNS %%STEP-LISPX %%STEP-EVALQT %%STEP-READ-EVAL-PRINT) (FNS %%STEP-SPREADAPPLY* %%STEP-SPREADAPPLY %%STEP-.EVALFORM. %%STEP-APPLY* %%STEP-APPLY %%STEP-\EVALFORM %%STEP-\EVAL %%STEP-EVAL) (FNS %%STEP-PROG1 %%STEP-SETQ %%STEP-\EVPROGN %%STEP-COND %%STEP-PROGN %%STEP-OR %%STEP-AND %%STEP-RETURN %%STEP-GO %%STEP-\PROG0 %%STEP-PROG) (* See example on page 323 *) (INITVARS (*HOOKLEVEL* 0)) (FNS HOOK EVAL-HOOK-FUNCTION HOOK-TEST)) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA %%STEP-APPLY* STEP))))) (RPAQ? %%*STEP-PRINT-LEVEL* 4) (RPAQ? %%*STEP-PRINT-LENGTH* 5) (RPAQ? %%*STEP-MAX-INDENTATION* 40) (RPAQ? %%*STEP-STATE* NIL) (RPAQ? %%*STEP-INDENTATION-LEVEL* 0) (%%STEP-INIT) (RPAQ? *EVALHOOK* NIL) (RPAQ? *SKIP-EVALHOOK* NIL) (RPAQ? *APPLYHOOK* NIL) (RPAQ? *SKIP-APPLYHOOK* NIL) (RPAQ? *HOOKLEVEL* 0) (PRETTYCOMPRINT CMLSTEPCOMS) (RPAQQ CMLSTEPCOMS ((* * CMLSTEP -- Single Stepper STEP -- By Kelly Roach *) (INITVARS ( %%*STEP-PRINT-LEVEL* 4) (%%*STEP-PRINT-LENGTH* 5) (%%*STEP-MAX-INDENTATION* 40) (%%*STEP-STATE* NIL) ( %%*STEP-INDENTATION-LEVEL* 0)) (FNS %%STEP-AWAKEN %%STEP-CLOSE %%STEP-ABORT %%STEP-SLEEP %%STEP-STEP-FORM %%STEP-EVAL-FORM) (FNS %%STEP-PRINT %%STEP-PRINT-VALUES %%STEP-COMMAND-LOOP %%STEP-BREAK-LOOP %%STEP-BREAK-INTERRUPT %%STEP-PARSE-FUNCTIONS %%STEP STEP) (FNS %%STEP-INIT %%STEP-WHENSELECTEDFN) (P (%%STEP-INIT)) (COMS (* This is all stuff that should be eliminated once the real EVALHOOK mechanism is implemented. *) (INITVARS (*EVALHOOK* NIL) (*SKIP-EVALHOOK* NIL) ( *APPLYHOOK* NIL) (*SKIP-APPLYHOOK* NIL)) (FNS CL:EVALHOOK APPLYHOOK) (FNS %%STEP-LISPX %%STEP-EVALQT %%STEP-READ-EVAL-PRINT) (FNS %%STEP-SPREADAPPLY* %%STEP-SPREADAPPLY %%STEP-.EVALFORM. %%STEP-APPLY* %%STEP-APPLY %%STEP-\EVALFORM %%STEP-\EVAL %%STEP-EVAL) (FNS %%STEP-PROG1 %%STEP-SETQ %%STEP-\EVPROGN %%STEP-COND %%STEP-PROGN %%STEP-OR %%STEP-AND %%STEP-RETURN %%STEP-GO %%STEP-\PROG0 %%STEP-PROG) (* See example on page 323 *) (INITVARS (*HOOKLEVEL* 0)) (FNS HOOK EVAL-HOOK-FUNCTION HOOK-TEST)) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA %%STEP-PROG %%STEP-GO %%STEP-AND %%STEP-OR %%STEP-PROGN %%STEP-COND %%STEP-SETQ %%STEP-PROG1) (NLAML %%STEP-RETURN) (LAMA %%STEP-APPLY* STEP))))) (PUTPROPS CMLSTEP COPYRIGHT ("Xerox Corporation" 1986)) NIL