(FILECREATED "12-Aug-86 23:12:01" ("compiled on " {ERIS}LISPCORE>CMLSTEP.;8) " 4-Aug-86 17:43:14" tcompl'd in "Xerox Lisp 4-Aug-86 ..." dated " 4-Aug-86 22:17:52") (FILECREATED "12-Aug-86 23:10:51" {ERIS}LISPCORE>CMLSTEP.;8 65285 changes to: (FNS %%STEP-ABORT %%STEP-STEP-FORM %%STEP-PRINT %%STEP-PRINT-VALUES %%STEP-COMMAND-LOOP %%STEP-WHENSELECTEDFN %%STEP-BREAK-LOOP %%STEP-EVAL %%STEP-SPREADAPPLY CL:EVALHOOK APPLYHOOK %%STEP-SPREADAPPLY* HOOK EVAL-HOOK-FUNCTION HOOK-TEST %%STEP-.EVALFORM. %%STEP-APPLY* %%STEP-APPLY %%STEP-\EVALFORM %%STEP-\EVAL %%STEP-AWAKEN %%STEP %%STEP-LISPX %%STEP-EVALQT %%STEP-READ-EVAL-PRINT %%STEP-INIT %%STEP-SLEEP %%STEP-EVAL-FORM %%STEP-PARSE-FUNCTIONS STEP) (VARS CMLSTEPCOMS) previous date: "12-Aug-86 16:32:17" {ERIS}LISPCORE>CMLSTEP.;1) %%STEP-AWAKEN D1 (P 1 STEPMENUWINDOW P 0 STEPMAINWINDOW F 2 %%*STEP-STATE* F 3 *EVALHOOK* F 4 %%STEP-MENU F 5 %%*STEP-INDENTATION-LEVEL* F 6 \TERM.OFD) a icgcjc V Xdg ²Hg YHgg¿I °Hg µ THggY¿HgIIgHh(135Q %%STEP-READ-EVAL-PRINT 132Q PUTWINDOWPROP 122Q PUTWINDOWPROP 110Q ATTACHMENU 73Q GETWINDOWUSERPROP 62Q OPENW 55Q ATTACHWINDOW 42Q GETWINDOWUSERPROP 31Q GETWINDOWUSERPROP 21Q WFROMDS) (126Q STEPMAINWINDOW 116Q STEPMENUWINDOW 105Q TOP 102Q RIGHT 70Q STEPMENUWINDOW 52Q TOP 47Q RIGHT 37Q STEPMENUWINDOW 26Q STEPMENUWINDOW 10Q %%STEP-COMMAND-LOOP) () %%STEP-ABORT 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-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@° ¿°ódºoS ¿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 A0123 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µ @hdAið³@d¢±"WYµ;h¢±WkÔ@dlð¥ ²-@ oW @hdAW W ¿H:’I°ÃI°º@ Mdgð–¿±¶gð³(Mdgð²&¿@ ‘h@A [b¿K\’±Š@A gð•@A Mdgðœ¿¿@hdAgðžW ¿@W °‰Mdgð²¿W ¿i@W ±ÿlgðžo ¿W °Mdgð”¿gð´ 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 QUIT 264Q SKIP 212Q MACRO 202Q NEXT 166Q ABORT) ( 413Q "Step" 101Q " = ") %%STEP-BREAK-LOOP D1 (I 0 ANSWER) g ¿°ù(5 EVALQT) (2 <) () %%STEP-PARSE-FUNCTIONS D1 (P 2 FN P 1 NON-FUNCTIONS P 0 FUNCTIONS I 0 LIST F 3 *ERROR-OUTPUT*) 2 @°dJdlð™ ”JH¸ƒJI¹µäI˜SoIH(56Q FORMAT 24Q FBOUNDP) NIL ( 52Q "Non-functions ignored - ~S") %%STEP D1 (P 0 FUNCTIONS I 0 FORMS) =@oô”i@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$) +eHk2JdIó–¿K a½Lµ Mh\»JkÔZ°çM&¼°÷(23Q %%STEP) NIL () %%STEP-INIT D1 (F 2 %%STEP-MENU) C`do¿do¿dg¿dg ¿dg¿jdnÿdhHdI ¿chNIL (45Q DEFAULTMENUHELDFN 36Q CLRPROMPT 27Q %%STEP-WHENSELECTEDFN 2 MENUTYPE#) ( 20Q ((ABORT (QUOTE ABORT) "Abort stepping mode.") (NEXT (QUOTE NEXT) "Evaluate current expression in step mode.") (SKIP (QUOTE SKIP) "Evaluate current expression without stepping.") (MACRO (QUOTE MACRO) "Step macroexpansion.") (QUIT (QUOTE QUIT) "Finish evaluation, but turn stepper off.") (PRINT (QUOTE PRINT) "Print current expression.") (PPRINT (QUOTE PPRINT) "Pretty-print current expression.") (BREAK (QUOTE BREAK) "Enter break loop.") (EVAL (QUOTE EVAL) "Evaluate an arbitrary expression in current environment.") (RETURN (QUOTE RETURN) "Prompt for value to return as result of current exp.") (^ (QUOTE ^) "Throw to top level.")) 10Q "STEPPER") %%STEP-WHENSELECTEDFN D1 (I 2 BUTTON I 1 MENU I 0 ITEM) !`ggghg@hh h(35Q PROCESS.EVAL) (21Q QUOTE 13Q %%STEP-BREAK-LOOP 10Q FUNCTION 5 RETFROM 2 \TTY.PROCESS) () CL:EVALHOOK D1 (P 1 *APPLYHOOK* P 0 *EVALHOOK* I 3 ENV I 2 APPLYHOOKFN I 1 EVALHOOKFN I 0 FORM) AB@ (10Q %%STEP-\EVAL) NIL () APPLYHOOK D1 (P 1 *APPLYHOOK* P 0 *EVALHOOK* I 4 ENV I 3 APPLYHOOKFN I 2 EVALHOOKFN I 1 ARGS I 0 FUNCTION) BC@A (11Q %%STEP-APPLY) NIL () %%STEP-LISPXA0002 D1 (NAME ERRORSET P 0 X F 1 EDITQUIETFLG F 2 LISPZ F 3 LISPY F 4 LISPXTEM) 8ic¿R°+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) !hc¿QR ¿P c£hhid 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 DWIMFLG F 30Q ADDSPELLFLG F 31Q EDITQUIETFLG F 32Q HISTSTR2 F 33Q READBUF F 34Q LISPXUSERFN F 35Q LISPXHIST F 36Q HELPFLAG F 37Q CLISPFLG F 40Q IT F 41Q REDOCNT) B¥`b¿C¯W8œg •gb¿l W:W@»@½i¼°=W*³ði _gi³ÞOgi³Ói@hi]²ÇMb°Ã@dlð²b»W*²`_¿gO _gð³KB^L‘h½Nhð_±ëK`^µKdgð›±˜hð_±gð²6Mµˆ[b¿M]¿Kg ^¢±ÒM’±¤Agð¦Agð²^K ²X±Kgð³NKgð³GKgð³@Kgð³9Kgð³2Kgð³+Kgð³$Kgð³Kgð³KgðKgð§Kdgð›¿L¢±J@h±Ggð§Kdgð–¿M³ç±#gð¨Kdgð²¿`AhKM YµgM ¿°ôgð¨Kdgð²¿W*gð“¿gºM±þpgð¨Kdgð²<¿W*gð“¿M›`Mg°`ŒdOi µògid¿°Œgð²)W*gð“¿Mgð•M½W,‚`Mhdi ¿±ÿ`KgðªKdgð¢±þ¿W*gð“¿W,µoi ¿±ÿ4`Mg_W, ¿W,W,O Ø¿gid¿±ÿN’±þÅKo ¿h¾L²y@dgð²¿id h½±àK`²ãL¢±Ôh½±Ïlð²(@ ³@` ª@o ²W0—@l ¿L¢±h½±˜W.²ô@lF`h@ [²ä@½±ýfM³E@lð²s@ œW0²j@l ¿°aW.²]@lF`hi [²NKdœh½Kd‘[b¿±ý @lð²0@ œW0²'@l ¿°W.²@o ®@lF`hi [µO«`Ah@M ¹N²1L²@°d–M½K[b¿±üÂM NµNA ±žC²@MlC²Oµ‚±Oh_¿±ŠMµ@d’ A °p³:W>²[@dlð²T¿M²NMlð²FMk _gð³8O`²0@ lð³'@ lð³oi ¿@Mi ¿@M A @ M@ A __¿I˜IOO¿Oc@OdOidµñO @Mb¿O³`Ahddg@ghh ¹Kdgð—¿M ±¼gð™M` ±Kgð¨Kdgð²¿g`Mgi ±‰gðªKdgð¢±¿gMµgMµgM_µM_¿O¡hŽMO d¤d_¿`Ogi¾gW2W(c(W(_"¿og O c2¿O"dW(ð—¿O c(°W( œW(kO"O ¿£¿MgON `Ogi¿Mg ¿gMh` ¿gMh` ¿M ²Moioghdi ¿Mid±~gð³Kgð³KgðªKdgð¢±¿M±Ôd_OO&dgð³dgð¬dgð¦dgð²p¿O&´‚±¡MkO&_gð’±ŽO´ MO ½O&_³!Od³ ¬OiddO ¥O_¿O&gð§O&gðšgOh_¿i°