(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10)

(IL:FILECREATED "15-Mar-2024 20:40:02" ("compiled on " 
IL:|{DSK}<home>larry>il>medley>sources>CMLSPECIALFORMS.;4|) "14-Mar-2024 12:32:50" "COMPILE-FILEd" 
IL:|in| "FULL 14-Mar-2024 ..." IL:|dated| "14-Mar-2024 12:32:53")
(IL:FILECREATED "15-Mar-2024 20:39:04" IL:|{DSK}<home>larry>il>medley>sources>CMLSPECIALFORMS.;4| 
19873 :EDIT-BY "lmm" :CHANGES-TO (IL:VARS IL:CMLSPECIALFORMSCOMS) :PREVIOUS-DATE 
"15-Mar-2024 10:39:44" IL:|{DSK}<home>larry>il>medley>sources>CMLSPECIALFORMS.;2|)
(IL:RPAQQ IL:CMLSPECIALFORMSCOMS ((IL:COMS (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)))))
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))    @!HHg    I	    Jh (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))    @!HHg    IJh NIL
(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 @dAg    @@dg    dg    ihRH@@IIHXRH@@Ig    I@HX NIL
(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)    @PHHAI_@Ng    O*_h___ODOg    Jg    Kg    g        h_    ONML&Lh]O_(_&_$O&_"_ O"Ki    	    __O_O(g    g    O Og    O$Oh
    hh_OOO&_Oh__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 @dAg    @@dg    dg    ihRH@@IIHXRH@@Ig    I@HX NIL
(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  @HHAI_`Ng    O2_h___OdOg    O2_ h___O nOg    Jh
    g    Kg    g        h_    ONML&Lh]O_OOO&_Oh__O_}_0_._,O._*_(O*Ki    	    _&_$O&_"g    O0g    g    O(O"g    O,O$h
    hh_OOO&_Oh__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)) :  @HHIdo    ̲5I	    JLLKLLdKLg    LL\d3@I    h__J_O_MI g    OiOh=Og    Mg    Ohhg    O_h__OOO_O?OO&_>_g    Mg    OhhOON&_Nh__O_Oh__OQg    MIhhg    g    Mhhg    Oh (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))    @QHHZJAIKLhM     (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))    @QHHZJAIKLiM     (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))    @AH"K@AH;K    3IqC\g    ZH\dLhdKJI&IhZHX\LLLhhJI[IHX	    Ig    g    I
    BD
    	    [KCg    g    HMJg    Ag    g    AhhhLIg    Jhh
    
     (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))    @HYI[KdHA_    _NO
    	    __O_g    OLhJhOg    g    Jg    g    OMg    Jo    hg    Mhh
    hhOg    Og    Ohhh
    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))    @HYI[KdHA_    _NO
    	    __O_g    OLhJo    hOg    g    g    JOhg    MhhOg    Jg    Jhhh
    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))   @HHId3@I    J_h^]ON_ KI g    O _Odd__iOdg    iPo    hg    h    o    8Og    Kg    Ohhg    O_h___OOON?ML&>_g    Kg    Ohh_OOO&_Oh__O_Lh]O_-g    KIhhg    O 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@II)IIHg    Hg    hicHg    Hdg    IhGIhg    >0I&dN	    `    Nhh[LK]\Mh	    \KHg    Hdg    NI	    `    IhhHg    Idg    IIY	    `    Ihh
    hg    Hdg    g     Hg    `    `    I	    O&OIhhHg    *IY	    =`    0_Z	iOhJIdHIY	    
OIhh
    h3@	    @di@hh (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)     BiBg    h`    	     (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"))
NIL
