(FILECREATED " 4-Sep-86 16:59:21" ("compiled on " {ERIS}LIBRARY>CMLSPECIALFORMS.;141) "29-Aug-86 22:21:56" "COMPILE-FILEd" in "Xerox Lisp 29-Aug-86 ..." dated "29-Aug-86 22:55:03") (FILECREATED " 4-Sep-86 16:56:16" {ERIS}LIBRARY>CMLSPECIALFORMS.;141 27290 changes to: ( FUNCTIONS CASE) previous date: "24-Jul-86 02:44:45" {ERIS}LIBRARY>CMLSPECIALFORMS.;140) (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 FLET LABELS SELECTQ) ( 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-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-SELECTQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @qHHIlI0 Jgd^diNh,gKgNhhgNh\M N_O!Oh_gKgLhhMLO&_O_KIgOgKIhhgOh(117Q REVERSE 25Q GENSYM) (242Q COND 230Q LET 221Q COND 152Q QUOTE 146Q EQ 102Q OR 65Q QUOTE 61Q EQ) () (SETF-MACRO-FUNCTION (QUOTE SELECTQ) (QUOTE expand-SELECTQ)) 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 (P 11Q BODY P 10Q DECLS P 7 A1063 P 6 TAG P 5 SUBSEQUENT-VALUES P 4 VARS-AND-INITIAL-VALUES I 4 ENV I 3 SEQUENTIALP I 2 BODY I 1 END-TEST I 0 VARS) @@d[dhKhIHhZH&J@@#d[K KKhIHhZH&JhM ]CgggM BD O O_CggLONgAggAhhhgOMgNhh (305Q \APPEND2 172Q \MVLIST 167Q PARSE-BODY 160Q APPLY 135Q REMOVE 125Q GENSYM) (270Q GO 261Q PROGN 242Q PROGN 237Q RETURN 232Q COND 223Q PROG 217Q 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 (P 5 REMAINING P 4 EPILOGUE P 3 BODY P 2 PROLOGUE P 1 RESULT-VAR P 0 TAG I 0 LOOP-ARGS) L2@M/ghHgK gHhgL gIhhlM ](107Q LOOP-EXPAND-BODY 53Q REVERSE 34Q REVERSE 5 GENSYM 2 GENSYM) (57Q RETURN 47Q PROGN 40Q GO 30Q PROGN 23Q PROG) () LOOP-EXPAND D1 (P 5 REMAINING P 4 EPILOGUE P 3 BODY P 2 PROLOGUE P 1 RESULT-VAR P 0 TAG I 0 LOOP-ARGS) L2@M/ghHgK gHhgL gIhhlM ](107Q LOOP-EXPAND-BODY 53Q REVERSE 34Q REVERSE 5 GENSYM 2 GENSYM) (57Q RETURN 47Q PROGN 40Q GO 30Q PROGN 23Q PROG) () LOOP-EXPAND-BODY D1 (P 3 OPTION-ARG? P 2 OPTION? P 1 ARG P 0 KEYWORD I 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 (P 1 PATH P 0 VAR I 0 REMAINING) @@(14Q CL) NIL () expand-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @qHHIlI0 Jmd^didgihi&NgKgNhhgNh\M N_O!Oh_gKgLhhMLO&_O_KIgOgKIhhgOh(126Q REVERSE 25Q GENSYM) (250Q COND 236Q LET 227Q COND 160Q QUOTE 154Q EQL 112Q OR 76Q QUOTE 72Q EQL 50Q OTHERWISE) () (SETF-MACRO-FUNCTION (QUOTE CASE) (QUOTE expand-CASE)) CASE-1 D1 (P 7 TEST P 6 X P 5 KEYLIST P 4 BODY P 3 CLAUSE-LOC P 2 COND-CLAUSES P 1 ALL-KEYS P 0 SAW-OTHERWISE-OR-T I 7 ALLOW-OTHERWISE-OR-T-P I 6 ALLOW-REPEATS-P I 5 ALLOW-NIL-P I 4 DEFAULT-T-CLAUSE-FORM I 3 TEST-FN I 2 KEY-VARIABLE I 1 CLAUSES I 0 FOR-WHO) 0Ad!KKME@o ho Go@ iX|Mdgh]bdNdd@oMo ?l@oMo &NdI F@oNo NIYCBgMhhOJOLh 8HJiDhh JIh(336Q \NCONC2 306Q \NCONC2 236Q ERROR 233Q CONCAT 207Q MEMB 176Q ERROR 173Q CONCAT 145Q ERROR 142Q CONCAT 67Q ERROR 53Q MEMB 37Q ERROR) (256Q QUOTE) ( 230Q ") can't appear in more that one keylist." 222Q "The same key (" 170Q " are symbols." 163Q "Not all the elements of the keylist " 137Q " has a non-list cdr." 132Q "The Keylist " 63Q "Can't have an otherwise (or T) keylist." 50Q (T OTHERWISE) 34Q "Can't have NIL as a keylist.") (PUTPROPS CMLSPECIALFORMS FILETYPE COMPILE-FILE) BQUOTIFY D1 (P 10Q BQCAR P 7 DEFAULT P 6 X P 1 TAIL P 0 FN I 0 FORM) v @d^@IOI%IBIHgHghi(HgHdgIhIhg80I"dN `Nhh[LK]\Mh \KHgHdg@I `IhhHgIdgIIY  `Ihh hgHdggpHg``I O OIhhHg&IY 9`._Z iOhJIdHIY  OIhh h3@@di@hh(536Q \APPEND2 520Q BQUOTIFY 442Q BQUOTIFY 404Q BQUOTIFY 335Q \APPEND2 316Q BQUOTIFY 250Q BQUOTIFY 217Q LAST 155Q BQUOTIFY) (447Q *BQUOTE-COMMA* 430Q NCONC1 377Q *BQUOTE-COMMA-DOT* 373Q *BQUOTE-COMMA-ATSIGN* 366Q APPEND 357Q NCONC1 352Q NCONC 343Q APPEND 324Q *BQUOTE-COMMA-ATSIGN* 303Q LIST* 270Q LIST* 255Q *BQUOTE-COMMA* 237Q LIST* 230Q CONS 162Q *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 (I 2 REASON I 1 TYPE I 0 NAME F 0 CLISPARRAY) BiBghP (17Q CLRHASH) (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