(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-2
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DB 71 CA 31 D9 19 01) SYSTEM::DEBUG
   "SYSTEM"
  )
#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
     COMMON 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 STRING-CHAR SYMBOL T
     VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE SIMPLE-2BIT-VECTOR
     2BIT-VECTOR SIMPLE-4BIT-VECTOR 4BIT-VECTOR SIMPLE-8BIT-VECTOR 8BIT-VECTOR
     SIMPLE-16BIT-VECTOR 16BIT-VECTOR SIMPLE-32BIT-VECTOR 32BIT-VECTOR
     SPECIAL-FORM SYSTEM-FUNCTION 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 CHAR-FONT-LIMIT
     CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT CHAR-SUPER-BIT
     CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
     ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
     *GENSYM-COUNTER* *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK*
     + ++ +++ - * ** *** / // /// *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-PATHS* *LOAD-VERBOSE* *LOAD-PRINT*
     *LOAD-ECHO* *LOAD-COMPILING* *LOAD-PATHNAME* *LOAD-TRUENAME*
     *BREAK-ON-WARNINGS* *COMPILE-WARNINGS* *COMPILE-VERBOSE* *COMPILE-PRINT*
     *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* *FEATURES* 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 COMMONP EQ EQL EQUAL EQUALP
     NOT SYMBOL-VALUE SYMBOL-FUNCTION FDEFINITION BOUNDP FBOUNDP
     SPECIAL-OPERATOR-P SPECIAL-FORM-P SET MAKUNBOUND FMAKUNBOUND
     GET-SETF-EXPANSION GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE 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
     STRING-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 CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
     CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
     CHAR-BIT SET-CHAR-BIT 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 EVALHOOK APPLYHOOK 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 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 DOCUMENTATION VARIABLE STRUCTURE TYPE DESCRIBE
     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 EVAL-WHEN QUOTE FUNCTION SETQ
     PROGN LET LET* LOCALLY COMPILER-LET 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
     DEFINE-SETF-METHOD 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 DEFMACRO REMF DO-SYMBOLS
     DO-EXTERNAL-SYMBOLS DO-ALL-SYMBOLS WITH-PACKAGE-ITERATOR INCF DECF PUSH
     PUSHNEW POP DEFSTRUCT WITH-OPEN-STREAM WITH-INPUT-FROM-STRING
     WITH-OUTPUT-TO-STRING WITH-STANDARD-IO-SYNTAX WITH-OPEN-FILE
     DEFINE-SYMBOL-MACRO CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE
     TRACE UNTRACE STEP TIME SPACE FORMATTER ENGLISH DEUTSCH FRANCAIS *ANSI*
     *DEFAULT-FILE-ENCODING* *PATHNAME-ENCODING* *TERMINAL-ENCODING*
     *MISC-ENCODING* EVAL LOAD COMPILE SPECIAL TYPE FTYPE FUNCTION INLINE
     NOTINLINE IGNORE IGNORABLE OPTIMIZE SPEED SPACE SAFETY COMPILATION-SPEED
     DEBUG DECLARATION DYNAMIC-EXTENT COMPILE CONSTANT-INLINE
     CONSTANT-NOTINLINE INTERPRETER COMPILER
  ))
#Y(#:TOP-LEVEL-FORM-4 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (CONSTANT-NOTINLINE LAMBDA-PARAMETERS-LIMIT CALL-ARGUMENTS-LIMIT
     SYSTEM::*JMPBUF-SIZE* SYSTEM::*BIG-ENDIAN* MOST-POSITIVE-FIXNUM
     MOST-NEGATIVE-FIXNUM MOST-POSITIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
     LEAST-POSITIVE-SHORT-FLOAT LEAST-NEGATIVE-SHORT-FLOAT
     MOST-POSITIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
     LEAST-POSITIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT
     MOST-POSITIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
     LEAST-POSITIVE-DOUBLE-FLOAT LEAST-NEGATIVE-DOUBLE-FLOAT
     SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-EPSILON
     SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-EPSILON
     DOUBLE-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT ARRAY-TOTAL-SIZE-LIMIT
     ARRAY-DIMENSION-LIMIT ARRAY-RANK-LIMIT INTERNAL-TIME-UNITS-PER-SECOND
  ))
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   LAMBDA-LIST-KEYWORDS
   (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
  )
#Y(#:TOP-LEVEL-FORM-6 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   #.LAMBDA-LIST-KEYWORDS
  )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   EXIT #.#'SYSTEM::%EXIT
  )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   QUIT #.#'SYSTEM::%EXIT
  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01) BYE
   #.#'SYSTEM::%EXIT
  )
#Y(#:TOP-LEVEL-FORM-10 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (EXIT QUIT BYE)
  )
#Y(#:TOP-LEVEL-FORM-11 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   THE-ENVIRONMENT
  )
#Y(#:TOP-LEVEL-FORM-12 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (SPECIAL *FEATURES*)
  )
#Y(#:TOP-LEVEL-FORM-13
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 01 31 DE 19 01) "SYSTEM"
   ("SYS" "COMPILER") ("LISP")
  )
#Y(#:TOP-LEVEL-FORM-14 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (SPECIAL *COMPILING*)
  )
#Y(#:TOP-LEVEL-FORM-15 #15Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 19 01)
   *COMPILING*
  )
#Y(#:TOP-LEVEL-FORM-16
   #19Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 C6 F9 31 DE 19 01) "CLOS"
   ("LISP")
  )
#Y(#:TOP-LEVEL-FORM-17 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS
     WITH-ACCESSORS FIND-CLASS CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD
     NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION GENERIC-FLET GENERIC-LABELS
     CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD
     FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS
     METHOD-QUALIFIERS FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT
     DESCRIBE-OBJECT MAKE-INSTANCE ALLOCATE-INSTANCE INITIALIZE-INSTANCE
     REINITIALIZE-INSTANCE SHARED-INITIALIZE CLASS STANDARD-CLASS
     STRUCTURE-CLASS BUILT-IN-CLASS STANDARD-OBJECT STRUCTURE-OBJECT
     GENERIC-FUNCTION STANDARD-GENERIC-FUNCTION METHOD STANDARD-METHOD STANDARD
  ))
#Y(#:TOP-LEVEL-FORM-18 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-19 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (HANDLER-BIND FIND-RESTART COMPUTE-RESTARTS INVOKE-RESTART-INTERACTIVELY
     RESTART CONTINUE END-OF-FILE CONDITION WARNING SERIOUS-CONDITION ERROR
     STORAGE-CONDITION 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
  ))
#Y(#:TOP-LEVEL-FORM-20
   #19Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 C6 F9 31 DE 19 01) "USER"
   ("LISP" "CLOS")
  )
#Y(#:TOP-LEVEL-FORM-21 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-22
   #27Y(00 00 00 00 00 00 00 00 00 01 DA C6 7A DC AD 32 7F DD AD 32 7F DE AD 32
        7F 19 02
       )
   MACRO
   #Y(#:TOP-LEVEL-FORM-22-1
      #37Y(00 00 00 00 02 00 00 00 00 03 DA A0 37 00 DB AF DC 38 01 72 82 B0 DD
           38 01 72 82 B1 DE 38 01 72 82 61 04 19 03
          )
      #Y(#:TOP-LEVEL-FORM-22-1-1
         #17Y(00 00 00 00 00 00 00 00 C0 1B 00 00 00 00 00 19 01)
        )
      LANGUAGE ENGLISH DEUTSCH FRANCAIS
     )
   ENGLISH DEUTSCH FRANCAIS
  )
#Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   EXPORTED-LISP-SYMBOL-P
   #Y(EXPORTED-LISP-SYMBOL-P
      #77Y(00 00 00 00 01 00 00 00 00 02 AD 72 89 DA 71 CA 92 00 23 16 01 1E 34
           DC 71 CA 9D 1F 2C AD AD 31 D3 42 02 AD A3 5A 1F 1F AC C6 5A 19 06 AC
           C6 5A 16 03 1E 17 1B 61 AD AD 31 D3 42 02 AD A3 5A 1C 6C 16 03 1E 06
           1B 50 19 06 19 04 19 03
          )
      "LISP" :EXTERNAL "COMMON-LISP"
  )  )
#Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   REMOVE-OLD-DEFINITIONS
   #Y(REMOVE-OLD-DEFINITIONS
      #120Y(00 00 00 00 01 00 00 00 00 02 AD 8C 50 80 5C AD 8C 4F 04 AD 89 03
            1A AD 89 04 16 DF 01 02 6E 03 02 E0 01 02 6E 03 02 AF 6F 07 B0 B1
            6F 03 2D 05 08 AD 31 53 AD E3 32 86 AD E4 32 86 AD E5 38 01 8F 81
            06 AD E6 63 2D 03 0D AD E8 38 01 8F 81 05 AD E8 64 32 85 AD E9 38
            01 32 81 1F 19 EA 01 02 6E 03 02 AE 30 11 AD 2F 12 19 02 DA DB 01
            02 6E 03 02 AF 33 01 1F 19 02
           )
      ERROR "~S is a special form and may not be redefined." LANGUAGE
      MACRO-FUNCTION EXPORTED-LISP-SYMBOL-P "The old definition will be lost"
      "Redefining the COMMON LISP ~A ~S" FBOUND-STRING CERROR MACRO
      DEFSTRUCT-READER DOCUMENTATION-STRINGS FUNCTION %SET-DOCUMENTATION
      INLINE-EXPANSION TRACED-DEFINITION
      "DEFUN/DEFMACRO: redefining ~S; it was traced!" WARN UNTRACE2
  )  )
#Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   %THE-ENVIRONMENT
   #Y(%THE-ENVIRONMENT
      #23Y(00 00 00 00 02 00 00 00 00 03 AD C5 5F 14 C6 5F 14 AE C5 60 9E 19 03
          )
      0. 2.
  )  )
#Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 7F 19 01)
   %THE-ENVIRONMENT-ERROR
   #Y(%THE-ENVIRONMENT-ERROR
      #21Y(00 00 00 00 00 00 00 00 00 01 DA DB 01 02 6E 03 02 DD 33 01 1F)
      SOURCE-PROGRAM-ERROR "~S is impossible in compiled code" LANGUAGE
      THE-ENVIRONMENT
  )  )
#Y(#:TOP-LEVEL-FORM-27
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 19 01) THE-ENVIRONMENT
   MACRO
   #Y(THE-ENVIRONMENT #13Y(00 00 00 00 02 00 00 00 00 03 C5 19 03)
      (PROGN (EVAL-WHEN ((NOT EVAL)) (%THE-ENVIRONMENT-ERROR))
        (LET ((*EVALHOOK* #'%THE-ENVIRONMENT)) 0.)
  )  ))
#Y(#:TOP-LEVEL-FORM-28 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (SPECIAL *TOPLEVEL-ENVIRONMENT*)
  )
#Y(#:TOP-LEVEL-FORM-29 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 5A 0F 01 19 01)
   (THE-ENVIRONMENT) *TOPLEVEL-ENVIRONMENT*
  )
#Y(#:TOP-LEVEL-FORM-30 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (SPECIAL *TOPLEVEL-DENV*)
  )
#Y(#:TOP-LEVEL-FORM-31
   #18Y(00 00 00 00 00 00 00 00 00 01 6B 00 C6 5F 0F 02 19 01)
   *TOPLEVEL-ENVIRONMENT* 4. *TOPLEVEL-DENV*
  )
#Y(#:TOP-LEVEL-FORM-32
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   FUNCTION-BLOCK-NAME REMOVE-OLD-DEFINITIONS
   #Y(FUNCTION-BLOCK-NAME
      #21Y(00 00 00 00 01 00 00 00 00 02 9E 20 05 9E 5C 5B 19 02 9E 19 02)
  )  )
#Y(#:TOP-LEVEL-FORM-33
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ADD-IMPLICIT-BLOCK REMOVE-OLD-DEFINITIONS
   #Y(ADD-IMPLICIT-BLOCK
      #53Y(00 00 00 00 02 00 00 00 00 03 AD 64 6B 00 6B 01 73 02 00 31 5E 42 03
           93 01 05 DC 9F 7A 61 01 14 93 01 03 14 61 01 14 DD B4 6F 04 A3 7C 02
           7B 01 33 03 23 19 06
          )
      *VENV* *FENV* DECLARE BLOCK FUNCTION-BLOCK-NAME
  )  )
#Y(#:TOP-LEVEL-FORM-34-1 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *KEYWORD-PACKAGE*)
  )
#Y(#:TOP-LEVEL-FORM-34-2
   #18Y(00 00 00 00 00 00 00 00 00 01 DA 31 CA 0F 01 3E 19 01) "KEYWORD"
   *KEYWORD-PACKAGE*
  )
#Y(#:TOP-LEVEL-FORM-34-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *FENV*)
  )
#Y(#:TOP-LEVEL-FORM-34-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01) FENV-ASSOC
   REMOVE-OLD-DEFINITIONS
   #Y(FENV-ASSOC
      #84Y(00 00 00 00 02 00 00 00 00 03 93 01 80 43 14 8E 21 0F DC DD AF DE DF
           E0 01 02 6E 03 07 B3 33 05 1F AD 72 44 72 95 DA 1B 15 AF AD 32 94 5F
           19 05 B0 B0 9F 5F 14 8C FF 71 DB AD 82 02 35 00 AC AE 91 01 2D 6C B0
           B0 9F 5F 14 29 02 07 00 92 01 FF BD 02 19 03
          )
      0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
      "~S is an invalid function environment" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-34-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
   #Y(GLOBAL-IN-FENV-P
      #18Y(00 00 00 00 02 00 00 00 00 03 AE AE 70 00 02 5A 19 03) FENV-ASSOC
  )  )
#Y(#:TOP-LEVEL-FORM-34-6 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *VENV*)
  )
#Y(#:TOP-LEVEL-FORM-34-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01) VENV-ASSOC
   REMOVE-OLD-DEFINITIONS
   #Y(VENV-ASSOC
      #90Y(00 00 00 00 02 00 00 00 00 03 93 01 80 40 14 8E 21 0F DC DD AF DE DF
           E0 01 02 6E 03 07 B3 33 05 1F AD 72 44 72 95 DA 1B 13 AF AD 32 94 5F
           19 05 B0 B0 9F 5F 22 73 DB AD 82 02 35 00 AC AE 91 01 2D 6E B0 B0 9F
           5F 14 29 02 07 00 92 01 40 AE 31 4E 1F 05 AE 2F 08 19 03 19 03
          )
      0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
      "~S is an invalid variable environment" LANGUAGE %SYMBOL-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-34-8
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-CONS REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-CONS
      #29Y(00 00 00 00 05 00 00 00 00 06 92 03 0A 92 01 07 B1 00 14 40 02 19 06
           B0 A0 7A 02 1B 75
  )  )    )
#Y(#:TOP-LEVEL-FORM-34-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-FORM REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-FORM
      #1391Y(03 00 00 00 01 00 00 00 00 02 9E 21 84 E2 63 AE 8F 03 0A AE 6B 00
             30 01 F8 14 88 02 07 AE 00 14 40 02 19 03 AC DD 72 29 02 1B 74 9E
             26 07 84 AB 98 08 45 B0 05 00 00 03 78 63 CD 1B 82 B0 AF 00 1B 84
             F0 E6 E7 01 02 6E 03 0E D4 1B 80 5D 9D 20 05 94 00 24 0B 6D EA EB
             01 02 6E 03 0E D4 1B 84 E1 05 00 00 03 5C 78 6B 05 70 06 AC 02 22
             07 AC 8E 07 03 92 00 58 05 00 00 03 79 63 40 02 16 01 1B 84 96 98
             08 45 B0 E4 63 05 00 00 03 5C 5C 21 80 43 05 00 00 03 5C 78 88 04
             46 05 00 00 03 5C 5B 21 16 E6 EC 01 02 6E 03 0E D4 14 67 00 00 03
             05 00 00 03 5C 78 33 03 1F 98 08 45 05 01 00 03 79 05 01 00 03 5C
             78 2F 13 41 05 01 00 03 5C 79 63 46 1B 84 44 98 08 45 05 01 00 03
             79 05 01 00 03 5C 78 63 98 08 45 05 02 00 03 5C 79 05 02 00 03 5C
             5C 78 2F 13 41 05 02 00 03 5C 5C 79 63 46 1B 83 C4 F0 F1 F2 A3 5C
             5C 7A 31 5A 43 14 7B 02 61 02 1B 84 1C EE A1 5C 78 38 03 8C B2 65
             EF A1 5C 78 38 03 8C B2 5C 98 08 45 B0 05 00 00 03 78 63 CD 1B 81
             B9 0E 00 10 00 A3 5C 79 2F 19 98 08 45 B3 05 00 00 06 78 63 98 08
             45 05 01 00 06 79 05 01 00 06 5C 78 2F 1A 1B 23 0E 00 10 00 A3 5C
             79 2F 19 98 08 45 B3 05 00 00 06 78 63 98 08 45 05 01 00 06 79 05
             01 00 06 5C 78 2F 1B 41 05 01 00 06 5C 79 2F 09 1B 80 62 0E 00 10
             00 95 06 2F 19 98 08 45 B3 05 00 00 06 78 63 05 00 00 06 79 2F 09
             1B 80 48 0E 00 10 00 A3 5C 5C 79 2F 19 98 08 45 B3 F6 63 98 08 45
             05 01 00 06 79 05 01 00 06 5C 78 63 98 08 45 05 02 00 06 5C 79 05
             02 00 06 5C 5C 78 28 FE 33 41 05 02 00 06 5C 78 2F 1D 05 02 00 06
             5C 5C 79 2F 09 41 46 41 46 41 46 11 19 04 99 1E A1 5C 78 73 00 17
             99 1F A2 5C 78 33 00 17 13 F2 05 00 00 03 5C 5C 7A 6C FD FC 64 40
             02 11 18 01 00 19 04 98 08 45 B0 05 00 00 03 78 63 05 00 00 03 79
             2F 20 1B 82 EE 98 08 45 B0 05 00 00 03 78 63 98 08 45 05 01 00 03
             79 05 01 00 03 5C 78 28 FD C4 41 05 01 00 03 5C 79 2F 21 1B 82 75
             98 08 45 B2 05 00 00 05 78 63 98 08 45 05 01 00 05 79 05 01 00 05
             5C 78 63 67 01 00 01 67 01 00 00 46 41 46 19 06 9E 1B 1C 9E 5B 1B
             18 A0 5C 79 2F 09 42 02 A2 5C 78 AE 8A 22 45 9E 20 68 9E 5C 1D 67
             F2 9F 5D 14 64 40 02 19 06 03 25 1B 07 94 03 24 24 77 03 26 14 AC
             6F 27 AD A3 5C 7A 6B 00 6B 05 73 02 00 76 02 6C FD 4E 64 40 02 19
             05 95 03 88 23 5B 98 08 45 B0 05 00 00 03 78 63 05 00 00 03 79 2F
             28 1B 82 3F 65 2A A1 1B 80 9F A0 5C 78 88 29 74 98 08 45 B0 65 2B
             63 CD 5E 45 05 01 00 03 79 05 01 00 03 5C 78 63 1B 81 C0 98 08 45
             B0 05 00 00 03 78 63 05 00 00 03 79 2F 2C 1B 82 06 00 1B 82 1A A0
             5C 5B 1B 82 10 A0 5C 1D 72 A0 5C 5C 1D 71 98 08 45 B0 05 00 00 03
             5B 1B 81 DE 03 18 1B 80 45 A0 5C 5B 1D 76 A0 5C 78 6F 2D 98 08 45
             B1 05 00 00 04 78 63 98 08 45 05 01 00 04 79 05 01 00 04 5C 78 2F
             2E 41 65 2F 05 01 00 00 37 00 10 05 05 01 00 04 5C 79 2F 09 11 41
             46 41 46 19 05 A0 5C 5B 1C 0A 03 18 14 A1 5C 5C 5D 1B 81 A9 A0 5C
             78 6F 2D 65 2F 9E 37 00 10 05 98 08 45 B4 05 00 00 07 78 63 98 08
             45 05 01 00 07 79 05 01 00 07 5C 78 2F 2E 41 05 01 00 07 5C 79 2F
             09 41 46 41 46 11 19 05 A0 5C 78 63 1B 27 E6 03 31 1B 80 51 E6 03
             32 1B 80 85 94 01 9D 20 6F 94 00 8F 03 6A 9D 5C 20 66 AC 6F 30 94
             01 A0 5D 5D F9 16 01 83 01 9E 21 62 92 01 59 65 2F 6B 05 9F 7A 32
             46 37 00 10 05 03 18 1B 80 98 A0 5C 78 63 1B 80 43 65 33 65 34 01
             02 6E 03 0E 65 35 A1 1B 81 57 E6 03 37 14 01 02 6E 03 0E 9F 1B 38
             94 01 9D 20 6F 94 00 8F 03 6A 9D 5C 20 66 9D 5C 5C 1C 61 94 00 9E
             5C 78 AD 8E 8C 49 AC 6F 36 AE A2 5D 5D FB 16 03 83 01 9E 21 55 93
             01 0E E6 03 38 14 01 02 6E 03 0E A0 14 33 01 1F 65 2F 6B 00 9F 7A
             32 46 37 00 10 00 A5 5C 79 6F 19 A6 5C 78 1B 1D E6 65 3A 01 02 6E
             03 0E 65 35 A0 5B 5B 1B 80 E9 9D 5B 78 AE 65 39 38 02 8C B2 65 83
             00 9D 21 70 16 02 03 3B 14 A6 5C 5C 7A 6C FB 6C 64 40 02 11 19 06
             98 08 45 B0 05 00 00 03 78 63 98 08 45 05 01 00 03 79 05 01 00 03
             5C 78 2F 3C 41 05 01 00 03 5C 79 2F 09 41 46 1B 80 4D CD 1B 3A AC
             B0 6B 00 6B 05 33 02 00 1B 80 4F AD 8F 03 04 AD 8C 50 69 AD 8F 03
             06 AD 2F 27 F8 1C 62 CD 1B 19 94 01 AC 89 04 80 66 AC 6B 05 70 06
             AC 02 22 FB 2A AC 8E 07 03 92 00 15 CD 5E 45 B0 05 00 00 01 14 63
             05 00 00 03 79 2F 09 41 46 19 04 9D 20 18 94 00 25 0B 13 95 00 B0
             0E 05 14 36 02 14 28 FA D9 14 02 14 40 02 19 04 EA 65 3D 01 02 6E
             03 0E 03 3E 14 0E 05 1B 24 98 08 45 AF 67 00 00 00 2F 13 41 05 00
             00 02 79 2F 09 41 46 19 03 9D 21 67 E6 65 3F 01 02 6E 03 0E 65 3E
             A2 14 33 02 1F
            )
      *VENV* VENV-ASSOC SYMBOL-MACRO-P 0. FUNCTION-NAME-P *FENV* FENV-ASSOC
      #S(HASH-TABLE EQ (%HANDLER-BIND . 1142.) (SYMBOL-MACROLET . 976.)
         (MACROLET . 908.) (LABELS . 839.) (FLET . 777.) (PROGN . 751.)
         (TAGBODY . 721.) (MULTIPLE-VALUE-SETQ . 690.) (PSETQ . 659.)
         (SETQ . 659.) (BLOCK . 593.) (CASE . 509.) (COND . 489.)
         (COMPILER-LET . 452.) (MULTIPLE-VALUE-BIND . 375.) (LOCALLY . 347.)
         (LET* . 300.) (LET . 263.) (EVAL-WHEN . 231.) (FUNCTION . 85.)
         (LOAD-TIME-VALUE . 16.) (DECLARE . 16.) (GO . 16.) (QUOTE . 16.)
         (THE . 2.) (RETURN-FROM . 2.)
        )
      %EXPAND-CONS %EXPAND-LIST FUNCTION MACRO SOURCE-PROGRAM-ERROR
      "~S: ~S is illegal since ~S is a local macro" LANGUAGE %EXPAND ERROR
      "~S: invalid function environment ~S"
      "~S: ~S is invalid since ~S is not a symbol" %EXPAND-LAMBDA COMPILE
      :COMPILE-TOPLEVEL VALUES-LIST QUOTE PROGN %EXPAND-SPECIAL-DECLARATIONS
      %EXPAND-VARSPEZ %EXPAND-VARSPEZ* MULTIPLE-VALUE-BIND
      %EXPAND-LEXICAL-VARIABLES %EXPAND-VARSPEC-VAR %EXPAND-VARSPEC-VAL
      %EXPAND-COND %EXPAND-CASE %RETURN-P %EXPAND-SETQLIST-MACROP SETQ SETF
      PSETF MACRO-FUNCTION %EXPAND-SETQLIST %EXPAND-VARLIST-MACROP
      MULTIPLE-VALUE-SETF MULTIPLE-VALUE-SETQ %EXPAND-TAGBODY %EXPAND-FUNDEFS-1
      %EXPAND-FUNDEFS-2 #.#'VECTOR MAKE-MACRO-EXPANDERCONS
      "illegal syntax in MACROLET: ~S"
      "code after MACROLET contains a dotted list, ending with ~S"
      PROGRAM-ERROR
      "~S: symbol ~S is declared special and must not be declared a macro"
      SYMBOL-MACROLET MAKE-SYMBOL-MACRO "illegal syntax in SYMBOL-MACROLET: ~S"
      "code after SYMBOL-MACROLET contains a dotted list, ending with ~S"
      #.#'EQ
      "~S: symbol ~S must not be declared SPECIAL and a macro at the same time"
      LOCALLY %EXPAND-HANDLERS "bad function environment occurred in ~S: ~S"
      %EXPAND-FORM "~S: invalid form ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-34-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-LIST REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LIST
      #56Y(01 00 00 00 01 00 00 00 00 02 9E 20 22 98 03 45 AE 05 00 00 01 78 2F
           04 41 05 00 00 01 79 28 6A 41 46 19 02 DA DB 01 02 6E 03 02 AF 33 01
           1F 92 01 72 01 02 40 02 19 02
          )
      SOURCE-PROGRAM-ERROR "code contains a dotted list, ending with ~S"
      LANGUAGE %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-34-11
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-LEXICAL-VARIABLES REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LEXICAL-VARIABLES
      #56Y(00 00 00 00 01 00 00 00 00 02 9E 1F 29 DA 63 AF 1B 0E 94 00 AC 63 7B
           02 AF 80 A1 02 16 01 83 00 9D 21 6F 16 01 AC 80 A2 00 6B 01 7B 01 33
           02 24 37 00 0F 01 19 02 19 02
          )
      #.#'VECTOR *VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-34-12
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-SPECIAL-DECLARATIONS REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-SPECIAL-DECLARATIONS
      #96Y(00 00 00 00 01 00 00 00 00 02 AD 63 6B 00 6B 01 73 02 00 31 5E 42 02
           63 AD 72 46 AC 1B 33 95 00 AC 1B 11 AC 84 06 16 01 1B 08 94 00 AC 8E
           03 73 16 01 83 00 9D 21 73 16 03 1B 14 94 00 9D 20 0D AC 38 01 31 9B
           5C 1C 05 94 00 24 02 51 16 01 83 00 9D 21 67 16 02 AC 81 46 00 14 2F
           03 15 19 04
          )
      *VENV* *FENV* SPECIAL %EXPAND-LEXICAL-VARIABLES
  )  )
#Y(#:TOP-LEVEL-FORM-34-13
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDA
      #44Y(01 00 00 00 01 00 00 00 00 02 94 01 25 00 11 98 05 45 AE DA 63 05 00
           00 01 79 2F 06 41 46 19 02 DB DC 01 02 6E 03 03 DE B0 33 02 1F
          )
      LAMBDA SOURCE-PROGRAM-ERROR "~S: ~S should be a lambda expression"
      LANGUAGE %EXPAND-FORM %EXPAND-CONS %EXPAND-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-34-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDABODY
      #115Y(00 00 00 00 01 00 02 00 00 0D 3D 02 3D 01 95 03 9D 20 12 94 00 AC
            8F 01 07 94 00 C5 5A 1C 80 42 16 01 1C 80 48 0E 02 10 02 93 05 09
            94 07 B3 95 09 30 03 5D FF 94 07 6F 04 DA DB B6 7B 02 7B 02 95 09
            2F 05 7C 02 64 40 02 11 19 05 94 00 C6 5A 16 03 1D 51 1B 17 94 00
            AC 8E 01 70 16 03 1D 45 1B 0B 95 00 AC 8E 01 6E 16 02 1D FF B8 B0
            63 40 02 19 05
           )
      DECLARE SOURCE *VENV* ADD-IMPLICIT-BLOCK %EXPAND-LAMBDALIST %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-34-15
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-LAMBDALIST REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDALIST
      #82Y(01 00 00 00 01 00 00 00 00 02 9E 20 3C 98 03 45 AE 05 00 00 01 78 2F
           04 41 05 00 00 01 78 AC DF E0 38 02 8C B2 0B AC 6F 07 63 6B 08 33 03
           00 0F 08 16 01 05 00 00 01 79 28 50 41 46 19 02 DA DB 01 02 6E 03 02
           AF 33 01 1F 92 01 72 01 02 40 02 19 02
          )
      SOURCE-PROGRAM-ERROR "lambda list must not end with the atom ~S" LANGUAGE
      %EXPAND-CONS %EXPAND-PARSPEZ #.LAMBDA-LIST-KEYWORDS #.#'EQ
      %EXPAND-VARSPEC-VAR *VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-34-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-PARSPEZ REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-PARSPEZ
      #62Y(02 00 00 00 01 00 00 00 00 02 9E 20 2B 9E 5C 20 27 98 00 45 AE 05 00
           00 01 78 63 98 00 45 05 01 00 01 79 05 01 00 01 5C 78 2F 01 41 05 01
           00 01 5C 79 63 46 41 46 19 02 AD 63 40 02 19 02
          )
      %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-34-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-VARSPEZ REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEZ
      #84Y(01 00 00 00 01 00 01 00 00 08 3D 01 9F 20 31 98 06 45 AF 05 00 00 02
           78 2F 07 41 05 00 00 02 79 63 05 00 00 02 78 6F 08 05 00 00 01 7C 02
           28 5A 41 46 19 03 DA DB 01 02 6E 03 02 DD B1 33 02 1F 92 02 71 DE 6B
           05 A0 7A 32 46 37 00 0F 05 01 02 40 02 19 03
          )
      SOURCE-PROGRAM-ERROR "~S: variable list ends with the atom ~S" LANGUAGE
      LET #.#'VECTOR *VENV* %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-34-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-VARSPEZ* REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEZ*
      #72Y(01 00 00 00 01 00 00 00 00 02 9E 20 32 98 04 45 AE 05 00 00 01 78 2F
           05 41 05 00 00 01 78 6F 06 63 6B 07 33 03 00 0F 07 05 00 00 01 79 28
           5B 41 46 19 02 DA DB 01 02 6E 03 02 DD B0 33 02 1F 92 01 71 01 02 40
           02 19 02
          )
      SOURCE-PROGRAM-ERROR "~S: variable list ends with the atom ~S" LANGUAGE
      LET* %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR *VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-34-19
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-VARSPEC-VAR REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEC-VAR
      #20Y(00 00 00 00 01 00 00 00 00 02 9E 20 04 9E 5B 19 02 9E 19 02)
  )  )
#Y(#:TOP-LEVEL-FORM-34-20
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-VARSPEC-VAL REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEC-VAL
      #23Y(00 00 00 00 01 00 00 00 00 02 9E 20 07 9E 5C 78 31 5A 19 02 00 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-34-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-COND REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-COND
      #42Y(01 00 00 00 01 00 00 00 00 02 9E 20 17 98 00 45 AE 05 00 00 01 78 2F
           01 41 05 00 00 01 79 28 6A 41 46 19 02 AD 63 40 02 19 02
          )
      %EXPAND-CONS %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-34-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-CASE REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-CASE
      #60Y(02 00 00 00 01 00 00 00 00 02 9E 20 29 98 00 45 AE 98 00 45 05 01 00
           01 78 05 01 00 01 5B 78 63 05 01 00 01 5B 79 2F 01 41 46 41 05 00 00
           01 79 28 58 41 46 19 02 AD 63 40 02 19 02
          )
      %EXPAND-CONS %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-34-23
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01) %RETURN-P
   REMOVE-OLD-DEFINITIONS
   #Y(%RETURN-P
      #70Y(00 00 00 00 02 00 00 00 00 03 9E 20 33 94 01 9D 20 28 94 00 25 00 06
           9D 5C 78 A1 22 26 9D 5B 20 07 AF 94 01 28 64 1C 1B 94 00 25 01 06 9D
           5C 78 A1 22 07 AF 95 01 28 52 1C 09 16 01 83 01 1B 4A 00 19 03 02 19
           04
          )
      RETURN-FROM BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-34-24
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-VARLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARLIST-MACROP
      #38Y(00 00 00 00 01 00 00 00 00 02 AD 32 01 1F 15 94 01 8F 03 0A 94 01 6B
           00 70 01 2F 02 1E 06 95 01 29 01 03 66 19 02
          )
      *VENV* VENV-ASSOC SYMBOL-MACRO-P
  )  )
#Y(#:TOP-LEVEL-FORM-34-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-SETQLIST-MACROP
      #45Y(00 00 00 00 01 00 00 00 00 02 AD 32 01 1F 1C 95 01 32 01 1F 16 94 01
           8F 03 0A 94 01 6B 00 70 01 2F 02 1E 07 9E 5C 79 29 01 03 5F 19 02
          )
      *VENV* VENV-ASSOC SYMBOL-MACRO-P
  )  )
#Y(#:TOP-LEVEL-FORM-34-26
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-SETQLIST REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-SETQLIST
      #64Y(02 00 00 00 01 00 00 00 00 02 9E 20 2D 9E 5C 20 29 98 00 45 AE 05 00
           00 01 78 63 98 00 45 05 01 00 01 79 05 01 00 01 5C 78 2F 01 41 05 01
           00 01 5C 79 28 56 41 46 41 46 19 02 AD 63 40 02 19 02
          )
      %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-34-27
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-TAGBODY REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-TAGBODY
      #86Y(01 00 00 00 01 00 00 00 00 02 9E 20 24 9E 5B 20 26 94 01 2F 01 42 02
           9E 20 32 98 00 45 B0 67 00 00 01 67 00 00 00 05 00 00 03 79 28 5D 41
           46 19 04 AD 63 40 02 19 02 98 00 45 AE 05 00 00 01 78 63 05 00 00 01
           79 28 42 41 46 19 02 95 03 6C FF B9 64 40 02 19 04
          )
      %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-34-28
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-FUNDEFS-1 REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-FUNDEFS-1
      #69Y(00 00 00 00 01 00 00 00 00 02 9E 20 24 94 01 9D 20 09 94 00 89 04 04
           9D 5C 21 1F DA DF 01 02 6E 03 02 9F 14 33 01 1F DA DB 01 02 6E 03 02
           A0 1B 72 92 01 73 6B 03 61 01 19 02 94 00 63 95 04 28 49 62 02 19 03
          )
      SOURCE-PROGRAM-ERROR
      "FLET/LABELS: code contains a dotted list, ending with ~S" LANGUAGE
      *FENV* FUNCTION-NAME-P "illegal syntax in FLET/LABELS: ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-34-29
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-FUNDEFS-2 REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-FUNDEFS-2
      #66Y(02 00 00 00 01 00 00 00 00 02 9E 20 2F 94 01 98 00 45 AF 98 00 45 67
           01 00 00 05 01 00 00 78 63 05 01 00 00 79 05 01 00 00 78 64 2D 03 01
           41 46 41 05 00 00 02 79 28 52 41 46 19 03 AD 63 40 02 19 02
          )
      %EXPAND-CONS %EXPAND-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-34-30
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-HANDLERS REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-HANDLERS
      #59Y(02 00 00 00 01 00 00 00 00 02 9E 20 28 94 01 98 00 45 AF 98 00 45 67
           01 00 00 05 01 00 00 78 63 05 01 00 00 79 2F 01 41 46 41 05 00 00 02
           79 28 59 41 46 19 03 AD 63 40 02 19 02
          )
      %EXPAND-CONS %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-34-31
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   %EXPAND-LAMBDABODY-MAIN REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDABODY-MAIN
      #23Y(00 00 00 00 03 00 00 00 00 04 9F 10 00 A1 10 01 B5 2F 02 12 02 19 04
          )
      *VENV* *FENV* %EXPAND-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-34-32 #13Y(00 00 00 00 00 00 00 00 00 01 3E 19 01))
#Y(#:TOP-LEVEL-FORM-35-1 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-PATHS*)
  )
#Y(#:TOP-LEVEL-FORM-35-2 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-PATHS*
  )
#Y(#:TOP-LEVEL-FORM-35-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *SOURCE-FILE-TYPES*)
  )
#Y(#:TOP-LEVEL-FORM-35-4 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 3E 19 01)
   (#-CLISP #P".lsp"
     #+CLISP
     #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
        :TYPE "lsp" :VERSION NIL
   )   )
   *SOURCE-FILE-TYPES*
  )
#Y(#:TOP-LEVEL-FORM-35-5 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *COMPILED-FILE-TYPES*)
  )
#Y(#:TOP-LEVEL-FORM-35-6 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 3E 19 01)
   (#-CLISP #P".fas"
     #+CLISP
     #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
        :TYPE "fas" :VERSION NIL
   )   )
   *COMPILED-FILE-TYPES*
  )
#Y(#:TOP-LEVEL-FORM-35-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01)
   SEARCH-FILE REMOVE-OLD-DEFINITIONS
   #Y(SEARCH-FILE
      #53Y(00 00 00 00 02 00 00 00 00 03 63 AE 72 45 1B 1B AC 61 01 1B 0D 94 00
           B1 AD 38 02 71 EE AC 8C F3 6F 00 F8 AF 80 A1 02 16 01 83 00 9D 21 67
           16 01 AC 31 A2 19 04
  )  )    )
#Y(#:TOP-LEVEL-FORM-35-8 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-VERBOSE*)
  )
#Y(#:TOP-LEVEL-FORM-35-9 #16Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 3E 19 01)
   *LOAD-VERBOSE*
  )
#Y(#:TOP-LEVEL-FORM-35-10 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-PRINT*)
  )
#Y(#:TOP-LEVEL-FORM-35-11 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-PRINT*
  )
#Y(#:TOP-LEVEL-FORM-35-12 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-ECHO*)
  )
#Y(#:TOP-LEVEL-FORM-35-13 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-ECHO*
  )
#Y(#:TOP-LEVEL-FORM-35-14 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-COMPILING*)
  )
#Y(#:TOP-LEVEL-FORM-35-15 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-COMPILING*
  )
#Y(#:TOP-LEVEL-FORM-35-16 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-PATHNAME*)
  )
#Y(#:TOP-LEVEL-FORM-35-17 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-PATHNAME*
  )
#Y(#:TOP-LEVEL-FORM-35-18 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-TRUENAME*)
  )
#Y(#:TOP-LEVEL-FORM-35-19 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-TRUENAME*
  )
#Y(#:TOP-LEVEL-FORM-35-20 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-INPUT-STREAM*)
  )
#Y(#:TOP-LEVEL-FORM-35-21 #16Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 3E 19 01)
   *LOAD-INPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-35-22 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 3E 19 01)
   (SPECIAL *LOAD-LEVEL*)
  )
#Y(#:TOP-LEVEL-FORM-35-23 #16Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 3E 19 01)
   0. *LOAD-LEVEL*
  )
#Y(#:TOP-LEVEL-FORM-35-24 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 53 3E 19 01)
   LOAD
  )
#Y(#:TOP-LEVEL-FORM-35-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F 3E 19 01) LOAD
   REMOVE-OLD-DEFINITIONS
   #Y(LOAD
      #407Y(03 00 01 00 01 00 00 00 80 1C 05 00 00 00 3B 05 03 0E 05 FD 3B 04
            03 0E 06 FC 3B 03 02 7E 03 3B 02 03 0E 07 FA 3B 01 03 0E 08 F9 B2
            8E 13 80 BB B2 80 E4 06 14 E3 E4 E5 E6 DC 63 2D 07 0D 1C 1C B2 6B
            0E 6B 0F 73 02 23 70 10 AC 8C 91 80 A0 87 00 07 14 E3 E4 E5 E6 2D
            05 0D 16 01 14 93 00 81 21 92 03 80 90 9D 14 6B 12 32 94 10 12 93
            0A 80 8C 6B 12 EE 38 01 31 42 14 A1 10 15 BB 8F 17 02 04 0F 10 16
            BE 8F 17 03 BE 31 F2 10 17 0E 18 10 18 0E 19 10 19 93 1A 28 38 01
            31 8B F4 38 03 31 88 BB 38 03 31 88 F5 01 02 6E 03 1C 38 03 31 88
            66 1B 38 01 31 83 F7 01 02 6E 03 1C 38 03 31 88 BF 64 30 1E 53 80
            60 93 19 04 38 01 31 8B C1 63 65 1F 38 01 71 73 AC 65 1F 8C FE 25
            AC 8E 06 2B 93 19 2B AC 2F 20 14 36 00 1B 26 A3 1B FF 6D 00 16 01
            1B FF 67 AC 6B 11 32 6E 1B FF 69 D8 1B FF 77 16 01 56 93 1A 80 72
            1B 80 44 9D 1B 58 AC 31 5A 43 F8 93 1C 08 93 00 05 78 38 01 31 81
            16 01 93 19 FF AA 1B FF A3 67 00 00 13 05 00 00 14 22 08 67 00 00
            13 38 01 32 7A 67 00 00 14 05 00 00 1B 22 08 67 00 00 14 38 01 32
            7A 55 93 1A 2B 38 01 31 8B 65 21 38 03 31 88 BB 38 03 31 88 65 22
            01 02 6E 03 1C 38 03 31 88 66 1B 38 01 31 83 65 23 01 02 6E 03 1C
            38 03 31 88 02 12 05 16 01 11 19 09 A1 1F 10 65 24 65 25 B5 65 26
            01 02 6E 03 1C B7 33 03 1F 19 08
           )
      :VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE*
      *LOAD-PRINT* *LOAD-ECHO* *LOAD-COMPILING* :DIRECTION :INPUT-IMMUTABLE
      :ELEMENT-TYPE CHARACTER OPEN *SOURCE-FILE-TYPES* *COMPILED-FILE-TYPES*
      SEARCH-FILE *STANDARD-OUTPUT* *LOAD-LEVEL* "" #\Space *LOAD-INPUT-STREAM*
      *LOAD-PATHNAME* *LOAD-TRUENAME* *PACKAGE* *READTABLE* ";;"
      "Loading file " LANGUAGE " ..." ALLOW-READ-EVAL "EOF"
      COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT ";;" "Loading of file "
      " is finished." FILE-ERROR :PATHNAME "A file with name ~A does not exist"
  )  )
#Y(#:TOP-LEVEL-FORM-35-26
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 3E 19 01) DEFUN MACRO
   #Y(DEFUN
      #132Y(00 00 00 00 02 00 00 00 00 03 9F 5C 20 25 9F 5C 5C 20 20 9F 5C 78
            A0 5C 5C 78 A1 5C 5C 79 AE 8F 03 1C AE 8D 50 22 DA DF 01 02 6E 03
            02 C8 14 B1 33 02 1F DA DB 01 02 6E 03 02 DD 33 01 1F DA DE 01 02
            6E 03 02 C8 1B 66 AC 64 B2 31 5E 42 03 E0 E1 E2 B4 7B 02 E3 E4 E2
            BA 7B 02 E5 7B 03 7B 04 E6 E2 B5 7B 02 E7 B6 E8 B7 E9 EA BB 7B 02
            A8 7C 02 EB BB AA 7C 02 7B 04 7B 03 7B 03 E2 B5 7B 02 61 04 19 09
           )
      SOURCE-PROGRAM-ERROR "~S: missing function name and/or parameter list"
      LANGUAGE DEFUN "~S: ~S is not a symbol."
      "~S: special form ~S cannot be redefined." PROGN %PUT QUOTE 'DEFINITION
      CONS (THE-ENVIRONMENT) %PUTD FUNCTION LAMBDA DECLARE IN-DEFUN BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-35-27
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 3E 19 01) DO MACRO
   #Y(DO
      #164Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 A0 5C 5C 78 A1 5C 5C 79 9E
            20 2D 01 02 38 01 72 8D 38 01 72 8D B0 63 B6 31 5E 42 02 A5 20 80
            42 94 08 83 09 9D 20 1C 9D 5C 20 1B 9D 5C 5C 21 1A 9D 14 84 06 16
            01 1B 64 DA DB 01 02 6E 03 02 DD 33 01 1F 9D 1B 6B 9D 5B 1B 67 94
            00 9E 5C 78 7B 02 84 06 9D 5C 5C 78 94 01 A4 62 02 FD 16 01 1B FF
            BA DE 63 DF B4 72 46 E0 A2 7A E1 E2 B5 7B 02 B6 B5 E3 BA 32 46 7A
            B8 E4 94 13 E2 BD 7B 02 7B 03 E5 63 E6 04 16 5C 7A 7B 03 7B 04 33
            02 23 7C 03 7B 04 61 03 19 0C
           )
      SOURCE-PROGRAM-ERROR "exit clause in ~S must be a list" LANGUAGE DO BLOCK
      LET DECLARE TAGBODY GO PSETQ OR RETURN-FROM PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-35-28
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 3E 19 01) DOTIMES MACRO
   #Y(DOTIMES
      #70Y(00 00 00 00 02 00 00 00 00 03 9F 5C 5B 78 A0 5C 5B 5C 78 A1 5C 5B 5C
           5C 78 A2 5C 79 AC 63 B3 31 5E 42 02 38 01 72 8D DA B3 DB DC B6 7B 02
           7B 03 AE B4 7B 02 7B 02 DD B5 B0 7B 03 B3 7B 02 DE A2 7A A3 62 04 19
           0A
          )
      DO 0. 1+ >= DECLARE
  )  )
#Y(#:TOP-LEVEL-FORM-35-29 #13Y(00 00 00 00 00 00 00 00 00 01 3E 19 01))
#Y(#:TOP-LEVEL-FORM-36 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "defseq" LOAD
  )
#Y(#:TOP-LEVEL-FORM-37 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "backquot" LOAD
  )
#Y(#:TOP-LEVEL-FORM-38-1
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 3E 19 01) BACKQUOTE
   MACRO #Y(BACKQUOTE #16Y(00 00 00 00 01 00 01 00 00 08 9F 5C 5C 5B 19 03))
  )
#Y(#:TOP-LEVEL-FORM-38-2 #13Y(00 00 00 00 00 00 00 00 00 01 3E 19 01))
#Y(#:TOP-LEVEL-FORM-39 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "defmacro" LOAD
  )
#Y(#:TOP-LEVEL-FORM-40-1
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 3E 19 01) DEFMACRO
   MACRO
   #Y(DEFMACRO
      #95Y(00 00 00 00 01 00 01 00 00 08 95 02 2F 00 42 04 DB 63 DC DD DE DF B4
           7B 02 7B 02 92 05 31 00 14 E2 DF B6 7B 02 E3 E4 B9 7B 03 7B 03 7B 01
           33 02 23 7C 03 DC E5 E6 DF B5 7B 02 E7 E3 DF BC 7B 02 D3 7C 02 7B 04
           7B 03 DF B3 7B 02 61 05 19 07 E0 DF B5 7B 02 E1 DF B5 7B 02 7B 04 61
           01 1B 40
          )
      MAKE-MACRO-EXPANSION LET EVAL-WHEN (COMPILE LOAD EVAL)
      REMOVE-OLD-DEFINITIONS QUOTE %SET-DOCUMENTATION 'FUNCTION %PUTD CONS
      'MACRO (EVAL) %PUT 'DEFINITION ((THE-ENVIRONMENT))
  )  )
#Y(#:TOP-LEVEL-FORM-40-2
   #19Y(00 00 00 00 00 00 00 00 00 01 DA DB C7 7A 32 7F 3E 19 01) DEFUN MACRO
   #Y(DEFUN
      #367Y(00 00 00 00 02 00 00 00 00 03 9F 5C 20 1C 9F 5C 78 89 04 22 9F 5C
            5C 21 80 79 DA E0 01 02 6E 03 02 C8 14 A2 5C 5B 14 33 02 1F DA DB
            01 02 6E 03 02 DD A2 5C 1B 70 DA DF 01 02 6E 03 02 C8 1B 62 E1 A3
            1B 80 6E A7 1B 80 97 F6 F7 65 1E E1 BA 7B 02 E1 B4 7B 02 7B 03 7B
            03 F6 65 1F 65 20 B4 65 21 E1 B6 7B 02 7B 04 7B 03 61 02 1B 80 CA
            0E 16 1C 13 0E 17 1C 0F 0E 18 1C 0B 0E 19 1C 07 6B 1A 6B 1B 8C FE
            44 F6 65 22 65 1E E1 BA 7B 02 61 02 1B 80 81 9F 5C 78 A0 5C 5C 78
            A1 5C 5C 79 AC 64 B2 31 5E 42 03 A2 20 FF 97 E2 E3 E1 A5 5C 78 7B
            02 61 02 14 7B 02 B1 E4 E5 B5 7B 02 A2 7C 02 E6 B5 6F 0D A4 7C 02
            7B 03 E8 63 E9 B0 7B 02 0E 10 1D 05 0E 11 1C 80 56 A7 20 FF 6A A7
            5C 78 2F 09 14 EE 38 01 72 81 25 15 80 4D 0E 10 1C FF 7F B8 03 23
            5F 1C 26 B8 03 24 5F 1C 20 F6 65 25 E8 65 26 65 27 65 28 65 20 B7
            65 29 E1 B9 7B 02 7B 04 7B 03 61 03 14 7B 03 61 01 1B 1D 00 1B 1A
            65 2A B2 65 2B E1 B6 7B 02 7B 04 61 01 1B 10 B6 6B 12 ED 38 02 8C
            B2 FF B3 00 14 92 06 62 00 14 65 2C B3 65 2D BB 65 2E A7 7A 7B 03
            7B 03 F6 65 2F 65 20 B6 65 30 65 31 E1 C3 7B 02 03 32 7C 02 7B 04
            7B 03 E1 BB 7B 02 7B 03 33 03 23 62 03 19 0B
           )
      SOURCE-PROGRAM-ERROR "~S: cannot define a function from that: ~S"
      LANGUAGE DEFUN FUNCTION-NAME-P
      "~S: the name of a function must be a symbol, not ~S"
      "~S: function ~S is missing a lambda list" QUOTE LOAD-TIME-VALUE
      GET-SETF-SYMBOL DECLARE IN-DEFUN BLOCK FUNCTION-BLOCK-NAME LET
      REMOVE-OLD-DEFINITIONS *COMPILING* *COMPILING-FROM-FILE*
      *INLINE-FUNCTIONS* #.#'EQUAL INLINABLE INLINE *VENV* *FENV* *BENV* *GENV*
      *DENV* *TOPLEVEL-DENV* EVAL-WHEN (COMPILE) C-DEFUN (LOAD) %PUT
      'INLINE-EXPANSION (COMPILE) 0. 1. (EVAL) ((%ENV (THE-ENVIRONMENT))) IF
      (AND (NULL (SVREF %ENV 0.)) (NULL (SVREF %ENV 1.)) (NULL (SVREF %ENV 2.))
        (NULL (SVREF %ENV 3.)) (EQL (SVREF %ENV 4.) *TOPLEVEL-DENV*)
      )
      'INLINE-EXPANSION %SET-DOCUMENTATION 'FUNCTION %PUTD FUNCTION LAMBDA
      (EVAL) 'DEFINITION CONS ((THE-ENVIRONMENT))
  )  )
#Y(#:TOP-LEVEL-FORM-40-3 #13Y(00 00 00 00 00 00 00 00 00 01 3E 19 01))
#Y(#:TOP-LEVEL-FORM-41
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   MACRO-EXPANDER REMOVE-OLD-DEFINITIONS MACRO
   #Y(MACRO-EXPANDER #17Y(00 00 00 00 01 00 01 00 00 08 95 02 AC 2F 00 19 04)
      MAKE-MACRO-EXPANSION
  )  )
#Y(#:TOP-LEVEL-FORM-42 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "macros1" LOAD
  )
#Y(#:TOP-LEVEL-FORM-43 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "macros2" LOAD
  )
#Y(#:TOP-LEVEL-FORM-44 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "defs1" LOAD
  )
#Y(#:TOP-LEVEL-FORM-45 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "places" LOAD
  )
#Y(#:TOP-LEVEL-FORM-46 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "floatpri" LOAD
  )
#Y(#:TOP-LEVEL-FORM-47 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "type" LOAD
  )
#Y(#:TOP-LEVEL-FORM-48 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "defstruc" LOAD
  )
#Y(#:TOP-LEVEL-FORM-49 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "format" LOAD
  )
#Y(#:TOP-LEVEL-FORM-50 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-51 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (DEFAULT-DIRECTORY DIR)
  )
#Y(#:TOP-LEVEL-FORM-52 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-53
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEFAULT-DIRECTORY REMOVE-OLD-DEFINITIONS
   #Y(DEFAULT-DIRECTORY #16Y(00 00 00 00 00 00 00 00 00 01 38 01 31 F8 19 01))
  )
#Y(#:TOP-LEVEL-FORM-54
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   DEFAULT-DIRECTORY DEFSTRUCT-WRITER SETF-EXPANDER -1. 1.
   #Y(SETF-DEFAULT-DIRECTORY
      #20Y(00 00 00 00 02 00 00 00 00 03 DA DB AF 7B 02 AF 61 03 19 03) PROGN
      CD
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-55-1
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB DA DC 70 03 32 85 3E 19 01)
   DATE-FORMAT OTHER-LANGUAGE ENGLISH DEFINTERNATIONAL-DEFAULT
  )
#Y(#:TOP-LEVEL-FORM-55-2 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
   DATE-FORMAT
  )
#Y(#:TOP-LEVEL-FORM-56-1 #16Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 3E 19 01)
   ENGLISH ASSERT-LANGUAGE
  )
#Y(#:TOP-LEVEL-FORM-56-2
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 85 3E 19 01) DATE-FORMAT
   ENGLISH
   #Y(#:TOP-LEVEL-FORM-56-2-1
      #101Y(00 00 00 00 02 00 00 00 01 18 9F 3A 06 00 B6 01 06 B4 2D 08 00 DB
            B7 31 87 B6 01 02 DC DD 01 02 B5 2D 08 00 DB B7 31 87 B6 01 02 DC
            DD 01 02 B6 2D 08 00 DE B7 31 87 B6 01 02 DC DD 01 02 B7 2D 08 00
            DF B7 31 87 B6 01 02 DC DD 01 02 B8 2D 08 00 DF B7 31 87 B6 01 02
            DC DD 01 02 B9 2D 08 00 16 07 9E 19 04
           )
      DO-FORMAT-DECIMAL #\- 2. #\0 #\Space #\:
  )  )
#Y(#:TOP-LEVEL-FORM-56-3 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
   DATE-FORMAT
  )
#Y(#:TOP-LEVEL-FORM-57
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DATE-FORMAT REMOVE-OLD-DEFINITIONS
   #Y(DATE-FORMAT #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
      DATE-FORMAT LOCALIZED
  )  )
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) DIR
   REMOVE-OLD-DEFINITIONS
   #Y(DIR
      #32Y(00 00 00 00 00 00 01 00 00 07 3B 01 02 C5 F9 AD 8E 08 06 AD C6 34 3E
           19 02 DB AE 33 00 19 1B 76
          )
      ("*/" "*")
      #Y(LISP::DIR-ONEDIR
         #77Y(00 00 00 00 01 00 00 00 00 02 AD 64 64 71 F7 DA AD 90 00 28 0D 2E
              05 14 AD DC E0 38 02 72 64 63 1B 24 64 DB AE DC DD 38 02 72 64 2D
              03 04 19 03 87 01 00 64 E1 94 02 A0 5C 5C 5C 78 B2 A2 5C 5C 78 2D
              06 04 83 01 AD 8D 91 66 00 19 06
             )
         #.#'ATOM
         #Y(LISP::DIR-ONEDIR-1
            #32Y(00 00 00 00 02 00 00 00 01 18 AE 1B 0A B0 31 8A 94 00 83 01 B1
                 31 83 AC 8D 91 72 16 01 9E 19 04
           )    )
         #.#'STRING< #.#'NAMESTRING FORMAT DATE-FORMAT
         #Y(LISP::DIR-ONEDIR-2
            #18Y(00 00 00 00 01 00 00 00 00 02 94 01 38 01 31 F1 19 02)
           )
         #Y(LISP::DIR-ONEDIR-3
            #81Y(00 00 00 00 04 00 00 00 01 1A B1 31 8A B0 B2 31 83 B1 01 02 DA
                 63 2D 05 01 B1 01 02 DC 01 03 B6 2D 08 03 B1 01 02 DE 63 2D 05
                 01 B1 71 8F 38 01 AD 72 72 B3 01 02 DF 01 03 B4 01 04 B8 BD BD
                 2D 03 06 09 0F B8 72 73 7B 01 2D 0D 07 16 02 9E 19 06
                )
            40. FORMAT-TABULATE 7. DO-FORMAT-DECIMAL 52. 21.
            DO-FORMAT-INDIRECTION DO-FORMAT-JUSTIFICATION
  )  )  )  )
#Y(#:TOP-LEVEL-FORM-59
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SEARCH-FILE REMOVE-OLD-DEFINITIONS
   #Y(SEARCH-FILE
      #175Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 02 00 00 AF 38 01 31 E9
            59 14 93 00 0A DA 68 02 00 33 00 17 0B 01 00 B0 DB 38 02 80 EE 04
            63 DC DD B3 38 01 71 E7 DE 38 02 8C B2 0B DF 6B 06 33 00 17 7A 63
            1B 80 63 00 1B 78 B2 6D 07 01 AD 38 05 81 50 00 93 00 80 49 14 63
            1B 10 87 01 00 14 99 08 9F 5C 5C 5B 77 00 31 A9 83 01 AD 8D 91 6C
            16 02 E3 AD E4 E5 38 02 72 64 33 00 17 19 0A 87 01 00 B3 AD 38 02
            71 EE 38 03 71 EE AC B0 DE 38 02 8C B2 12 AC 64 64 71 F7 92 05 FF
            AD 92 00 FF B7 16 01 AC 84 03 16 01 83 01 AD 8D 91 51 00 19 08
           )
      #.#'PATHNAME-TYPE
      #-CLISP #P".*"
      #+CLISP
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "*" :VERSION NIL
        )
      #-CLISP #P""
      #+CLISP
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE NIL :VERSION NIL
        )
      ".." #.#'EQUAL #.#'PATHNAME *LOAD-PATHS*
      #Y(SEARCH-FILE-1
         #26Y(00 00 00 00 01 00 00 00 00 02 94 01 38 01 71 E9 69 00 01 DB 38 02
              31 B2 19 02
             )
         NIL #.#'STRING=
        )
      ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
  )  )
#Y(#:TOP-LEVEL-FORM-60 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "room" LOAD
  )
#Y(#:TOP-LEVEL-FORM-61 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "savemem" LOAD
  )
#Y(#:TOP-LEVEL-FORM-62
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) CERROR
   REMOVE-OLD-DEFINITIONS
   #Y(CERROR
      #96Y(00 00 00 00 02 00 00 00 01 18 0E 00 1C 2E 6B 01 31 8A DC 6B 01 38 02
           31 88 6B 01 31 8A 99 03 6B 01 B0 A1 37 02 6B 04 31 8A 6B 04 89 05 04
           0E 06 1C 13 99 03 6B 04 A2 14 A1 9B 02 04 14 92 04 01 02 14 A1 1B 72
           E1 01 02 6E 03 08 6B 04 38 02 31 88 99 03 6B 04 B1 A1 37 02 6B 06 64
           36 01 19 04
          )
      *ERROR-HANDLER* *ERROR-OUTPUT* "** - Continuable Error" FORMAT *DEBUG-IO*
      INTERACTIVE-STREAM-P *BREAK-DRIVER*
      "If you continue (by typing 'continue'): " LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-63 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "trace" LOAD
  )
#Y(#:TOP-LEVEL-FORM-64 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "compiler" LOAD
  )
#Y(#:TOP-LEVEL-FORM-65 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "disassem" LOAD
  )
#Y(#:TOP-LEVEL-FORM-66 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "defs2" LOAD
  )
#Y(#:TOP-LEVEL-FORM-67 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "loop" LOAD
  )
#Y(#:TOP-LEVEL-FORM-68 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "clos" LOAD
  )
#Y(#:TOP-LEVEL-FORM-69 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "conditio" LOAD
  )
#Y(#:TOP-LEVEL-FORM-70 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "gstream" LOAD
  )
#Y(#:TOP-LEVEL-FORM-71 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "xcharin" LOAD
  )
#Y(#:TOP-LEVEL-FORM-72 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "keyboard" LOAD
  )
#Y(#:TOP-LEVEL-FORM-73
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 31 CA 1F 05 DB 2F 02 19 01 19 01)
   "SCREEN" "screen" LOAD
  )
#Y(#:TOP-LEVEL-FORM-74 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "runprog" LOAD
  )
#Y(#:TOP-LEVEL-FORM-75 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "query" LOAD
  )
#Y(#:TOP-LEVEL-FORM-76 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "reploop" LOAD
  )
#Y(#:TOP-LEVEL-FORM-77 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "dribble" LOAD
  )
#Y(#:TOP-LEVEL-FORM-78 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "complete" LOAD
  )
#Y(#:TOP-LEVEL-FORM-79 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "describe" LOAD
  )
#Y(#:TOP-LEVEL-FORM-80 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "edit" LOAD
  )
#Y(#:TOP-LEVEL-FORM-81 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "foreign1" LOAD
  )
#Y(#:TOP-LEVEL-FORM-82 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "defs3" LOAD
  )
#Y(#:TOP-LEVEL-FORM-83 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "german" LOAD
  )
#Y(#:TOP-LEVEL-FORM-84 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "french" LOAD
  )
#Y(#:TOP-LEVEL-FORM-85 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "spanish" LOAD
  )
#Y(#:TOP-LEVEL-FORM-86 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "dutch" LOAD
  )
#Y(#:TOP-LEVEL-FORM-87 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   "config" LOAD
  )
#Y(#:TOP-LEVEL-FORM-88 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "USER"
  )
