(FILECREATED "13-Aug-86 11:34:38" ("compiled on " {ERIS}<LISPCORE>LIBRARY>CMLSTEP.;22) 
" 4-Aug-86 17:43:14" recompiled changes: %%STEP-AWAKEN %%STEP-CLOSE %%STEP-ABORT %%STEP-SLEEP 
%%STEP-STEP-FORM %%STEP-EVAL-FORM %%STEP-PRINT %%STEP-PRINT-VALUES %%STEP-COMMAND-LOOP 
%%STEP-BREAK-LOOP %%STEP-BREAK-INTERRUPT %%STEP-PARSE-FUNCTIONS %%STEP STEP %%STEP-INIT 
%%STEP-WHENSELECTEDFN CL:EVALHOOK APPLYHOOK %%STEP-LISPX %%STEP-EVALQT %%STEP-READ-EVAL-PRINT 
%%STEP-SPREADAPPLY* %%STEP-SPREADAPPLY %%STEP-.EVALFORM. %%STEP-APPLY* %%STEP-APPLY %%STEP-\EVALFORM 
%%STEP-\EVAL %%STEP-EVAL HOOK EVAL-HOOK-FUNCTION HOOK-TEST in "Xerox Lisp  4-Aug-86 ..." dated 
" 4-Aug-86 22:17:52")
(FILECREATED "13-Aug-86 11:33:10" {ERIS}<LISPCORE>LIBRARY>CMLSTEP.;22 66592 changes to: (FNS 
%%STEP-ABORT %%STEP-COMMAND-LOOP %%STEP-INIT %%STEP-EVALQT %%STEP-READ-EVAL-PRINT %%STEP-AWAKEN 
%%STEP-BREAK-LOOP %%STEP-WHENSELECTEDFN %%STEP-CLOSE %%STEP-BREAK-INTERRUPT %%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-SLEEP %%STEP-EVAL-FORM %%STEP-PARSE-FUNCTIONS
 STEP) (VARS CMLSTEPCOMS) previous date: "12-Aug-86 16:32:17" {ERIS}<ROACH>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�� icg��cjc
V	��Xdg��
��²Hg��
��YHg��g����¿I	��°Hg��
��µ
THg��g����Y¿Hg��I��Ig��H��g��	��¢��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
(F 0 %%*STEP-STATE* F 1 *EVALHOOK*) ����hc�dc�NIL
NIL
()
%%STEP-SLEEP D1
(L (0 FUNCTIONS) F 0 %%*STEP-STATE* F 1 *EVALHOOK* F 2 %%*STEP-INDENTATION-LEVEL*) ���@µjc�g��cjch�NIL
(10Q %%STEP-COMMAND-LOOP)
()
%%STEP-STEP-FORM D1
(P 0 RESULTS I 1 ENVIRONMENT I 0 FORM) ���@g��hA��	���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*) �5�S	��@µ
TU@°	��¿°ódºo���S
��¿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 A0141 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µ;h¢±WkÔ@dlð¥	��²-@	��o���W
��@hdA��W
��W	��¿H:’I°ÃI°º@	����Mdg��ð–¿��±�¶g��ð³(Mdg��ð²&¿@	��‘h@A
��	��[b�¿K\’±�Š@A
��g��ð•@A
��Mdg��ðœ¿��¿@hdA��g��ðžW	��¿@W
��°‰Mdg��ð²¿W	��¿i@W
��±ÿlg��ðžo���	��¿W	��°Mdg��ð”¿��g��ð´
g��h	��
��h@g��hA���(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��@
��°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˜So���I��H�(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$) �+��e�Hk2JdIó–¿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
¿ch�NIL
(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`��Hdg��ð—¿g��h°g��ð•g��hŒg��g��Hhh
��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) �8�ic¿R°+d�SHi
��
��³Hi
��¿Tio���g��hdi
��¿µÖ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��	��•g��b¿l	��W:W<dg��ð–¿g��	��³
@d¤i
��³ i@hi��]b�¿M½@²>@»@½i¼°=W*³ði	��	��_g��i��³ÞOg��i��³Ói@hi��]²ÇMb�°Ã@dlð²b»W*²`��_¿g��O
��_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µg��M	��¿°ôg��ð¨Kdg��ð²¿W*g��ð“��¿g��ºM±þpg��ð¨Kdg��ð²<¿W*g��ð“��¿M›`��Mg����°`��ŒdOi
��µòg��id��¿°Œg��ð²)W*g��ð“��¿Mg��ð•M½W,‚`��Mhdi
��¿±ÿ`Kg��ðªKdg��ð¢±þ¿W*g��ð“��¿W,µo���i
��¿±ÿ4`��Mg����_W,
��¿W,W,O	��Ø¿g��id��¿±ÿ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ð³o���i
��¿@Mi
��¿@M	��A
��@	��M@
��A��	��__¿I˜IOO��¿Oc@OdOid��µñO	��@Mb�¿O³`��Ahddg��@g��hh
��¹Kdg��ð—¿M	��±¼g��ð™M`��
��±­Kg��ð¨Kdg��ð²¿g��`��Mg��i��	��±‰g��ðªKdg��ð¢±�¿g��Mµg��Mµg��M_µM_¿O¡hŽMO
��d¤d_¿`��Og��i��¾g��W2W(c(W(_"¿o���g��
��O c2¿O"dW(ð—¿O c(°W(
��œW(kO"��O ¿£��¿Mg��ON	��`��Og��i����¿Mg��
��¿g��Mh`��
��
��¿g��Mh`��
��
��¿M	��²Mo���io���g��hdi
��¿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��ðšg��Oh_¿i°<dg��ð¦dg��ð²-¿O&³(MkO&��_d²g��ð³MO
��½O3µi_¿h¨µ‚±ÿ+h®Kg��ðµKg��ð_¿`��Mg��i��¾Ag��ð”N	��ƒN	��¾O¢±RW4ONh±Dg��ð¨Kdg��ð²O¿`��g��M_–MO
��€Mg��i��	��¾i	��g��
��²i	��g��
��i	��NO��±�ôNO
��±�êg��ð§Kdg��ð›¿M`��I��±�Òg��ð¢±�žM«o���g��i��¿`��hg��i��¾g��N
��µYg��N
��_µ8g��N
��_µ`��hg��i��^d˜d`��ð²° OdN
��°O‹¢N‚NN_¿Ig��Oh
��¿MhOhhO°)NdKðµNA
��°¦N	��ŽMhNhNh��^¿W*ªW4N”mÿcB¿I“IN¿Kg��ð³WD²Og��W6W(c(W(_"¿o���g��
��O c6¿O"dW(ð—¿O c(°W(
��œW(kO"��O ¿£��¿„NI
��I�(4431Q LISPXUNREAD 4421Q ERROR! 4410Q NLEFT 4377Q TAILP 4344Q %%STEP-LISPXA0003 4247Q LISPXUSE0 4227Q \APPEND2 4215Q %%STEP-EVAL 4153Q \NCONC2 4106Q LISPXGETINPUT 4052Q LISPXFIND 4031Q MEMB 4014Q MEMB 4001Q MEMB 3771Q LISPXFIND 3755Q ERROR 3725Q LISPXUSE 3675Q LISPXFIX 3663Q %%STEP-APPLY* 3654Q GETSTREAM 3650Q STREAMPROP 3642Q GETSTREAM 3634Q STREAMPROP 3626Q GETSTREAM 3621Q COPY 3616Q LISPXFIND 3605Q LDIFF 3523Q \APPEND2 3516Q COPY 3503Q LISPXFIND 3417Q LDIFF 3375Q NLEFT 3276Q FNCHECK 3261Q BOUNDP 3234Q LDIFF 3206Q NLEFT 3052Q PRINT 3042Q MAPRINT 3012Q \DEFINEDP 3004Q /SETATOMVAL 3001Q UNION 2763Q /SETATOMVAL 2760Q UNION 2742Q /REMPROP 2731Q /PUT 2724Q LISPXFIND 2710Q \APPEND2 2673Q ERROR! 2662Q NLEFT 2651Q TAILP 2616Q %%STEP-LISPXA0002 2560Q LISPXFIND 2531Q LDIFF 2435Q \APPEND2 2432Q LISPXFIND 2372Q LISPXUSEC 2353Q \APPEND2 2336Q HISTORYSAVE 2273Q VALUES-LIST 2261Q SHOWPRINT 2235Q LISPXSTOREVALUE 2215Q \MVLIST 2212Q %%STEP-APPLY 2206Q LISPX/ 2200Q LISPX/ 2173Q %%STEP-EVAL 2167Q LISPX/ 2160Q PRINT 2150Q PRIN1 2133Q ARGTYPE 2122Q ARGTYPE 2076Q NTHCHAR 2032Q %%STEP-EVAL 2026Q LISPX/ 1753Q %%STEP-EVAL 1733Q NLAMBDA.ARGS 1674Q HISTORYSAVE 1653Q FIXSPELL 1636Q GETLIS 1617Q ADDSPELL 1604Q \DEFINEDP 1537Q FIXSPELL 1514Q ADDSPELL 1501Q BOUNDP 1452Q FIXSPELL 1416Q ADDSPELL 1402Q GETLIS 1370Q GETLIS 1356Q \DEFINEDP 1313Q LISPXREAD 1266Q ERROR 1244Q PRINT 1231Q FLENGTH 1213Q \NCONC2 1203Q LISPXFIND 1165Q PRINT 1150Q ERROR! 1111Q PRINTHISTORY 1060Q ERROR! 1035Q PRINT 1020Q UNDOLISPX2 776Q LISPXFIND 761Q ERROR! 720Q ERROR! 664Q UNDOLISPX 647Q HISTORYSAVE 430Q BOUNDP 375Q GETPROP 252Q MEMB 204Q READLINE 172Q SYNTAXP 157Q SYNTAXP 146Q CHCON1 143Q LASTC 105Q READLINE 71Q PRINT 57Q GETTOPVAL 36Q CLOCK 22Q \DEFINEDP)
(4341Q INTERNAL 4312Q READBUF 4301Q NAME 4143Q ...ARGS 4064Q HISTSTR0 4046Q INPUT 4042Q LISPXHISTORY 4025Q *HISTORY* 4010Q USE-ARGS 3775Q ...ARGS 3765Q ENTRY 3761Q LISPXHISTORY 3751Q  3733Q ... 3721Q LISPXHISTORY 3712Q use 3703Q USE 3645Q FIXFN 3631Q FIXFN 3612Q INPUT 3572Q - 3567Q LISPXHISTORY 3560Q fix 3551Q FIX 3510Q * 3477Q INPUT 3473Q LISPXHISTORY 3464Q repeat 3455Q REPEAT 3406Q F 3355Q times 3347Q TIMES 3330Q NOT 3323Q until 3313Q UNTIL 3214Q F 3162Q until 3154Q while 3146Q UNTIL 3137Q WHILE 3105Q repeat 3076Q REPEAT 3067Q redo 3060Q REDO 3033Q %
 2776Q HISTORYCOMS 2767Q HISTORYCOMS 2755Q LISPXCOMS 2746Q LISPXCOMS 2737Q STATE 2720Q COPIES 2713Q LISPXHISTORY 2702Q *HISTORY* 2613Q INTERNAL 2564Q EDITQUIETFLG 2554Q INPUT 2547Q LISPXHISTORY 2502Q in 2473Q IN 2464Q : 2453Q NAME 2444Q name 2426Q INPUT 2422Q LISPXHISTORY 2417Q RETRY: 2410Q RETRY 2401Q retry 2367Q LISPXHISTORY 2361Q  2344Q ORIGINAL 2324Q *GROUP* 2320Q *HISTORY* 2311Q LISPXHISTORY 2113Q CLISPCHARS 2103Q - 1664Q LISPXHISTORY 1645Q LISPXCOMS 1531Q LISPXCOMS 1444Q LISPXCOMS 1365Q MACROPROPS 1325Q LISPXCOMS 1302Q LAMBDA 1237Q archived 1200Q COPIES 1174Q LISPXHISTORY 1143Q ABORT 1130Q ARCHIVE 1121Q archive 1101Q LISPXHISTORY 1066Q @@ 1053Q ABORT 1043Q ?? 1030Q forgotten 1003Q LISPXHISTORY 773Q ENTRIES 767Q LISPXHISTORY 754Q ABORT 743Q FORGET 734Q forget 724Q BREAK! 713Q ABORT 702Q RETRY: 673Q retry: 655Q  637Q LISPXHISTORY 630Q undo 621Q UNDO 605Q NAME 576Q name 555Q retry 546Q fix 540Q use 531Q repeat 522Q redo 513Q  504Q ... 475Q USE 466Q FIX 457Q REPEAT 450Q REDO 441Q RETRY 421Q : 413Q _ 372Q *HISTORY* 346Q E 325Q ORIGINAL 314Q LISPXHISTORYMACROS 262Q ORIGINAL 245Q *HISTORY* 235Q LISPXHISTORY 166Q RIGHTBRACKET 153Q RIGHTPAREN 54Q HELPFLAG 46Q BREAK! 26Q LISPXUSERFN 17Q LISPXUSERFN 4 LISPXMACROS)
( 4336Q (%%STEP-LISPXA0003) 3746Q "... what??" 3030Q "****Note: " 3022Q (is also the name of a function. When typed in, its interpretation as a history command will take precedence.)
 2610Q (%%STEP-LISPXA0002) 2144Q " = " 1633Q (EXPR FILEDEF) 1377Q (EXPR FILEDEF CLISPWORD) 1263Q "doesn't take any arguments"
 1161Q (no archive list))
%%STEP-EVALQTA0001 D1
(NAME ERRORSET F 0 LISPXID) ���id
��P
��i�(10Q %%STEP-LISPX 4 LISPXREAD)
NIL
()
%%STEP-EVALQT D1
(I 0 LISPXID F 0 TOPLISPXBUFS) �8��@©g��b�¿��¿i	��¿@i`����¿o���i
��®i	��µPc�¿i	��¿��°Û�(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) ����@lð´@Á
Ê��jð¤Ak@hi
���(34Q BREAK1)
NIL
()
%%STEP-SPREADAPPLY D1
(P 0 ANSWER I 1 TAIL I 0 FN) �:�� @lð´,@Á
Ê��jð³!j¹A°dýIkØYn�ñ–hl4
��¿µìI@hi
���(67Q BREAK1 53Q \LISPERROR)
NIL
()
%%STEP-.EVALFORM. D1
(P 3 ELEMENT I 1 TAIL I 0 FN) �$��@@A°d[	��¸IµHhZH&¹µìJ
���(41Q %%STEP-APPLY 14Q %%STEP-EVAL)
NIL
()
%%STEP-APPLY* D1
(P 1 DEF P 0 U) [��e�Hjñ´kaIdlð²7¿IÁ
Ê��jð®IÁ
Ê�!lð¢±�°^IÁ
É�µ°Ydg��ð¦dg��ð²$¿°b	��³]IµèIHl2KdJó¢±�¿L
��dg��ð–¿IY°šdg��ð²)¿I²(I³"kaHl2OdOó¢±�ž¿O
��g��ð²«Hdkð–¿ka	��lð˜kala
��Hdlðœ¿kalala��lðžkalalala��kaHl2OdOó—¿O
��a_ ¿OµO h__¿OkÔ_°ÜO &_¿°òa¾MµNh]¼KkÔ[±ÿ,N&½°öa_¿OµOh__¿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) �`��@�Hdlð²¿HÁ
Ê��jð²&HÁ
É�X²3Hdg��ð²¿H³+H²&@A
��HÁ
Ê�!lð°ïg��ðHX°¶H¥@A
��@A
���(135Q %%STEP-SPREADAPPLY 127Q FAULTAPPLY 71Q %%STEP-SPREADAPPLY*)
(110Q FUNARG 45Q NLAMBDA)
()
%%STEP-\EVALFORM D1
(I 1 TEMP I 0 FORM) �˜���@bdlð²,Á
Ê��jð³AÁ
Ê�!dkð’¿°@lð²@@
��AÁ
É�bd`��ð˜¿@@
��lð²4Adg��ð²¿Ab¢A³É@@
��dg��ð³Ðdg��ð³Édg��ð³Â¿`��›@`��
��bµ@	��b�±ÿm�(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*) ��Rµ@	��H@
���(17Q %%STEP-APPLY* 6 %%STEP-\EVAL)
NIL
()
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*) �5�SkÔ�Ro���HlÖ@��@g��hA��	��Ro���HlÖI��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. *) (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) (* 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? *HOOKLEVEL* 0)
(PUTPROPS CMLSTEP COPYRIGHT ("Xerox Corporation" 1986))
NIL