(FILECREATED " 2-Jul-86 18:42:12" ("compiled on " {ERIS}LIBRARY>CMLWALK.;27) "30-Jun-86 12:06:27" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 2-Jul-86 18:40:53" {ERIS}LIBRARY>CMLWALK.;27 24726 changes to: (PROPS (PROGN WALKER-TEMPLATE) (RETURN-FROM WALKER-TEMPLATE) (UNWIND-PROTECT WALKER-TEMPLATE) (COND WALKER-TEMPLATE) (SETQ WALKER-TEMPLATE) (AND WALKER-TEMPLATE) (OR WALKER-TEMPLATE)) previous date: "18-Jun-86 14:35:29" {ERIS}LIBRARY>CMLWALK.;26) (RPAQQ CMLWALKCOMS ((P (PROCLAIM (QUOTE (SPECIAL *WALK-FORM* *WALK-FUNCTION* *DECLARATIONS* *LEXICAL-VARIABLES* *ENVIRONMENT* *WALK-COPY*)))) (FUNCTIONS WITH-NEW-CONTOUR NOTE-LEXICAL-BINDING NOTE-DECLARATION) (FUNCTIONS VARIABLE-SPECIAL-P VARIABLE-LEXICAL-P GET-WALKER-TEMPLATE) (FUNCTIONS WALK-FORM) (FNS WALK-FORM-INTERNAL WALK-TEMPLATE WALK-TEMPLATE-HANDLE-REPEAT WALK-TEMPLATE-HANDLE-REPEAT-1 WALK-LIST WALK-RECONS) (FUNCTIONS WALK-RELIST*) (FNS WALK-DECLARATIONS WALK-ARGLIST WALK-LAMBDA) (COMS (PROP WALKER-TEMPLATE COMPILER-LET) (FNS WALK-COMPILER-LET) (PROP WALKER-TEMPLATE DECLARE) (FNS WALK-UNEXPECTED-DECLARE) (PROP WALKER-TEMPLATE LET PROG LET* PROG*) (FNS WALK-LET WALK-LET* WALK-LET/LET*) (PROP WALKER-TEMPLATE TAGBODY) (FNS WALK-TAGBODY) (PROP WALKER-TEMPLATE FLET LABELS) (FNS WALK-FLET/LABELS) (PROP WALKER-TEMPLATE FUNCTION CL:FUNCTION GO CL:IF MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM RETURN CL:SETQ CL:BLOCK CATCH EVAL-WHEN THE THROW UNWIND-PROTECT LOAD-TIME-EVAL COND UNWIND-PROTECT SETQ AND OR)) (COMS (* for Interlisp) (PROP WALKER-TEMPLATE RPAQ? RPAQ XNLSETQ ERSETQ NLSETQ RESETVARS)) (PROP FILETYPE CMLWALK) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WALK-FLET/LABELS WALK-TAGBODY WALK-LET/LET* WALK-LET* WALK-LET WALK-UNEXPECTED-DECLARE WALK-COMPILER-LET WALK-LAMBDA WALK-ARGLIST WALK-DECLARATIONS WALK-RECONS WALK-TEMPLATE-HANDLE-REPEAT-1 WALK-TEMPLATE-HANDLE-REPEAT WALK-TEMPLATE WALK-FORM-INTERNAL))))) (PROCLAIM (QUOTE (SPECIAL *WALK-FORM* *WALK-FUNCTION* *DECLARATIONS* *LEXICAL-VARIABLES* *ENVIRONMENT* *WALK-COPY*))) expand-WITH-NEW-CONTOUR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @goHNIL (7 LET) ( 13Q ((*DECLARATIONS* NIL) (*LEXICAL-VARIABLES* *LEXICAL-VARIABLES*) (*ENVIRONMENT* *ENVIRONMENT*))) (SETF-MACRO-FUNCTION (QUOTE WITH-NEW-CONTOUR) (QUOTE expand-WITH-NEW-CONTOUR)) expand-NOTE-LEXICAL-BINDING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q CL:PUSH) ( 15Q (*LEXICAL-VARIABLES*)) (SETF-MACRO-FUNCTION (QUOTE NOTE-LEXICAL-BINDING) (QUOTE expand-NOTE-LEXICAL-BINDING)) expand-NOTE-DECLARATION D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q CL:PUSH) ( 15Q (*DECLARATIONS*)) (SETF-MACRO-FUNCTION (QUOTE NOTE-DECLARATION) (QUOTE expand-NOTE-DECLARATION)) VARIABLE-SPECIAL-P D1 (L (0 VAR) F 2 *DECLARATIONS*) ,RHµhµ@ÁÉg'Ygð—@I’i°åHX°ÜNIL (33Q SPECIAL 23Q GLOBALLY-SPECIAL) () VARIABLE-LEXICAL-P D1 (L (0 VAR) F 0 *LEXICAL-VARIABLES*) @ hð´@P(3 VARIABLE-SPECIAL-P) NIL () GET-WALKER-TEMPLATE D1 (L (0 X)) @dlð¤oÁÉg'NIL (22Q WALKER-TEMPLATE) ( 12Q (CL:LAMBDA REPEAT (EVAL))) WALK-FORMA0001 D1 (L (1 IGNORE 0 X)) @NIL NIL () WALK-FORM D1 (L (0 -args-) P 20Q *WALK-COPY* P 15Q *WALK-FUNCTION* P 12Q *ENVIRONMENT* P 7 *LEXICAL-VARIABLES* P 4 *DECLARATIONS*) ÜekañHl»ºKdJó²a¿h¼Hl¾½NdMó²f¿h_¿Hl_¿_¿OdOó²c¿h_¿Hl_¿_¿OdOó²c¿g_¿Hl_¿_¿OdOó²a¿i_ ¿Ig agð•KkØa°™KlÔ[°‹agð•NkØa°”NlÔ^°†agð–OkØa°–OlÔ_°…agð–OkØa°˜OlÔ_°…agð–OkØa°˜OlÔ_°‡(161Q WALK-FORM-INTERNAL) (310Q :COPY 262Q :WALK-FUNCTION 234Q :ENVIRONMENT 211Q :LEXICAL-VARIABLES 166Q :DECLARATIONS 156Q EVAL 121Q WALK-FORMA0001) () WALK-FORM-INTERNAL D1 (L (1 CONTEXT 0 FORM) F 3 *WALK-FUNCTION* F 4 *ENVIRONMENT*) i0@AlS YºI‘J@dJð¦¿Jb°á¡@@dlð¨oA Xµ@dT bð³°·lð–@AlH@HA@oA(146Q WALK-TEMPLATE 134Q WALK-TEMPLATE 102Q MACROEXPAND-1 71Q GET-WALKER-TEMPLATE 64Q WALK-TEMPLATE 13Q \MVLIST) NIL ( 142Q (CALL REPEAT (EVAL)) 60Q (CALL REPEAT (EVAL))) WALK-TEMPLATE D1 (L (2 CONTEXT 1 TEMPLATE 0 FORM) P 2 *WALK-FORM*) äAd³}AYdgðš¿@d²_h gð®Igð¨I–Idgð‘@gð³Igð³IgðIgð§Idgð˜¿@g gð—@g Igð´@B gHodgð²'¿@@A–A …@kA‘AABgð²@A@ A Õ@ B@d²¦dAB@AB(341Q WALK-RECONS 336Q WALK-TEMPLATE 326Q WALK-TEMPLATE 310Q WALK-TEMPLATE-HANDLE-REPEAT 304Q NTHCDR 277Q CL:LENGTH 271Q CL:LENGTH 253Q WALK-TEMPLATE 230Q EVAL 176Q ECASE-FAIL 162Q WALK-LAMBDA 145Q WALK-FORM-INTERNAL 130Q WALK-FORM-INTERNAL 31Q WALK-LAMBDA) (257Q REPEAT 204Q CL:IF 166Q TEMPLATE 152Q CL:LAMBDA 142Q SET 134Q SET 125Q EVAL 116Q RETURN 107Q EFFECT 101Q TEST 72Q FUNCTION 63Q EVAL 54Q PPE 43Q CALL 35Q QUOTE 15Q CALL) ( 173Q (CALL QUOTE CALL NIL PPE EVAL FUNCTION TEST EFFECT RETURN SET CL:LAMBDA)) WALK-TEMPLATE-HANDLE-REPEAT D1 (L (3 CONTEXT 2 STOP-FORM 1 TEMPLATE 0 FORM)) @dBð–ACAdBC (24Q WALK-TEMPLATE-HANDLE-REPEAT-1 12Q WALK-TEMPLATE) NIL () WALK-TEMPLATE-HANDLE-REPEAT-1 D1 (L (4 CONTEXT 3 STOP-FORM 2 REPEAT-TEMPLATE 1 TEMPLATE 0 FORM)) <@d Cð²B§CADo B¦Ab¿°ß@dBD@ABCD (71Q WALK-RECONS 66Q WALK-TEMPLATE-HANDLE-REPEAT-1 53Q WALK-TEMPLATE 30Q CL:ERROR 20Q WALK-TEMPLATE) NIL ( 25Q "While handling repeat: ~%%~Ran into stop while still in repeat template.") WALK-LIST D1 (I 1 FN I 0 LIST) @ddkA@A (20Q WALK-RECONS 15Q WALK-LIST) NIL () WALK-RECONS D1 (L (2 CDR 1 CAR 0 X) F 0 *WALK-COPY*) P´@Að–@dBð£¿ABNIL NIL () expand-WALK-RELIST* D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) -@AH¹HZ»J\²gIKggIhLhKNIL (34Q CDR 31Q WALK-RELIST* 24Q WALK-RECONS) () (SETF-MACRO-FUNCTION (QUOTE WALK-RELIST*) (QUOTE expand-WALK-RELIST*)) WALK-DECLARATIONS D1 (L (3 DECLARATIONS 2 DOC-STRING-P 1 FN 0 BODY) F 3 *DECLARATIONS* F 4 *ENVIRONMENT*) s@!Hd²¿@²B®C¬@H@AiH²-Hdgð²%Yµ@H@ABCZSc¿JCb¿I°àH²H ³HdT Xð¨H@b°•@kA(140Q MACROEXPAND-1 130Q GET-WALKER-TEMPLATE 76Q WALK-RECONS 73Q WALK-DECLARATIONS 37Q WALK-RECONS 34Q WALK-DECLARATIONS) (52Q DECLARE) () WALK-ARGLIST D1 (L (2 DESTRUCTURINGP 1 CONTEXT 0 ARGLIST) F 1 *LEXICAL-VARIABLES*) Ž@d²~Xdlð²#`¥HQc¿@H@AB´ H`hð²RB—HAB°$@HdHHg H@AhHdlð¡Qc¿HžHlð•HQc¿o@ (213Q CL:ERROR 137Q WALK-RECONS 134Q WALK-ARGLIST 125Q WALK-RECONS 122Q WALK-RECONS 114Q WALK-FORM-INTERNAL 73Q WALK-ARGLIST 57Q WALK-RECONS 54Q WALK-ARGLIST) (111Q EVAL 46Q LAMBDA-LIST-KEYWORDS 22Q LAMBDA-LIST-KEYWORDS) ( 207Q "Can't understand something in the arglist ~S") WALK-LAMBDAA0001 D1 (L (0 REAL-BODY) F 0 CONTEXT F 1 ARGLIST F 2 WALKED-ARGLIST) QP c@oP(17Q WALK-TEMPLATE 4 WALK-ARGLIST) NIL ( 13Q (REPEAT (EVAL))) WALK-LAMBDA D1 (L (0 FORM) P 4 WALKED-ARGLIST P 3 ARGLIST P 2 *DECLARATIONS* P 1 *ENVIRONMENT* P 0 *LEXICAL-VARIABLES* I 1 CONTEXT F 6 *LEXICAL-VARIABLES* F 7 *ENVIRONMENT*) #VWB@»@g ½@d@LM(40Q WALK-RECONS 35Q WALK-RECONS 22Q WALK-DECLARATIONS) (17Q WALK-LAMBDAA0001) () (PUTPROPS COMPILER-LET WALKER-TEMPLATE WALK-COMPILER-LET) WALK-COMPILER-LETA0001 D1 (L (0 X)) @dNIL NIL () WALK-COMPILER-LETA0002 D1 (L (0 X)) @´@ (11Q EVAL) NIL () WALK-COMPILER-LETA0003 D1 (F 0 FORM F 1 CONTEXT) PoQ(10Q WALK-TEMPLATE) NIL ( 4 (NIL NIL REPEAT (EVAL) RETURN)) WALK-COMPILER-LETA0004 D1 (L (0 X)) @ (5 EVAL) NIL () WALK-COMPILER-LET D1 (I 1 CONTEXT I 0 FORM) 7g@ g@ ¿¿gg@ ghhg@ (64Q APPLY 61Q CL:MAPCAR 37Q CL:MAPCAR 21Q CL:MAPCAR 10Q CL:MAPCAR) (53Q WALK-COMPILER-LETA0004 42Q WALK-COMPILER-LETA0003 31Q CAR 26Q LAMBDA 13Q WALK-COMPILER-LETA0002 2 WALK-COMPILER-LETA0001) () (PUTPROPS DECLARE WALKER-TEMPLATE WALK-UNEXPECTED-DECLARE) WALK-UNEXPECTED-DECLARE D1 (L (1 CONTEXT 0 FORM)) o@ @(7 WARN) NIL ( 3 "Encountered declare ~S in a place where a declare was not expected.") (PUTPROPS LET WALKER-TEMPLATE WALK-LET) (PUTPROPS PROG WALKER-TEMPLATE WALK-LET) (PUTPROPS LET* WALKER-TEMPLATE WALK-LET*) (PUTPROPS PROG* WALKER-TEMPLATE WALK-LET*) WALK-LET D1 (L (1 CONTEXT 0 FORM)) @Ah(5 WALK-LET/LET*) NIL () WALK-LET* D1 (L (1 CONTEXT 0 FORM)) @Ai(5 WALK-LET/LET*) NIL () WALK-LET/LET*A0001A0002 D1 (L (0 BINDING) P 1 *LEXICAL-VARIABLES* P 0 *DECLARATIONS* F 2 *LEXICAL-VARIABLES* F 3 OLD-DECLARATIONS F 4 CONTEXT F 5 SEQUENTIALP F 6 OLD-LEXICAL-VARIABLES) 6@lð—@dRc¿SU‘R€V@d@@T @@Rc¿(53Q WALK-RECONS 50Q WALK-RECONS 42Q WALK-FORM-INTERNAL) NIL () WALK-LET/LET*A0001 D1 (L (0 REAL-BODY) F 0 BINDINGS F 1 WALKED-BINDINGS F 2 CONTEXT) Pg c@oR(21Q WALK-TEMPLATE 6 WALK-LIST) (3 WALK-LET/LET*A0001A0002) ( 15Q (REPEAT (EVAL))) WALK-LET/LET* D1 (L (0 FORM) P 10Q *DECLARATIONS* P 7 *ENVIRONMENT* P 6 *LEXICAL-VARIABLES* P 4 WALKED-BINDINGS P 3 BINDINGS P 1 OLD-LEXICAL-VARIABLES P 0 OLD-DECLARATIONS I 2 SEQUENTIALP I 1 CONTEXT F 11Q *LEXICAL-VARIABLES* F 12Q *DECLARATIONS* F 13Q *ENVIRONMENT*) - WWBWW@º@»@g ½@J@LM(52Q WALK-RECONS 47Q WALK-RECONS 35Q WALK-DECLARATIONS) (32Q WALK-LET/LET*A0001) () (PUTPROPS TAGBODY WALKER-TEMPLATE WALK-TAGBODY) WALK-TAGBODYA0001 D1 (L (0 X) F 0 CONTEXT) @dlð“g€P (16Q WALK-FORM-INTERNAL) (11Q QUOTE) () WALK-TAGBODY D1 (L (0 FORM) I 1 CONTEXT) @d@g (15Q WALK-RECONS 12Q WALK-LIST) (7 WALK-TAGBODYA0001) () (PUTPROPS FLET WALKER-TEMPLATE WALK-FLET/LABELS) (PUTPROPS LABELS WALKER-TEMPLATE WALK-FLET/LABELS) WALK-FLET/LABELSA0001 D1 (L (0 X) F 0 CONTEXT) @P (4 WALK-LAMBDA) NIL () WALK-FLET/LABELSA0002 D1 (L (0 REAL-BODY) F 0 CONTEXT) @oP(10Q WALK-TEMPLATE) NIL ( 4 (REPEAT (EVAL))) WALK-FLET/LABELS D1 (L (0 FORM) P 2 *DECLARATIONS* P 1 *ENVIRONMENT* P 0 *LEXICAL-VARIABLES* I 1 CONTEXT F 3 *LEXICAL-VARIABLES* F 4 *ENVIRONMENT*) $ST@d@@g @g (41Q WALK-RECONS 36Q WALK-RECONS 33Q WALK-DECLARATIONS 22Q WALK-LIST) (30Q WALK-FLET/LABELSA0002 17Q WALK-FLET/LABELSA0001) () (PUTPROPS FUNCTION WALKER-TEMPLATE (NIL CALL)) (PUTPROPS CL:FUNCTION WALKER-TEMPLATE (NIL CALL)) (PUTPROPS GO WALKER-TEMPLATE (NIL QUOTE)) (PUTPROPS CL:IF WALKER-TEMPLATE (NIL TEST RETURN RETURN)) (PUTPROPS MULTIPLE-VALUE-CALL WALKER-TEMPLATE (NIL EVAL REPEAT (EVAL))) (PUTPROPS MULTIPLE-VALUE-PROG1 WALKER-TEMPLATE (NIL RETURN REPEAT (EVAL))) (PUTPROPS PROGN WALKER-TEMPLATE (NIL REPEAT (EVAL))) (PUTPROPS PROGV WALKER-TEMPLATE (NIL EVAL EVAL REPEAT (EVAL))) (PUTPROPS QUOTE WALKER-TEMPLATE (NIL QUOTE)) (PUTPROPS RETURN-FROM WALKER-TEMPLATE (NIL QUOTE EVAL)) (PUTPROPS RETURN WALKER-TEMPLATE (NIL EVAL)) (PUTPROPS CL:SETQ WALKER-TEMPLATE (NIL REPEAT (SET EVAL))) (PUTPROPS CL:BLOCK WALKER-TEMPLATE (NIL NIL REPEAT (EVAL))) (PUTPROPS CATCH WALKER-TEMPLATE (NIL EVAL REPEAT (EVAL))) (PUTPROPS EVAL-WHEN WALKER-TEMPLATE (NIL QUOTE REPEAT (EVAL))) (PUTPROPS THE WALKER-TEMPLATE (NIL QUOTE EVAL)) (PUTPROPS THROW WALKER-TEMPLATE (NIL EVAL EVAL)) (PUTPROPS UNWIND-PROTECT WALKER-TEMPLATE (NIL EVAL REPEAT (EVAL))) (PUTPROPS LOAD-TIME-EVAL WALKER-TEMPLATE (NIL QUOTE)) (PUTPROPS COND WALKER-TEMPLATE (NIL REPEAT ((REPEAT (EVAL))))) (PUTPROPS UNWIND-PROTECT WALKER-TEMPLATE (NIL EVAL REPEAT (EVAL))) (PUTPROPS SETQ WALKER-TEMPLATE (NIL SET EVAL)) (PUTPROPS AND WALKER-TEMPLATE (NIL REPEAT (EVAL))) (PUTPROPS OR WALKER-TEMPLATE (NIL REPEAT (EVAL))) (PUTPROPS RPAQ? WALKER-TEMPLATE (NIL SET EVAL)) (PUTPROPS RPAQ WALKER-TEMPLATE (NIL SET EVAL)) (PUTPROPS XNLSETQ WALKER-TEMPLATE (NIL EVAL)) (PUTPROPS ERSETQ WALKER-TEMPLATE (NIL EVAL)) (PUTPROPS NLSETQ WALKER-TEMPLATE (NIL EVAL)) (PUTPROPS RESETVARS WALKER-TEMPLATE WALK-LET) (PUTPROPS CMLWALK FILETYPE COMPILE-FILE) (PUTPROPS CMLWALK COPYRIGHT ("Xerox Corporation" 1986)) STOP