(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #14Y(00 00 00 00 00 01 D8 D9 70 CD 30 DC 19 01)
   SYSTEM::DEBUG "SYSTEM"
  )
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
    CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
    LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL
    READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR
    SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING
    STRING-CHAR SYMBOL T VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE
    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*
    *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK* + ++ +++ - * **
    *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT* *QUERY-IO*
    *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT* *READ-BASE* *READ-SUPPRESS*
    *READTABLE* *PRINT-READABLY* *PRINT-ESCAPE* *PRINT-PRETTY* *PRINT-CIRCLE*
    *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE* *PRINT-GENSYM* *PRINT-LEVEL*
    *PRINT-LENGTH* *PRINT-ARRAY* *READ-DEFAULT-FLOAT-FORMAT*
    *DEFAULT-PATHNAME-DEFAULTS* *LOAD-PATHS* *LOAD-VERBOSE* *LOAD-PRINT*
    *LOAD-ECHO* *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-FORM-P
    SET MAKUNBOUND FMAKUNBOUND 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 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 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 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 ADJUSTABLE-ARRAY-P
    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 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 INPUT-STREAM-P
    OUTPUT-STREAM-P STREAM-ELEMENT-TYPE INTERACTIVE-STREAM-P CLOSE
    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 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 LOAD DIRECTORY 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-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 INCF DECF PUSH PUSHNEW POP
    DEFSTRUCT WITH-OPEN-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING
    WITH-OPEN-FILE CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE
    UNTRACE STEP TIME ENGLISH DEUTSCH FRANCAIS EVAL LOAD COMPILE SPECIAL TYPE
    FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE SPEED SPACE SAFETY
    COMPILATION-SPEED DEBUG DECLARATION COMPILE INTERPRETER COMPILER
  ))
#Y(#:TOP-LEVEL-FORM-4 #12Y(00 00 00 00 00 01 D8 D9 31 79 19 01)
   LAMBDA-LIST-KEYWORDS
   (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
  )
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   #.LAMBDA-LIST-KEYWORDS
  )
#Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D8 D9 31 78 19 01) EXIT
   #.#'SYSTEM::%EXIT
  )
#Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 D9 31 78 19 01) QUIT
   #.#'SYSTEM::%EXIT
  )
#Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 D9 31 78 19 01) BYE
   #.#'SYSTEM::%EXIT
  )
#Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (EXIT QUIT BYE)
  )
#Y(#:TOP-LEVEL-FORM-10 #11Y(00 00 00 00 00 01 D8 30 5B 19 01)
   (SPECIAL *FEATURES*)
  )
#Y(#:TOP-LEVEL-FORM-11 #14Y(00 00 00 00 00 01 6A 00 37 01 30 DA 19 01)
   *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 6A 00 37 01 30 D8 19 01)
   *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-13 #14Y(00 00 00 00 00 01 D8 D9 37 01 30 E1 19 01) "SYSTEM"
   ("SYS" "COMPILER")
  )
#Y(#:TOP-LEVEL-FORM-14 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *COMPILING*)
#Y(#:TOP-LEVEL-FORM-15 #14Y(00 00 00 00 00 01 D8 37 01 D9 30 E1 19 01) "CLOS"
   ("LISP")
  )
#Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 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 INITIALIZE-INSTANCE REINITIALIZE-INSTANCE
    SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS BUILT-IN-CLASS
    STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD
  ))
#Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 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
    STREAM-ERROR END-OF-FILE FILE-ERROR CELL-ERROR UNBOUND-VARIABLE
    UNDEFINED-FUNCTION ARITHMETIC-ERROR DIVISION-BY-ZERO
    FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW
  ))
#Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-20
   #23Y(00 00 00 00 00 01 D8 C4 79 DA AB 31 78 DB AB 31 78 DC AB 31 78 19 02)
   MACRO
   #Y(#:TOP-LEVEL-FORM-20-1
      #33Y(02 00 00 00 00 03 D8 9E 36 00 D9 AD DA 37 01 71 7B AE DB 37 01 71 7B
           AF DC 37 01 71 7B 60 04 19 03
          )
      #Y(#:TOP-LEVEL-FORM-20-1-1 #13Y(00 00 00 00 C0 1B 00 00 00 00 00 19 01))
      LANGUAGE ENGLISH DEUTSCH FRANCAIS
     )
   ENGLISH DEUTSCH FRANCAIS
  )
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D8 D9 31 78 19 01)
   EXPORTED-LISP-SYMBOL-P
   #Y(EXPORTED-LISP-SYMBOL-P
      #73Y(01 00 00 00 00 02 AB 71 82 D8 70 CD 91 00 23 16 01 1D 34 DA 70 CD 9B
           1E 2C AB AB 30 D6 41 02 AB A1 59 1E 1F AA C4 59 19 06 AA C4 59 16 03
           1D 17 1A 61 AB AB 30 D6 41 02 AB A1 59 1B 6C 16 03 1D 06 1A 50 19 06
           19 04 19 03
          )
      "LISP" :EXTERNAL "COMMON-LISP"
  )  )
#Y(#:TOP-LEVEL-FORM-22 #12Y(00 00 00 00 00 01 D8 D9 31 78 19 01)
   REMOVE-OLD-DEFINITIONS
   #Y(REMOVE-OLD-DEFINITIONS
      #112Y(01 00 00 00 00 02 AB 8B 52 80 4C AB 8B 51 04 AB 8C 58 1A AB 88 05
            16 DE DF E0 6D 03 04 E1 E2 E3 6D 03 04 AD 6E 0C AE AF 70 58 2C 05
            0D AB 30 55 AB E6 31 7F AB E7 37 01 8E 7A 06 AB E8 62 2C 03 11 AB
            EA 37 01 8E 7A 05 AB EA 63 31 7E AB EB 37 01 8D 7A 0E 00 19 02 D8
            D9 DA DB 6D 03 04 AD 32 01 1F EC ED EE 6D 03 04 AC 2F 17 AB 2E 18
            19 02
           )
      ERROR "~S is a special form and may not be redefined."
      "~S ist eine Special-Form und darf nicht umdefiniert werden."
      "~S est une forme spéciale et ne peut pas être redéfinie." LANGUAGE
      EXPORTED-LISP-SYMBOL-P "The old definition will be lost"
      "Die alte Definition wird weggeworfen."
      "L'ancienne définition sera perdue." "Redefining the COMMON LISP ~A ~S"
      "D~2@*~:[ie~;er~]~0@* COMMON-LISP-~A ~S wird umdefiniert."
      "L~2@*~:[a~;e~]~0@* ~A ~S de COMMON-LISP va être redéfini~:[e~;~]."
      FBOUND-STRING CERROR MACRO DOCUMENTATION-STRINGS FUNCTION
      %SET-DOCUMENTATION INLINE-EXPANSION TRACED-DEFINITION
      "DEFUN/DEFMACRO: redefining ~S; it was traced!"
      "DEFUN/DEFMACRO: ~S war getraced und wird umdefiniert!"
      "DEFUN/DEFMACRO : ~S était tracée et est redéfinie!" WARN UNTRACE2
  )  )
#Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BLOCK-NAME REMOVE-OLD-DEFINITIONS
   #Y(BLOCK-NAME #17Y(01 00 00 00 00 02 9C 1F 05 9C 5B 5A 19 02 9C 19 02))
  )
#Y(#:TOP-LEVEL-FORM-24-1 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *KEYWORD-PACKAGE*)
  )
#Y(#:TOP-LEVEL-FORM-24-2 #14Y(00 00 00 00 00 01 D8 30 CD 0F 01 3D 19 01)
   "KEYWORD" *KEYWORD-PACKAGE*
  )
#Y(#:TOP-LEVEL-FORM-24-3 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *FENV*)
  )
#Y(#:TOP-LEVEL-FORM-24-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   FENV-ASSOC REMOVE-OLD-DEFINITIONS
   #Y(FENV-ASSOC
      #80Y(02 00 00 00 00 03 92 01 80 43 14 8D 23 0F DA DB AD DC DD DE DF E0 6D
           03 09 B1 32 05 1F AB 71 45 71 8E D8 1A 15 AD AB 31 8D 5E 19 05 AE AE
           9D 5E 14 8D 02 71 D9 AB 81 02 35 00 AA AC 90 01 2D 6C AE AE 9D 5E 14
           28 02 07 00 91 01 FF BD 02 19 03
          )
      0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
      "~S is an invalid function environment"
      "~S ist kein korrektes Function-Environment."
      "~S n'est pas un environnement de fonctions correct." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-24-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
   #Y(GLOBAL-IN-FENV-P #14Y(02 00 00 00 00 03 AC AC 6F 00 02 59 19 03)
      FENV-ASSOC
  )  )
#Y(#:TOP-LEVEL-FORM-24-6 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *VENV*)
  )
#Y(#:TOP-LEVEL-FORM-24-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   VENV-ASSOC REMOVE-OLD-DEFINITIONS
   #Y(VENV-ASSOC
      #86Y(02 00 00 00 00 03 92 01 80 40 14 8D 23 0F DA DB AD DC DD DE DF E0 6D
           03 09 B1 32 05 1F AB 71 45 71 8E D8 1A 13 AD AB 31 8D 5E 19 05 AE AE
           9D 5E 21 73 D9 AB 81 02 35 00 AA AC 90 01 2D 6E AE AE 9D 5E 14 28 02
           07 00 91 01 40 AC 30 50 1E 05 AC 30 4F 19 03 19 03
          )
      0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
      "~S is an invalid variable environment"
      "~S ist kein korrektes Variablen-Environment."
      "~S n'est pas un environnement de variables correct." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-24-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-CONS REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-CONS
      #25Y(05 00 00 00 00 06 91 03 0A 91 01 07 AF 00 14 3F 02 19 06 AE 9E 79 02
           1A 75
  )  )    )
#Y(#:TOP-LEVEL-FORM-24-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-FORM REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-FORM
      #1193Y(01 00 00 00 00 02 9C 20 84 20 62 AC 8E 06 0A AC 6A 00 2F 01 F6 14
             87 02 07 AC 00 14 3F 02 19 03 AA DB 71 2B 02 1A 74 9C 25 07 83 E1
             AD 00 1A 84 3A E4 E5 E6 D2 1A 80 54 9B 1F 05 93 00 23 0B 71 EA EB
             EC ED 6D 03 10 D4 1A 84 31 05 00 03 5B 77 6A 05 6F 06 AA 02 21 07
             AA 8D 0A 03 91 00 59 05 00 03 78 62 3F 02 16 01 1A 83 E6 97 08 44
             AE E2 62 05 00 03 5B 5B 20 3D 05 00 03 5B 77 87 04 4B 05 00 03 5B
             5A 20 15 E4 EE EF 03 18 14 6D 03 10 E9 66 00 03 05 00 03 5B 77 32
             03 1F 97 08 44 05 01 03 78 05 01 03 5B 77 2E 19 40 05 01 03 5B 78
             62 45 1A 83 9C 97 08 44 05 01 03 78 05 01 03 5B 77 62 97 08 44 05
             02 03 5B 78 05 02 03 5B 5B 77 2E 19 40 05 02 03 5B 5B 78 62 45 1A
             83 2A F3 F4 F5 A1 5B 5B 79 30 5C 42 14 7A 02 60 02 1A 83 79 F2 9F
             5B 77 37 03 8B B5 65 97 08 44 AE 05 00 03 5A 1A 81 77 0E 00 10 00
             A1 5B 78 2E 1E 97 08 44 B1 05 00 06 77 62 97 08 44 05 01 06 78 05
             01 06 5B 77 2E 1F 1A 20 0E 00 10 00 A1 5B 78 2E 1E 97 08 44 B1 05
             00 06 77 62 97 08 44 05 01 06 78 05 01 06 5B 77 2E 20 40 05 01 06
             5B 78 2E 09 1A 80 5B 0E 00 10 00 94 06 2E 1E 97 08 44 B1 05 00 06
             77 62 05 00 06 78 2E 09 1A 80 43 0E 00 10 00 A1 5B 5B 78 2E 1E 97
             08 44 B1 64 21 62 97 08 44 05 01 06 78 05 01 06 5B 77 62 97 08 44
             05 02 06 5B 78 05 02 06 5B 5B 77 27 FE 6C 40 05 02 06 5B 77 2E 22
             05 02 06 5B 5B 78 2E 09 40 45 40 45 40 45 11 19 04 98 23 9F 5B 77
             72 00 17 98 24 A0 5B 77 32 00 17 13 F5 05 00 03 5B 5B 79 6B FE 38
             63 3F 02 11 18 01 19 04 97 08 44 AE 05 00 03 77 62 05 00 03 78 2E
             25 1A 82 69 97 08 44 B0 05 00 05 77 62 97 08 44 05 01 05 78 05 01
             05 5B 77 62 66 01 01 66 01 00 45 40 45 19 06 9C 1A 1C 9C 5A 1A 18
             9E 5B 78 2E 09 41 02 A0 5B 77 AC 89 26 4A 9C 1F 68 9C 5B 1C 67 F5
             9D 5C 14 63 3F 02 19 06 03 29 1A 07 93 03 23 28 77 03 2A 14 AA 70
             58 AB A1 5B 79 6A 00 6A 05 72 02 00 75 02 6B FD B9 63 3F 02 19 05
             94 03 87 27 5B 97 08 44 AE 05 00 03 77 62 05 00 03 78 2E 2B 1A 81
             E8 64 2D 9F 1A 80 8F 9E 5B 77 87 2C 74 97 08 44 AE 03 2E 14 62 97
             08 44 05 01 03 78 05 01 03 5B 77 62 1A 81 74 97 08 44 AE 05 00 03
             77 62 05 00 03 78 2E 2F 1A 81 B2 00 1A 81 C6 9E 5B 5A 1A 81 BC 9E
             5B 1C 72 9E 5B 5B 1C 71 97 08 44 AE 05 00 03 5A 1A 81 8C 9E 5B 5A
             1C 39 9E 5B 77 6E 30 97 08 44 AF 05 00 04 77 62 97 08 44 05 01 04
             78 05 01 04 5B 77 2E 31 40 64 32 05 01 00 36 00 10 05 05 01 04 5B
             78 2E 09 11 40 45 40 45 19 05 9E 5B 5A 1B 08 F5 9F 5B 5B 5C 1A 81
             62 9E 5B 77 6E 30 64 32 9C 36 00 10 05 97 08 44 B2 05 00 07 77 62
             97 08 44 05 01 07 78 05 01 07 5B 77 2E 31 40 05 01 07 5B 78 2E 09
             40 45 40 45 11 19 05 9E 5B 77 62 1A 2F E4 64 34 64 35 03 36 1A 80
             49 E4 64 37 64 38 03 39 1A 80 75 93 01 9B 1F 67 93 00 8E 06 62 9B
             5B 1F 5E AA 6E 33 93 01 9E 5C 5C F7 16 01 82 01 9C 20 62 91 01 55
             64 32 6A 05 9D 79 31 47 36 00 10 05 03 1D 1A 80 5A 9E 5B 77 62 1A
             30 E4 64 3B 64 3C 03 3D 14 6D 03 10 9D 1A 34 93 01 9B 1F 6D 93 00
             8E 06 68 9B 5B 1F 64 9B 5B 5B 1B 5F 9B 5B 77 6E 3A 93 01 9E 5C 5C
             F7 16 01 82 01 9C 20 5B 92 01 10 E4 64 3E 64 3F 03 40 14 6D 03 10
             9E 14 32 01 1F 64 32 6A 00 9D 79 31 47 36 00 10 00 03 41 14 A4 5B
             5B 79 6B FC 23 63 3F 02 11 19 06 97 08 44 AE 05 00 03 77 62 97 08
             44 05 01 03 78 05 01 03 5B 77 2E 42 40 05 01 03 5B 78 2E 09 40 45
             1A 80 44 AB 8E 06 04 AB 8B 52 2D AB 8E 06 29 AB 7F 58 00 1C 23 AA
             AE 6A 00 6A 05 32 02 00 1A 38 93 01 AA 88 04 80 64 AA 6A 05 6F 06
             AA 02 21 FB EC AA 8D 0A 03 91 00 13 97 08 44 AE 05 00 01 14 62 05
             00 03 78 2E 09 40 45 19 04 9B 1F 18 93 00 24 0B 13 94 00 AE 0E 05
             14 35 02 14 27 FB 9D 14 02 14 3F 02 19 04 EA 64 43 64 44 64 45 6D
             03 10 03 46 14 0E 05 1A 24 97 08 44 AD 66 00 00 2E 19 40 05 00 02
             78 2E 09 40 45 19 03 9B 20 69 E4 64 47 64 48 64 49 6D 03 10 64 46
             A0 14 32 02 1F
            )
      *VENV* VENV-ASSOC SYMBOL-MACRO-P 0. FUNCTION-NAME-P *FENV* FENV-ASSOC
      #S(HASH-TABLE EQ (%HANDLER-BIND . 959.) (SYMBOL-MACROLET . 855.)
         (MACROLET . 779.) (LABELS . 716.) (FLET . 659.) (PROGN . 639.)
         (TAGBODY . 611.) (MULTIPLE-VALUE-SETQ . 581.) (PSETQ . 552.)
         (SETQ . 552.) (BLOCK . 486.) (COND . 428.) (COMPILER-LET . 393.)
         (MULTIPLE-VALUE-BIND . 321.) (LOCALLY . 295.) (LET* . 252.)
         (LET . 218.) (EVAL-WHEN . 198.) (FUNCTION . 65.)
         (LOAD-TIME-VALUE . 2.) (DECLARE . 2.) (GO . 2.) (QUOTE . 2.)
         (THE . 207.) (RETURN-FROM . 207.)
        )
      %EXPAND-CONS %EXPAND-LIST FUNCTION MACRO PROGRAM-ERROR
      "~S: ~S is illegal since ~S is a local macro"
      "~S: ~S unzulässig, da ~S ein lokaler Macro ist"
      "~S : ~S est illégal car ~S est un macro local" LANGUAGE %EXPAND ERROR
      "~S: invalid function environment ~S"
      "~S: Falscher Aufbau eines Function-Environment: ~S"
      "~S : mauvais environnement de fonction ~S"
      "~S: ~S is invalid since ~S is not a symbol"
      "~S: ~S unzulässig, da ~S kein Symbol"
      "~S : ~S est illégal car ~S n'est pas un symbole" %EXPAND-LAMBDA COMPILE
      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 %RETURN-P
      %EXPAND-SETQLIST-MACROP SETQ SETF PSETF %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"
      "Falsche Syntax in MACROLET: ~S" "syntaxe illégale dans MACROLET : ~S"
      "code after MACROLET contains a dotted list, ending with ~S"
      "Dotted list im Code von MACROLET, endet mit ~S"
      "Le code de MACROLET contient une paire pointée, terminée par ~S"
      MAKE-SYMBOL-MACRO "illegal syntax in SYMBOL-MACROLET: ~S"
      "Falsche Syntax in SYMBOL-MACROLET: ~S"
      "syntaxe illégale dans SYMBOL-MACROLET : ~S"
      "code after SYMBOL-MACROLET contains a dotted list, ending with ~S"
      "Dotted list im Code von SYMBOL-MACROLET, endet mit ~S"
      "Le code de SYMBOL-MACROLET contient une paire pointée, terminée par ~S"
      LOCALLY %EXPAND-HANDLERS "bad function environment occurred in ~S: ~S"
      "Falscher Aufbau eines Function-Environment in ~S: ~S"
      "mauvais environnement de fonction dans ~S : ~S" %EXPAND-FORM
      "~S: invalid form ~S" "~S: ~S ist keine korrekte Form"
      "~S : forme Lisp incorrecte ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-24-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-LIST REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LIST
      #50Y(01 00 00 00 00 02 9C 1F 20 97 05 44 AC 05 00 01 77 2E 06 40 05 00 01
           78 27 6C 40 45 19 02 D8 D9 DA DB 6D 03 04 AD 32 01 1F 91 01 72 01 02
           3F 02 19 02
          )
      PROGRAM-ERROR "code contains a dotted list, ending with ~S"
      "Dotted list im Code, endet mit ~S"
      "une paire pointée dans le code, terminée par ~S" LANGUAGE %EXPAND-CONS
      %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-24-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-LEXICAL-VARIABLES REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LEXICAL-VARIABLES
      #53Y(01 00 00 00 00 02 91 01 03 00 19 02 D8 62 AD 1A 0E 93 00 AA 62 7A 02
           AD 7F A4 02 16 01 82 00 9B 20 6F 16 01 AA 7F A5 00 6A 01 7A 01 32 02
           24 36 00 0F 01 19 02
          )
      #.#'VECTOR *VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-24-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-SPECIAL-DECLARATIONS REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-SPECIAL-DECLARATIONS
      #87Y(01 00 00 00 00 02 AB 62 6A 00 6A 01 72 02 00 30 60 41 02 62 AB 71 47
           AA 1A 31 94 00 AA 1A 11 AA 83 06 16 01 1A 08 93 00 AA 8D 06 73 16 01
           82 00 9B 20 73 16 03 1A 12 93 00 9B 1F 0B AA 30 9E 5B 1B 05 93 00 23
           02 53 16 01 82 00 9B 20 69 16 02 AA 71 47 2E 03 19 05
          )
      *VENV* *FENV* SPECIAL %EXPAND-LEXICAL-VARIABLES
  )  )
#Y(#:TOP-LEVEL-FORM-24-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDA
      #39Y(01 00 00 00 00 02 93 01 24 00 10 97 07 44 AC D8 62 05 00 01 78 2E 08
           40 45 19 02 D9 DA DB DC 6D 03 05 DE AE 32 02 1F
          )
      LAMBDA PROGRAM-ERROR "~S: ~S should be a lambda expression"
      "~S: ~S sollte LAMBDA-Ausdruck sein"
      "~S : ~S devrait être une expression LAMBDA" LANGUAGE %EXPAND-FORM
      %EXPAND-CONS %EXPAND-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-24-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDABODY
      #92Y(01 00 00 00 00 02 94 01 9B 1F 10 93 00 AA 8E 04 06 93 00 C3 59 1B 35
           16 01 1B 3B 0E 02 10 02 93 05 6E 03 D8 D9 B2 7A 02 7A 02 94 07 2E 04
           7B 02 63 3F 02 11 19 03 93 00 C4 59 16 03 1C 5D 1A 16 93 00 AA 8D 04
           70 16 03 1C 51 1A 0A 94 00 AA 8D 04 6E 16 02 1C 45 AC 62 3F 02 19 03
          )
      DECLARE SOURCE *VENV* %EXPAND-LAMBDALIST %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-24-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-LAMBDALIST REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDALIST
      #75Y(01 00 00 00 00 02 9C 1F 39 97 05 44 AC 05 00 01 77 2E 06 40 05 00 01
           77 AA DF E0 37 02 8B B5 0B AA 6E 09 62 6A 0A 32 03 00 0F 0A 16 01 05
           00 01 78 27 53 40 45 19 02 D8 D9 DA DB 6D 03 04 AD 32 01 1F 91 01 72
           01 02 3F 02 19 02
          )
      PROGRAM-ERROR "lambda list must not end with the atom ~S"
      "Lambdaliste darf nicht mit dem Atom ~S enden"
      "La liste lambda ne peut pas se terminer par l'atome ~S" LANGUAGE
      %EXPAND-CONS %EXPAND-PARSPEZ #.LAMBDA-LIST-KEYWORDS #.#'EQ
      %EXPAND-VARSPEC-VAR *VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-24-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-PARSPEZ REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-PARSPEZ
      #54Y(01 00 00 00 00 02 9C 1F 27 9C 5B 1F 23 97 00 44 AC 05 00 01 77 62 97
           00 44 05 01 01 78 05 01 01 5B 77 2E 01 40 05 01 01 5B 78 62 45 40 45
           19 02 AB 62 3F 02 19 02
          )
      %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-24-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-VARSPEZ REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEZ
      #76Y(01 00 01 00 00 08 3C 01 9D 1F 2D 97 08 44 AD 05 00 02 77 2E 09 40 05
           00 02 78 62 05 00 02 77 6E 0A 05 00 01 7B 02 27 5E 40 45 19 03 D8 D9
           DA DB 6D 03 04 DD AF 32 02 1F 91 02 71 DE 6A 07 9E 79 31 47 36 00 0F
           07 01 02 3F 02 19 03
          )
      PROGRAM-ERROR "~S: variable list ends with the atom ~S"
      "~S: Variablenliste endet mit dem Atom ~S"
      "~S : La liste de variables se termine par l'atome ~S" LANGUAGE LET
      #.#'VECTOR *VENV* %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-24-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-VARSPEZ* REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEZ*
      #65Y(01 00 00 00 00 02 9C 1F 2F 97 06 44 AC 05 00 01 77 2E 07 40 05 00 01
           77 6E 08 62 6A 09 32 03 00 0F 09 05 00 01 78 27 5E 40 45 19 02 D8 D9
           DA DB 6D 03 04 DD AE 32 02 1F 91 01 71 01 02 3F 02 19 02
          )
      PROGRAM-ERROR "~S: variable list ends with the atom ~S"
      "~S: Variablenliste endet mit dem Atom ~S"
      "~S : La liste de variables se termine par l'atome ~S" LANGUAGE LET*
      %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR *VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-24-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-VARSPEC-VAR REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEC-VAR #16Y(01 00 00 00 00 02 9C 1F 04 9C 5A 19 02 9C 19 02)
  )  )
#Y(#:TOP-LEVEL-FORM-24-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-VARSPEC-VAL REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARSPEC-VAL
      #19Y(01 00 00 00 00 02 9C 1F 07 9C 5B 77 30 5C 19 02 00 19 02)
  )  )
#Y(#:TOP-LEVEL-FORM-24-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-COND REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-COND
      #36Y(01 00 00 00 00 02 9C 1F 15 97 00 44 AC 05 00 01 77 2E 01 40 05 00 01
           78 27 6C 40 45 19 02 AB 62 3F 02 19 02
          )
      %EXPAND-CONS %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-24-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %RETURN-P REMOVE-OLD-DEFINITIONS
   #Y(%RETURN-P
      #66Y(02 00 00 00 00 03 9C 1F 33 93 01 9B 1F 28 93 00 24 00 06 9B 5B 77 9F
           21 26 9B 5A 1F 07 AD 93 01 27 64 1B 1B 93 00 24 01 06 9B 5B 77 9F 21
           07 AD 94 01 27 52 1B 09 16 01 82 01 1A 4A 00 19 03 02 19 04
          )
      RETURN-FROM BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-24-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-VARLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-VARLIST-MACROP
      #34Y(01 00 00 00 00 02 AB 31 04 1E 15 93 01 8E 06 0A 93 01 6A 00 6F 01 2E
           02 1D 06 94 01 28 01 03 66 19 02
          )
      *VENV* VENV-ASSOC SYMBOL-MACRO-P
  )  )
#Y(#:TOP-LEVEL-FORM-24-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-SETQLIST-MACROP
      #41Y(01 00 00 00 00 02 AB 31 04 1E 1C 94 01 31 04 1E 16 93 01 8E 06 0A 93
           01 6A 00 6F 01 2E 02 1D 07 9C 5B 78 28 01 03 5F 19 02
          )
      *VENV* VENV-ASSOC SYMBOL-MACRO-P
  )  )
#Y(#:TOP-LEVEL-FORM-24-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-SETQLIST REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-SETQLIST
      #56Y(01 00 00 00 00 02 9C 1F 29 9C 5B 1F 25 97 00 44 AC 05 00 01 77 62 97
           00 44 05 01 01 78 05 01 01 5B 77 2E 01 40 05 01 01 5B 78 27 5A 40 45
           40 45 19 02 AB 62 3F 02 19 02
          )
      %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-24-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-TAGBODY REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-TAGBODY
      #77Y(01 00 00 00 00 02 9C 1F 21 9C 5A 1F 23 93 01 2E 01 41 02 9C 1F 2D 97
           00 44 AE 66 00 01 66 00 00 05 00 03 78 27 60 40 45 19 04 AB 62 3F 02
           19 02 97 00 44 AC 05 00 01 77 62 05 00 01 78 27 47 40 45 19 02 94 03
           6B FF BE 63 3F 02 19 04
          )
      %EXPAND-CONS %EXPAND-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-24-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-FUNDEFS-1 REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-FUNDEFS-1
      #65Y(01 00 00 00 00 02 9C 1F 24 93 01 9B 1F 09 93 00 88 06 04 9B 5B 20 1F
           D8 DF E0 E1 6D 03 04 9D 14 32 01 1F D8 D9 DA DB 6D 03 04 9E 1A 72 91
           01 73 6A 05 60 01 19 02 93 00 62 94 04 27 49 61 02 19 03
          )
      PROGRAM-ERROR "FLET/LABELS: code contains a dotted list, ending with ~S"
      "FLET/LABELS: Dotted list im Code, endet mit ~S"
      "FLET/LABELS : une paire pointée dans le code, terminée par ~S" LANGUAGE
      *FENV* FUNCTION-NAME-P "illegal syntax in FLET/LABELS: ~S"
      "Falsche Syntax in FLET/LABELS: ~S"
      "syntaxe incorrecte dans FLET/LABELS : ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-24-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-FUNDEFS-2 REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-FUNDEFS-2
      #51Y(01 00 00 00 00 02 9C 1F 24 93 01 97 00 44 AD 97 00 44 66 01 00 05 01
           00 77 62 05 01 00 78 2E 01 40 45 40 05 00 02 78 27 5D 40 45 19 03 AB
           62 3F 02 19 02
          )
      %EXPAND-CONS %EXPAND-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-24-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-HANDLERS REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-HANDLERS
      #51Y(01 00 00 00 00 02 9C 1F 24 93 01 97 00 44 AD 97 00 44 66 01 00 05 01
           00 77 62 05 01 00 78 2E 01 40 45 40 05 00 02 78 27 5D 40 45 19 03 AB
           62 3F 02 19 02
          )
      %EXPAND-CONS %EXPAND-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-24-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   %EXPAND-LAMBDABODY-MAIN REMOVE-OLD-DEFINITIONS
   #Y(%EXPAND-LAMBDABODY-MAIN
      #19Y(03 00 00 00 00 04 9D 10 00 9F 10 01 B3 2E 02 12 02 19 04) *VENV*
      *FENV* %EXPAND-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-24-31 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-25-1 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *LOAD-PATHS*)
  )
#Y(#:TOP-LEVEL-FORM-25-2 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-PATHS*
  )
#Y(#:TOP-LEVEL-FORM-25-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   SEARCH-FILE REMOVE-OLD-DEFINITIONS
   #Y(SEARCH-FILE
      #49Y(02 00 00 00 00 03 62 AC 71 46 1A 1B AA 60 01 1A 0D 93 00 AF AB 37 01
           70 F1 AA 8B F6 6F 00 F6 AD 7F A4 02 16 01 82 00 9B 20 67 16 01 AA 30
           A5 19 04
  )  )    )
#Y(#:TOP-LEVEL-FORM-25-4 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *LOAD-VERBOSE*)
  )
#Y(#:TOP-LEVEL-FORM-25-5 #12Y(00 00 00 00 00 01 02 0F 00 3D 19 01)
   *LOAD-VERBOSE*
  )
#Y(#:TOP-LEVEL-FORM-25-6 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *LOAD-PRINT*)
  )
#Y(#:TOP-LEVEL-FORM-25-7 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-PRINT*
  )
#Y(#:TOP-LEVEL-FORM-25-8 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *LOAD-ECHO*)
  )
#Y(#:TOP-LEVEL-FORM-25-9 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-ECHO*)
#Y(#:TOP-LEVEL-FORM-25-10 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *LOAD-PATHNAME*)
  )
#Y(#:TOP-LEVEL-FORM-25-11 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
   *LOAD-PATHNAME*
  )
#Y(#:TOP-LEVEL-FORM-25-12 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *LOAD-TRUENAME*)
  )
#Y(#:TOP-LEVEL-FORM-25-13 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
   *LOAD-TRUENAME*
  )
#Y(#:TOP-LEVEL-FORM-25-14 #12Y(00 00 00 00 00 01 D8 30 55 3D 19 01) LOAD)
#Y(#:TOP-LEVEL-FORM-25-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   LOAD REMOVE-OLD-DEFINITIONS
   #Y(LOAD
      #326Y(01 00 00 00 80 1C 05 00 00 00 3A 05 03 0E 05 FB 3A 04 03 0E 06 FA
            3A 03 02 7D 03 3A 02 03 0E 07 F8 3C 01 B0 8D 16 80 8F B0 7F E7 06
            14 E0 E1 37 01 62 8B F9 15 B0 E2 6F 0B AA 8B 94 80 7D 86 00 07 14
            E0 E1 37 02 30 F9 16 01 14 92 00 80 F1 91 03 80 6E 9B 14 B2 8D 1A
            80 6F 00 14 B3 8D 1A 80 6C 00 10 0D 0E 0E 10 0E 0E 0F 10 0F A4 10
            10 92 14 1D 37 01 30 8E E9 EA EB 6D 03 14 37 03 30 8B BF 37 01 30
            86 ED EE EF 6D 03 14 37 03 30 8B 52 80 66 92 13 04 37 01 30 8E B9
            62 F0 37 01 70 76 AA F0 8D 01 2E AA 8D 09 33 92 13 33 AA 01 05 2C
            06 19 14 35 00 1A 2B A1 1A FF 8F 00 16 01 1A FF 89 AA 6A 0C 31 6A
            1A FF 8B A3 1A FF 8E B3 30 F5 1A FF 8F 16 01 55 92 14 80 4F 1A 2E
            9B 1A 53 AA 30 5C 42 F6 92 16 08 92 00 05 77 37 01 30 84 16 01 92
            13 FF A4 1A FF 9D 66 00 0E 37 01 31 73 66 00 0D 37 01 31 73 54 92
            14 1F 37 01 30 8E F2 F3 F4 6D 03 14 37 03 30 8B BF 37 01 30 86 F5
            64 1E 64 1F 6D 03 14 37 03 30 8B 02 12 04 19 0A 64 20 64 21 B3 64
            22 64 23 64 24 6D 03 14 B5 32 03 1F 91 04 6B 00 19 08
           )
      :VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE*
      *LOAD-PRINT* *LOAD-ECHO* :INPUT-IMMUTABLE STRING-CHAR
      (#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
          :TYPE "lsp" :VERSION NIL
         )
       #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
          :TYPE "fas" :VERSION NIL
      )  )
      SEARCH-FILE *STANDARD-OUTPUT* *LOAD-TRUENAME* *PACKAGE* *READTABLE*
      *LOAD-PATHNAME* ";; Loading file " ";; Datei "
      ";; Chargement du fichier " LANGUAGE " ..." " wird geladen..." " ..."
      "EOF" COMPILE-FORM ";; Loading of file " ";; Datei " ";; Le fichier "
      " is finished." " ist geladen." " est chargé." FILE-ERROR :PATHNAME
      "A file with name ~A does not exist"
      "Ein Datei mit Namen ~A gibt es nicht."
      "Il n'existe pas de fichier de nom ~A."
  )  )
#Y(#:TOP-LEVEL-FORM-25-16 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 78 3D 19 01)
   DEFUN MACRO
   #Y(DEFUN
      #120Y(02 00 00 00 00 03 9D 5B 1F 25 9D 5B 5B 1F 20 9D 5B 77 9E 5B 5B 77
            9F 5B 5B 78 AC 8E 06 1C AC 8C 52 1E D8 E1 E2 CE 14 6D 03 04 DD AF
            32 02 1F D8 D9 DA DB 6D 03 04 DD 32 01 1F D8 DE DF CB 1A 66 AA 63
            B0 30 60 41 03 E4 E5 E6 B2 7A 02 E7 E6 B7 7A 02 7A 04 E8 E6 B3 7A
            02 E9 B4 EA B5 EB EC B9 7A 02 A6 7B 02 ED B9 A8 7B 02 7A 04 7A 03
            7A 03 E6 B3 7A 02 60 04 19 09
           )
      PROGRAM-ERROR "~S: missing function name and/or parameter list"
      "~S: Funktionsname und/oder Parameterliste fehlt"
      "~S : Le nom de fonction et/ou la liste de paramètre manque" LANGUAGE
      DEFUN "~S: ~S is not a symbol." "~S: ~S ist kein Symbol."
      "~S : ~S n'est pas un symbole."
      "~S: special form ~S cannot be redefined."
      "~S: Spezialform ~S kann nicht umdefiniert werden."
      "~S : La forme spéciale ~S ne peut pas être redéfinie." PROGN %PUT QUOTE
      'DEFINITION %PUTD FUNCTION LAMBDA DECLARE IN-DEFUN BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-25-17 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 78 3D 19 01) DO
   MACRO
   #Y(DO
      #160Y(02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 9C 1F 2D 01 02
            37 01 71 86 37 01 71 86 AE 62 B4 30 60 41 02 A3 1F 80 42 93 08 82
            09 9B 1F 1C 9B 5B 1F 1B 9B 5B 5B 20 1A 9B 14 83 06 16 01 1A 64 D8
            D9 DA DB 6D 03 04 DD 32 01 1F 9B 1A 6B 9B 5A 1A 67 93 00 9C 5B 77
            7A 02 83 06 9B 5B 5B 77 93 01 A2 61 02 FB 16 01 1A FF BA DE 62 DF
            B2 71 47 E0 A0 79 E1 E2 B3 7A 02 B4 B3 E3 B8 31 47 79 B6 E4 93 13
            E2 BB 7A 02 7A 03 E5 62 E6 04 16 5B 79 7A 03 7A 04 32 02 23 7B 03
            7A 04 60 03 19 0C
           )
      PROGRAM-ERROR "exit clause in ~S must be a list"
      "Exitclause in ~S muß Liste sein."
      "La clause de sortie dans ~S doit être une liste." LANGUAGE DO BLOCK LET
      DECLARE TAGBODY GO PSETQ OR RETURN-FROM PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-25-18 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 78 3D 19 01)
   DOTIMES MACRO
   #Y(DOTIMES
      #66Y(02 00 00 00 00 03 9D 5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B
           78 AA 62 B1 30 60 41 02 37 01 71 86 D8 B1 D9 DA B4 7A 02 7A 03 AC B2
           7A 02 7A 02 DB B3 AE 7A 03 B1 7A 02 DC A0 79 A1 61 04 19 0A
          )
      DO 0. 1+ >= DECLARE
  )  )
#Y(#:TOP-LEVEL-FORM-25-19 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-26 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defseq" LOAD)
#Y(#:TOP-LEVEL-FORM-27 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "backquot" LOAD)
#Y(#:TOP-LEVEL-FORM-28-1 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 78 3D 19 01)
   BACKQUOTE MACRO #Y(BACKQUOTE #12Y(01 00 01 00 00 08 9D 5B 5B 5A 19 03))
  )
#Y(#:TOP-LEVEL-FORM-28-2 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-29 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defmacro" LOAD)
#Y(#:TOP-LEVEL-FORM-30-1 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 78 3D 19 01)
   DEFMACRO MACRO
   #Y(DEFMACRO
      #87Y(01 00 01 00 00 08 94 02 2E 00 41 04 D9 62 DA DB DC DD B2 7A 02 7A 02
           91 05 2D 00 14 E0 DD B4 7A 02 E1 E2 B7 7A 03 7A 03 7A 01 32 02 23 7B
           03 DA E3 E4 DD B3 7A 02 E5 DD B9 7A 02 7A 04 7A 03 DD B1 7A 02 60 05
           19 07 DE DD B3 7A 02 DF DD B3 7A 02 7A 04 60 01 1A 44
          )
      MAKE-MACRO-EXPANSION LET EVAL-WHEN (COMPILE LOAD EVAL)
      REMOVE-OLD-DEFINITIONS QUOTE %SET-DOCUMENTATION 'FUNCTION %PUTD CONS
      'MACRO (EVAL) %PUT 'DEFINITION
  )  )
#Y(#:TOP-LEVEL-FORM-30-2 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 78 3D 19 01)
   DEFUN MACRO
   #Y(DEFUN
      #284Y(02 00 00 00 00 03 9D 5B 1F 1C 9D 5B 77 88 06 22 9D 5B 5B 20 80 5F
            D8 E2 E3 CF 14 6D 03 04 DD A0 5B 5A 14 32 02 1F D8 D9 DA DB 6D 03
            04 DD A0 5B 1A 70 D8 DF E0 CC 1A 62 E5 A1 1A 80 58 64 20 64 21 64
            22 E5 B8 7A 02 E5 B2 7A 02 7A 03 7A 03 64 20 64 23 64 24 B2 64 25
            E5 B4 7A 02 7A 04 7A 03 60 02 1A 80 84 64 27 B0 64 28 E5 B4 7A 02
            7A 04 60 01 1A 80 7A 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 AA 63 B0 30
            60 41 03 A0 1F FF AD E6 E7 E5 A3 5B 77 7A 02 60 02 14 7A 02 AF E8
            E9 B3 7A 02 A0 7B 02 EA B3 6E 13 A2 7B 02 7A 03 EC 62 ED AE 7A 02
            0E 16 1C 25 0E 17 1C 21 B4 6A 18 F1 37 02 8C B5 18 0E 1A 1B 14 0E
            1B 1B 10 0E 1C 1B 0C 0E 1D 1B 08 6A 1E 6A 1F 8D 01 FF 64 64 20 64
            26 64 22 E5 B8 7A 02 7A 02 7A 03 60 01 14 91 06 FF 77 00 14 64 29
            B1 64 2A B9 64 2B A5 79 7A 03 7A 03 64 20 64 2C 64 24 B4 64 2D E5
            C0 7A 02 7A 04 7A 03 E5 B9 7A 02 7A 03 32 03 23 61 03 19 0B
           )
      PROGRAM-ERROR "~S: cannot define a function from that: ~S"
      "~S: Daraus kann keine Funktion definiert werden: ~S"
      "~S : Pas de définition de fonction possible à partir de: ~S" LANGUAGE
      DEFUN FUNCTION-NAME-P
      "~S: the name of a function must be a symbol, not ~S"
      "~S: Der Name einer Funktion muß ein Symbol sein, nicht: ~S"
      "~S : Le nom d'une fonction doit être un symbole et non ~S"
      "~S: function ~S is missing a lambda list"
      "~S: Die Funktion ~S hat keine Lambdaliste."
      "~S : Il manque une liste lambda à la fonction ~S." QUOTE LOAD-TIME-VALUE
      GET-SETF-SYMBOL DECLARE IN-DEFUN BLOCK BLOCK-NAME LET
      REMOVE-OLD-DEFINITIONS *COMPILING* *COMPILING-FROM-FILE*
      *INLINE-FUNCTIONS* #.#'EQ *VENV* *FENV* *BENV* *GENV* *DENV*
      *TOPLEVEL-DENV* EVAL-WHEN (COMPILE) C-DEFUN (LOAD) %PUT 'INLINE-EXPANSION
      (COMPILE) %SET-DOCUMENTATION 'FUNCTION %PUTD FUNCTION LAMBDA (EVAL)
      'DEFINITION
  )  )
#Y(#:TOP-LEVEL-FORM-30-3 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-31
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) MACRO-EXPANDER
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(MACRO-EXPANDER #13Y(01 00 01 00 00 08 94 02 AA 2E 00 19 04)
      MAKE-MACRO-EXPANSION
  )  )
#Y(#:TOP-LEVEL-FORM-32 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "macros1" LOAD)
#Y(#:TOP-LEVEL-FORM-33 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "macros2" LOAD)
#Y(#:TOP-LEVEL-FORM-34 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs1" LOAD)
#Y(#:TOP-LEVEL-FORM-35 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "places" LOAD)
#Y(#:TOP-LEVEL-FORM-36 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "floatpri" LOAD)
#Y(#:TOP-LEVEL-FORM-37 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "type" LOAD)
#Y(#:TOP-LEVEL-FORM-38 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defstruc" LOAD)
#Y(#:TOP-LEVEL-FORM-39 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "format" LOAD)
#Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SEARCH-FILE REMOVE-OLD-DEFINITIONS
   #Y(SEARCH-FILE
      #167Y(02 00 00 00 00 03 00 2A 01 7E 02 00 00 AD 30 EC 58 14 92 00 0A D8
            67 02 00 32 00 17 0B 01 00 AE D9 37 01 7F F1 04 62 DA DB B1 70 EA
            DC 37 02 8B B5 0B DD 6A 06 32 00 17 79 62 1A 80 63 00 1A 78 B0 6C
            07 01 AB 37 05 80 51 00 92 00 80 49 14 62 1A 10 86 01 00 14 98 08
            9D 5B 5B 5A 76 00 30 AC 82 01 AB 8C 94 6C 16 02 E1 AB E2 E3 37 02
            71 65 32 00 17 19 0A 86 01 00 B1 AB 37 01 70 F1 37 02 70 F1 AA AE
            DC 37 02 8B B5 12 AA 63 63 70 FA 91 05 FF AD 91 00 FF B7 16 01 AA
            83 03 16 01 82 01 AB 8C 94 51 00 19 08
           )
      #.#'PATHNAME-TYPE
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "*" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE NIL :VERSION NIL
        )
      ".." #.#'EQUAL #.#'PATHNAME *LOAD-PATHS*
      #Y(SEARCH-FILE-1
         #20Y(01 00 00 00 00 02 93 01 70 EC 68 00 01 D9 37 02 30 B5 19 02) NIL
         #.#'STRING=
        )
      ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
  )  )
#Y(#:TOP-LEVEL-FORM-41 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "user1" LOAD)
#Y(#:TOP-LEVEL-FORM-42 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "user2" LOAD)
#Y(#:TOP-LEVEL-FORM-43 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "trace" LOAD)
#Y(#:TOP-LEVEL-FORM-44 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "config" LOAD)
#Y(#:TOP-LEVEL-FORM-45 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "compiler" LOAD)
#Y(#:TOP-LEVEL-FORM-46 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs2" LOAD)
#Y(#:TOP-LEVEL-FORM-47 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "loop" LOAD)
#Y(#:TOP-LEVEL-FORM-48 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "clos" LOAD)
#Y(#:TOP-LEVEL-FORM-49 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "conditio" LOAD)
#Y(#:TOP-LEVEL-FORM-50 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs3" LOAD)
#Y(#:TOP-LEVEL-FORM-51 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "gstream" LOAD)
#Y(#:TOP-LEVEL-FORM-52
   #18Y(00 00 00 00 00 01 D8 8B CD 03 00 19 01 D9 2E 02 19 01) "SCREEN"
   "screen" LOAD
  )
#Y(#:TOP-LEVEL-FORM-53
   #18Y(00 00 00 00 00 01 D8 8B CD 03 00 19 01 D9 2E 02 19 01) "STDWIN"
   "stdwin2" LOAD
  )
#Y(#:TOP-LEVEL-FORM-54 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "USER")