(FILECREATED " 1-Jul-86 15:21:28" ("compiled on " {ERIS}LIBRARY>CMLSPECIALFORMS.;138) "30-Jun-86 12:06:27" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 1-Jul-86 15:20:55" {ERIS}LIBRARY>CMLSPECIALFORMS.;138 26726 changes to: ( FUNCTIONS FLET LABELS) previous date: "25-Jun-86 12:59:50" {ERIS}LIBRARY>CMLSPECIALFORMS.;137) (RPAQQ CMLSPECIALFORMSCOMS ((COMS (* "hacks for Interlisp NLAMBDAs that should look like functions") ( PROP MACRO FRPTQ SETN SUB1VAR *)) (COMS (VARS *COMMON-LISP-SPECIAL-FORMS*) (FUNCTIONS LOOP) (COMS (FNS IDENTITY) (PROP DMACRO IDENTITY)) (FUNCTIONS CL:UNLESS CL:WHEN) (FUNCTIONS UNWIND-PROTECT)) ( FUNCTIONS FLET LABELS) (COMS (* * "DO DO* and support.") (FUNCTIONS CL:DO CL:DO*) (FNS \DO.TRANSLATE)) (COMS (* "somewhat bogus definitions") (FUNCTIONS DOLIST DOTIMES) (FNS EXPAND-LOOP LOOP-EXPAND LOOP-EXPAND-BODY LOOP-EXPAND-FOR) (FUNCTIONS CASE) (FNS CASE-1)) (PROP FILETYPE CMLSPECIALFORMS) (COMS (* hacks) (COMS (FNS BQUOTIFY) (USERMACROS BQUOTE UNCOMMA) (VARS *BQUOTE-COMMA* *BQUOTE-COMMA-ATSIGN* *BQUOTE-COMMA-DOT*) (GLOBALVARS *BQUOTE-COMMA* *BQUOTE-COMMA-ATSIGN* *BQUOTE-COMMA-DOT*)) (COMS (FNS CLEAR-CLISPARRAY) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (MARKASCHANGEDFNS CLEAR-CLISPARRAY)))) (P ( PROCLAIM (QUOTE (SPECIAL FILEPKGFLG DFNFLG *READTABLE*))) (PROCLAIM (CONS (QUOTE SPECIAL) SYSSPECVARS) ))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA IDENTITY))))) (PUTPROPS FRPTQ MACRO (= . RPTQ)) (PUTPROPS SETN MACRO (= . SETQ)) (PUTPROPS SUB1VAR MACRO ((X) (SETQ X (SUB1 X)))) (PUTPROPS * MACRO ((X . Y) (QUOTE X))) (RPAQQ *COMMON-LISP-SPECIAL-FORMS* (CL:BLOCK CATCH COMPILER-LET DECLARE EVAL-WHEN FLET FUNCTION GO COND LABELS LET LET* MACROLET MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM CL:SETQ TAGBODY THE THROW UNWIND-PROTECT)) expand-LOOP D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) $@o ghIHgIhh (36Q \APPEND2 13Q GENSYM) (25Q GO 17Q PROG) ( 10Q "LOOPTAG") (SETF-MACRO-FUNCTION (QUOTE LOOP) (QUOTE expand-LOOP)) IDENTITY D1 (L (0 THING)) @NIL NIL () (PUTPROPS IDENTITY DMACRO ((X) X)) expand-CL:UNLESS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgI Jh(21Q NEGATE) (15Q COND) () (SETF-MACRO-FUNCTION (QUOTE CL:UNLESS) (QUOTE expand-CL:UNLESS)) expand-CL:WHEN D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!HHgIJhNIL (15Q COND) () (SETF-MACRO-FUNCTION (QUOTE CL:WHEN) (QUOTE expand-CL:WHEN)) expand-UNWIND-PROTECT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 0@!HHgghggghJhhhIhNIL (32Q LAMBDA 27Q FUNCTION 24Q LIST 20Q RESETSAVE 15Q RESETLST) () (SETF-MACRO-FUNCTION (QUOTE UNWIND-PROTECT) (QUOTE expand-UNWIND-PROTECT)) expand-FLETA0001 D1 (L (1 CONTEXT 0 FORM) F 2 FUNCTIONS) X@d;dgdgihRH@@IIHXRH@@IgI@HXNIL (112Q FUNCALL 17Q CL:FUNCTION 11Q FUNCTION) () expand-FLET D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 11Q FUNCTIONS) @QHHA0IdLONh_N&_O g0O'd]ggMhhONh_N&_OgJgKgg h(174Q WALK-FORM 30Q GENSYM) (170Q expand-FLETA0001 165Q :WALK-FUNCTION 161Q :ENVIROMENT 154Q PROGN 110Q CL:LAMBDA 105Q FUNCTION 67Q LET) () (SETF-MACRO-FUNCTION (QUOTE FLET) (QUOTE expand-FLET)) expand-LABELSA0001 D1 (L (1 CONTEXT 0 FORM) F 2 FUNCTIONS) X@d;dgdgihRH@@IIHXRH@@IgI@HXNIL (112Q FUNCALL 17Q CL:FUNCTION 11Q FUNCTION) () expand-LABELS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 11Q FUNCTIONS) @QHHA0IdLONh_N&_O g0OdONh_N&_Og0O,dgMggMhhONh_N&_OJ gKgg h(245Q WALK-FORM 226Q \APPEND2 30Q GENSYM) (241Q expand-LABELSA0001 236Q :WALK-FUNCTION 232Q :ENVIROMENT 160Q CL:LAMBDA 155Q FUNCTION 150Q SETQ 133Q PROGN 67Q LET) () (SETF-MACRO-FUNCTION (QUOTE LABELS) (QUOTE expand-LABELS)) expand-CL:DO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @QHHZJAIKLhM (32Q \DO.TRANSLATE) NIL () (SETF-MACRO-FUNCTION (QUOTE CL:DO) (QUOTE expand-CL:DO)) expand-CL:DO* D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @QHHZJAIKLiM (32Q \DO.TRANSLATE) NIL () (SETF-MACRO-FUNCTION (QUOTE CL:DO*) (QUOTE expand-CL:DO*)) \DO.TRANSLATE D1 (L (4 ENV 3 SEQUENTIALP 2 BODY 1 END-TEST 0 VARS)) @@d[dhKhIHhZH&J@@#d[K KKhIHhZH&J3hI YCgggI BD [KCggHMJgAggAhhhgLIgJhh (272Q \APPEND2 172Q \MVLIST 167Q PARSE-BODY 160Q APPLY 135Q REMOVE 125Q GENSYM) (255Q GO 247Q PROGN 230Q PROGN 225Q RETURN 220Q COND 212Q PROG 206Q PROG* 154Q APPEND 151Q PSETQ 145Q CL:SETQ) () expand-DOLIST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HYI[KdHA__NO __O_gOLhJhOggJggOggJogMhhhhhOgOgOhhh h (227Q \APPEND2 220Q \APPEND2 52Q \MVLIST 47Q PARSE-BODY 36Q GENSYM) (202Q CDR 175Q SETQ 145Q RETURN 133Q SETQ 130Q PROGN 123Q OR 120Q CAR 114Q SETQ 111Q LOOP 72Q LET) ( 140Q (NIL)) (SETF-MACRO-FUNCTION (QUOTE DOLIST) (QUOTE expand-DOLIST)) expand-DOTIMES D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) t @ HYI[KdHA__NO _gOLhJohgggJOhgMhhhOgJhh h(153Q \APPEND2 52Q \MVLIST 47Q PARSE-BODY 36Q GENTEMP) (142Q INCF 123Q RETURN 111Q >= 106Q COND 103Q LOOP 61Q LET) ( 74Q (0)) (SETF-MACRO-FUNCTION (QUOTE DOTIMES) (QUOTE expand-DOTIMES)) EXPAND-LOOP D1 (L (0 LOOP-ARGS)) I@J.ghHgh gHhgh gIhhlJ Z(104Q LOOP-EXPAND-BODY 50Q REVERSE 31Q REVERSE 5 GENSYM 2 GENSYM) (54Q RETURN 44Q PROGN 35Q GO 25Q PROGN 20Q PROG) () LOOP-EXPAND D1 (L (0 LOOP-ARGS)) I@J.ghHgh gHhgh gIhhlJ Z(104Q LOOP-EXPAND-BODY 50Q REVERSE 31Q REVERSE 5 GENSYM 2 GENSYM) (54Q RETURN 44Q PROGN 35Q GO 25Q PROGN 20Q PROG) () LOOP-EXPAND-BODY D1 (L (0 REMAINING) F 4 BODY F 5 RESULT-VAR F 6 EPILOGUE) @@@@HdgITc@o JgKc @@bHdg'gIUhTcgUgUhhVc po gUHUIhhTcQHdggUgUIhhTc0o 'gUHo UIhhTco @(334Q ERROR 303Q MEMBER 265Q MEMBER 165Q MEMBER 51Q MEMBER) (272Q SETQ 235Q PLUS 231Q SETQ 222Q SUM 172Q SETQ 137Q REVERSE 133Q SETQ 115Q CL:PUSH 106Q COLLECT 61Q INTO 25Q DO) ( 331Q "Unrecognized LOOP keyword or implicit PROGN." 300Q (MAXIMIZE MAX MINIMIZE MIN) 262Q (MAXIMIZE MINIMIZE) 162Q (APPEND NCONC) 46Q (COLLECT APPEND NCONC SUM MAXIMIZE MINIMIZE)) LOOP-EXPAND-FOR D1 (L (0 REMAINING)) (2 CL) NIL () expand-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @QhH]&oM jMdo $iMJgIHhhgJ hgIh(MggMhIhgMh[L MJZMggKhIhLK(200Q REVERSE 111Q REVERSE 53Q MEMQ 36Q ERROR 6 GENSYM) (222Q QUOTE 217Q EQL 164Q OR 146Q QUOTE 143Q EQL 125Q NULL 105Q COND 71Q LET) ( 50Q (T OTHERWISE) 31Q "~S -- Bad clause in CASE.") (SETF-MACRO-FUNCTION (QUOTE CASE) (QUOTE expand-CASE)) CASE-1 D1 (L (7 ALLOW-OTHERWISE-OR-T-P 6 ALLOW-REPEATS-P 5 ALLOW-NIL-P 4 DEFAULT-T-CLAUSE-FORM 3 TEST-FN 2 KEY-VARIABLE 1 CLAUSES 0 FOR-WHO)) Ad_ONE@o ho Go@ iXyNddh^_d[dd@oNo ?l@oNo &KdI F@oKo KIYCBgNhh\JLMh CHJiDhh JIh(323Q \NCONC2 275Q \NCONC2 232Q ERROR 227Q CONCAT 203Q MEMB 172Q ERROR 167Q CONCAT 141Q ERROR 136Q CONCAT 66Q ERROR 52Q MEMB 36Q ERROR) (252Q QUOTE) ( 224Q ") can't appear in more that one keylist." 216Q "The same key (" 164Q " are symbols." 157Q "Not all the elements of the keylist " 133Q " has a non-list cdr." 126Q "The Keylist " 62Q "Can't have an otherwise (or T) keylist." 47Q (T OTHERWISE) 33Q "Can't have NIL as a keylist.") (PUTPROPS CMLSPECIALFORMS FILETYPE COMPILE-FILE) BQUOTIFY D1 (L (0 FORM)) s @dY@BIJI%I=IHgHghi#HgHdgIh Ihg90I!dZ `Jhh^ON__Oh _NHgHdg@I `IhhHgIdgIIY  `Ihh hgHdggjHg``I LKIhhHg$IY 6`+\]iLhMIdHIY  KIhh h3@d@di@hh(531Q \APPEND2 514Q BQUOTIFY 440Q BQUOTIFY 405Q BQUOTIFY 336Q \APPEND2 317Q BQUOTIFY 251Q BQUOTIFY 217Q LAST 152Q BQUOTIFY) (445Q *BQUOTE-COMMA* 426Q NCONC1 400Q *BQUOTE-COMMA-DOT* 374Q *BQUOTE-COMMA-ATSIGN* 367Q APPEND 360Q NCONC1 353Q NCONC 344Q APPEND 325Q *BQUOTE-COMMA-ATSIGN* 304Q LIST* 271Q LIST* 256Q *BQUOTE-COMMA* 240Q LIST* 231Q CONS 157Q *BQUOTE-COMMA* 133Q LIST 106Q BQUOTE 77Q QUOTE 60Q NCONC1 52Q CONS) () (ADDTOVAR USERMACROS (UNCOMMA NIL (IF (EQ (## 1) (QUOTE BQUOTE)) NIL ((IF (EQ (## !0 1) (QUOTE BQUOTE) ) (!0)))) (I 2 (\UNCOMMA (## 2))))) (ADDTOVAR EDITMACROS (BQUOTE NIL UP (ORR ((I 1 (OR (CONS (QUOTE BQUOTE) (OR (BQUOTIFY (## 1)) (ERROR!) )) (ERROR!)))) ((E (QUOTE BQUOTE?)))) 1)) (ADDTOVAR EDITCOMSA BQUOTE UNCOMMA) (RPAQQ *BQUOTE-COMMA* \,) (RPAQQ *BQUOTE-COMMA-ATSIGN* \,@) (RPAQQ *BQUOTE-COMMA-DOT* \,.) CLEAR-CLISPARRAY D1 (L (2 REASON 1 TYPE 0 NAME)) BiBgh` (21Q CLRHASH) (16Q CLISPARRAY 7 CLISP) () (ADDTOVAR MARKASCHANGEDFNS CLEAR-CLISPARRAY) (PROCLAIM (QUOTE (SPECIAL FILEPKGFLG DFNFLG *READTABLE*))) (PROCLAIM (CONS (QUOTE SPECIAL) SYSSPECVARS)) (PUTPROPS CMLSPECIALFORMS COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) STOP