(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 09:59:34" ("compiled on " {DSK}sources>CMLDESTRUCT.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 13:05:47" {DSK}local>lde>lispcore>sources>CMLDESTRUCT.;2 2660 changes to%: (VARS CMLDESTRUCTCOMS) previous date%: "29-Apr-87 11:30:49" {DSK}local>lde>lispcore>sources>CMLDESTRUCT.;1) (RPAQQ CMLDESTRUCTCOMS ((FUNCTIONS DESTRUCTURING-BIND DESTRUCTURING-SETQ EXPAND-DESTRUCTURING-BIND) (* ;; "Arrange for the correct compiler to be used.") (PROP FILETYPE CMLDESTRUCT))) XCL::expand-DESTRUCTURING-BIND :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @QH¹HZ»J¼A½IKLM (26 EXPAND-DESTRUCTURING-BIND) NIL () (SETF-MACRO-FUNCTION (QUOTE DESTRUCTURING-BIND) (QUOTE XCL::expand-DESTRUCTURING-BIND)) XCL::expand-DESTRUCTURING-SETQ :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ¯@1H¹HºIµJµgIJh³gIgJhhJ²B»gKJhhgIgKhhgIgKhhhggIgJhhgIgJhhh(64 GENSYM) (160 CDR 153 DESTRUCTURING-SETQ 140 CAR 133 DESTRUCTURING-SETQ 128 PROGN 109 CDR 102 DESTRUCTURING-SETQ 89 CAR 82 DESTRUCTURING-SETQ 70 LET 46 CAR 39 DESTRUCTURING-SETQ 24 SETQ) () (SETF-MACRO-FUNCTION (QUOTE DESTRUCTURING-SETQ) (QUOTE XCL::expand-DESTRUCTURING-SETQ)) EXPAND-DESTRUCTURING-BIND :D8 (L (3 ENVIRONMENT 2 BODY 1 FORM 0 PATTERN)) a1@HBgCgHgh YºI[¿Jgð²gHAhJKJ o °Ñ(93 ASSERT-FAIL 80 CL:APPEND 39 \MVLIST 34 PARSE-DEFMACRO 4 GENSYM) (62 LET* 54 LET* 27 :DOC-STRING-ALLOWED 21 :PATH 15 DESTRUCTURING-BIND) ( 88 "BUG: PARSE-DEFMACRO didn't return a LET* form.") (PUTPROPS CMLDESTRUCT FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLDESTRUCT COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) NIL