(FILECREATED " 1-Aug-85 17:38:15" ("compiled on " {ERIS}LIBRARY>CMLSPECIALFORMS.;52) "28-Jul-85 01:39:50" recompiled changes: MACROEXPAND-1 RAISEATS CMLTRANSLATE \DO.TRANSLATE CATCH \CATCH.AUX \CATCH.TAG.INTERN EXPAND-LOOP LOOP-EXPAND LOOP-EXPAND-BODY LOOP-EXPAND-FOR CASE-1 DESTRUCTURING-BIND-1 DESTRUCTURING-BIND-2 in "INTERLISP-D 28-Jul-85 ..." dated "28-Jul-85 01:53:53") (FILECREATED " 1-Aug-85 16:40:38" {ERIS}LIBRARY>CMLSPECIALFORMS.;52 32929 changes to: (VARS CMLTRANSLATIONS CMLSPECIALFORMSCOMS) (FNS MACROEXPAND-1 RAISEATS CMLTRANSLATE \DO.TRANSLATE CATCH \CATCH.AUX \CATCH.TAG.INTERN EXPAND-LOOP LOOP-EXPAND LOOP-EXPAND-BODY LOOP-EXPAND-FOR CASE-1 DESTRUCTURING-BIND-1 DESTRUCTURING-BIND-2) (MACROS CL:MEMBER CASE \KEYSEARCH CATCH CL:DO* UNWIND-PROTECT) (TEMPLATES CATCH) previous date: "28-Jul-85 11:50:15" {ERIS}LIBRARY>CMLSPECIALFORMS.;48) CL:EQUAL D1 (I 1 Y I 0 X) =@Aðµ8@ ²A ´,@A ´#@Ab¿b°Þ@A µ@´ A´@A (72Q STREQUAL 51Q EQL 27Q CL:EQUAL 16Q CONSP 10Q CONSP) NIL () FBOUNDP D1 (L (0 X)) @ ¦@g´i(3 \DEFINEDP) (10Q MACRO) () EQUALP D1 (I 1 Y I 0 X) M@AðµH@ ²A ´<@A ´3@Ab¿b°Þ@d3›¿A3´@A A µ@´ A´@A (112Q STRING-EQUAL 71Q EQL 64Q = 27Q EQUALP 16Q CONSP 10Q CONSP) NIL () MACROEXPAND-1 D1 (L (0 \CL:LAMBDA.ARGCNT) P 3 ENV P 2 ENV-P P 1 FORM) $e@!lHñ‘h‚iºA»J—o ¿Ii (41Q EXPANDMACRO 33Q HELP) NIL ( 30Q "ENVIRONMENT??") RAISEATS D1 (I 0 X F 0 CMLTRANSLATIONS) "@dlð™Pµ@ ›@ @ @(34Q RAISEATS 27Q RAISEATS 17Q U-CASE) NIL () CMLTRANSLATE D1 (I 0 X F 0 CMLTRANSLATIONS) "@dlð™Pµ@ ›@ @ @(34Q CMLTRANSLATE 27Q CMLTRANSLATE 17Q U-CASE) NIL () SPECIAL-FORM-P D1 (I 0 X) @ o(3 ARGTYPE) NIL ( 7 (1 3)) EQL D1 (I 1 Y I 0 X) #@d3 ›¿A3 •@AÙjð@™A•@A @Að(34Q FEQP) NIL () CL:MEMBER D1 (L (0 \CL:MEMBER.ARGCNT) P 15Q KEY P 12Q TEST-NOT P 7 TESTNOTSUPPLIED P 6 TEST P 3 TESTSUPPLIED P 2 LIST P 1 ITEM) ×e@A² i»Hl½¼MdLóš¿hd³»g°agð”MkØ°îMlÔ]°áa¾i_¿Hl_¿_¿OdOó˜¿hd³_°agð•OkØ°ïOlÔ_°ßa_¿Hl_¿_¿OdOó˜¿hµg°agð•OkØ°ïOlÔ_°ßa_¿J´2KNOJ I ° OŸOOJ I hðŠOJ I ‘JJZ°É(315Q EQL 311Q FUNCALL 277Q FUNCALL 273Q FUNCALL 255Q FUNCALL 251Q FUNCALL) (206Q :KEY 200Q IDENTITY 124Q :TEST-NOT 43Q :TEST 35Q EQL) () COPY-LIST D1 (I 0 L) @ (3 \APPEND2) NIL () IDENTITY D1 (L (0 X)) @NIL NIL () INTEGERP D1 (L (0 X)) @3 ´iNIL NIL () SYMBOLP D1 (L (0 X)) @lðNIL NIL () CONSP D1 (L (0 X)) @´iNIL NIL () CL:LISTP D1 (L (0 X)) @hðµ@´iNIL NIL () DWIMKEYWORD D1 (F 0 FAULTX F 1 FAULTAPPLYFLG) Qhð´Plð´Pk)l:ð´P (27Q \MAKE.KEYWORD) NIL () DEFUN.DECODE D1 (I 3 REASON I 2 BODY I 1 ARGS I 0 NAME F 0 COMMENTFLG) ~@¥A ²Rgg@dhgAhgB´B§BPð´ BBb¿hgB hhg@hhgg@hoggAB hh(161Q \APPEND2 102Q MKPROGN 6 \SPECALIZEDP) (154Q CL:LAMBDA 151Q QUOTE 136Q QUOTE 133Q FNS.PUTDEF 111Q QUOTE 76Q QUOTE 40Q QUOTE 31Q QUOTE 16Q QUOTE 13Q define-method) ( 146Q (QUOTE FNS)) \LAMBDA.CL.TO.IL D1 (I 0 EXPR) gg@ (12Q \DEFUN.DECODE.&KEYS) (5 CL:LAMBDA 2 LAMBDA) () \DEFUN.DECODE.&KEYS D1 (P 24Q SVAR P 23Q INIT P 22Q SVAR P 14Q VAR P 13Q BINDING P 10Q KEYWORDS P 7 BODY P 6 ARGVAR P 5 VARTYP P 4 RESTFORM P 3 AUXLIST P 2 OPTVARS P 1 VRBLS P 0 CNT I 1 EXP I 0 NAME) ³k‘ A! OµxA_K²gK O h_¿NµI oO ggNhhgI k2Oµ‚±O gJ L O hh_gð¨Odgð—¿g]±Úgð¨Odgð–¿O]±Ægð²Mg𒱸o ±­Ogð–g]±ŸMµOI¹HkÔX±gð²@N¬o@o ¾OgggHgNggNohhh\±LMdgð˜¿OK[±