(FILECREATED "19-Jun-86 13:29:59" ("compiled on " {ERIS}LIBRARY>CMLDESTRUCT.;11) "19-Jun-86 12:46:19" "COMPILE-FILEd" in "Xerox Lisp 19-Jun-86 ..." dated "19-Jun-86 12:58:11") (FILECREATED "25-May-86 00:21:28" {ERIS}EVAL>CMLDESTRUCT.;1 2502 changes to: (VARS CMLDESTRUCTCOMS) (PROPS (CMLDESTRUCT FILETYPE)) previous date: "17-May-86 01:14:25" {ERIS}LIBRARY>CMLDESTRUCT.;10) (RPAQQ CMLDESTRUCTCOMS ((MACROS DESTRUCTURING-BIND DESTRUCTURING-SETQ) (FNS EXPAND-DESTRUCTURING-BIND) (PROP FILETYPE CMLDESTRUCT))) expand-DESTRUCTURING-BIND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @QH¹HZ»J¼A½IKLM (30Q EXPAND-DESTRUCTURING-BIND) NIL () (SETF-MACRO-FUNCTION (QUOTE DESTRUCTURING-BIND) (QUOTE expand-DESTRUCTURING-BIND)) expand-DESTRUCTURING-SETQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) “@1H¹HºIµJ©gIJhI³gIgJhhJ²6»gKJhhgIgKhhgIgKhhhggIgJhhgIgJhhh(70Q GENSYM) (204Q CDR 177Q DESTRUCTURING-SETQ 164Q CAR 157Q DESTRUCTURING-SETQ 154Q PROGN 133Q CDR 126Q DESTRUCTURING-SETQ 113Q CAR 106Q DESTRUCTURING-SETQ 74Q LET 50Q CAR 43Q DESTRUCTURING-SETQ 25Q SETQ) () (SETF-MACRO-FUNCTION (QUOTE DESTRUCTURING-SETQ) (QUOTE expand-DESTRUCTURING-SETQ)) EXPAND-DESTRUCTURING-BIND D1 (L (3 ENVIRONMENT 2 BODY 1 FORM 0 PATTERN)) 81@HBgCgHgh YºI»gHAhhKJh (63Q \APPEND2 33Q \MVLIST 30Q PARSE-DEFMACRO 2 GENSYM) (45Q LET 23Q :DOC-STRING-ALLOWED 17Q :PATH 13Q DESTRUCTURING-BIND) () (PUTPROPS CMLDESTRUCT FILETYPE COMPILE-FILE) (PUTPROPS CMLDESTRUCT COPYRIGHT ("Xerox Corporation" 1986)) STOP