(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 11:19:53" ("compiled on " IL:|{DSK}sources>CMLSPECIALFORMS.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "16-May-90 14:43:08" IL:|{DSK}local>lde>lispcore>sources>CMLSPECIALFORMS.;2| 20313 IL:|changes| IL:|to:| (IL:VARS IL:CMLSPECIALFORMSCOMS) IL:|previous| IL:|date:| "13-Jun-88 18:25:25" IL:|{DSK}local>lde>lispcore>sources>CMLSPECIALFORMS.;1|) (IL:RPAQQ IL:CMLSPECIALFORMSCOMS ((IL:COMS (IL:FUNCTIONS LOOP) (IL:COMS (IL:FUNCTIONS IDENTITY) ( XCL:OPTIMIZERS IDENTITY)) (IL:FUNCTIONS UNLESS WHEN)) (IL:FUNCTIONS FLET LABELS IL:SELECTQ) (IL:COMS ( IL:* IL:|;;| "DO DO* and support.") (IL:FUNCTIONS DO DO*) (IL:FUNCTIONS %DO-TRANSLATE)) (IL:COMS ( IL:FUNCTIONS DOLIST DOTIMES) (IL:FUNCTIONS CASE)) (IL:COMS (IL:* IL:|;;| "hacks, These probably shouldn't be here") (IL:COMS (IL:* IL:|;;| "Hacks for Interlisp NLAMBDAs that should look like functions") (IL:PROP IL:MACRO IL:FRPTQ IL:SETN IL:SUB1VAR IL:*)) (IL:COMS (IL:FNS IL:BQUOTIFY) (IL:USERMACROS IL:BQUOTE IL:UNCOMMA) (IL:VARS IL:*BQUOTE-COMMA* IL:*BQUOTE-COMMA-ATSIGN* IL:*BQUOTE-COMMA-DOT*) (IL:GLOBALVARS IL:*BQUOTE-COMMA* IL:*BQUOTE-COMMA-ATSIGN* IL:*BQUOTE-COMMA-DOT*)) (IL:COMS (IL:FNS IL:CLEAR-CLISPARRAY) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:ADDVARS (IL:MARKASCHANGEDFNS IL:CLEAR-CLISPARRAY)))) (IL:P (PROCLAIM ( QUOTE (SPECIAL IL:FILEPKGFLG IL:DFNFLG *READTABLE*))) (PROCLAIM (CONS (QUOTE SPECIAL) IL:SYSSPECVARS)) )) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CMLSPECIALFORMS) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) (IL:NLAML) (IL:LAMA))))) |expand-LOOP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) (@ghIHgIhh (34 APPEND 9 GENSYM) (23 GO 15 PROG) () (IL:SETF-MACRO-FUNCTION (QUOTE LOOP) (QUOTE |expand-LOOP|)) IDENTITY :D8 (IL:L (0 THING)) @NIL NIL () |optimize-IDENTITY| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @NIL NIL () (IL:PUTPROP (QUOTE IDENTITY) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-IDENTITY|) (GET (QUOTE IDENTITY) (QUOTE COMPILER:OPTIMIZER-LIST)))) |expand-UNLESS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!HHgI Jh(21 IL:NEGATE) (15 COND) () (IL:SETF-MACRO-FUNCTION (QUOTE UNLESS) (QUOTE |expand-UNLESS|)) |expand-WHEN| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @!HHgIJhNIL (15 COND) () (IL:SETF-MACRO-FUNCTION (QUOTE WHEN) (QUOTE |expand-WHEN|)) |expand-FLETA0001| :D8 (IL:L (1 CONTEXT 0 FORM) IL:F 2 FUNCTIONS) g@dAg@@dgdgihRH@@IIHXRH@@IgI@HXNIL (89 FUNCALL 30 FUNCTION 22 IL:FUNCTION 10 :EVAL) () |expand-FLET| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) IL:P 21 FUNCTIONS) @PHHAI_@NgO*_h___ODOgJgKgg h_ONML&Lh]O_(_&_$O&_"_ O"Ki __O_O(ggO OgO$Oh hh_OOO&_Oh__O_E(194 APPEND 146 IL:\\MVLIST 141 XCL:PARSE-BODY 91 GENSYM 77 XCL:WALK-FORM) (181 BLOCK 172 LAMBDA 167 FUNCTION 71 |expand-FLETA0001| 66 :WALK-FUNCTION 60 :ENVIRONMENT 53 LOCALLY 29 LET) () (IL:SETF-MACRO-FUNCTION (QUOTE FLET) (QUOTE |expand-FLET|)) |expand-LABELSA0001| :D8 (IL:L (1 CONTEXT 0 FORM) IL:F 2 FUNCTIONS) g@dAg@@dgdgihRH@@IIHXRH@@IgI@HXNIL (89 FUNCALL 30 FUNCTION 22 IL:FUNCTION 10 :EVAL) () |expand-LABELS| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM) IL:P 25 FUNCTIONS) 4@HHAI_`NgO2_h___OdOgO2_ h___O nOgJh gKgg h_ONML&Lh]O_OOO&_Oh__O_}_0_._,O._*_(O*Ki _&_$O&_"gO0ggO(O"gO,O$h hh_OOO&_Oh__O _ (265 APPEND 212 IL:\\MVLIST 207 XCL:PARSE-BODY 123 GENSYM 109 XCL:WALK-FORM 86 APPEND) (252 BLOCK 243 LAMBDA 238 FUNCTION 230 SETQ 103 |expand-LABELSA0001| 98 :WALK-FUNCTION 92 :ENVIRONMENT 77 LOCALLY 53 PROGN 29 LET) () (IL:SETF-MACRO-FUNCTION (QUOTE LABELS) (QUOTE |expand-LABELS|)) IL:|expand-SELECTQ| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) :@HHIdo̲5I JLLKLLdKLgLL\d3@Ih__J_O_MIgOiOh=OgMgOhhgO_h__OOO_O?OO&_>_gMgOhhOON&_Nh__O_Oh__OQgMIhhggMhhgOh(83 GENSYM 27 EVAL) (303 COND 291 IL:LOCALVARS 286 DECLARE 274 LET 218 QUOTE 212 EQ 161 OR 144 QUOTE 138 EQ 112 COND 61 PROGN) ( 17 (IL:SYSTEMTYPE)) (IL:SETF-MACRO-FUNCTION (QUOTE IL:SELECTQ) (QUOTE IL:|expand-SELECTQ|)) |expand-DO| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @QHHZJAIKLhM (28 %DO-TRANSLATE) NIL () (IL:SETF-MACRO-FUNCTION (QUOTE DO) (QUOTE |expand-DO|)) |expand-DO*| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @QHHZJAIKLiM (28 %DO-TRANSLATE) NIL () (IL:SETF-MACRO-FUNCTION (QUOTE DO*) (QUOTE |expand-DO*|)) %DO-TRANSLATE :D8 (IL:L (4 ENV 3 SEQUENTIALP 2 BODY 1 END-TEST 0 VARS)) @AH"K@AH;K3IqC\gZH\dLhdKJI&IhZHX\L LLhhJI[IHX IggI BD [KCggHMJgAggAhhhLIgJhh  (229 APPEND 222 APPEND 151 IL:\\MVLIST 146 XCL:PARSE-BODY 137 APPLY 114 LAST 22 GENSYM) (210 GO 191 PROGN 186 RETURN 179 COND 171 PROG 165 PROG* 131 APPEND 126 PSETQ 36 SETQ) () |expand-DOLIST| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ HYI[KdHA__NO __O_gOLhJhOggJggOMgJohgMhh hhOgOgOhhh h (183 APPEND 174 APPEND 135 APPEND 48 IL:\\MVLIST 43 XCL:PARSE-BODY 32 GENSYM) (158 CDR 151 SETQ 124 RETURN 109 SETQ 99 OR 94 CAR 88 SETQ 83 LOOP 66 LET) ( 115 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE DOLIST) (QUOTE |expand-DOLIST|)) |expand-DOTIMES| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ HYI[KdHA__NO __O_gOLhJohOgggJOhgMhhOgJgJhhh h (156 APPEND 147 APPEND 48 IL:\\MVLIST 43 XCL:PARSE-BODY 32 GENSYM) (132 1+ 126 SETQ 111 RETURN 99 >= 94 IF 89 LOOP 66 LET) ( 78 (0)) (IL:SETF-MACRO-FUNCTION (QUOTE DOTIMES) (QUOTE |expand-DOTIMES|)) |expand-CASE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @HHId3@IJ_h^]ON_ KIgO _Odd__iOdgiPohgh o8OgKgOhhgO_h___OOON?ML&>_gKgOhh_OOO&_Oh__O_Lh]O_-gKIhhgO h(111 WARN 26 GENSYM) (268 COND 256 LET 198 QUOTE 192 EQL 150 OR 135 QUOTE 129 EQL 105 CASE 86 OTHERWISE 55 COND) ( 117 (NIL) 99 "~S used as a singleton key in ~S. You probably meant to use (~S).") (IL:SETF-MACRO-FUNCTION (QUOTE CASE) (QUOTE |expand-CASE|)) (IL:PUTPROPS IL:FRPTQ IL:MACRO (= . IL:RPTQ)) (IL:PUTPROPS IL:SETN IL:MACRO (= . IL:SETQ)) (IL:PUTPROPS IL:SUB1VAR IL:MACRO ((IL:X) (IL:SETQ IL:X (IL:SUB1 IL:X)))) (IL:PUTPROPS IL:* IL:MACRO ((IL:X . IL:Y) (QUOTE IL:X))) IL:BQUOTIFY :D8 (IL:P 8 IL:BQCAR IL:P 7 IL:DEFAULT IL:P 6 IL:X IL:P 1 IL:TAIL IL:P 0 IL:FN IL:I 0 IL:FORM)  @d@II)IIHgHghicHgHdgIhGIhg>0I&dN `Nhh[LK]\Mh \KHgHdgNI `IhhHgIdgIIY  `Ihh hgHdggHg``I O&OIhhHg*IY =`0_Z iOhJIdHIY  OIhh h3@ @di@hh(425 IL:STRINGP 413 IL:\\APPEND2 397 IL:BQUOTIFY 347 IL:BQUOTIFY 313 IL:BQUOTIFY 255 IL:\\APPEND2 236 IL:BQUOTIFY 190 IL:BQUOTIFY 159 LAST 121 IL:BQUOTIFY) (354 IL:*BQUOTE-COMMA* 335 IL:NCONC1 306 IL:*BQUOTE-COMMA-DOT* 300 IL:*BQUOTE-COMMA-ATSIGN* 293 IL:APPEND 280 IL:NCONC1 273 NCONC 263 IL:APPEND 244 IL:*BQUOTE-COMMA-ATSIGN* 223 LIST* 210 LIST* 197 IL:*BQUOTE-COMMA* 179 LIST* 170 CONS 128 IL:*BQUOTE-COMMA* 101 LIST 78 IL:BQUOTE 69 QUOTE 52 IL:NCONC1 44 CONS) () (IL:ADDTOVAR IL:USERMACROS (IL:UNCOMMA NIL (IL:IF (EQ (IL:\## 1) (QUOTE IL:BQUOTE)) NIL ((IL:IF (EQ ( IL:\## IL:!0 1) (QUOTE IL:BQUOTE)) (IL:!0)))) (IL:I 2 (IL:\\UNCOMMA (IL:\## 2))))) (IL:ADDTOVAR IL:EDITMACROS (IL:BQUOTE NIL IL:UP (IL:ORR ((IL:I 1 (OR (CONS (QUOTE IL:BQUOTE) (OR ( IL:BQUOTIFY (IL:\## 1)) (IL:ERROR!))) (IL:ERROR!)))) ((IL:E (QUOTE IL:BQUOTE?)))) 1)) (IL:ADDTOVAR IL:EDITCOMSA IL:BQUOTE IL:UNCOMMA) (IL:RPAQQ IL:*BQUOTE-COMMA* IL:\\\,) (IL:RPAQQ IL:*BQUOTE-COMMA-ATSIGN* IL:\\\,@) (IL:RPAQQ IL:*BQUOTE-COMMA-DOT* IL:\\\,.) IL:CLEAR-CLISPARRAY :D8 (IL:I 2 IL:REASON IL:I 1 TYPE IL:I 0 IL:NAME) BiBgh` (23 CLRHASH) (18 IL:CLISPARRAY 9 IL:CLISP) () (IL:ADDTOVAR IL:MARKASCHANGEDFNS IL:CLEAR-CLISPARRAY) (PROCLAIM (QUOTE (SPECIAL IL:FILEPKGFLG IL:DFNFLG *READTABLE*))) (PROCLAIM (CONS (QUOTE SPECIAL) IL:SYSSPECVARS)) (IL:PUTPROPS IL:CMLSPECIALFORMS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CMLSPECIALFORMS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:CMLSPECIALFORMS IL:COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990)) NIL