(FILECREATED "13-Aug-86 10:47:03" ("compiled on " {ERIS}LIBRARY>CMLSTEP.;21) " 4-Aug-86 17:43:14" tcompl'd in "Xerox Lisp 4-Aug-86 ..." dated " 4-Aug-86 22:17:52") (FILECREATED "13-Aug-86 10:45:37" {ERIS}LIBRARY>CMLSTEP.;21 66854 changes to: (FNS %%STEP-AWAKEN %%STEP-COMMAND-LOOP %%STEP-BREAK-LOOP %%STEP-INIT %%STEP-WHENSELECTEDFN %%STEP-READ-EVAL-PRINT %%STEP-CLOSE %%STEP-BREAK-INTERRUPT %%STEP-ABORT %%STEP-STEP-FORM %%STEP-PRINT %%STEP-PRINT-VALUES %%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 %%STEP-LISPX %%STEP-EVALQT %%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) h icgcjc V Xdg ²Hg YHgg¿I °Hg µ THggY¿HgIIgHg ¢h(144Q %%STEP-READ-EVAL-PRINT 140Q STKPOS 132Q PUTWINDOWPROP 122Q PUTWINDOWPROP 110Q ATTACHMENU 73Q GETWINDOWUSERPROP 62Q OPENW 55Q ATTACHWINDOW 42Q GETWINDOWUSERPROP 31Q GETWINDOWUSERPROP 21Q WFROMDS) (135Q %%STEP-READ-EVAL-PRINT 126Q STEPMAINWINDOW 116Q STEPMENUWINDOW 105Q TOP 102Q RIGHT 70Q STEPMENUWINDOW 52Q TOP 47Q RIGHT 37Q STEPMENUWINDOW 26Q STEPMENUWINDOW 10Q %%STEP-COMMAND-LOOP) () %%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 (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 A0131 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 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@ °g •io„io@h(45Q FORMAT 25Q STKPOS 15Q RETFROM 5 STKPOS) (22Q %%STEP-READ-EVAL-PRINT 11Q %%STEP-BREAK-LOOP 2 %%STEP-BREAK-LOOP) ( 41Q "Can't ~S. Not stepping now.~&" 33Q "Can't ~S. Not in STEP break loop now.~&") %%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 ((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.") (QUIT NIL "Finish evaluation, but turn stepper off.") (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`Hdgð—¿gh°gð•ghŒggHhh 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 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°