(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")(IL:FILECREATED "25-Jan-98 11:19:53" ("compiled on " IL:|{DSK}<lispcore>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}<usr>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}<usr>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))  (  @    g    hIHg    Ihh
     (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))    @!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"))(IL:PUTPROPS IL:CMLSPECIALFORMS IL:COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990))NIL