(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA DB 63 38 01 31 DD 3E 19 01)
   "COMMON-LISP" ("CL")
  )
#Y(#:TOP-LEVEL-FORM-1-2
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D9 3E 19 01)
   (#:MAKE-PACKAGE #:IN-PACKAGE #:FLET #:LABELS #:MACROLET) "COMMON-LISP"
  )
#Y(#:TOP-LEVEL-FORM-1-3
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 3E 19 01) ("LISP" "CLOS")
   "COMMON-LISP"
  )
#Y(#:TOP-LEVEL-FORM-1-4 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 CA 19 01)
   "COMMON-LISP"
  )
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "COMMON-LISP"
  )
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (ARRAY ATOM BASE-CHAR BASE-STRING BIGNUM BIT BIT-VECTOR BOOLEAN CHARACTER
     COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT EXTENDED-CHAR FIXNUM FLOAT
     FUNCTION HASH-TABLE INTEGER KEYWORD LIST LOGICAL-PATHNAME LONG-FLOAT NIL
     NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL READTABLE REAL
     SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BASE-STRING SIMPLE-BIT-VECTOR
     SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM FILE-STREAM
     SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM TWO-WAY-STREAM
     ECHO-STREAM STRING-STREAM STRING SYMBOL T VECTOR SATISFIES VALUES MOD
     SIGNED-BYTE UNSIGNED-BYTE RESTART CONDITION WARNING STYLE-WARNING
     SERIOUS-CONDITION ERROR SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-ERROR
     STORAGE-CONDITION TYPE-ERROR SIMPLE-TYPE-ERROR PROGRAM-ERROR CONTROL-ERROR
     PACKAGE-ERROR PRINT-NOT-READABLE PARSE-ERROR STREAM-ERROR END-OF-FILE
     READER-ERROR FILE-ERROR CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION
     UNBOUND-SLOT ARITHMETIC-ERROR DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW
     FLOATING-POINT-UNDERFLOW FLOATING-POINT-INEXACT
     FLOATING-POINT-INVALID-OPERATION CLASS BUILT-IN-CLASS STANDARD-CLASS
     GENERIC-FUNCTION STANDARD-GENERIC-FUNCTION METHOD STANDARD-METHOD
     STANDARD-OBJECT STRUCTURE-CLASS STRUCTURE-OBJECT LAMBDA-LIST-KEYWORDS
     LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT
     PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND
     BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2
     BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM
     MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
     LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
     MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
     LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
     MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
     LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
     MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
     LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT
     LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
     LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
     LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
     LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
     LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
     LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
     LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
     SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON
     LONG-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
     SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
     LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT ARRAY-RANK-LIMIT
     ARRAY-DIMENSION-LIMIT ARRAY-TOTAL-SIZE-LIMIT
     INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK* *GENSYM-COUNTER*
     *PACKAGE* *MODULES* *RANDOM-STATE* + ++ +++ - * ** *** / // ///
     *STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT* *QUERY-IO* *DEBUG-IO*
     *TERMINAL-IO* *TRACE-OUTPUT* *READ-BASE* *READ-SUPPRESS* *READ-EVAL*
     *READTABLE* *PRINT-READABLY* *PRINT-ESCAPE* *PRINT-PRETTY* *PRINT-CIRCLE*
     *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE* *PRINT-GENSYM* *PRINT-LEVEL*
     *PRINT-LENGTH* *PRINT-ARRAY* *PRINT-RIGHT-MARGIN*
     *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS* *LOAD-VERBOSE*
     *LOAD-PRINT* *LOAD-PATHNAME* *LOAD-TRUENAME* *BREAK-ON-WARNINGS*
     *COMPILE-VERBOSE* *COMPILE-PRINT* *COMPILE-FILE-PATHNAME*
     *COMPILE-FILE-TRUENAME* *FEATURES* *BREAK-ON-SIGNALS* *DEBUGGER-HOOK*
     COERCE TYPE-OF UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL SYMBOLP
     ATOM CONSP LISTP NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP
     CHARACTERP STRINGP BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P
     SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P EQ EQL
     EQUAL EQUALP NOT SYMBOL-VALUE SYMBOL-FUNCTION FDEFINITION BOUNDP FBOUNDP
     SPECIAL-OPERATOR-P SET MAKUNBOUND FMAKUNBOUND GET-SETF-EXPANSION APPLY
     FUNCALL MAPCAR MAPLIST MAPC MAPL MAPCAN MAPCON VALUES VALUES-LIST
     MACRO-FUNCTION MACROEXPAND MACROEXPAND-1 PROCLAIM GET REMPROP SYMBOL-PLIST
     GETF GET-PROPERTIES SYMBOL-NAME MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP
     SYMBOL-PACKAGE KEYWORDP MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE PACKAGE-NAME
     PACKAGE-NICKNAMES RENAME-PACKAGE PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
     PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES DELETE-PACKAGE INTERN
     FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW
     USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE REQUIRE ZEROP PLUSP
     MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1- CONJUGATE GCD LCM
     EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN
     SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE NUMERATOR
     DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING FTRUNCATE
     FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS
     FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR
     LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2
     BOOLE LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
     BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
     MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
     ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P DIGIT-CHAR-P
     ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>= CHAR-EQUAL
     CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP CHAR-NOT-LESSP
     CHAR-CODE CODE-CHAR CHARACTER CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR
     CHAR-INT CHAR-NAME NAME-CHAR COMPLEMENT CONSTANTLY ELT SUBSEQ COPY-SEQ
     LENGTH REVERSE NREVERSE MAKE-SEQUENCE CONCATENATE MAP MAP-INTO SOME EVERY
     NOTANY NOTEVERY REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE
     DELETE-IF DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE
     SUBSTITUTE-IF SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF
     NSUBSTITUTE-IF-NOT FIND FIND-IF FIND-IF-NOT POSITION POSITION-IF
     POSITION-IF-NOT COUNT COUNT-IF COUNT-IF-NOT MISMATCH SEARCH SORT
     STABLE-SORT MERGE CAR CDR CAAR CADR CDAR CDDR CAAAR CAADR CADAR CADDR
     CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR CAADDR CADAAR CADADR CADDAR
     CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR CDDADR CDDDAR CDDDDR CONS
     TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND THIRD FOURTH FIFTH SIXTH
     SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST LIST* MAKE-LIST APPEND
     COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC NRECONC BUTLAST NBUTLAST
     LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT NSUBST NSUBST-IF
     NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT TAILP ADJOIN
     UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE NSET-DIFFERENCE
     SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP ACONS PAIRLIS ASSOC ASSOC-IF
     ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT MAKE-HASH-TABLE HASH-TABLE-P
     GETHASH REMHASH MAPHASH CLRHASH HASH-TABLE-COUNT HASH-TABLE-REHASH-SIZE
     HASH-TABLE-REHASH-THRESHOLD HASH-TABLE-SIZE HASH-TABLE-TEST SXHASH
     MAKE-ARRAY VECTOR AREF SVREF ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION
     ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX
     ROW-MAJOR-AREF ADJUSTABLE-ARRAY-P ARRAY-DISPLACEMENT BIT SBIT BIT-AND
     BIT-IOR BIT-XOR BIT-EQV BIT-NAND BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1
     BIT-ORC2 BIT-NOT ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH
     VECTOR-PUSH-EXTEND VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL
     STRING< STRING> STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP
     STRING-NOT-GREATERP STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING
     STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE
     STRING-DOWNCASE STRING-CAPITALIZE NSTRING-UPCASE NSTRING-DOWNCASE
     NSTRING-CAPITALIZE STRING COPY-STRUCTURE EVAL CONSTANTP
     MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM
     MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM
     MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING STREAMP OPEN-STREAM-P
     INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE STREAM-EXTERNAL-FORMAT
     CLOSE BROADCAST-STREAM-STREAMS CONCATENATED-STREAM-STREAMS
     ECHO-STREAM-INPUT-STREAM ECHO-STREAM-OUTPUT-STREAM SYNONYM-STREAM-SYMBOL
     TWO-WAY-STREAM-INPUT-STREAM TWO-WAY-STREAM-OUTPUT-STREAM
     INTERACTIVE-STREAM-P COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
     SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
     SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READTABLE-CASE
     READ READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
     UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT
     READ-FROM-STRING PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC
     WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING
     WRITE-LINE TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT
     WRITE-BYTE READ-SEQUENCE WRITE-SEQUENCE FORMAT Y-OR-N-P YES-OR-NO-P
     WILD-PATHNAME-P PATHNAME-MATCH-P TRANSLATE-PATHNAME LOGICAL-PATHNAME
     TRANSLATE-LOGICAL-PATHNAME LOGICAL-PATHNAME-TRANSLATIONS
     LOAD-LOGICAL-PATHNAME-TRANSLATIONS COMPILE-FILE-PATHNAME PATHNAME TRUENAME
     PARSE-NAMESTRING MERGE-PATHNAMES MAKE-PATHNAME PATHNAMEP PATHNAME-HOST
     PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-NAME PATHNAME-TYPE
     PATHNAME-VERSION NAMESTRING FILE-NAMESTRING DIRECTORY-NAMESTRING
     HOST-NAMESTRING ENOUGH-NAMESTRING USER-HOMEDIR-PATHNAME OPEN RENAME-FILE
     DELETE-FILE PROBE-FILE FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION
     FILE-LENGTH FILE-STRING-LENGTH LOAD DIRECTORY ENSURE-DIRECTORIES-EXIST
     ERROR CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE
     FUNCTION-LAMBDA-EXPRESSION DOCUMENTATION VARIABLE STRUCTURE TYPE DESCRIBE
     DESCRIBE-OBJECT INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
     GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
     ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
     LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
     MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
     SHORT-SITE-NAME LONG-SITE-NAME IDENTITY ADD-METHOD ALLOCATE-INSTANCE
     CALL-NEXT-METHOD CLASS-NAME CLASS-OF COMPUTE-APPLICABLE-METHODS FIND-CLASS
     FIND-METHOD FUNCTION-KEYWORDS INITIALIZE-INSTANCE MAKE-INSTANCE
     METHOD-QUALIFIERS NEXT-METHOD-P NO-APPLICABLE-METHOD NO-NEXT-METHOD
     PRINT-OBJECT REINITIALIZE-INSTANCE REMOVE-METHOD SHARED-INITIALIZE
     SLOT-BOUNDP SLOT-EXISTS-P SLOT-MAKUNBOUND SLOT-MISSING SLOT-UNBOUND
     SLOT-VALUE SIGNAL MAKE-CONDITION COMPUTE-RESTARTS RESTART-NAME
     FIND-RESTART INVOKE-RESTART INVOKE-RESTART-INTERACTIVELY ABORT CONTINUE
     MUFFLE-WARNING STORE-VALUE USE-VALUE INVOKE-DEBUGGER
     SIMPLE-CONDITION-FORMAT-CONTROL SIMPLE-CONDITION-FORMAT-ARGUMENTS
     TYPE-ERROR-DATUM TYPE-ERROR-EXPECTED-TYPE PACKAGE-ERROR-PACKAGE
     PRINT-NOT-READABLE-OBJECT STREAM-ERROR-STREAM FILE-ERROR-PATHNAME
     CELL-ERROR-NAME UNBOUND-SLOT-INSTANCE ARITHMETIC-ERROR-OPERATION
     ARITHMETIC-ERROR-OPERANDS EVAL-WHEN QUOTE FUNCTION SETQ PROGN LET LET*
     LOCALLY PROGV FLET LABELS MACROLET SYMBOL-MACROLET IF BLOCK RETURN-FROM
     TAGBODY GO MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT
     THROW DECLARE THE LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER
     DEFCONSTANT AND OR PSETQ SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO
     DEFSETF DEFINE-SETF-EXPANDER PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE
     OTHERWISE RETURN LOOP DO DO* DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST
     MULTIPLE-VALUE-BIND MULTIPLE-VALUE-SETQ NTH-VALUE DEFMACRO
     DESTRUCTURING-BIND DECLAIM REMF DEFPACKAGE DO-SYMBOLS DO-EXTERNAL-SYMBOLS
     DO-ALL-SYMBOLS WITH-PACKAGE-ITERATOR INCF DECF PUSH PUSHNEW POP
     WITH-HASH-TABLE-ITERATOR DEFSTRUCT WITH-OPEN-STREAM WITH-INPUT-FROM-STRING
     WITH-OUTPUT-TO-STRING WITH-STANDARD-IO-SYNTAX PRINT-UNREADABLE-OBJECT
     WITH-OPEN-FILE DEFINE-SYMBOL-MACRO CHECK-TYPE ASSERT ETYPECASE CTYPECASE
     ECASE CCASE TRACE UNTRACE STEP TIME LOOP-FINISH FORMATTER DEFCLASS
     DEFGENERIC DEFMETHOD GENERIC-FUNCTION WITH-ACCESSORS WITH-SLOTS CHECK-TYPE
     ASSERT ETYPECASE CTYPECASE ECASE CCASE HANDLER-CASE IGNORE-ERRORS
     HANDLER-BIND DEFINE-CONDITION WITH-SIMPLE-RESTART RESTART-CASE
     RESTART-BIND WITH-CONDITION-RESTARTS LAMBDA &OPTIONAL &REST &KEY
     &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT EVAL LOAD COMPILE SPECIAL
     TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE IGNORABLE OPTIMIZE SPEED SPACE
     SAFETY COMPILATION-SPEED DEBUG DECLARATION DYNAMIC-EXTENT STANDARD
  ))
#Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   COMMON-LISP:MAKE-PACKAGE REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP:MAKE-PACKAGE
      #30Y(00 00 00 00 01 00 00 00 80 1C 02 00 00 00 3D 02 3B 01 02 C7 F9 AF AF
           AF 38 01 31 DC 19 04
          )
      :NICKNAMES :USE ("COMMON-LISP")
  )  )
#Y(#:TOP-LEVEL-FORM-6
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   COMMON-LISP:IN-PACKAGE REMOVE-OLD-DEFINITIONS MACRO
   #Y(COMMON-LISP:IN-PACKAGE
      #64Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 1D 9F 5C 78 AC 8E
           04 08 AC 8F 03 17 AC 81 89 00 E0 E1 E2 AF 7B 02 E3 B0 7B 02 61 04 19
           04 AE 2F 01 19 03 DC DD 01 02 6E 03 04 DF AF 33 02 1F
          )
      2. MACRO-CALL-ERROR SOURCE-PROGRAM-ERROR
      "~S: argument ~S should be a string or a symbol" LANGUAGE
      COMMON-LISP:IN-PACKAGE EVAL-WHEN (COMPILE LOAD EVAL) %FIND-PACKAGE
      IN-PACKAGE
  )  )
#Y(#:TOP-LEVEL-FORM-7
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   COMMON-LISP:FLET REMOVE-OLD-DEFINITIONS MACRO
   #Y(COMMON-LISP:FLET
      #58Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 18 9F 5C 78
           A0 5C 79 AC 63 B1 31 5E 42 02 DC B0 A0 7C 02 92 01 08 15 19 07 AE 2F
           01 19 03 DD DE A0 7A AE 61 03 19 08
          )
      2. MACRO-CALL-ERROR FLET LOCALLY DECLARE
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   COMMON-LISP:LABELS REMOVE-OLD-DEFINITIONS MACRO
   #Y(COMMON-LISP:LABELS
      #58Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 18 9F 5C 78
           A0 5C 79 AC 63 B1 31 5E 42 02 DC B0 A0 7C 02 92 01 08 15 19 07 AE 2F
           01 19 03 DD DE A0 7A AE 61 03 19 08
          )
      2. MACRO-CALL-ERROR LABELS LOCALLY DECLARE
  )  )
#Y(#:TOP-LEVEL-FORM-9
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   COMMON-LISP:MACROLET REMOVE-OLD-DEFINITIONS MACRO
   #Y(COMMON-LISP:MACROLET
      #59Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 44 DA 90 01 2F 17 9F 5C 78
           A0 5C 79 AC 63 B1 31 5E 42 02 DC B0 92 02 0A A0 62 02 19 07 AE 2F 01
           19 03 DD DE A1 7A A2 7C 02 61 01 1B 6C
          )
      2. MACRO-CALL-ERROR MACROLET LOCALLY DECLARE
  )  )
#Y(#:TOP-LEVEL-FORM-10-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA DB 63 38 01 31 DD 3E 19 01)
   "COMMON-LISP-USER" ("CL-USER")
  )
#Y(#:TOP-LEVEL-FORM-10-2
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 3E 19 01) ("COMMON-LISP")
   "COMMON-LISP-USER"
  )
#Y(#:TOP-LEVEL-FORM-10-3 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 CA 19 01)
   "COMMON-LISP-USER"
  )
#Y(#:TOP-LEVEL-FORM-11
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 CA 32 80 19 01)
   *COMMON-LISP-USER-PACKAGE* "COMMON-LISP-USER"
  )
