USER ! LISPIN-PACKAGE!,QUOTE LISP,EXPORT-!,DESTRUCTURING-BIND ,IN-PACKAGE-,SYSTEM,MEMBER! KEYWORDTEST!,FUNCTION,EQ !,CAR,CADR,CADDR,CADDDR!,CDDDDR,IDENTITY!,CDR,CDDR,CDDDR2,DECLARE!! SYSTEM*DESTRUCTURE-VARS*!5DESTRUCTURE-FORM,SETQ6!,IGNORE77,LET!,PROGN13,POP86!5DESTRUCTURE-INTERNAL,DELETE!5EXTRACT-DECLARATIONS! 5DESTRUCTURE! 5MAKE-CAXR! 5MAKE-CDXR5%INIT  5WARN-VERSION5.0) !5MM-5MEMQ !5MF-< ?-= ?-:,PROCLAIM- 09!,T@,* ?-; ?-9 5PUTPROP-.--5PRETTY-PRINT-FORMAT >-. !5DEBUG-<-!5N!5FORM A-=-BC A-:- 5BODY 5ENVIRONMENTG1034 ,DECLARATION A-;- !5PATTERNC4 A-9- DC 5PENDING-POPS