(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 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (COMPILER COMPILE COMPILE-FILE DISASSEMBLE)
  )
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D8 6A 01 37 03 30 B9 0F 01 19 01)
   COMPILER *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "COMPILER")
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
   (FUNCTION-NAME-P PARSE-BODY MAKE-LOAD-TIME-EVAL CLOSURE-NAME CLOSURE-CODEVEC
    CLOSURE-CONSTS FIXNUMP SHORT-FLOAT-P SINGLE-FLOAT-P DOUBLE-FLOAT-P
    LONG-FLOAT-P SEARCH-FILE DATE-FORMAT LINE-NUMBER %FUNTABREF INLINABLE
    *COMPILING* *COMPILING-FROM-FILE* *INLINE-FUNCTIONS* *VENV* *FENV* *BENV*
    *GENV* *DENV* *TOPLEVEL-DENV* C-PROCLAIM C-PROCLAIM-CONSTANT C-DEFUN
    C-PROVIDE C-REQUIRE
  ))
#Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
   (VERSION SUBR-INFO)
  )
#Y(#:TOP-LEVEL-FORM-7
   #41Y(00 00 00 00 00 01 D8 70 CD D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA DB DC 6D
        03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #1="KEYWORD" *KEYWORD-PACKAGE*
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1#)) WARN
  )
#Y(#:TOP-LEVEL-FORM-8
   #41Y(00 00 00 00 00 01 D8 70 CD D9 8C 5F 15 AA D9 70 4F 8D 01 0E DA DB DC 6D
        03 05 DE D9 D9 70 4F 2C 04 07 D9 AB 31 79 C4 19 02
       )
   #1="LISP" *LISP-PACKAGE*
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1#)) WARN
  )
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILING*) *COMPILING*
  )
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 63 30 53 C4 19 01)
   (SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
  )
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 63 30 53 C4 19 01)
   (SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
  )
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILE-PRINT*) *COMPILE-PRINT*
  )
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *COMPILING-FROM-FILE*) *COMPILING-FROM-FILE*
  )
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILE-FILE-PATHNAME*) *COMPILE-FILE-PATHNAME*
  )
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILE-FILE-TRUENAME*) *COMPILE-FILE-TRUENAME*
  )
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILE-FILE-LINENO1*) *COMPILE-FILE-LINENO1*
  )
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILE-FILE-LINENO2*) *COMPILE-FILE-LINENO2*
  )
#Y(#:TOP-LEVEL-FORM-18 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *C-LISTING-OUTPUT*) *C-LISTING-OUTPUT*
  )
#Y(#:TOP-LEVEL-FORM-19 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *C-ERROR-OUTPUT*) *C-ERROR-OUTPUT*
  )
#Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *KNOWN-SPECIAL-VARS*) *KNOWN-SPECIAL-VARS*
  )
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CONSTANT-SPECIAL-VARS*) *CONSTANT-SPECIAL-VARS*
  )
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *FASOUTPUT-STREAM*) *FASOUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-23
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
  )
#Y(#:TOP-LEVEL-FORM-25 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *KNOWN-FUNCTIONS*) *KNOWN-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *UNKNOWN-FUNCTIONS*) *UNKNOWN-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *UNKNOWN-FREE-VARS*) *UNKNOWN-FREE-VARS*
  )
#Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *INLINE-FUNCTIONS*) *INLINE-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *NOTINLINE-FUNCTIONS*) *NOTINLINE-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-30 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *INLINE-DEFINITIONS*) *INLINE-DEFINITIONS*
  )
#Y(#:TOP-LEVEL-FORM-31 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *USER-DECLARATION-TYPES*) *USER-DECLARATION-TYPES*
  )
#Y(#:TOP-LEVEL-FORM-32 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *COMPILED-MODULES*) *COMPILED-MODULES*
  )
#Y(#:TOP-LEVEL-FORM-33 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *PACKAGE-TASKS*) *PACKAGE-TASKS*
  )
#Y(#:TOP-LEVEL-FORM-34-1
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 3D 19 01)
   %RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-34-2
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 7E D8 DC 62 2C 03 05 3D 19 01)
   CLOSURE-NAME SETF-EXPANDER -1.
   #Y(SETF-CLOSURE-NAME
      #17Y(02 00 00 00 00 03 9D 5B 77 D8 AB D9 AF 60 04 19 04) %RECORD-STORE 0.
     )
   SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-34-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CLOSURE
      #25Y(00 00 00 00 80 1B 03 00 00 00 3C 03 3C 02 3C 01 AD AD 71 36 AD 31 37
           19 04
          )
      :NAME :CODEVEC :CONSTS
  )  )
#Y(#:TOP-LEVEL-FORM-35
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   INSTRUCTION-TABLE
   #1=#((NIL O) (PUSH-NIL N) (T O) (CONST K) (LOAD K) (LOADI NN) (LOADC NN)
        (LOADV NN) (LOADIC NNN) (STORE K) (STOREI NN) (STOREC NN) (STOREV NN)
        (STOREIC NNN) (GETVALUE N) (SETVALUE N) (BIND N) (UNBIND1 O) (UNBIND N)
        (PROGV O) (PUSH O) (POP O) (SKIP N) (SKIPI NN) (SKIPSP N) (SKIP&RET N)
        (JMP L) (JMPIF L) (JMPIFNOT L) (JMPIF1 L) (JMPIFNOT1 L) (JMPIFATOM L)
        (JMPIFCONSP L) (JMPIFEQ L) (JMPIFNOTEQ L) (JMPIFEQTO NL)
        (JMPIFNOTEQTO NL) (JMPHASH NHL) (JMPHASHV NHL) (JSR L) (JMPTAIL NNL)
        (VENV O) (MAKE-VECTOR1&PUSH N) (COPY-CLOSURE NN) (CALL NN) (CALL0 N)
        (CALL1 N) (CALL2 N) (CALLS1 B) (CALLS2 B) (CALLSR NB) (CALLC O)
        (CALLCKEY O) (FUNCALL N) (APPLY N) (PUSH-UNBOUND N) (UNLIST NN)
        (UNLIST* NN) (JMPIFBOUNDP NL) (BOUNDP N) (UNBOUND->NIL N) (VALUES0 O)
        (VALUES1 O) (STACK-TO-MV N) (MV-TO-STACK O) (NV-TO-STACK N)
        (MV-TO-LIST O) (LIST-TO-MV O) (MVCALLP O) (MVCALL O) (BLOCK-OPEN NL)
        (BLOCK-CLOSE O) (RETURN-FROM N) (RETURN-FROM-I NN) (TAGBODY-OPEN NLX)
        (TAGBODY-CLOSE-NIL O) (TAGBODY-CLOSE O) (GO NN) (GO-I NNN)
        (CATCH-OPEN L) (CATCH-CLOSE O) (THROW O) (UNWIND-PROTECT-OPEN L)
        (UNWIND-PROTECT-NORMAL-EXIT O) (UNWIND-PROTECT-CLOSE O)
        (UNWIND-PROTECT-CLEANUP O) (HANDLER-OPEN NC) (HANDLER-BEGIN&PUSH O)
        (NOT O) (EQ O) (CAR O) (CDR O) (CONS O) (SYMBOL-FUNCTION O) (SVREF O)
        (SVSET O) (LIST N) (LIST* N) (NIL&PUSH O) (T&PUSH O) (CONST&PUSH K)
        (LOAD&PUSH K) (LOADI&PUSH NN) (LOADC&PUSH NN) (LOADV&PUSH NN)
        (POP&STORE N) (GETVALUE&PUSH N) (JSR&PUSH L) (COPY-CLOSURE&PUSH NN)
        (CALL&PUSH NN) (CALL1&PUSH N) (CALL2&PUSH N) (CALLS1&PUSH B)
        (CALLS2&PUSH B) (CALLSR&PUSH NB) (CALLC&PUSH O) (CALLCKEY&PUSH O)
        (FUNCALL&PUSH N) (APPLY&PUSH N) (CAR&PUSH O) (CDR&PUSH O) (CONS&PUSH O)
        (LIST&PUSH N) (LIST*&PUSH N) (NIL&STORE N) (T&STORE N)
        (LOAD&STOREC NNN) (CALLS1&STORE BN) (CALLS2&STORE BN)
        (CALLSR&STORE NBN) (LOAD&CDR&STORE N) (LOAD&CONS&STORE N)
        (LOAD&INC&STORE N) (LOAD&DEC&STORE N) (LOAD&CAR&STORE NN)
        (CALL1&JMPIF NL) (CALL1&JMPIFNOT NL) (CALL2&JMPIF NL)
        (CALL2&JMPIFNOT NL) (CALLS1&JMPIF BL) (CALLS1&JMPIFNOT BL)
        (CALLS2&JMPIF BL) (CALLS2&JMPIFNOT BL) (CALLSR&JMPIF NBL)
        (CALLSR&JMPIFNOT NBL) (LOAD&JMPIF NL) (LOAD&JMPIFNOT NL)
        (LOAD&CAR&PUSH N) (LOAD&CDR&PUSH N) (LOAD&INC&PUSH N) (LOAD&DEC&PUSH N)
        (CONST&SYMBOL-FUNCTION N) (CONST&SYMBOL-FUNCTION&PUSH N)
        (CONST&SYMBOL-FUNCTION&STORE NN) (APPLY&SKIP&RET NN)
       )
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT INSTRUCTION-TABLE '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-36
   #34Y(00 00 00 00 00 01 D8 D9 71 45 1A 0D D9 9D 5E 77 AA DA AE 31 7E 16 01 84
        01 AB AB 90 01 32 6D 00 19 03
       )
   0. #.INSTRUCTION-TABLE INSTRUCTION
  )
#Y(#:TOP-LEVEL-FORM-37
   #71Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 DA 71 45 1A 0D DA 9D 5E 77 AA AE
        AE 30 66 16 01 84 01 AB AB 90 01 32 6D 16 02 DB 8C 5F 15 AA DB 70 4F 8D
        01 0E DC DD DE 6D 03 07 E0 DB DB 70 4F 2C 04 09 DB AB 31 79 C6 19 02
       )
   #.#'EQ 0. #.INSTRUCTION-TABLE INSTRUCTION-CODES
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT INSTRUCTION-CODES
    (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
     (DOTIMES (I (LENGTH INSTRUCTION-TABLE))
      (SETF (GETHASH (FIRST (SVREF INSTRUCTION-TABLE I)) HASHTABLE) I)
     )
     HASHTABLE
   ))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-38
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   INSTRUCTION-TABLE-K #1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT INSTRUCTION-TABLE-K '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-39
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   SHORT-CODE-BASE 155. "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT SHORT-CODE-BASE 155.) WARN
  )
#Y(#:TOP-LEVEL-FORM-40
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   SHORT-CODE-OPSIZE #1=#(15. 25. 21. 30. 10.)
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT SHORT-CODE-OPSIZE '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-41
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   SHORT-CODE-OPS #1=#(155. 170. 195. 216. 246.)
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT SHORT-CODE-OPS '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-42
   #70Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 1A 0F AA 70 00 92 00 05 14 AD AD
        30 66 16 01 84 00 AA DA 90 01 32 6B 16 01 DB 8C 5F 15 AA DB 70 4F 8D 01
        0E DC DD DE 6D 03 07 E0 DB DB 70 4F 2C 04 09 DB AB 31 79 C6 19 02
       )
   #.#'EQ 0. 768. FUNCTION-CODES
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT FUNCTION-CODES
    (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
     (DOTIMES (I (* 3. 256.))
      (LET ((SYM (%FUNTABREF I))) (WHEN SYM (SETF (GETHASH SYM HASHTABLE) I)))
     )
     HASHTABLE
   ))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-43
   #71Y(00 00 00 00 00 01 D8 1A 14 A0 16 06 1A 18 AA 70 00 AA 30 01 41 04 91 00
        70 16 05 84 00 AA D9 90 01 32 6B 00 16 01 14 DA 8C 5F 15 AA DA 70 4F 8D
        01 0E DB DC DD 6D 03 06 DF DA DA 70 4F 2C 04 08 DA AB 31 79 C5 19 02
       )
   0. 768. FUNTABR-INDEX "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT FUNTABR-INDEX
    (DOTIMES (I (* 3. 256.))
     (LET ((SYM (%FUNTABREF I)))
      (MULTIPLE-VALUE-BIND (NAME REQ OPT REST-P) (SUBR-INFO SYM)
       (DECLARE (IGNORE NAME REQ OPT)) (WHEN REST-P (RETURN I))
   ))))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CALLS-CODE REMOVE-OLD-DEFINITIONS
   #Y(CALLS-CODE
      #27Y(01 00 00 00 00 02 AB D8 8F 01 2F 0B DA DB AD 32 02 35 14 60 02 19 02
           D9 9D 1A 77
          )
      256. CALLS1 CALLS2 -256.
  )  )
#Y(#:TOP-LEVEL-FORM-45
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) MEMQ
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(MEMQ
      #54Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 19 9D 5B 77 9E 5B 5B 77 AA 8C
           5F 06 AA 70 5C 8D 0B 0D DD AC AC C9 61 03 19 05 AC 2E 01 19 03 DA AC
           AC 70 5C C6 79 C7 1A 6D
          )
      3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
  )  )
#Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILER-ERROR REMOVE-OLD-DEFINITIONS
   #Y(COMPILER-ERROR
      #19Y(01 00 01 00 00 08 3C 01 D8 D9 DA 6D 03 03 AD AD 32 02 1E)
      "Compiler bug!! Occurred in ~A~@[ at ~A~]."
      "Fehler im Compiler!! Aufgetreten in ~A~@[ bei ~A~]."
      "Erreur dans le compilateur!! Arrivé dans ~A~@[ au point ~A~]." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-47 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *STACKZ*) *STACKZ*
  )
#Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   STACKZ-FUN REMOVE-OLD-DEFINITIONS
   #Y(STACKZ-FUN #18Y(01 00 00 00 00 02 9C 1F 06 AB 30 9E 5B 19 02 9C 19 02))
  )
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   IN-SAME-FUNCTION-P REMOVE-OLD-DEFINITIONS
   #Y(IN-SAME-FUNCTION-P #15Y(02 00 00 00 00 03 AC 6E 00 AC 2E 00 59 19 03)
      STACKZ-FUN
  )  )
#Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ZUGRIFF-IN-STACK REMOVE-OLD-DEFINITIONS
   #Y(ZUGRIFF-IN-STACK
      #220Y(02 00 00 00 00 03 62 D8 D8 AF A0 21 80 B0 A0 20 04 D9 DA 2F 03 93
            05 AA 8D 0C 28 9B 1F 3F 93 00 AA 23 04 24 AA 24 06 2C AC 6A 07 71
            8D 81 02 35 02 AD E0 9E 5B 77 32 02 35 14 81 02 35 03 16 01 1A 80
            74 AC 9C 1A 80 4C AD DD 9E 5B 77 72 02 37 31 8D 1A 65 D9 E1 2F 03
            16 01 1A 80 5A 9B 25 0A 80 51 91 03 3F 9C 1A 80 43 AB DD 6A 07 72
            02 35 81 02 35 01 C8 1A 1B 14 AC 32 02 35 1A 04 91 03 76 9C F9 CB
            1A 28 AB DD 6A 07 72 02 35 81 02 35 01 CB 14 9E 14 81 02 35 02 1A
            1C 84 01 84 02 1A 16 92 03 07 14 AC 32 02 35 1A 01 9C F9 CE F7 C3
            F8 1A 04 D9 E4 2F 03 16 01 82 05 1A FF 4B 9F 1F 15 93 04 23 0D 0A
            9F 5A 1F 0C 9F 5A 77 24 06 06 DD AC 81 02 35 01 AC AC 3F 02 19 06
           )
      0. ZUGRIFF-IN-STACK "STACKZ-END" COMPILER-ERROR BIND 2. TAGBODY
      *JMPBUF-SIZE* 3. "STACKZ-LISTITEM"
      #S(HASH-TABLE EQ (ANYTHING . 65.) (MVCALL . 65.) (MVCALLP . 59.)
         (BLOCK . 38.) (CLEANUP . 30.) (UNWIND-PROTECT . 9.) (CATCH . 38.)
         (PROGV . 2.)
        )
      1. "STACKZ-ITEM" BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAY-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(MAY-UNWIND
      #32Y(02 00 00 00 00 03 AC 9D 21 10 9D 20 04 D8 D9 2F 02 93 02 23 03 07 82
           02 1A 6C 02 19 03 00 19 03
          )
      MAY-UNWIND "STACKZ-END" COMPILER-ERROR ANYTHING
  )  )
#Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EXPAND-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(EXPAND-UNWIND
      #271Y(03 00 00 00 00 04 00 2A 04 00 0B 00 00 C3 0B 00 01 0B 00 02 00 0B
            00 03 AA 6C 01 01 AF A0 21 80 E5 A0 20 04 DA DB 2F 04 93 05 AA 8D
            0C 1D 9B 1F 2E 93 00 AA 23 05 1A AA 24 07 1B 9D 33 CB 14 06 04 03
            5C 0B 03 03 16 01 1A 80 B4 67 02 01 9C 1A 37 9D 33 C9 1A 68 DA E1
            2F 04 16 01 1A 80 A0 9B 25 0A 80 97 9C 33 E3 06 03 03 5C 0B 02 03
            CF 0B 02 02 1A 80 8A 67 02 02 E5 6A 0E 72 02 35 32 02 35 0B 02 02
            E7 06 03 01 14 32 02 35 0B 02 01 1A 80 6D 7D 04 E8 06 03 03 5C 0B
            02 03 D4 1A 22 9C 33 92 04 6E D4 1A 1A 14 67 03 02 32 02 35 1A 08
            06 02 00 1B 72 06 02 02 0B 02 00 D2 1A 34 9C 33 D5 14 06 03 03 5C
            0B 02 03 1A 34 67 02 02 31 8D 0B 02 02 67 02 01 31 8D 0B 02 01 1A
            22 14 67 03 02 32 02 35 1A 08 06 02 00 1B 72 06 02 02 0B 02 00 CF
            0B 02 02 C3 0B 02 01 1A 04 DA EB 2F 04 16 01 82 05 1A FF 16 9B 33
            67 01 03 31 47 19 06
           )
      0.
      #Y(EXPAND-UNWIND-HERE
         #112Y(00 00 00 00 00 01 07 00 01 1B 38 68 00 02 DA 90 01 30 0D E0 68
               00 02 7A 02 07 00 04 5C 0C 00 04 68 00 03 DA 90 01 30 0E DF 07
               00 03 14 7A 02 07 00 04 5C 0C 00 04 00 0C 00 01 C5 0C 00 02 0C
               00 03 19 01 D9 68 00 01 68 00 02 7A 03 07 00 04 5C 0C 00 04 68
               00 03 DA 90 01 31 04 DB DC 2F 05 68 00 03 DE 90 01 30 4F DF 68
               00 03 31 8E 1A FF BC
              )
         NIL SKIPI 0. EXPAND-UNWIND "SP-depth" COMPILER-ERROR 1. SKIPSP SKIP
        )
      EXPAND-UNWIND "STACKZ-END" COMPILER-ERROR BIND (UNBIND1) TAGBODY
      (TAGBODY-CLOSE) "STACKZ-LISTITEM"
      #S(HASH-TABLE EQ (MVCALL . 132.) (MVCALLP . 105.) (BLOCK . 92.)
         (CLEANUP . 78.) (UNWIND-PROTECT . 61.) (CATCH . 19.) (PROGV . 2.)
        )
      (UNBIND1) 1. 2. *JMPBUF-SIZE* 3. (VALUES0) (UNWIND-PROTECT-CLEANUP)
      (BLOCK-CLOSE) "STACKZ-ITEM"
  )  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SPDEPTH-DIFFERENCE REMOVE-OLD-DEFINITIONS
   #Y(SPDEPTH-DIFFERENCE
      #79Y(02 00 00 00 00 03 D8 1A 3F AC 6A 05 71 8D 81 02 35 02 16 01 1A 2E 93
           00 AA 23 04 6D 16 01 1A 24 9E 20 04 D9 DA 2F 03 93 03 9B 20 6A 9B 25
           06 14 84 01 1A 10 AB DF 6A 05 32 02 35 1A 02 E0 9D 14 81 02 35 01 16
           01 82 03 AD 9E 22 54 15 19 03
          )
      0. SPDEPTH-DIFFERENCE "STACKZ-END" COMPILER-ERROR TAGBODY *JMPBUF-SIZE*
      #S(HASH-TABLE EQ (CLEANUP . 14.) (BLOCK . 5.) (UNWIND-PROTECT . 5.)
         (CATCH . 5.) (ANYTHING . 1.) (MVCALL . 1.) (MVCALLP . 1.) (PROGV . 1.)
        )
      2. 3.
  )  )
#Y(#:TOP-LEVEL-FORM-54 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FENV*) *FENV*
  )
#Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(FENV-SEARCH
      #107Y(01 00 01 00 00 08 3A 01 1C 0E 00 F7 91 01 19 00 19 03 DC 94 01 3F
            02 19 06 93 00 23 04 74 DD 94 01 9D 5A 1A 2C 92 01 67 AB 8D 23 03
            D9 2E 02 AB 71 45 71 8E DB AA AC 8F 01 2D 23 AE AE 9D 5E 14 8E 02
            13 AD AB 31 8D 5E 14 9B 20 4D DE AF AD 31 8D 14 3F 03 19 06 DF AB
            81 02 35 00 1A 57 AD 9C 5E F9 16 02 92 01 FF A7 1A FF BD
           )
      *FENV* FENV-SEARCH COMPILER-ERROR 0. MACRO LOCAL GLOBAL 2.
  )  )
#Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
   #Y(GLOBAL-IN-FENV-P #13Y(02 00 00 00 00 03 AC AC 2F 00 58 19 03) FENV-SEARCH
  )  )
#Y(#:TOP-LEVEL-FORM-57 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *BENV*) *BENV*
  )
#Y(#:TOP-LEVEL-FORM-58
   #292Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 D8 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 2E 01 E1 E2 E3 31 7E E1 E4 31 78 E5 30 5B E6
         30 5B E7 2E 01 E7 E2 E8 31 7E E7 E9 31 78 EA 30 5B EB 30 5B EC 2E 01
         EC E2 ED 31 7E EC EE 31 78 EF 30 5B F0 30 5B F1 2E 01 F1 E2 F2 31 7E
         F1 F3 31 78 F4 30 5B F5 30 5B 64 1E 2E 01 64 1E E2 64 1F 31 7E 64 1E
         64 20 31 78 64 21 30 5B 64 22 30 5B 64 23 2E 01 64 23 E2 64 24 31 7E
         64 23 64 25 31 78 64 26 30 5B 64 27 30 5B 64 28 2E 01 64 28 E2 64 29
         31 7E 64 28 64 2A 31 78 E7 64 2B 64 2C 03 2D 79 31 7E E7 64 2E 62 2C
         03 2F EC 64 2B 64 2C 03 30 79 31 7E EC 64 2E 62 2C 03 2F F1 64 2B 64
         2C 03 31 79 31 7E F1 64 2E 62 2C 03 2F 64 1E 64 2B 64 2C 03 32 79 31
         7E 64 1E 64 2E 62 2C 03 2F 64 23 64 2B 64 2C 03 33 79 31 7E 64 23 64
         2E 62 2C 03 2F 64 28 64 2B 64 2C 03 34 79 31 7E 64 28 64 2E 62 2C 03
         2F DB 64 35 62 2C 03 2F DB 64 36 31 7F C6 19 01
        )
   MAKE-BLOCK REMOVE-OLD-DEFINITIONS
   #Y(MAKE-BLOCK
      #65Y(00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DE
           DF 71 30 E0 AB E1 B4 31 2F E0 AB E2 B3 31 2F E0 AB E3 B2 31 2F E0 AB
           E4 B1 31 2F E0 AB E5 B0 31 2F E0 AB E6 AF 31 2F 15 19 07
          )
      :FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE #1=(BLOCK) 7. BLOCK
      1. 2. 3. 4. 5. 6.
     )
   BLOCK DEFSTRUCT-DESCRIPTION #1#
   ((FNODE 1. NIL T NIL) (LABEL 2. NIL T NIL) (STACKZ 3. NIL T NIL)
    (CONSVAR 4. NIL T NIL) (USED-FAR 5. NIL T NIL) (FOR-VALUE 6. NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE BLOCK-P) BLOCK-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN BLOCK-P))
    (BLOCK BLOCK-P (%STRUCTURE-TYPE-P 'BLOCK OBJECT))
   )
   #Y(BLOCK-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) BLOCK)
   (FUNCTION BLOCK-FNODE (BLOCK) T) (INLINE BLOCK-FNODE) BLOCK-FNODE
   (#2=(OBJECT) (DECLARE (IN-DEFUN BLOCK-FNODE))
    (BLOCK BLOCK-FNODE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 1.)))
   )
   #Y(BLOCK-FNODE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) BLOCK 1.)
   (FUNCTION BLOCK-LABEL (BLOCK) T) (INLINE BLOCK-LABEL) BLOCK-LABEL
   (#2# (DECLARE (IN-DEFUN BLOCK-LABEL))
    (BLOCK BLOCK-LABEL (THE T (%STRUCTURE-REF 'BLOCK OBJECT 2.)))
   )
   #Y(BLOCK-LABEL #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) BLOCK 2.)
   (FUNCTION BLOCK-STACKZ (BLOCK) T) (INLINE BLOCK-STACKZ) BLOCK-STACKZ
   (#2# (DECLARE (IN-DEFUN BLOCK-STACKZ))
    (BLOCK BLOCK-STACKZ (THE T (%STRUCTURE-REF 'BLOCK OBJECT 3.)))
   )
   #Y(BLOCK-STACKZ #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) BLOCK 3.)
   (FUNCTION BLOCK-CONSVAR (BLOCK) T) (INLINE BLOCK-CONSVAR) BLOCK-CONSVAR
   (#2# (DECLARE (IN-DEFUN BLOCK-CONSVAR))
    (BLOCK BLOCK-CONSVAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 4.)))
   )
   #Y(BLOCK-CONSVAR #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) BLOCK 4.)
   (FUNCTION BLOCK-USED-FAR (BLOCK) T) (INLINE BLOCK-USED-FAR) BLOCK-USED-FAR
   (#2# (DECLARE (IN-DEFUN BLOCK-USED-FAR))
    (BLOCK BLOCK-USED-FAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 5.)))
   )
   #Y(BLOCK-USED-FAR #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) BLOCK 5.)
   (FUNCTION BLOCK-FOR-VALUE (BLOCK) T) (INLINE BLOCK-FOR-VALUE)
   BLOCK-FOR-VALUE
   (#2# (DECLARE (IN-DEFUN BLOCK-FOR-VALUE))
    (BLOCK BLOCK-FOR-VALUE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 6.)))
   )
   #Y(BLOCK-FOR-VALUE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) BLOCK 6.)
   SETF-EXPANDER -1.
   #Y(SETF-BLOCK-FNODE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-BLOCK-LABEL
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 2.
     )
   #Y(SETF-BLOCK-STACKZ
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 3.
     )
   #Y(SETF-BLOCK-CONSVAR
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 4.
     )
   #Y(SETF-BLOCK-USED-FAR
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 5.
     )
   #Y(SETF-BLOCK-FOR-VALUE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'BLOCK 6.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-59 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01) BLOCK
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(BENV-SEARCH
      #48Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 9C 1F 0A 9C 5A 77 9E 21 0C 82 01
           1A 73 00 19 03 9C 5A 5B 19 03 9C 5A 78 D9 AB 31 32 16 01 1B 70 9C 5A
           19 03
          )
      *BENV* BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-61 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *GENV*) *GENV*
  )
#Y(#:TOP-LEVEL-FORM-62
   #248Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 D8 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 2E 01 E1 E2 E3 31 7E E1 E4 31 78 E5 30 5B E6
         30 5B E7 2E 01 E7 E2 E8 31 7E E7 E9 31 78 EA 30 5B EB 30 5B EC 2E 01
         EC E2 ED 31 7E EC EE 31 78 EF 30 5B F0 30 5B F1 2E 01 F1 E2 F2 31 7E
         F1 F3 31 78 F4 30 5B F5 30 5B 64 1E 2E 01 64 1E E2 64 1F 31 7E 64 1E
         64 20 31 78 64 21 30 5B 64 22 30 5B 64 23 2E 01 64 23 E2 64 24 31 7E
         64 23 64 25 31 78 E7 64 26 64 27 03 28 79 31 7E E7 64 29 62 2C 03 2A
         EC 64 26 64 27 03 2B 79 31 7E EC 64 29 62 2C 03 2A F1 64 26 64 27 03
         2C 79 31 7E F1 64 29 62 2C 03 2A 64 1E 64 26 64 27 03 2D 79 31 7E 64
         1E 64 29 62 2C 03 2A 64 23 64 26 64 27 03 2E 79 31 7E 64 23 64 29 62
         2C 03 2A DB 64 2F 62 2C 03 2A DB 64 30 31 7F C6 19 01
        )
   MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
   #Y(MAKE-TAGBODY
      #57Y(00 00 00 00 80 1B 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 DD DE 71
           30 DF AB E0 B3 31 2F DF AB E1 B2 31 2F DF AB E2 B1 31 2F DF AB E3 B0
           31 2F DF AB E4 AF 31 2F 15 19 06
          )
      :FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR #1=(TAGBODY) 6. TAGBODY 1.
      2. 3. 4. 5.
     )
   TAGBODY DEFSTRUCT-DESCRIPTION #1#
   ((FNODE 1. NIL T NIL) (LABELLIST 2. NIL T NIL) (STACKZ 3. NIL T NIL)
    (CONSVAR 4. NIL T NIL) (USED-FAR 5. NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE TAGBODY-P) TAGBODY-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN TAGBODY-P))
    (BLOCK TAGBODY-P (%STRUCTURE-TYPE-P 'TAGBODY OBJECT))
   )
   #Y(TAGBODY-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) TAGBODY)
   (FUNCTION TAGBODY-FNODE (TAGBODY) T) (INLINE TAGBODY-FNODE) TAGBODY-FNODE
   (#2=(OBJECT) (DECLARE (IN-DEFUN TAGBODY-FNODE))
    (BLOCK TAGBODY-FNODE (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 1.)))
   )
   #Y(TAGBODY-FNODE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) TAGBODY 1.)
   (FUNCTION TAGBODY-LABELLIST (TAGBODY) T) (INLINE TAGBODY-LABELLIST)
   TAGBODY-LABELLIST
   (#2# (DECLARE (IN-DEFUN TAGBODY-LABELLIST))
    (BLOCK TAGBODY-LABELLIST (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 2.)))
   )
   #Y(TAGBODY-LABELLIST #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) TAGBODY 2.
     )
   (FUNCTION TAGBODY-STACKZ (TAGBODY) T) (INLINE TAGBODY-STACKZ) TAGBODY-STACKZ
   (#2# (DECLARE (IN-DEFUN TAGBODY-STACKZ))
    (BLOCK TAGBODY-STACKZ (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 3.)))
   )
   #Y(TAGBODY-STACKZ #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) TAGBODY 3.)
   (FUNCTION TAGBODY-CONSVAR (TAGBODY) T) (INLINE TAGBODY-CONSVAR)
   TAGBODY-CONSVAR
   (#2# (DECLARE (IN-DEFUN TAGBODY-CONSVAR))
    (BLOCK TAGBODY-CONSVAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 4.)))
   )
   #Y(TAGBODY-CONSVAR #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) TAGBODY 4.)
   (FUNCTION TAGBODY-USED-FAR (TAGBODY) T) (INLINE TAGBODY-USED-FAR)
   TAGBODY-USED-FAR
   (#2# (DECLARE (IN-DEFUN TAGBODY-USED-FAR))
    (BLOCK TAGBODY-USED-FAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 5.)))
   )
   #Y(TAGBODY-USED-FAR #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) TAGBODY 5.)
   SETF-EXPANDER -1.
   #Y(SETF-TAGBODY-FNODE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-TAGBODY-LABELLIST
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 2.
     )
   #Y(SETF-TAGBODY-STACKZ
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 3.
     )
   #Y(SETF-TAGBODY-CONSVAR
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 4.
     )
   #Y(SETF-TAGBODY-USED-FAR
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'TAGBODY 5.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-63 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01) TAGBODY
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(GENV-SEARCH
      #73Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 9C 1F 09 9C 5A 77 AA 71 45 D9 1A
           25 00 19 03 9F 5A 5B 1A 0D 9F 5A 78 DA AB 31 32 16 01 1B 70 9F 5A 14
           AB 3F 02 19 06 AC 9C 5E 14 B0 8D 01 65 84 00 AA AC 90 01 2D 70 16 03
           82 01 1A 43
          )
      *GENV* 0. TAGBODY
  )  )
#Y(#:TOP-LEVEL-FORM-65
   #18Y(00 00 00 00 00 01 D8 30 5B D9 DA 70 5C 30 53 C4 19 01)
   (SPECIAL SPECDECL) SPECDECL
   (LET
    ((*EVALHOOK*
      #'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM)) (SVREF (SVREF ENV 0.) 1.))
    ))
    0.
  ))
#Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PROCLAIMED-SPECIAL-P REMOVE-OLD-DEFINITIONS
   #Y(PROCLAIMED-SPECIAL-P
      #25Y(01 00 00 00 00 02 AB 31 85 1D 0C AB 6A 00 D9 37 02 30 B5 58 58 19 02
           19 02
          )
      *KNOWN-SPECIAL-VARS* #.#'EQ
  )  )
#Y(#:TOP-LEVEL-FORM-67 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *VENV*) *VENV*
  )
#Y(#:TOP-LEVEL-FORM-68 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *VENVC*) *VENVC*
  )
#Y(#:TOP-LEVEL-FORM-69
   #440Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 D8 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 2E 01 E1 E2 E3 31 7E E1 E4 31 78 E5 30 5B E6
         30 5B E7 2E 01 E7 E2 E8 31 7E E7 E9 31 78 EA 30 5B EB 30 5B EC 2E 01
         EC E2 ED 31 7E EC EE 31 78 EF 30 5B F0 30 5B F1 2E 01 F1 E2 F2 31 7E
         F1 F3 31 78 F4 30 5B F5 30 5B 64 1E 2E 01 64 1E E2 64 1F 31 7E 64 1E
         64 20 31 78 64 21 30 5B 64 22 30 5B 64 23 2E 01 64 23 E2 64 24 31 7E
         64 23 64 25 31 78 64 26 30 5B 64 27 30 5B 64 28 2E 01 64 28 E2 64 29
         31 7E 64 28 64 2A 31 78 64 2B 30 5B 64 2C 30 5B 64 2D 2E 01 64 2D E2
         64 2E 31 7E 64 2D 64 2F 31 78 64 30 30 5B 64 31 30 5B 64 32 2E 01 64
         32 E2 64 33 31 7E 64 32 64 34 31 78 64 35 30 5B 64 36 30 5B 64 37 2E
         01 64 37 E2 64 38 31 7E 64 37 64 39 31 78 64 3A 30 5B 64 3B 30 5B 64
         3C 2E 01 64 3C E2 64 3D 31 7E 64 3C 64 3E 31 78 64 3F 30 5B 64 40 30
         5B 64 41 2E 01 64 41 E2 64 42 31 7E 64 41 64 43 31 78 F1 64 44 64 45
         03 46 79 31 7E F1 64 47 62 2C 03 48 64 1E 64 44 64 45 03 49 79 31 7E
         64 1E 64 47 62 2C 03 48 64 23 64 44 64 45 03 4A 79 31 7E 64 23 64 47
         62 2C 03 48 64 28 64 44 64 45 03 4B 79 31 7E 64 28 64 47 62 2C 03 48
         64 2D 64 44 64 45 03 4C 79 31 7E 64 2D 64 47 62 2C 03 48 64 32 64 44
         64 45 03 4D 79 31 7E 64 32 64 47 62 2C 03 48 64 37 64 44 64 45 03 4E
         79 31 7E 64 37 64 47 62 2C 03 48 DB 64 4F 62 2C 03 48 DB 64 50 31 7F
         C6 19 01
        )
   MAKE-VAR REMOVE-OLD-DEFINITIONS
   #Y(MAKE-VAR
      #105Y(00 00 00 00 80 1B 0B 00 00 00 3C 0B 3C 0A 3C 09 3C 08 3C 07 3C 06
            3C 05 3C 04 3C 03 3C 02 3C 01 E3 E4 71 30 E5 AB E6 B9 31 2F E5 AB
            E7 B8 31 2F E5 AB E8 B7 31 2F E5 AB E9 B6 31 2F E5 AB EA B5 31 2F
            E5 AB EB B4 31 2F E5 AB EC B3 31 2F E5 AB ED B2 31 2F E5 AB EE B1
            31 2F E5 AB EF B0 31 2F E5 AB F0 AF 31 2F 15 19 0C
           )
      :NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP :REALLY-USEDP :MODIFIED-LIST
      :REPLACEABLE-LIST :CLOSUREP :STACKZ :VENVC #1=(VAR) 12. VAR 1. 2. 3. 4.
      5. 6. 7. 8. 9. 10. 11.
     )
   VAR DEFSTRUCT-DESCRIPTION #1#
   ((NAME 1. NIL T T) (SPECIALP 2. NIL T T) (CONSTANTP 3. NIL T NIL)
    (CONSTANT 4. NIL T NIL) (USEDP 5. NIL T NIL) (REALLY-USEDP 6. NIL T NIL)
    (MODIFIED-LIST 7. 'NIL T NIL) (REPLACEABLE-LIST 8. 'NIL T NIL)
    (CLOSUREP 9. NIL T NIL) (STACKZ 10. NIL T T) (VENVC 11. NIL T T)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE VAR-P) VAR-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN VAR-P))
    (BLOCK VAR-P (%STRUCTURE-TYPE-P 'VAR OBJECT))
   )
   #Y(VAR-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) VAR)
   (FUNCTION VAR-NAME (VAR) T) (INLINE VAR-NAME) VAR-NAME
   (#2=(OBJECT) (DECLARE (IN-DEFUN VAR-NAME))
    (BLOCK VAR-NAME (THE T (%STRUCTURE-REF 'VAR OBJECT 1.)))
   )
   #Y(VAR-NAME #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 1.)
   (FUNCTION VAR-SPECIALP (VAR) T) (INLINE VAR-SPECIALP) VAR-SPECIALP
   (#2# (DECLARE (IN-DEFUN VAR-SPECIALP))
    (BLOCK VAR-SPECIALP (THE T (%STRUCTURE-REF 'VAR OBJECT 2.)))
   )
   #Y(VAR-SPECIALP #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 2.)
   (FUNCTION VAR-CONSTANTP (VAR) T) (INLINE VAR-CONSTANTP) VAR-CONSTANTP
   (#2# (DECLARE (IN-DEFUN VAR-CONSTANTP))
    (BLOCK VAR-CONSTANTP (THE T (%STRUCTURE-REF 'VAR OBJECT 3.)))
   )
   #Y(VAR-CONSTANTP #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 3.)
   (FUNCTION VAR-CONSTANT (VAR) T) (INLINE VAR-CONSTANT) VAR-CONSTANT
   (#2# (DECLARE (IN-DEFUN VAR-CONSTANT))
    (BLOCK VAR-CONSTANT (THE T (%STRUCTURE-REF 'VAR OBJECT 4.)))
   )
   #Y(VAR-CONSTANT #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 4.)
   (FUNCTION VAR-USEDP (VAR) T) (INLINE VAR-USEDP) VAR-USEDP
   (#2# (DECLARE (IN-DEFUN VAR-USEDP))
    (BLOCK VAR-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 5.)))
   )
   #Y(VAR-USEDP #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 5.)
   (FUNCTION VAR-REALLY-USEDP (VAR) T) (INLINE VAR-REALLY-USEDP)
   VAR-REALLY-USEDP
   (#2# (DECLARE (IN-DEFUN VAR-REALLY-USEDP))
    (BLOCK VAR-REALLY-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 6.)))
   )
   #Y(VAR-REALLY-USEDP #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 6.)
   (FUNCTION VAR-MODIFIED-LIST (VAR) T) (INLINE VAR-MODIFIED-LIST)
   VAR-MODIFIED-LIST
   (#2# (DECLARE (IN-DEFUN VAR-MODIFIED-LIST))
    (BLOCK VAR-MODIFIED-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 7.)))
   )
   #Y(VAR-MODIFIED-LIST #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 7.)
   (FUNCTION VAR-REPLACEABLE-LIST (VAR) T) (INLINE VAR-REPLACEABLE-LIST)
   VAR-REPLACEABLE-LIST
   (#2# (DECLARE (IN-DEFUN VAR-REPLACEABLE-LIST))
    (BLOCK VAR-REPLACEABLE-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 8.)))
   )
   #Y(VAR-REPLACEABLE-LIST #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 8.)
   (FUNCTION VAR-CLOSUREP (VAR) T) (INLINE VAR-CLOSUREP) VAR-CLOSUREP
   (#2# (DECLARE (IN-DEFUN VAR-CLOSUREP))
    (BLOCK VAR-CLOSUREP (THE T (%STRUCTURE-REF 'VAR OBJECT 9.)))
   )
   #Y(VAR-CLOSUREP #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 9.)
   (FUNCTION VAR-STACKZ (VAR) T) (INLINE VAR-STACKZ) VAR-STACKZ
   (#2# (DECLARE (IN-DEFUN VAR-STACKZ))
    (BLOCK VAR-STACKZ (THE T (%STRUCTURE-REF 'VAR OBJECT 10.)))
   )
   #Y(VAR-STACKZ #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 10.)
   (FUNCTION VAR-VENVC (VAR) T) (INLINE VAR-VENVC) VAR-VENVC
   (#2# (DECLARE (IN-DEFUN VAR-VENVC))
    (BLOCK VAR-VENVC (THE T (%STRUCTURE-REF 'VAR OBJECT 11.)))
   )
   #Y(VAR-VENVC #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) VAR 11.)
   SETF-EXPANDER -1.
   #Y(SETF-VAR-CONSTANTP
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 3.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-VAR-CONSTANT
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 4.
     )
   #Y(SETF-VAR-USEDP
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 5.
     )
   #Y(SETF-VAR-REALLY-USEDP
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 6.
     )
   #Y(SETF-VAR-MODIFIED-LIST
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 7.
     )
   #Y(SETF-VAR-REPLACEABLE-LIST
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 8.
     )
   #Y(SETF-VAR-CLOSUREP
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'VAR 9.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-70 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01) VAR
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   VENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(VENV-SEARCH
      #118Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 AC 8B 5F 31 AC 87 01 2D 92 01
            36 AB 8E 23 80 51 AB 71 45 71 8E DB AA AC 8F 01 2D 1C AE AE 9D 5E
            22 36 AD AB 31 8D 5E 14 DC AB 8D 32 17 AA 0E 06 22 1E C5 19 06 C5
            19 03 AD 9C 5E F9 16 02 91 01 4A 00 19 03 DC AB DD 8D 2E 68 63 AB
            3F 02 19 06 DF AF 95 03 3F 03 19 06 DD AB 81 02 35 00 1A FF B5 E0
            2E 09 92 01 5A 1A FF A1
           )
      *VENV* PROCLAIMED-SPECIAL-P SPECIAL 0. VAR 2. SPECDECL LOCAL VENV-SEARCH
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   VENV-SEARCH-MACRO REMOVE-OLD-DEFINITIONS
   #Y(VENV-SEARCH-MACRO
      #45Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 AC AC 2F 01 41 03 92 02 07 AC 23
           02 0D 00 19 06 AF 30 50 1E 0A AF 30 4F 19 06 AB 9C 5E 19 06 19 06
          )
      *VENV* VENV-SEARCH LOCAL
  )  )
#Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PUSH-*VENV* REMOVE-OLD-DEFINITIONS
   #Y(PUSH-*VENV*
      #49Y(00 00 00 00 01 16 91 01 03 00 19 02 6A 00 7A 01 AC 62 1A 0F 86 01 00
           D9 AB DA 71 2E AB 9F 61 02 F8 82 01 AB 8C 94 6D 16 02 DB 9C 36 00 0F
           00 19 03
          )
      *VENV* VAR 1. #.#'VECTOR
  )  )
#Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ZUGRIFF-IN-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(ZUGRIFF-IN-CLOSURE
      #83Y(03 00 00 00 00 04 01 02 1A 1A AA 8D 0B 12 C5 F8 1A 0E 7C 00 1A 25 93
           04 92 02 6F 9B 1F 02 84 02 16 01 82 04 AE D8 B1 D9 31 2E 22 6A 91 01
           63 AD A0 5A 78 2F 03 41 02 69 01 69 01 9F 5A 77 DA 1A 04 82 01 84 00
           93 01 A3 22 77 69 00 AC AC AC 3F 03 19 07
          )
      VAR 11. 0. ZUGRIFF-IN-STACK
  )  )
#Y(#:TOP-LEVEL-FORM-75
   #120Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 D8 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 2E 01 E1 E2 E3 31 7E E1 E4 31 78 E5 30 5B E6
         30 5B E7 2E 01 E7 E2 E8 31 7E E7 E9 31 78 EA 30 5B EB 30 5B EC 2E 01
         EC E2 ED 31 7E EC EE 31 78 E7 EF F0 03 19 79 31 7E E7 F2 62 2C 03 1B
         EC EF F0 03 1C 79 31 7E EC F2 62 2C 03 1B DB F5 62 2C 03 1B DB 64 1E
         31 7F C6 19 01
        )
   MAKE-CONST REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONST
      #33Y(00 00 00 00 80 1B 02 00 00 00 3C 02 3C 01 DA DB 71 30 DC AB DD B0 31
           2F DC AB DE AF 31 2F 15 19 03
          )
      :VALUE :FORM #1=(CONST) 3. CONST 1. 2.
     )
   CONST DEFSTRUCT-DESCRIPTION #1# ((VALUE 1. NIL T NIL) (FORM 2. NIL T NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE CONST-P) CONST-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN CONST-P))
    (BLOCK CONST-P (%STRUCTURE-TYPE-P 'CONST OBJECT))
   )
   #Y(CONST-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) CONST)
   (FUNCTION CONST-VALUE (CONST) T) (INLINE CONST-VALUE) CONST-VALUE
   (#2=(OBJECT) (DECLARE (IN-DEFUN CONST-VALUE))
    (BLOCK CONST-VALUE (THE T (%STRUCTURE-REF 'CONST OBJECT 1.)))
   )
   #Y(CONST-VALUE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) CONST 1.)
   (FUNCTION CONST-FORM (CONST) T) (INLINE CONST-FORM) CONST-FORM
   (#2# (DECLARE (IN-DEFUN CONST-FORM))
    (BLOCK CONST-FORM (THE T (%STRUCTURE-REF 'CONST OBJECT 2.)))
   )
   #Y(CONST-FORM #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) CONST 2.)
   SETF-EXPANDER -1.
   #Y(SETF-CONST-VALUE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-CONST-FORM
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 2.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-76 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01) CONST
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D8 30 5B D9 DA 30 53 C4 19 01)
   (SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
   (SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DECLARATION
    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 SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING
    SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T
    VECTOR COMPILE SOURCE IN-DEFUN IGNORABLE
  ))
#Y(#:TOP-LEVEL-FORM-78 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *DENV*) *DENV*
  )
#Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PROCESS-DECLARATIONS REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-DECLARATIONS
      #267Y(01 00 00 00 00 02 01 03 AE 80 47 04 14 62 1A 80 EC D8 D9 DA 6D 03
            03 AB 2F 04 1A 80 DE 94 01 62 1A 17 AA 83 07 1A 10 86 01 00 14 8D
            06 74 E4 E5 E6 6D 03 03 AB 2F 04 82 01 AB 8C 94 6A 16 03 1A 80 B9
            94 01 62 1A 17 AA 83 06 1A 10 86 01 00 14 8D 06 74 E8 E9 EA 6D 03
            03 AB 2F 04 82 01 AB 8C 94 6A 16 03 1A 80 94 94 01 62 1A 17 AA 83
            05 1A 10 86 01 00 14 8D 06 74 EC ED EE 6D 03 03 AB 2F 04 82 01 AB
            8C 94 6A 16 03 1A 80 6F 16 01 AA 23 0B FF 8A AA 23 0F FF AA AA 23
            13 4B AB 0E 07 5C 0F 07 16 01 1A 80 54 86 01 00 1F FF 64 AA 30 9E
            5B 1B FF 5D 93 00 AA 8E 06 34 AA 6A 05 DE 37 02 8B B5 4B 6A 07 92
            00 16 9B 5A 77 24 08 0B AB 9C 5A 78 DE 37 02 8B B5 FF B3 82 00 91
            00 6A 16 01 0E 09 1C 0A AA 6A 0A DE 37 02 8B B5 FF A0 EF F0 F1 6D
            03 03 AB AD 2C 03 04 16 01 82 01 AB 8C 94 FF A5 16 02 AC AC AC 3F
            03 19 05
           )
      "Bad declaration syntax: ~S~%Will be ignored."
      "Falsche Deklarationen-Syntax: ~S~%Wird ignoriert."
      "Mauvaise syntaxe pour une déclaration : ~S~%Ignorée." LANGUAGE C-WARN
      *DECLARATION-TYPES* #.#'EQ *DENV* DECLARATION *COMPILING-FROM-FILE*
      *USER-DECLARATION-TYPES* SPECIAL
      "Non-symbol ~S may not be declared SPECIAL."
      "Nur Symbole können SPECIAL-deklariert werden, nicht ~S."
      "Seuls les symboles peuvent être déclarés SPECIAL, pas ~S." IGNORE
      "Non-symbol ~S may not be declared IGNORE."
      "Nur Symbole können IGNORE-deklariert werden, nicht ~S."
      "Seuls les symboles peuvent être déclarés IGNORE, pas ~S." IGNORABLE
      "Non-symbol ~S may not be declared IGNORABLE."
      "Nur Symbole können IGNORABLE-deklariert werden, nicht ~S."
      "Seuls les symboles peuvent être déclarés IGNORABLE."
      "Unknown declaration ~S.~%The whole declaration will be ignored."
      "Unbekannte Deklaration ~S.~%Die ganze Deklaration ~S wird ignoriert."
      "Déclaration inconnue ~S.~%Toute la déclaration ~S est ignorée."
  )  )
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DECLARED-NOTINLINE REMOVE-OLD-DEFINITIONS
   #Y(DECLARED-NOTINLINE
      #110Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D9 AD 7A 02 6A 00 DA 37 02 8C
            B5 12 1A 20 93 01 93 00 23 09 34 93 00 23 08 3B 16 01 82 01 9C 20
            6D 0E 03 1C 18 AC 6A 04 DA 37 02 8C B5 06 02 19 03 00 19 03 AC 6A
            05 DA 37 02 8B B5 74 AC 6E 06 DF 37 01 71 7A CB 59 19 03 AD 94 01
            DA 37 02 8C B5 43 00 19 04 AD 94 01 DA 37 02 8C B5 FF BB 02 19 04
           )
      *DENV* INLINING #.#'EQUAL *COMPILING-FROM-FILE* *NOTINLINE-FUNCTIONS*
      *INLINE-FUNCTIONS* GET-FUNNAME-SYMBOL INLINABLE NOTINLINE INLINE
  )  )
#Y(#:TOP-LEVEL-FORM-81
   #919Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 D8 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 2E 01 E1 E2 E3 31 7E E1 E4 31 78 E5 30 5B E6
         30 5B E7 2E 01 E7 E2 E8 31 7E E7 E9 31 78 EA 30 5B EB 30 5B EC 2E 01
         EC E2 ED 31 7E EC EE 31 78 EF 30 5B F0 30 5B F1 2E 01 F1 E2 F2 31 7E
         F1 F3 31 78 F4 30 5B F5 30 5B 64 1E 2E 01 64 1E E2 64 1F 31 7E 64 1E
         64 20 31 78 64 21 30 5B 64 22 30 5B 64 23 2E 01 64 23 E2 64 24 31 7E
         64 23 64 25 31 78 64 26 30 5B 64 27 30 5B 64 28 2E 01 64 28 E2 64 29
         31 7E 64 28 64 2A 31 78 64 2B 30 5B 64 2C 30 5B 64 2D 2E 01 64 2D E2
         64 2E 31 7E 64 2D 64 2F 31 78 64 30 30 5B 64 31 30 5B 64 32 2E 01 64
         32 E2 64 33 31 7E 64 32 64 34 31 78 64 35 30 5B 64 36 30 5B 64 37 2E
         01 64 37 E2 64 38 31 7E 64 37 64 39 31 78 64 3A 30 5B 64 3B 30 5B 64
         3C 2E 01 64 3C E2 64 3D 31 7E 64 3C 64 3E 31 78 64 3F 30 5B 64 40 30
         5B 64 41 2E 01 64 41 E2 64 42 31 7E 64 41 64 43 31 78 64 44 30 5B 64
         45 30 5B 64 46 2E 01 64 46 E2 64 47 31 7E 64 46 64 48 31 78 64 49 30
         5B 64 4A 30 5B 64 4B 2E 01 64 4B E2 64 4C 31 7E 64 4B 64 4D 31 78 64
         4E 30 5B 64 4F 30 5B 64 50 2E 01 64 50 E2 64 51 31 7E 64 50 64 52 31
         78 64 53 30 5B 64 54 30 5B 64 55 2E 01 64 55 E2 64 56 31 7E 64 55 64
         57 31 78 64 58 30 5B 64 59 30 5B 64 5A 2E 01 64 5A E2 64 5B 31 7E 64
         5A 64 5C 31 78 64 5D 30 5B 64 5E 30 5B 64 5F 2E 01 64 5F E2 64 60 31
         7E 64 5F 64 61 31 78 64 62 30 5B 64 63 30 5B 64 64 2E 01 64 64 E2 64
         65 31 7E 64 64 64 66 31 78 64 67 30 5B 64 68 30 5B 64 69 2E 01 64 69
         E2 64 6A 31 7E 64 69 64 6B 31 78 64 6C 30 5B 64 6D 30 5B 64 6E 2E 01
         64 6E E2 64 6F 31 7E 64 6E 64 70 31 78 E7 64 71 64 72 03 73 79 31 7E
         E7 64 74 62 2C 03 75 EC 64 71 64 72 03 76 79 31 7E EC 64 74 62 2C 03
         75 F1 64 71 64 72 03 77 79 31 7E F1 64 74 62 2C 03 75 64 1E 64 71 64
         72 03 78 79 31 7E 64 1E 64 74 62 2C 03 75 64 23 64 71 64 72 03 79 79
         31 7E 64 23 64 74 62 2C 03 75 64 28 64 71 64 72 03 7A 79 31 7E 64 28
         64 74 62 2C 03 75 64 2D 64 71 64 72 03 7B 79 31 7E 64 2D 64 74 62 2C
         03 75 64 32 64 71 64 72 03 7C 79 31 7E 64 32 64 74 62 2C 03 75 64 37
         64 71 64 72 03 7D 79 31 7E 64 37 64 74 62 2C 03 75 64 3C 64 71 64 72
         03 7E 79 31 7E 64 3C 64 74 62 2C 03 75 64 41 64 71 64 72 03 7F 79 31
         7E 64 41 64 74 62 2C 03 75 64 46 64 71 64 72 03 80 80 79 31 7E 64 46
         64 74 62 2C 03 75 64 4B 64 71 64 72 03 80 81 79 31 7E 64 4B 64 74 62
         2C 03 75 64 50 64 71 64 72 03 80 82 79 31 7E 64 50 64 74 62 2C 03 75
         64 55 64 71 64 72 03 80 83 79 31 7E 64 55 64 74 62 2C 03 75 64 5A 64
         71 64 72 03 80 84 79 31 7E 64 5A 64 74 62 2C 03 75 64 5F 64 71 64 72
         03 80 85 79 31 7E 64 5F 64 74 62 2C 03 75 64 64 64 71 64 72 03 80 86
         79 31 7E 64 64 64 74 62 2C 03 75 64 69 64 71 64 72 03 80 87 79 31 7E
         64 69 64 74 62 2C 03 75 64 6E 64 71 64 72 03 80 88 79 31 7E 64 6E 64
         74 62 2C 03 75 DB 64 80 89 62 2C 03 75 DB 64 80 8A 31 7F C6 19 01
        )
   MAKE-FNODE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-FNODE
      #199Y(00 00 00 00 80 1B 14 00 00 00 3C 14 3C 13 3C 12 3C 11 3C 10 3C 0F
            3C 0E 3C 0D 3C 0C 3A 0B 03 D7 09 0B 3A 0A 03 D7 09 0A 3C 09 3C 08
            3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 ED EE 71 30 EF AB F0 C2
            31 2F EF AB F1 C1 31 2F EF AB F2 C0 31 2F EF AB F3 BF 31 2F EF AB
            F4 BE 31 2F EF AB F5 BD 31 2F EF AB 64 1E BC 31 2F EF AB 64 1F BB
            31 2F EF AB 64 20 BA 31 2F EF AB 64 21 B9 31 2F EF AB 64 22 B8 31
            2F EF AB 64 23 B7 31 2F EF AB 64 24 B6 31 2F EF AB 64 25 B5 31 2F
            EF AB 64 26 B4 31 2F EF AB 64 27 B3 31 2F EF AB 64 28 B2 31 2F EF
            AB 64 29 B1 31 2F EF AB 64 2A B0 31 2F EF AB 64 2B AF 31 2F 15 19
            15
           )
      :NAME :CODE :VENVCONST :VENVC :BLOCKS-OFFSET :BLOCKS :TAGBODYS-OFFSET
      :TAGBODYS :KEYWORD-OFFSET :REQ-ANZ :OPT-ANZ :REST-FLAG :KEYWORD-FLAG
      :KEYWORDS :ALLOW-OTHER-KEYS-FLAG :CONSTS-OFFSET :CONSTS :CONSTS-FORMS
      :ENCLOSING :GF-P 0. #1=(FNODE) 21. FNODE 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
      11. 12. 13. 14. 15. 16. 17. 18. 19. 20.
     )
   FNODE DEFSTRUCT-DESCRIPTION #1#
   ((NAME 1. NIL T NIL) (CODE 2. NIL T NIL) (VENVCONST 3. NIL T NIL)
    (VENVC 4. NIL T NIL) (BLOCKS-OFFSET 5. NIL T NIL) (BLOCKS 6. NIL T NIL)
    (TAGBODYS-OFFSET 7. NIL T NIL) (TAGBODYS 8. NIL T NIL)
    (KEYWORD-OFFSET 9. NIL T NIL) (REQ-ANZ 10. 0. T NIL) (OPT-ANZ 11. 0. T NIL)
    (REST-FLAG 12. NIL T NIL) (KEYWORD-FLAG 13. NIL T NIL)
    (KEYWORDS 14. NIL T NIL) (ALLOW-OTHER-KEYS-FLAG 15. NIL T NIL)
    (CONSTS-OFFSET 16. NIL T NIL) (CONSTS 17. NIL T NIL)
    (CONSTS-FORMS 18. NIL T NIL) (ENCLOSING 19. NIL T NIL) (GF-P 20. NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE FNODE-P) FNODE-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN FNODE-P))
    (BLOCK FNODE-P (%STRUCTURE-TYPE-P 'FNODE OBJECT))
   )
   #Y(FNODE-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) FNODE)
   (FUNCTION FNODE-NAME (FNODE) T) (INLINE FNODE-NAME) FNODE-NAME
   (#2=(OBJECT) (DECLARE (IN-DEFUN FNODE-NAME))
    (BLOCK FNODE-NAME (THE T (%STRUCTURE-REF 'FNODE OBJECT 1.)))
   )
   #Y(FNODE-NAME #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 1.)
   (FUNCTION FNODE-CODE (FNODE) T) (INLINE FNODE-CODE) FNODE-CODE
   (#2# (DECLARE (IN-DEFUN FNODE-CODE))
    (BLOCK FNODE-CODE (THE T (%STRUCTURE-REF 'FNODE OBJECT 2.)))
   )
   #Y(FNODE-CODE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 2.)
   (FUNCTION FNODE-VENVCONST (FNODE) T) (INLINE FNODE-VENVCONST)
   FNODE-VENVCONST
   (#2# (DECLARE (IN-DEFUN FNODE-VENVCONST))
    (BLOCK FNODE-VENVCONST (THE T (%STRUCTURE-REF 'FNODE OBJECT 3.)))
   )
   #Y(FNODE-VENVCONST #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 3.)
   (FUNCTION FNODE-VENVC (FNODE) T) (INLINE FNODE-VENVC) FNODE-VENVC
   (#2# (DECLARE (IN-DEFUN FNODE-VENVC))
    (BLOCK FNODE-VENVC (THE T (%STRUCTURE-REF 'FNODE OBJECT 4.)))
   )
   #Y(FNODE-VENVC #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 4.)
   (FUNCTION FNODE-BLOCKS-OFFSET (FNODE) T) (INLINE FNODE-BLOCKS-OFFSET)
   FNODE-BLOCKS-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-BLOCKS-OFFSET))
    (BLOCK FNODE-BLOCKS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 5.)))
   )
   #Y(FNODE-BLOCKS-OFFSET #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 5.
     )
   (FUNCTION FNODE-BLOCKS (FNODE) T) (INLINE FNODE-BLOCKS) FNODE-BLOCKS
   (#2# (DECLARE (IN-DEFUN FNODE-BLOCKS))
    (BLOCK FNODE-BLOCKS (THE T (%STRUCTURE-REF 'FNODE OBJECT 6.)))
   )
   #Y(FNODE-BLOCKS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 6.)
   (FUNCTION FNODE-TAGBODYS-OFFSET (FNODE) T) (INLINE FNODE-TAGBODYS-OFFSET)
   FNODE-TAGBODYS-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS-OFFSET))
    (BLOCK FNODE-TAGBODYS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 7.)))
   )
   #Y(FNODE-TAGBODYS-OFFSET #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE
      7.
     )
   (FUNCTION FNODE-TAGBODYS (FNODE) T) (INLINE FNODE-TAGBODYS) FNODE-TAGBODYS
   (#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS))
    (BLOCK FNODE-TAGBODYS (THE T (%STRUCTURE-REF 'FNODE OBJECT 8.)))
   )
   #Y(FNODE-TAGBODYS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 8.)
   (FUNCTION FNODE-KEYWORD-OFFSET (FNODE) T) (INLINE FNODE-KEYWORD-OFFSET)
   FNODE-KEYWORD-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-OFFSET))
    (BLOCK FNODE-KEYWORD-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 9.)))
   )
   #Y(FNODE-KEYWORD-OFFSET #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE
      9.
     )
   (FUNCTION FNODE-REQ-ANZ (FNODE) T) (INLINE FNODE-REQ-ANZ) FNODE-REQ-ANZ
   (#2# (DECLARE (IN-DEFUN FNODE-REQ-ANZ))
    (BLOCK FNODE-REQ-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 10.)))
   )
   #Y(FNODE-REQ-ANZ #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 10.)
   (FUNCTION FNODE-OPT-ANZ (FNODE) T) (INLINE FNODE-OPT-ANZ) FNODE-OPT-ANZ
   (#2# (DECLARE (IN-DEFUN FNODE-OPT-ANZ))
    (BLOCK FNODE-OPT-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 11.)))
   )
   #Y(FNODE-OPT-ANZ #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 11.)
   (FUNCTION FNODE-REST-FLAG (FNODE) T) (INLINE FNODE-REST-FLAG)
   FNODE-REST-FLAG
   (#2# (DECLARE (IN-DEFUN FNODE-REST-FLAG))
    (BLOCK FNODE-REST-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 12.)))
   )
   #Y(FNODE-REST-FLAG #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 12.)
   (FUNCTION FNODE-KEYWORD-FLAG (FNODE) T) (INLINE FNODE-KEYWORD-FLAG)
   FNODE-KEYWORD-FLAG
   (#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-FLAG))
    (BLOCK FNODE-KEYWORD-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 13.)))
   )
   #Y(FNODE-KEYWORD-FLAG #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 13.
     )
   (FUNCTION FNODE-KEYWORDS (FNODE) T) (INLINE FNODE-KEYWORDS) FNODE-KEYWORDS
   (#2# (DECLARE (IN-DEFUN FNODE-KEYWORDS))
    (BLOCK FNODE-KEYWORDS (THE T (%STRUCTURE-REF 'FNODE OBJECT 14.)))
   )
   #Y(FNODE-KEYWORDS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 14.)
   (FUNCTION FNODE-ALLOW-OTHER-KEYS-FLAG (FNODE) T)
   (INLINE FNODE-ALLOW-OTHER-KEYS-FLAG) FNODE-ALLOW-OTHER-KEYS-FLAG
   (#2# (DECLARE (IN-DEFUN FNODE-ALLOW-OTHER-KEYS-FLAG))
    (BLOCK FNODE-ALLOW-OTHER-KEYS-FLAG
     (THE T (%STRUCTURE-REF 'FNODE OBJECT 15.))
   ))
   #Y(FNODE-ALLOW-OTHER-KEYS-FLAG #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      FNODE 15.
     )
   (FUNCTION FNODE-CONSTS-OFFSET (FNODE) T) (INLINE FNODE-CONSTS-OFFSET)
   FNODE-CONSTS-OFFSET
   (#2# (DECLARE (IN-DEFUN FNODE-CONSTS-OFFSET))
    (BLOCK FNODE-CONSTS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 16.)))
   )
   #Y(FNODE-CONSTS-OFFSET #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE
      16.
     )
   (FUNCTION FNODE-CONSTS (FNODE) T) (INLINE FNODE-CONSTS) FNODE-CONSTS
   (#2# (DECLARE (IN-DEFUN FNODE-CONSTS))
    (BLOCK FNODE-CONSTS (THE T (%STRUCTURE-REF 'FNODE OBJECT 17.)))
   )
   #Y(FNODE-CONSTS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 17.)
   (FUNCTION FNODE-CONSTS-FORMS (FNODE) T) (INLINE FNODE-CONSTS-FORMS)
   FNODE-CONSTS-FORMS
   (#2# (DECLARE (IN-DEFUN FNODE-CONSTS-FORMS))
    (BLOCK FNODE-CONSTS-FORMS (THE T (%STRUCTURE-REF 'FNODE OBJECT 18.)))
   )
   #Y(FNODE-CONSTS-FORMS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 18.
     )
   (FUNCTION FNODE-ENCLOSING (FNODE) T) (INLINE FNODE-ENCLOSING)
   FNODE-ENCLOSING
   (#2# (DECLARE (IN-DEFUN FNODE-ENCLOSING))
    (BLOCK FNODE-ENCLOSING (THE T (%STRUCTURE-REF 'FNODE OBJECT 19.)))
   )
   #Y(FNODE-ENCLOSING #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 19.)
   (FUNCTION FNODE-GF-P (FNODE) T) (INLINE FNODE-GF-P) FNODE-GF-P
   (#2# (DECLARE (IN-DEFUN FNODE-GF-P))
    (BLOCK FNODE-GF-P (THE T (%STRUCTURE-REF 'FNODE OBJECT 20.)))
   )
   #Y(FNODE-GF-P #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) FNODE 20.)
   SETF-EXPANDER -1.
   #Y(SETF-FNODE-NAME
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-FNODE-CODE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 2.
     )
   #Y(SETF-FNODE-VENVCONST
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 3.
     )
   #Y(SETF-FNODE-VENVC
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 4.
     )
   #Y(SETF-FNODE-BLOCKS-OFFSET
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 5.
     )
   #Y(SETF-FNODE-BLOCKS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 6.
     )
   #Y(SETF-FNODE-TAGBODYS-OFFSET
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 7.
     )
   #Y(SETF-FNODE-TAGBODYS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 8.
     )
   #Y(SETF-FNODE-KEYWORD-OFFSET
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 9.
     )
   #Y(SETF-FNODE-REQ-ANZ
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 10.
     )
   #Y(SETF-FNODE-OPT-ANZ
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 11.
     )
   #Y(SETF-FNODE-REST-FLAG
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 12.
     )
   #Y(SETF-FNODE-KEYWORD-FLAG
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 13.
     )
   #Y(SETF-FNODE-KEYWORDS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 14.
     )
   #Y(SETF-FNODE-ALLOW-OTHER-KEYS-FLAG
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 15.
     )
   #Y(SETF-FNODE-CONSTS-OFFSET
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 16.
     )
   #Y(SETF-FNODE-CONSTS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 17.
     )
   #Y(SETF-FNODE-CONSTS-FORMS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 18.
     )
   #Y(SETF-FNODE-ENCLOSING
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 19.
     )
   #Y(SETF-FNODE-GF-P
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'FNODE 20.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-82 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01) FNODE
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-83 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FUNC*) *FUNC*
  )
#Y(#:TOP-LEVEL-FORM-84 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FUNC-START-LABEL*) *FUNC-START-LABEL*
  )
#Y(#:TOP-LEVEL-FORM-85 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *ANONYMOUS-COUNT*) *ANONYMOUS-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-86 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *NO-CODE*) *NO-CODE*
  )
#Y(#:TOP-LEVEL-FORM-87 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FORM*) *FORM*
  )
#Y(#:TOP-LEVEL-FORM-88 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FOR-VALUE*) *FOR-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-89
   #156Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 62 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 2E 01 E1 E2 E3 31 7E E1 E4 31 78 E5 30 5B E6
         30 5B E7 2E 01 E7 E2 E8 31 7E E7 E9 31 78 EA 30 5B EB 30 5B EC 2E 01
         EC E2 ED 31 7E EC EE 31 78 EF 30 5B F0 30 5B F1 2E 01 F1 E2 F2 31 7E
         F1 F3 31 78 E7 F4 F5 03 1E 79 31 7E E7 64 1F 62 2C 03 20 EC F4 F5 03
         21 79 31 7E EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 7E F1 64 1F 62
         2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 7F C6 19 01
        )
   MK-ANODE REMOVE-OLD-DEFINITIONS
   #Y(MK-ANODE
      #31Y(03 00 00 00 00 04 D8 D9 71 30 DA AB DB B1 31 2F DA AB DC B0 31 2F DA
           AB DD AF 31 2F 15 19 04
          )
      #1=(ANODE) 4. ANODE 1. 2. 3.
     )
   ANODE DEFSTRUCT-DESCRIPTION #1#
   ((TYPE 1. NIL T NIL) (SECLASS 2. NIL T NIL) (CODE 3. NIL T NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE ANODE-P) ANODE-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN ANODE-P))
    (BLOCK ANODE-P (%STRUCTURE-TYPE-P 'ANODE OBJECT))
   )
   #Y(ANODE-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) ANODE)
   (FUNCTION ANODE-TYPE (ANODE) T) (INLINE ANODE-TYPE) ANODE-TYPE
   (#2=(OBJECT) (DECLARE (IN-DEFUN ANODE-TYPE))
    (BLOCK ANODE-TYPE (THE T (%STRUCTURE-REF 'ANODE OBJECT 1.)))
   )
   #Y(ANODE-TYPE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) ANODE 1.)
   (FUNCTION ANODE-SECLASS (ANODE) T) (INLINE ANODE-SECLASS) ANODE-SECLASS
   (#2# (DECLARE (IN-DEFUN ANODE-SECLASS))
    (BLOCK ANODE-SECLASS (THE T (%STRUCTURE-REF 'ANODE OBJECT 2.)))
   )
   #Y(ANODE-SECLASS #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) ANODE 2.)
   (FUNCTION ANODE-CODE (ANODE) T) (INLINE ANODE-CODE) ANODE-CODE
   (#2# (DECLARE (IN-DEFUN ANODE-CODE))
    (BLOCK ANODE-CODE (THE T (%STRUCTURE-REF 'ANODE OBJECT 3.)))
   )
   #Y(ANODE-CODE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) ANODE 3.)
   SETF-EXPANDER -1.
   #Y(SETF-ANODE-TYPE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'ANODE 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-ANODE-SECLASS
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'ANODE 2.
     )
   #Y(SETF-ANODE-CODE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'ANODE 3.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-90 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01) ANODE
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-91 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SECLASS-OR REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-OR
      #21Y(00 00 00 00 01 16 92 01 09 98 01 AC 37 04 31 49 19 02 C3 19 02)
      (NIL) SECLASS-OR-2
  )  )
#Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SECLASS-OR-2 REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-OR-2
      #48Y(02 00 00 00 00 03 93 02 02 21 1F 93 01 02 21 1A 93 02 93 02 2F 00 14
           94 03 02 21 11 94 02 02 21 0C 94 03 94 03 2F 00 5C 19 03 02 1A 69 02
           1A 77
          )
      UNION
  )  )
#Y(#:TOP-LEVEL-FORM-94 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANODELIST-SECLASS-OR REMOVE-OLD-DEFINITIONS
   #Y(ANODELIST-SECLASS-OR
      #17Y(01 00 00 00 00 02 98 00 98 01 AD 32 00 17 9A 00 02) SECLASS-OR
      ANODE-SECLASS
  )  )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SECLASS-WITHOUT REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-WITHOUT
      #51Y(02 00 00 00 00 03 00 2A 01 7E 02 00 00 AA 6C 00 01 93 04 02 21 17 AA
           93 05 37 05 31 4D 14 94 05 02 21 0D AB 94 06 37 05 31 4D 5C 19 05 02
           1A 6D 02 1A 77
          )
      #Y(SECLASS-WITHOUT-BOUND
         #16Y(01 00 00 00 00 02 AB 68 00 01 37 03 30 B5 19 02) NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANODES-COMMUTE REMOVE-OLD-DEFINITIONS
   #Y(ANODES-COMMUTE
      #20Y(02 00 00 00 00 03 D8 AD D9 71 2E D8 AD D9 71 2E 2F 02 19 03) ANODE
      2. SECLASSES-COMMUTE
  )  )
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SECLASSES-COMMUTE REMOVE-OLD-DEFINITIONS
   #Y(SECLASSES-COMMUTE
      #24Y(02 00 00 00 00 03 93 02 94 02 C3 33 1E 08 93 01 94 03 C3 33 19 03 19
           03
          )
      #Y(SECLASSES-COMMUTE-DISJOINT-P
         #35Y(02 00 00 00 00 03 9D 58 1D 17 9C 58 1D 13 AC 02 59 58 1E 0D AB 02
              59 58 1E 07 AC AC 2F 00 58 19 03 19 03
             )
         INTERSECTION
  )  )  )
#Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-FUNNAME-STRING+PACK REMOVE-OLD-DEFINITIONS
   #Y(GET-FUNNAME-STRING+PACK
      #41Y(01 00 00 00 00 02 9C 1F 1A D8 D9 93 03 71 82 DA A0 5B 77 71 82 DB 72
           05 25 9D 5B 5A 14 71 80 3F 02 19 02 AB 71 82 9D 1A 73
          )
      STRING "(" " " ")"
  )  )
#Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SYMBOL-SUFFIX REMOVE-OLD-DEFINITIONS
   #Y(SYMBOL-SUFFIX
      #74Y(02 00 00 00 00 03 AC 8E 06 08 AC 8D 80 04 AB 87 00 29 AC 2E 01 41 02
           AD 8D 06 23 AD 8D 07 0D AD 37 0B 7C 06 C5 FA 7C 05 14 7F 87 03 DB AC
           DC B0 72 03 25 91 01 0E AA 30 CC 19 06 9C 19 03 AD 80 82 03 1A 68 AA
           AC 30 D5 19 06
          )
      FUNCTION-NAME-P GET-FUNNAME-STRING+PACK 10. STRING "-"
  )  )
#Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-COMMENT REMOVE-OLD-DEFINITIONS
   #Y(C-COMMENT
      #31Y(01 00 00 00 01 17 0E 00 1B 09 0E 02 14 91 00 07 00 19 04 0E 01 1A 75
           98 03 AB AF A0 9A 02 04
          )
      *COMPILE-VERBOSE* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-SOURCE-LOCATION REMOVE-OLD-DEFINITIONS
   #Y(C-SOURCE-LOCATION
      #51Y(00 00 00 00 00 01 0E 00 1C 08 0E 01 1C 04 0E 02 1B 08 CE 19 01 DB DC
           C8 1A 0C 62 6A 01 6A 02 8F 01 2D 72 DF E0 CC 14 6D 03 06 6A 01 6A 02
           2C 04 0A 19 01
          )
      *COMPILING-FROM-FILE* *COMPILE-FILE-LINENO1* *COMPILE-FILE-LINENO2*
      " in line ~D" " in Zeile ~D" " dans la ligne ~D" LANGUAGE
      " in lines ~D..~D" " in Zeilen ~D..~D" " dans les lignes ~D..~D" FORMAT
      ""
  )  )
#Y(#:TOP-LEVEL-FORM-103 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *WARNING-COUNT*) *WARNING-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-104 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-WARN REMOVE-OLD-DEFINITIONS
   #Y(C-WARN
      #76Y(01 00 00 00 01 17 D8 D9 DA DB 6D 03 04 AE 81 02 25 02 6A 05 31 8D 0F
           05 0E 06 1B 09 0E 08 14 91 00 07 00 19 04 0E 07 1A 75 98 09 AB AF E2
           8C 50 13 6A 0A E3 AB 31 32 16 01 1C 09 6A 0A E3 AB E4 31 2E 16 01 14
           2D 0D 14 A2 9A 04 04
          )
      STRING "~%WARNING~@[ in function ~S~]~A :~%"
      "~%WARNUNG~@[ in Funktion ~S~]~A :~%"
      "~%AVERTISSEMENT~@[ dans la fonction ~S~]~A :~%" LANGUAGE *WARNING-COUNT*
      *COMPILE-WARNINGS* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT *FUNC*
      FNODE 1. C-SOURCE-LOCATION
  )  )
#Y(#:TOP-LEVEL-FORM-105 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *ERROR-COUNT*) *ERROR-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-106 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-ERROR REMOVE-OLD-DEFINITIONS
   #Y(C-ERROR
      #86Y(01 00 00 00 01 17 D8 D9 DA DB 6D 03 04 AE 81 02 25 02 6A 05 31 8D 0F
           05 DE 8C 50 13 6A 06 DF AB 31 32 16 01 1C 09 6A 06 DF AB E0 31 2E 16
           01 14 92 00 0D 0E 09 1C 09 AA 6A 0A 37 03 30 B9 0F 0A 98 0B 6A 0C AF
           AD 2D 0D 14 A2 36 04 16 01 E6 E7 E8 E9 2C 03 12 51
          )
      STRING "~%ERROR~@[ in function ~S~]~A :~%"
      "~%ERROR~@[ in Funktion ~S~]~A :~%"
      "~%ERREUR~@[ dans la fonction ~S~]~A :~%" LANGUAGE *ERROR-COUNT* *FUNC*
      FNODE 1. *COMPILING-FROM-FILE* *FUNCTIONS-WITH-ERRORS* FORMAT
      *C-ERROR-OUTPUT* C-SOURCE-LOCATION C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-EVAL-WHEN-COMPILE REMOVE-OLD-DEFINITIONS
   #Y(C-EVAL-WHEN-COMPILE
      #33Y(01 00 00 00 00 02 0E 00 1C 12 0E 01 1C 0E 6A 01 30 8D AB 37 0C 7D 02
           F6 6A 01 30 82 AB 30 5C 19 02
          )
      *COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
  )  )
#Y(#:TOP-LEVEL-FORM-108 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-CONSTANTP REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANTP
      #84Y(01 00 00 00 00 02 9C 1F 1B 93 01 C5 59 1E 80 42 94 01 31 04 1E 3C 9C
           5B 5B 58 19 02 02 19 02 AB 30 5F 19 02 AB 31 08 1D 29 AB 31 1B 1D 24
           AB 31 07 1D 1F AB 31 21 1D 1A AB 31 06 1E 15 AB 8D 83 5B AB 71 80 0E
           00 21 57 AB 6A 01 37 03 30 BC 58 1A 47 19 02
          )
      *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-109 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANT-VALUE
      #66Y(01 00 00 00 00 02 9C 20 34 AB 8D 08 14 AB 8D 1B 10 AB 8D 07 0C AB 8D
           21 08 AB 8E 06 1D AB 8E 83 08 9C 19 02 AB 30 4F 19 02 AB 71 80 0E 00
           21 74 AB 6A 01 37 03 30 BC 5B 19 02 00 19 02 9C 5B 5A 19 02
          )
      *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
  )  )
#Y(#:TOP-LEVEL-FORM-110 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANODE-CONSTANTP REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANTP
      #47Y(01 00 00 00 00 02 D8 AC D9 71 2E AA 31 04 1E 1D 9B 5B 58 1E 18 93 00
           9B 20 08 D8 AB 8D 32 09 00 19 04 93 00 C5 59 19 04 AA 28 01 05 59 19
           03
          )
      ANODE 3. CONST
  )  )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANODE-CONSTANT REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANT
      #25Y(01 00 00 00 00 02 D8 AC D9 31 2E 77 9B 20 05 AA 28 01 04 72 9B 5B 5A
           19 03
          )
      ANODE 3.
  )  )
#Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANODE-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANT-VALUE
      #16Y(01 00 00 00 00 02 AB 6E 00 D9 AB DA 31 2E 19 03) ANODE-CONSTANT
      CONST 1.
  )  )
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   NEW-CONST REMOVE-OLD-DEFINITIONS
   #Y(NEW-CONST #12Y(01 00 00 00 00 02 D8 AC 2F 01 19 02) :VALUE MAKE-CONST)
  )
#Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-LABEL REMOVE-OLD-DEFINITIONS
   #Y(MAKE-LABEL
      #22Y(01 00 00 00 00 02 37 01 71 86 AA 62 30 53 AA D8 AE 31 7E 15 19 02)
      FOR-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-SPECIAL-VAR REMOVE-OLD-DEFINITIONS
   #Y(MAKE-SPECIAL-VAR
      #37Y(01 00 00 00 00 02 D8 AC D9 63 DA B0 6E 03 DC B2 87 03 07 00 14 2C 08
           09 19 02 DD B3 6E 06 DF B5 2C 04 08 1A 6F
          )
      :NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :VALUE C-CONSTANT-VALUE
      :FORM MAKE-CONST MAKE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TEST-LIST REMOVE-OLD-DEFINITIONS
   #Y(TEST-LIST
      #79Y(01 00 02 00 00 0D 3A 02 02 C3 F8 3C 01 AD 8E 0B 06 AD 30 9E 5B 1C 09
           D9 DA DB 6D 03 04 AE 2F 05 AD 71 45 AD 90 01 32 0E 92 01 08 AD 71 45
           AC 90 01 31 11 00 19 04 DE DF E0 6D 03 04 AE 2F 05 92 01 71 1A 67 E1
           E2 E3 6D 03 04 AE 2F 05 19 04
          )
      0. "Code contains dotted list ~S" "Dotted list im Code: ~S"
      "Paire pointée dans le code en ~S" LANGUAGE C-ERROR
      "Form too short, too few arguments: ~S"
      "Form zu kurz (zu wenig Argumente): ~S"
      "Forme trop courte (trop peu d'arguments) : ~S"
      "Form too long, too many arguments: ~S"
      "Form zu lang (zu viele Argumente): ~S"
      "Forme trop longue (trop d'arguments) : ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-117
   #78Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 DA DB C7 79 DD C9 79 CA 7B 04 AA
        1A 0F 93 00 93 00 94 01 AB B0 AC 30 66 16 03 82 00 9B 20 6E 16 02 E0 8C
        5F 15 AA E0 70 4F 8D 01 0E E1 E2 E3 6D 03 0C E5 E0 E0 70 4F 2C 04 0E E0
        AB 31 79 CB 19 02
       )
   #.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
   #Y(#:TOP-LEVEL-FORM-117-1 #11Y(00 00 00 00 00 01 62 2E 00 19 01) C-LET/LET*)
   LET*
   #Y(#:TOP-LEVEL-FORM-117-2 #11Y(00 00 00 00 00 01 63 2E 00 19 01) C-LET/LET*)
   #3=((IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK)
       (RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY) (GO . C-GO)
       (FUNCTION . C-FUNCTION) (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
       (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND) (OR . C-OR)
       (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND) (PSETQ . C-PSETQ)
       (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
       (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
       (UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
       (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
       (MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
       (LABELS . C-LABELS) (MACROLET . C-MACROLET)
       (SYMBOL-MACROLET . C-SYMBOL-MACROLET) (COMPILER-LET . C-COMPILER-LET)
       (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
       (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY)
       (CASE . C-CASE) (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
       (%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
       (CLOS:GENERIC-FLET . C-GENERIC-FLET)
       (CLOS:GENERIC-LABELS . C-GENERIC-LABELS) (HANDLER-BIND . C-HANDLER-BIND)
       (%HANDLER-BIND . C-HANDLER-BIND) (FUNCALL . C-FUNCALL)
       (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
       (SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL)
       (MAPCAR . C-MAPCAR) (MAPLIST . C-MAPLIST) (MAPC . C-MAPC)
       (MAPL . C-MAPL) (MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON)
       (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
      )
   C-FORM-TABLE "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT C-FORM-TABLE
    (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
     (MAPC
      #'(LAMBDA (ACONS) (SETF (GETHASH (CAR ACONS) HASHTABLE) (CDR ACONS)))
      `((QUOTE . C-QUOTE) (PROGN . C-PROGN)
        (LET . ,#'(LAMBDA NIL (C-LET/LET* NIL)))
        (LET* . ,#'(LAMBDA NIL (C-LET/LET* T))) (IF . C-IF) (SETQ . C-SETQ)
        (BLOCK . C-BLOCK) (RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY)
        (GO . C-GO) (FUNCTION . C-FUNCTION)
        (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND)
        (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ) (AND . C-AND) (OR . C-OR)
        (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND) (PSETQ . C-PSETQ)
        (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
        (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
        (UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
        (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
        (MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET)
        (LABELS . C-LABELS) (MACROLET . C-MACROLET)
        (SYMBOL-MACROLET . C-SYMBOL-MACROLET) (COMPILER-LET . C-COMPILER-LET)
        (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
        (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY)
        (CASE . C-CASE) (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
        (%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
        (CLOS:GENERIC-FLET . C-GENERIC-FLET)
        (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
        (HANDLER-BIND . C-HANDLER-BIND) (%HANDLER-BIND . C-HANDLER-BIND)
        (FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY)
        (+ . C-PLUS) (- . C-MINUS) (SVSTORE . C-SVSTORE) (EQ . C-EQ)
        (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
        (MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL)
        (MAPCAN . C-MAPCAN) (MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP)
        (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
     ) )
     HASHTABLE
   ))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-118 #12Y(00 00 00 00 00 01 D8 30 E5 00 19 01)
   #Y(#:TOP-LEVEL-FORM-118-1
      #26Y(01 00 00 00 00 02 AB 8C 52 08 AB 6A 00 37 01 8C 65 03 00 19 02 D8 2E
           01 19 02
          )
      C-FORM-TABLE COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FORM REMOVE-OLD-DEFINITIONS
   #Y(C-FORM
      #338Y(01 00 01 00 00 08 9D 10 00 3A 04 02 0E 01 10 01 C5 4F 81 2A 0E 00
            1F 80 42 0E 00 77 AA 87 0D 80 87 9B 1F 81 0A 93 00 24 1F 81 04 64
            20 F3 AC 7A 02 0E 00 5B 61 02 14 37 01 27 4B 1A 80 FD AA DE 31 2B
            1A 72 6A 00 6A 03 6F 04 AA 87 05 70 6A 00 2E 07 1A 80 E6 2D 08 50
            1A 80 E3 6A 00 8D 06 64 6A 00 8D 08 70 6A 00 8D 1B 6B 6A 00 8D 07
            66 6A 00 8D 21 61 E1 E2 E3 6D 03 0C 6A 00 2F 02 50 1A 80 BC 14 35
            00 1A 80 5A 6A 00 6A 03 6A 10 72 02 00 70 5A 37 01 27 FF 6E 1A 80
            47 AE 6A 11 00 79 0E 00 78 2C 03 18 1A 3A AA 2E 0E 41 03 91 02 38
            AD 6A 0F 37 01 70 65 91 00 48 AE 8E 06 04 AE 8B 58 46 AE 6A 11 EA
            AB EB 80 2E 00 8E 02 11 AE 87 14 0D ED AF 7A 02 6A 16 EF 37 02 8B
            B5 FF BC AE 2E 19 16 05 50 1A 80 56 9D 25 1A 27 6A 00 6A 03 6A 10
            72 02 00 70 5A 37 01 27 FF 0A 1A 18 F3 AE 7A 02 0E 00 78 2F 1C 1A
            0D AD AB 0E 00 78 2C 03 18 1A 03 F5 2E 1E 16 04 50 1A 23 64 24 AB
            64 26 62 31 2F 64 24 AB 64 25 64 27 31 2F 15 1A 1F 64 21 64 22 64
            23 6D 03 0C AB 2F 02 16 01 50 14 0E 01 1B 0A 64 24 AB 64 25 31 2E
            5B 1C 4E 15 12 02 19 03
           )
      *FORM* *FOR-VALUE* C-ERROR *VENV* VENV-SEARCH-MACRO SYMBOL-MACRO-P 0.
      C-VAR C-CONST "Invalid form: ~S" "Das ist keine gültige Form: ~S"
      "Forme invalide : ~S" LANGUAGE FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE
      *FENV* *FUNC* FNODE 1. DECLARED-NOTINLINE IN-DEFUN *DENV* #.#'EQUAL
      C-LOCAL-FUNCTION-CALL C-GLOBAL-FUNCTION-CALL
      #S(HASH-TABLE EQ (LOCAL . 30.) (GLOBAL . 19.) (MACRO . 1.)) FUNCTION
      C-FUNCALL-NOTINLINE C-FORM COMPILER-ERROR LAMBDA %FUNCALL
      "Not the name of a function: ~S"
      "Das ist nicht der Name einer Funktion: ~S"
      "Ceci n'est pas le nom d'une fonction : ~S" ANODE 2. 3. (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-120 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-NIL REMOVE-OLD-DEFINITIONS
   #Y(C-NIL #14Y(00 00 00 00 00 01 62 D8 D9 2C 03 02 19 01) (NIL) ((NIL))
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-121 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-CONST REMOVE-OLD-DEFINITIONS
   #Y(C-CONST
      #22Y(00 00 00 00 00 01 D8 D9 D8 6A 02 6E 03 7A 02 7A 01 2C 03 04 19 01)
      CONST (NIL) *FORM* NEW-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-VAR
      #313Y(01 00 00 00 00 02 AB 2E 00 41 03 91 02 19 D9 DA DB 6D 03 04 AF 2F
            05 0E 06 1C 0A AE 6A 07 E0 37 02 30 B9 0F 07 CC F8 9D 25 0A 81 06
            B0 60 01 1A 23 00 1A 0B E7 E8 B3 6E 11 EA B5 8D 83 73 A6 14 2C 04
            13 1A 1E AE 6E 0B E4 0E 0D 1C 06 E4 AC E6 8E 2E 59 00 14 00 79 0E
            0D 1C 0F E4 AD E6 8D 2E 53 EC A3 14 7A 02 60 01 1A 01 00 14 2C 03
            15 19 06 02 1A 19 E7 AE 6E 16 7A 02 EF E7 AF 6E 16 7A 02 03 18 61
            03 1A 0E E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 60 00 14 2C 03 15 19
            05 AC 60 01 1A 17 F1 AE 6A 1A 6A 1B 7A 04 60 01 1A 13 16 01 1A 80
            7E E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 62 00 14 6D 03 15 AA E4 AE
            F4 31 2E 79 E4 AE F4 AD 31 2F 16 01 0E 0D 1C 80 58 0E 1D 1B 80 53
            E4 AD 64 1E 63 31 2F E4 AD 64 1F 71 2E 6E 20 0E 21 21 07 E4 AD 64
            22 63 31 2F E4 AD 64 22 8E 2E 32 6A 1A 92 00 25 AA E4 AF 64 23 31
            2E 21 FF A0 93 00 64 24 AB 31 32 16 01 1C 0B 93 00 64 24 AB E6 63
            31 2F 16 01 82 00 91 00 5B 64 25 64 26 2F 27 16 01 15 19 05 64 25
            D8 2F 27 19 05
           )
      VENV-SEARCH
      "~S is neither declared nor bound,~@
                        it will be treated as if it were declared SPECIAL."
      "~S ist weder deklariert noch gebunden,~@
                        behandle es als SPECIAL-deklarierte Variable."
      "~S n'est ni déclaré ni lié,~@
                         et va être traité comme étant déclaré SPECIAL."
      LANGUAGE C-WARN *COMPILING-FROM-FILE* *UNKNOWN-FREE-VARS* #.#'EQ SPECIAL
      #S(HASH-TABLE EQ (T . 135.) (LOCAL . 93.) (SPECIAL . 27.))
      MAKE-SPECIAL-VAR VAR *FOR-VALUE* 3. CONST :VALUE C-CONSTANT-VALUE :FORM
      MAKE-CONST GETVALUE MK-ANODE NEW-CONST (PUSH) ((SVREF)) GET *VENVC*
      *STACKZ* 5. *NO-CODE* 6. 10. STACKZ-FUN *FUNC* 9. 11. FNODE C-VAR
      "INVISIBLE" COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-VARSET REMOVE-OLD-DEFINITIONS
   #Y(C-VARSET
      #278Y(03 00 00 00 00 04 AD 2E 00 41 03 91 02 0B D9 DA DB 6D 03 04 B1 2F
            05 C9 F8 9D 25 07 80 F1 00 1A 1A E4 E5 E6 6D 03 04 B4 2F 05 D2 1A
            1B B0 6E 08 E1 62 E2 AD E3 8D 2E 66 B3 60 01 79 E2 AD E3 8D 2E 5F
            E8 B4 7A 02 60 01 14 2C 03 11 19 08 E1 62 02 79 EA EB AF 6E 14 7A
            02 ED EB B0 6E 14 7A 02 03 16 7B 04 2C 03 11 19 07 E2 AD F2 63 31
            2F 0E 1B 1C 26 1A 80 96 16 01 1A 80 7C E1 62 AD 60 01 79 EF AE 6A
            18 6A 19 7A 04 7A 01 6D 03 11 E2 AD F2 8E 2E 55 0E 1B 1B 80 73 E2
            AD E3 62 31 2F B0 AB A2 7B 02 AA E2 AF F4 31 2E 79 E2 AF F4 AD 31
            2F 16 02 E2 AD F5 71 2E 6E 1E 0E 1F 21 39 E2 AD 64 20 63 31 2F 6A
            18 92 00 25 AA E2 AF 64 21 31 2E 21 FF A2 93 00 64 22 AB 31 32 16
            01 1C 0B 93 00 64 22 AB E3 63 31 2F 16 01 82 00 91 00 5B 64 23 64
            24 2F 25 16 01 64 26 E2 AE 64 27 71 2E 37 05 71 50 E2 AE 64 27 AD
            31 2F 16 01 15 19 07 64 23 D8 2F 25 19 07
           )
      VENV-SEARCH
      "~S is neither declared nor bound,~@
                        it will be treated as if it were declared SPECIAL."
      "~S ist weder deklariert noch gebunden,~@
                        behandle es als SPECIAL-deklarierte Variable."
      "~S n'est ni déclaré ni lié,~@
                         et va être traité comme étant déclaré SPECIAL."
      LANGUAGE C-WARN SPECIAL
      #S(HASH-TABLE EQ (T . 95.) (LOCAL . 50.) (SPECIAL . 17.))
      MAKE-SPECIAL-VAR VARSET VAR 3.
      "The constant ~S may not be assigned to.~@
                                                  The assignment will be ignored."
      "Der Konstante ~S kann nicht zugewiesen werden.~@
                                                  Die Zuweisung wird ignoriert."
      "Rien ne peut être assigné à la constante ~S.~@
                                                   L'assignation est ignorée."
      ((VALUES1)) SETVALUE MK-ANODE (PUSH) CONST NEW-CONST (PUSH) ((SVSET)) SET
      *VENVC* *STACKZ* 5. *NO-CODE* 7. 10. STACKZ-FUN *FUNC* 9. 11. FNODE
      C-VARSET "INVISIBLE" COMPILER-ERROR
      #Y(C-VARSET-1
         #19Y(01 00 00 00 00 02 93 01 D8 AB D9 71 2E 6A 02 30 B8 19 03) VAR 10.
         *STACKZ*
        )
      8.
  )  )
#Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-FUNNAME-CONST REMOVE-OLD-DEFINITIONS
   #Y(MAKE-FUNNAME-CONST
      #34Y(01 00 00 00 00 02 9C 1F 14 9C 5B 77 D9 AB 6E 02 DB DA DC AF 7A 02 7A
           02 2C 04 05 19 03 AB 2E 00 19 02
          )
      NEW-CONST :VALUE GET-SETF-SYMBOL :FORM QUOTE MAKE-CONST
  )  )
#Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-NORMAL-FUNCTION-CALL
      #95Y(01 00 00 00 00 02 6A 00 D9 2F 02 0E 00 78 71 45 0E 03 10 03 0E 00 78
           DC 7A 01 92 01 19 93 01 82 02 AA DD 6F 06 AA 83 02 DF 83 02 D9 0E 03
           5C 0F 03 16 02 91 01 67 A0 25 08 09 CC 1A 0A CD 1A 07 CE 1A 04 E4 B0
           60 02 14 B2 6E 0D 7A 01 72 02 23 83 00 E4 E6 AC 71 47 2C 03 0F 16 02
           11 19 03
          )
      *FORM* 1. TEST-LIST *STACKZ* (CALLP) ONE C-FORM (PUSH)
      #S(HASH-TABLE EQ (2. . 7.) (1. . 4.) (0. . 1.)) (CALL0) (CALL1) (CALL2)
      CALL MAKE-FUNNAME-CONST (T . T) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FDESCR-SIGNATURE REMOVE-OLD-DEFINITIONS
   #Y(FDESCR-SIGNATURE
      #82Y(01 00 00 00 00 02 9C 5B 1B 3C 93 01 DA AB DB 71 2E DA AC DC 71 2E DA
           AD DD 71 2E DA AE DE 71 2E DA AF DF 71 2E DA B0 E0 71 2E 3F 06 19 03
           9C 5B 5B 43 41 0D B6 71 45 B6 71 45 B4 C4 59 58 14 B4 B4 B1 3F 06 19
           0F 9C 5B 77 23 00 62 9C 5B 5B 43 19 02
          )
      LABELS 0. FNODE 10. 11. 12. 13. 14. 15.
  )  )
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TEST-ARGUMENT-SYNTAX REMOVE-OLD-DEFINITIONS
   #Y(TEST-ARGUMENT-SYNTAX
      #240Y(09 00 00 00 00 00 B3 8E 0B 06 B3 30 9E 5B 1C 0B D8 D9 DA 6D 03 03
            B2 B5 2C 03 04 B3 71 45 B1 B1 72 02 35 91 0A 06 B2 AC 90 01 31 35
            91 06 09 91 05 06 AB AB 90 01 31 29 92 05 3F AB AB 8F 01 31 3C 91
            06 3C AB AB 81 01 36 01 AA B6 7F 9D 0B AB 8D 8C 30 E4 E5 E6 6D 03
            03 B4 B7 2C 03 08 00 19 0C DD DE DF 6D 03 03 B4 AD B7 91 0A 01 A4
            14 B7 B0 71 01 B8 B1 2C 08 08 1A 64 CC 19 0C CD 19 0C CE 19 0C B5
            AE 62 92 02 80 60 93 02 AA 88 0F 14 AA 2E 10 F6 14 8D 83 2B E9 EA
            EB 6D 03 03 93 04 B9 2C 03 08 CE 19 10 7D 02 92 02 2A 1A 32 EE EF
            F0 6D 03 03 AB B8 B4 71 45 03 19 59 14 B5 2C 05 04 19 0F AA 24 14
            0C 9E 5B 77 88 0F 57 9E 5B 77 87 10 54 91 02 0A AA B3 ED 37 02 8B
            B5 02 9B F7 16 01 9D 5B 5B F8 91 02 FF A0 91 00 41 CD 19 0F
           )
      "argument list to function ~S is dotted: ~S"
      "Argumentliste zu Funktion ~S ist dotted: ~S"
      "Liste pointée d'arguments pour la fonction ~S : ~S" LANGUAGE C-ERROR
      "~S called with ~S~:[~; or more~] arguments, but it requires ~
                        ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
      "~S mit ~S~:[~; oder mehr~] Argumenten aufgerufen, braucht aber ~
                        ~:[~:[~S bis ~S~;~S~]~;mindestens ~*~S~] Argumente."
      "~S est appelé avec ~S~[; ou plus~] d'arguments mais a besoin ~
                         ~:[de ~:[~S à ~S~;~S~]~;d'au moins ~*~S~] arguments."
      C-WARN NO-KEYS STATIC-KEYS DYNAMIC-KEYS
      "keyword arguments to function ~S should occur pairwise: ~S"
      "Keyword-Argumente zu Funktion ~S sind nicht paarig: ~S"
      "Les arguments de genre mot-clé pour la fonction ~S ne sont pas par paires : ~S"
      C-CONSTANTP C-CONSTANT-VALUE
      "argument ~S to function ~S is not a keyword"
      "Das Argument ~S zu Funktion ~S ist kein Keyword."
      "L'argument ~S pour la fonction ~S n'est pas un mot-clé."
      :ALLOW-OTHER-KEYS #.#'EQ
      "keyword ~S is not allowed for function ~S.~
                              ~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
      "Keyword ~S ist bei Funktion ~S nicht erlaubt.~
                              ~%Erlaubt ~:[sind nur ~{~S~#[~; und ~S~:;, ~]~}~;ist nur ~{~S~}~]."
      "L'argument mot-clé ~S n'est pas permis pour la fonction ~S.~
                               ~%Seul~:[s sont permis ~{~S~#[~; et ~S~:;, ~]~}~; est permis ~{~S~}~]."
      1.
  )  )
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-DIRECT-FUNCTION-CALL
      #997Y(0A 00 00 00 00 00 62 92 03 04 A4 25 01 24 C3 1A 22 7D 00 C5 1A 1D
            C6 1A 1A C7 1A 17 02 10 07 00 10 06 B3 35 00 12 02 E0 B7 B7 32 02
            23 79 2E 09 19 0D C8 14 0E 06 1B 04 9B 5B 1C 60 B6 71 45 B4 B4 72
            02 35 AC 62 0E 0A 10 0A E3 B1 B1 72 01 34 1A 80 F2 EA EB 2F 14 92
            0D 80 52 1A 80 4B AB 31 8D 1A 0E AF B1 72 01 36 93 13 E4 6F 09 91
            10 6E 9C 14 0E 0A 5C 0F 0A BA AC BD AE 72 01 34 6D 03 16 B1 E5 AD
            E6 71 2E 2F 0F FD AB 83 06 B1 E5 AC E6 71 2E 2F 0F FD AA 83 06 16
            03 92 0D 82 D0 1A 81 33 91 0B FF AD 92 0D 04 EA ED 2F 14 AF B1 8F
            01 32 FF AF 0E 0A 10 0A C0 92 00 21 93 00 82 01 E4 6F 09 B3 E5 AC
            E6 71 2E 2F 0F FF AA 83 08 16 01 EF 83 07 E9 0E 0A 5C 0F 0A 91 00
            5F 93 16 E4 6F 09 B3 E5 AC E6 71 2E 2F 0F FF AA 83 08 16 01 F0 B5
            B5 72 01 36 7A 02 83 07 16 01 11 03 19 1A 80 9C AF B1 72 01 36 F2
            AB 7A 02 83 04 AA 0E 0A 5C 0F 0A 16 01 92 0E 80 B8 1A 80 40 F4 83
            03 03 1D 1A 80 7A 93 15 82 16 AA E4 6F 09 B2 E5 AC E6 71 2E 2F 0F
            FE AA 83 07 16 02 E8 83 05 E9 0E 0A 5C 0F 0A 84 01 AB AB 90 01 32
            59 16 02 91 12 FF 51 AF B1 8F 01 30 FF AA 92 0E 80 75 91 0B 80 4D
            92 13 FF B8 0E 0A 10 0A C0 92 00 22 93 00 82 01 E4 6F 09 B3 E5 AC
            E6 71 2E 2F 0F FF AA 83 08 16 01 64 1E 83 07 E9 0E 0A 5C 0F 0A 91
            00 5E 64 1F B5 B5 72 01 36 7A 02 83 07 16 01 11 03 20 14 83 03 E9
            0E 0A 5C 0F 0A 92 0D 81 C4 1A 28 92 13 21 93 13 82 14 E4 6F 09 AF
            E5 AC E6 71 2E 2F 0F FB AA 83 04 16 01 F3 83 03 E9 0E 0A 5C 0F 0A
            91 13 5F 92 0D 81 9A B6 71 45 AA 62 B9 1A 13 CF 1A 80 41 93 00 AA
            85 04 14 63 7A 03 83 02 16 01 82 00 9B 20 6E 16 01 AA 30 A5 16 01
            F6 62 92 16 80 49 93 16 82 17 6E 21 AA AD 64 22 37 02 70 BC 9B 5B
            5B 77 93 19 82 1A E3 0E 0A 5C 10 0A AD 91 05 FF BC 00 14 6F 09 B9
            E5 AC E6 71 2E 2F 0F 09 0F 63 A2 5B 77 AC 6A 0A 7A 04 83 08 16 01
            11 9D 5B 78 62 30 AA 16 04 91 16 FF B7 AA 80 47 00 E3 E3 62 AD 92
            00 80 5A 93 00 9B 5A 1C 80 4B 9B 5B 5A 1C 0D 9B 5B 77 B2 E9 B1 72
            02 36 90 01 2D 39 9B 5B 5B 77 B0 1A 0F 16 02 1A 2E AB 9C 5A 5B 5B
            77 8A 23 73 82 00 AA 9F 22 71 16 02 9B 5B 5B 5B 77 AF 30 AA 9B 5B
            5B 77 83 0B 9B 5B 5A 1C 06 64 24 83 0B 84 04 AA 62 30 AA 16 01 82
            00 91 00 FF A6 16 01 AD 80 47 03 14 92 00 80 59 93 00 9B 5A 1C 80
            4A 9B 5B 5A 1C 08 9B 5B 77 AE 90 01 2D 3D 9B 5B 5B 77 B0 1A 0F 16
            02 1A 32 AB 9C 5A 5B 5B 77 8A 23 73 82 00 AA 9F 22 71 16 02 9B 5B
            5A 1C 06 64 25 83 02 84 03 9B 5B 5B 5B 77 B2 AF 72 01 36 30 AA 9B
            5B 5B 77 83 02 AA 62 30 AA 16 01 82 00 91 00 FF A7 16 01 AD 80 47
            03 AF AC 72 01 36 AA AE 90 01 30 0A F2 AB AF 72 01 36 7A 02 83 0A
            AE 62 1A 28 86 01 00 5A 1C 20 9B 5B 5B 5B 77 AD 30 AA 9B 5B 5B 77
            83 0C 9B 5B 5A 1C 0D 64 26 9C 5B 77 B0 72 01 36 7A 02 83 0C 82 01
            AB 8C 94 54 16 03 AA B4 7F A4 09 16 05 AA 0E 0A 5C 0F 0A 16 01 AD
            B5 75 00 7F A4 03 11 92 05 80 5E 64 27 AB 90 00 28 80 56 62 AB 62
            1A 0F 86 01 00 E5 AB 8E 32 05 AA 6E 28 83 02 82 01 AB 8C 94 6D 16
            02 AA 80 47 00 62 46 29 30 AC 2B 2A 01 10 2B C0 A3 36 00 42 11 F9
            47 64 2C 62 AC 1A 0D 93 00 64 2D AB 7A 02 83 02 16 01 82 00 9B 20
            70 16 01 AA 30 A5 16 01 79 2E 2E 19 13 1B 5C 16 02 64 2F B9 7A 02
            AC AC 2C 03 30 19 11
           )
      (T . T)
      #S(HASH-TABLE EQ (LOG10 . 12.) (LOG2 . 12.) (BYTE-POSITION . 12.)
         (BYTE-SIZE . 12.) (BYTE . 12.) (FLOAT . 12.) (ATANH . 12.)
         (ACOSH . 12.) (ASINH . 12.) (TANH . 12.) (COSH . 12.) (SINH . 12.)
         (ATAN . 12.) (ACOS . 12.) (ASIN . 12.) (CIS . 12.) (TAN . 12.)
         (COS . 12.) (SIN . 12.) (SIGNUM . 12.) (PHASE . 12.) (ABS . 12.)
         (SQRT . 12.) (LOG . 12.) (EXPT . 12.) (EXP . 12.) (FROUND . 12.)
         (FTRUNCATE . 12.) (FCEILING . 12.) (FFLOOR . 12.) (GENSYM . 12.)
         (SPECIAL-VARIABLE-P . 12.) (KEYWORDP . 12.) (SYMBOL-PLIST . 12.)
         (SYMBOL-PACKAGE . 12.) (GET-PROPERTIES . 12.) (GETF . 12.) (GET . 12.)
         (FILE-LENGTH . 12.) (STREAM-ELEMENT-TYPE . 12.)
         (OUTPUT-STREAM-P . 12.) (INPUT-STREAM-P . 12.)
         (MAKE-BUFFERED-OUTPUT-STREAM . 12.) (MAKE-BUFFERED-INPUT-STREAM . 12.)
         (MAKE-STRING-PUSH-STREAM . 12.) (MAKE-STRING-OUTPUT-STREAM . 12.)
         (STRING-INPUT-STREAM-INDEX . 12.) (MAKE-STRING-INPUT-STREAM . 12.)
         (MAKE-ECHO-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.)
         (MAKE-CONCATENATED-STREAM . 12.) (MAKE-BROADCAST-STREAM . 12.)
         (MAKE-SYNONYM-STREAM . 12.) (CONCATENATE . 12.) (REVERSE . 12.)
         (LENGTH . 12.) (COPY-SEQ . 12.) (SUBSEQ . 12.) (ELT . 12.)
         (SEQUENCEP . 12.) (CLOS:SLOT-EXISTS-P . 12.)
         (CLOS::ALLOCATE-STD-INSTANCE . 12.) (MAKE-SYMBOL-MACRO . 12.)
         (%MAKE-CLOSURE . 12.) (MAKE-CODE-VECTOR . 12.) (CLOSURE-CONSTS . 12.)
         (CLOSURE-CODEVEC . 12.) (CLOSURE-NAME . 12.) (%STRUCTURE-TYPE-P . 12.)
         (%COPY-STRUCTURE . 12.) (%MAKE-STRUCTURE . 12.) (%STRUCTURE-REF . 12.)
         (%RECORD-LENGTH . 12.) (%RECORD-REF . 12.) (COERCE . 12.)
         (CLOS:CLASS-OF . 12.) (CLOS::CLASS-P . 12.) (TYPE-OF . 12.)
         (COMMONP . 12.) (CLOS::GENERIC-FUNCTION-P . 12.)
         (COMPILED-FUNCTION-P . 12.) (EQUALP . 12.) (EQUAL . 12.)
         (FILE-AUTHOR . 12.) (FILE-WRITE-DATE . 12.) (DIRECTORY . 12.)
         (PROBE-FILE . 12.) (TRUENAME . 12.) (NAMESTRING . 12.)
         (MAKE-PATHNAME . 12.) (ENOUGH-NAMESTRING . 12.)
         (MERGE-PATHNAMES . 12.) (HOST-NAMESTRING . 12.)
         (DIRECTORY-NAMESTRING . 12.) (FILE-NAMESTRING . 12.)
         (PATHNAME-VERSION . 12.) (PATHNAME-TYPE . 12.) (PATHNAME-NAME . 12.)
         (PATHNAME-DIRECTORY . 12.) (PATHNAME-DEVICE . 12.)
         (PATHNAME-HOST . 12.) (PATHNAME . 12.) (PARSE-NAMESTRING . 12.)
         (FIND-ALL-SYMBOLS . 12.) (FIND-SYMBOL . 12.) (LIST-ALL-PACKAGES . 12.)
         (PACKAGE-SHADOWING-SYMBOLS . 12.) (PACKAGE-USED-BY-LIST . 12.)
         (PACKAGE-USE-LIST . 12.) (PACKAGE-NICKNAMES . 12.)
         (PACKAGE-NAME . 12.) (FIND-PACKAGE . 12.) (%%TIME . 12.)
         (GET-INTERNAL-REAL-TIME . 12.) (GET-INTERNAL-RUN-TIME . 12.)
         (GET-UNIVERSAL-TIME . 12.) (PAIRLIS . 12.) (TAILP . 12.) (LDIFF . 12.)
         (BUTLAST . 12.) (REVAPPEND . 12.) (COPY-TREE . 12.) (COPY-ALIST . 12.)
         (COPY-LIST . 12.) (APPEND . 12.) (LAST . 12.) (NTHCDR . 12.)
         (REST . 12.) (TENTH . 12.) (NINTH . 12.) (EIGHTH . 12.)
         (SEVENTH . 12.) (SIXTH . 12.) (FIFTH . 12.) (FOURTH . 12.)
         (THIRD . 12.) (SECOND . 12.) (FIRST . 12.) (NTH . 12.)
         (LIST-LENGTH . 12.) (CDDDDR . 12.) (CDDDAR . 12.) (CDDADR . 12.)
         (CDDAAR . 12.) (CDADDR . 12.) (CDADAR . 12.) (CDAADR . 12.)
         (CDAAAR . 12.) (CADDDR . 12.) (CADDAR . 12.) (CADADR . 12.)
         (CADAAR . 12.) (CAADDR . 12.) (CAADAR . 12.) (CAAADR . 12.)
         (CAAAAR . 12.) (CDDDR . 12.) (CDDAR . 12.) (CDADR . 12.) (CDAAR . 12.)
         (CADDR . 12.) (CADAR . 12.) (CAADR . 12.) (CAAAR . 12.) (CDDR . 12.)
         (CDAR . 12.) (CADR . 12.) (CAAR . 12.) (CDR . 12.) (CAR . 12.)
         (LINE-POSITION . 12.) (GET-DISPATCH-MACRO-CHARACTER . 12.)
         (GET-MACRO-CHARACTER . 12.) (SXHASH . 12.) (HASH-TABLE-ITERATOR . 12.)
         (HASH-TABLE-COUNT . 12.) (GETHASH . 12.) (MAKE-HASH-TABLE . 12.)
         (CONSTANTP . 12.) (MACRO-FUNCTION . 12.) (VALUES-LIST . 12.)
         (FBOUNDP . 12.) (BOUNDP . 12.) (SYMBOL-FUNCTION . 12.)
         (SYMBOL-VALUE . 12.) (MAKE-SYMBOL . 12.) (STRING-CONCAT . 12.)
         (SUBSTRING . 12.) (NAME-CHAR . 12.) (STRING . 12.)
         (STRING-CAPITALIZE . 12.) (STRING-DOWNCASE . 12.)
         (STRING-UPCASE . 12.) (STRING-BOTH-TRIM . 12.)
         (SEARCH-STRING-EQUAL . 12.) (SEARCH-STRING= . 12.)
         (STRING-NOT-LESSP . 12.) (STRING-NOT-GREATERP . 12.)
         (STRING-GREATERP . 12.) (STRING-LESSP . 12.) (STRING-NOT-EQUAL . 12.)
         (STRING-EQUAL . 12.) (STRING>= . 12.) (STRING<= . 12.) (STRING> . 12.)
         (STRING< . 12.) (STRING/= . 12.) (STRING= . 12.) (SCHAR . 12.)
         (CHAR . 12.) (CHARACTER . 12.) (MAKE-ARRAY . 12.) (FILL-POINTER . 12.)
         (ARRAY-HAS-FILL-POINTER-P . 12.) (SBIT . 12.) (BIT . 12.)
         (ARRAY-ROW-MAJOR-INDEX . 12.) (ARRAY-IN-BOUNDS-P . 12.)
         (ARRAY-TOTAL-SIZE . 12.) (ARRAY-DIMENSIONS . 12.)
         (ARRAY-DIMENSION . 12.) (SVREF . 12.) (AREF . 12.) (SUBR-INFO . 12.)
         (DECIMAL-STRING . 9.) (SYMBOL-NAME . 9.) (MAKE-LOAD-TIME-EVAL . 9.)
         (SOFTWARE-VERSION . 9.) (SOFTWARE-TYPE . 9.)
         (LISP-IMPLEMENTATION-VERSION . 9.) (LISP-IMPLEMENTATION-TYPE . 9.)
         (ACONS . 9.) (MAKE-LIST . 9.) (LIST* . 9.) (LIST . 9.) (CONS . 9.)
         (VALUES . 9.) (MAKE-STRING . 9.) (VECTOR . 9.) (EXQUO . 4.) (! . 4.)
         (DEPOSIT-FIELD . 4.) (DPB . 4.) (MASK-FIELD . 4.) (LDB-TEST . 4.)
         (LDB . 4.) (INTEGER-LENGTH . 4.) (LOGCOUNT . 4.) (ASH . 4.)
         (LOGBITP . 4.) (LOGTEST . 4.) (LOGNOT . 4.) (BOOLE . 4.)
         (LOGORC2 . 4.) (LOGORC1 . 4.) (LOGANDC2 . 4.) (LOGANDC1 . 4.)
         (LOGNOR . 4.) (LOGNAND . 4.) (LOGEQV . 4.) (LOGAND . 4.) (LOGXOR . 4.)
         (LOGIOR . 4.) (IMAGPART . 4.) (REALPART . 4.) (COMPLEX . 4.)
         (INTEGER-DECODE-FLOAT . 4.) (FLOAT-PRECISION . 4.) (FLOAT-DIGITS . 4.)
         (FLOAT-SIGN . 4.) (FLOAT-RADIX . 4.) (SCALE-FLOAT . 4.)
         (DECODE-FLOAT . 4.) (REM . 4.) (MOD . 4.) (ROUND . 4.) (TRUNCATE . 4.)
         (CEILING . 4.) (FLOOR . 4.) (DENOMINATOR . 4.) (NUMERATOR . 4.)
         (RATIONALIZE . 4.) (RATIONAL . 4.) (ISQRT . 4.) (LCM . 4.) (GCD . 4.)
         (CONJUGATE . 4.) (1- . 4.) (1+ . 4.) (/ . 4.) (* . 4.) (- . 4.)
         (+ . 4.) (MIN . 4.) (MAX . 4.) (>= . 4.) (<= . 4.) (> . 4.) (< . 4.)
         (/= . 4.) (= . 4.) (EVENP . 4.) (ODDP . 4.) (MINUSP . 4.) (PLUSP . 4.)
         (ZEROP . 4.) (CLOS::STD-INSTANCE-P . 4.) (SYMBOL-MACRO-P . 4.)
         (SIMPLE-BIT-VECTOR-P . 4.) (SIMPLE-STRING-P . 4.)
         (SIMPLE-VECTOR-P . 4.) (VECTORP . 4.) (BIT-VECTOR-P . 4.)
         (SIMPLE-ARRAY-P . 4.) (ARRAYP . 4.) (PACKAGEP . 4.) (FUNCTIONP . 4.)
         (CHARACTERP . 4.) (PATHNAMEP . 4.) (HASH-TABLE-P . 4.)
         (READTABLEP . 4.) (RANDOM-STATE-P . 4.) (STREAMP . 4.) (COMPLEXP . 4.)
         (REALP . 4.) (LONG-FLOAT-P . 4.) (DOUBLE-FLOAT-P . 4.)
         (SINGLE-FLOAT-P . 4.) (SHORT-FLOAT-P . 4.) (FLOATP . 4.)
         (RATIONALP . 4.) (FIXNUMP . 4.) (INTEGERP . 4.) (LISTP . 4.)
         (CLOSUREP . 4.) (NOT . 4.) (NULL . 4.) (NUMBERP . 4.) (STRINGP . 4.)
         (SYMBOLP . 4.) (ATOM . 4.) (CONSP . 4.) (EQL . 4.) (EQ . 4.)
         (IDENTITY . 4.) (ENDP . 4.) (SPECIAL-FORM-P . 4.) (CHAR-BIT . 4.)
         (CHAR-NAME . 4.) (INT-CHAR . 4.) (CHAR-INT . 4.) (DIGIT-CHAR . 4.)
         (CHAR-DOWNCASE . 4.) (CHAR-UPCASE . 4.) (MAKE-CHAR . 4.)
         (CODE-CHAR . 4.) (CHAR-FONT . 4.) (CHAR-BITS . 4.) (CHAR-CODE . 4.)
         (CHAR-NOT-LESSP . 4.) (CHAR-NOT-GREATERP . 4.) (CHAR-GREATERP . 4.)
         (CHAR-LESSP . 4.) (CHAR-NOT-EQUAL . 4.) (CHAR-EQUAL . 4.)
         (CHAR>= . 4.) (CHAR<= . 4.) (CHAR> . 4.) (CHAR< . 4.) (CHAR/= . 4.)
         (CHAR= . 4.) (ALPHANUMERICP . 4.) (DIGIT-CHAR-P . 4.)
         (BOTH-CASE-P . 4.) (LOWER-CASE-P . 4.) (UPPER-CASE-P . 4.)
         (ALPHA-CHAR-P . 4.) (STRING-CHAR-P . 4.) (GRAPHIC-CHAR-P . 4.)
         (STANDARD-CHAR-P . 4.) (ADJUSTABLE-ARRAY-P . 4.) (ARRAY-RANK . 4.)
         (ARRAY-ELEMENT-TYPE . 4.) (%FUNTABREF . 4.)
        )
      (NIL) (NIL) (T) (T . T) *FOR-VALUE* *NO-CODE* PROGN C-FORM *STACKZ* 0.
      ONE ANODE 2. SECLASS-OR-2 (PUSH) 1. C-DIRECT-FUNCTION-CALL "APPLY-SUBR"
      COMPILER-ERROR "APPLY-KEY" C-UNLIST (PUSH) LIST* (PUSH) PUSH-UNBOUND
      (PUSH) (NIL) (PUSH) (PUSH) LIST (PUSH) C-CONSTANT-VALUE #.#'EQ
      ANODES-COMMUTE (PUSH) (PUSH) STORE
      #Y(C-DIRECT-FUNCTION-CALL-1
         #20Y(01 00 00 00 00 02 D8 AC 31 32 58 1D 05 AB 2E 01 19 02 19 02)
         ANODE ANODE-CONSTANTP
        )
      ANODE-CONSTANT-VALUE TRY-EVAL
      #Y(C-DIRECT-FUNCTION-CALL-2 #9Y(00 00 00 00 01 16 00 48 00) NIL)
      *ERROR-HANDLER* VALUES QUOTE C-GLOBAL-FUNCTION-CALL-FORM DIRECT-CALL
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-UNLIST REMOVE-OLD-DEFINITIONS
   #Y(C-UNLIST
      #39Y(03 00 00 00 00 04 91 03 15 DE DF C9 14 AF AF 7A 03 60 01 14 2C 03 04
           19 04 D9 DA C6 1A 75 AC 23 00 77 D9 DD C4 1A 65
          )
      0. UNLIST* (NIL) ((PUSH)) MK-ANODE (T . T) UNLIST (T . T)
  )  )
#Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CCLOSURE-CALL-CODE-PRODUCER REMOVE-OLD-DEFINITIONS
   #Y(CCLOSURE-CALL-CODE-PRODUCER
      #63Y(07 00 00 00 00 00 00 2A 02 7E 08 00 00 7E 03 00 01 B1 0E 00 21 09 AA
           2B 06 01 19 09 C5 1A 0A 9B 2A 01 D9 B2 B2 91 08 74 C6 14 B1 71 45 72
           04 35 6A 04 7A 03 60 01 0B 00 00 AA 2B 05 01 19 0A
          )
      *FUNC* JSR 1. 0. *FUNC-START-LABEL*
      #Y(CCLOSURE-CALL-CODE-PRODUCER-1 #11Y(00 00 00 00 00 01 07 00 01 19 01)
         NIL
        )
      #Y(CCLOSURE-CALL-CODE-PRODUCER-2
         #29Y(00 00 00 00 00 01 D9 68 00 01 7A 02 DA 6F 03 07 00 02 1B 06 C8 14
              60 02 19 01 C7 1A 78
             )
         NIL FUNCTION ONE C-FORM (CALLCKEY) (CALLC)
  )  )  )
#Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
   #Y(C-GLOBAL-FUNCTION-CALL-FORM
      #17Y(01 00 00 00 00 02 9C 10 00 0E 00 77 2E 01 11 19 02) *FORM*
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-GLOBAL-FUNCTION-CALL
      #843Y(01 00 00 00 00 02 6A 00 D9 2F 02 0E 03 1C 82 F1 AB 8B 51 13 AB 6A
            04 DD 37 02 8B B5 0A AB 6A 06 DD 37 02 30 B9 0F 06 AB 24 07 13 6A
            00 71 45 E0 90 01 2D 0A 0E 00 5B 77 AA 87 09 27 16 01 AB 23 10 05
            AB 24 11 80 52 98 09 0E 00 78 90 00 28 80 48 E2 EA AD 23 10 1F AD
            23 11 1E 00 14 62 0E 00 78 1A 27 E2 E3 E4 E5 AE 6E 0E 7A 02 7A 02
            7A 03 2E 0F 16 01 1A 48 D6 1A 63 D7 1A 60 93 00 E5 AB 6E 0E 7A 02
            83 02 16 01 82 00 9B 20 6F 16 01 AA 30 A5 16 01 79 7A 03 2E 0F 9C
            25 15 82 63 98 09 0E 00 78 90 00 28 82 59 AB 62 0E 00 78 1A 82 41
            A4 25 18 81 FE A4 25 19 10 03 1A 1A 0E 03 1B 1A 0A 03 1E 1A 21 2D
            22 19 0B 03 1C 14 0E 1D 1B 04 9B 5B 1C 6D B4 24 1F 15 6A 1D 24 20
            10 B1 64 21 8F 01 2D 61 03 23 14 A4 79 2E 0F 19 0B AA 62 0E 24 10
            24 92 0D 2C 1A 0D 64 27 83 03 D9 0E 24 5C 0F 24 92 0D 1D 93 0D 82
            0E 64 20 6F 0F AF 64 25 AC E0 71 2E 2F 26 FB AA 83 04 16 01 91 0D
            59 91 0D 63 AD 04 10 25 28 80 FF 03 29 1A 80 FE 03 2A 1A 80 F9 03
            2B 1A 80 F4 03 2C 1A 80 EF 03 2D 1A 80 EA 03 2E 1A 80 E5 03 2F 1A
            80 E0 03 30 1A 80 DB 03 31 1A 80 D6 03 32 1A 80 D1 03 33 1A 80 CC
            03 34 1A 80 C7 03 35 1A 80 C2 03 36 1A 80 BD 03 37 1A 80 B8 03 38
            1A 80 B3 03 39 1A 80 AE 03 3A 1A 80 A9 03 3B 1A 80 A4 03 3C 1A 80
            9F 03 3D 1A 80 9A 03 3E 1A 80 95 03 3F 1A 80 90 03 40 1A 80 8B 03
            41 1A 80 86 03 42 1A 80 81 03 43 1A 80 7C 03 44 1A 80 77 03 45 1A
            80 72 03 46 1A 80 6D 03 47 1A 80 68 03 48 1A 80 63 03 49 1A 80 5E
            03 4A 1A 80 59 03 4B 1A 80 54 03 4C 1A 80 4F 03 4D 1A 80 4A 03 4E
            1A 80 45 03 4F 1A 80 40 B7 23 21 72 B7 23 01 73 64 50 03 51 1A 10
            03 52 1A 2E 03 53 1A 2A B7 8E 89 0C 64 54 03 55 14 B9 7A 02 60 02
            1A 1A 03 56 1A 16 03 57 1A 12 B7 23 01 78 64 58 96 0E 7A 02 60 01
            1A 04 64 59 2E 5A 14 7F A4 03 11 64 5B B7 7A 02 AC AC 2C 03 5C 19
            0D AE B1 90 01 31 0F 91 02 FE 6E B0 AF AF 72 02 35 8F 01 31 FE 63
            64 5D 64 5E 64 5F 6D 03 60 B4 B2 AF B1 03 21 59 14 B3 B4 B4 72 02
            35 2C 07 61 B3 2E 62 19 0A B5 2E 67 1A 24 B3 62 B7 B3 B3 B3 B3 B4
            63 00 2A 01 92 0E 6C 64 68 64 21 BE BD BD 72 02 36 72 01 33 B7 6A
            69 72 01 36 60 03 14 04 16 25 6A 04 03 6B 1A 01 00 5C 0B 00 00 AA
            2B 6C 01 F6 2C 0A 6D 19 0C B3 6A 63 37 01 70 65 92 00 80 83 B2 62
            B6 B2 B2 B2 B2 B3 B3 6D 09 64 AA 23 65 FF A7 AA 23 66 FF A2 B5 2E
            62 19 0C B4 B3 62 AD 62 2C 05 74 19 0B 93 00 E5 AB 6E 0E 7A 02 83
            02 16 01 82 00 9B 20 6F 16 01 AA 30 A5 16 01 79 0E 16 5C 0F 16 0E
            00 78 AA 71 45 AD 87 17 3B AD 30 01 41 06 92 05 05 B3 A1 21 FD 98
            0E 03 1C 0B B3 6A 6E DD 37 02 30 BC 5B 1B 09 B3 6E 6F 64 70 37 01
            31 7A 14 9B 1F 0D 64 71 64 72 9D 79 7A 02 B2 89 73 FF 98 B4 2E 62
            19 0B AD 2E 62 19 04
           )
      *FORM* 1. TEST-LIST *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
      *UNKNOWN-FUNCTIONS* PROCLAIM 2. C-CONSTANTP EVAL-WHEN (COMPILE)
      C-PROCLAIM QUOTE C-CONSTANT-VALUE C-FORM PROVIDE REQUIRE (COMPILE)
      C-PROVIDE C-REQUIRE
      #S(HASH-TABLE EQ (IMPORT . 2.) (UNUSE-PACKAGE . 2.) (USE-PACKAGE . 2.)
         (UNEXPORT . 2.) (EXPORT . 2.) (SHADOWING-IMPORT . 2.) (SHADOW . 2.)
         (IN-PACKAGE . 2.) (%IN-PACKAGE . 2.) (MAKE-PACKAGE . 2.)
        )
      *PACKAGE-TASKS* DECLARED-NOTINLINE
      #S(HASH-TABLE EQ (LIST* . 394.) (LIST . 394.) (SYMBOL-FUNCTION . 394.)
         (EQ . 394.) (%SVSTORE . 394.) (VALUES-LIST . 394.) (CONSP . 394.)
         (ATOM . 394.) (CDDDDR . 394.) (CDDDAR . 394.) (CDDADR . 394.)
         (CDDAAR . 394.) (CDADDR . 394.) (CDADAR . 394.) (CDAADR . 394.)
         (CDAAAR . 394.) (CADDDR . 394.) (CADDAR . 394.) (CADADR . 394.)
         (CADAAR . 394.) (CAADDR . 394.) (CAADAR . 394.) (CAAADR . 394.)
         (CAAAAR . 394.) (FOURTH . 394.) (THIRD . 394.) (SECOND . 394.)
         (CDDDR . 394.) (CDDAR . 394.) (CDADR . 394.) (CDAAR . 394.)
         (CADDR . 394.) (CADAR . 394.) (CAADR . 394.) (CAAAR . 394.)
         (CDDR . 394.) (CDAR . 394.) (CADR . 394.) (CAAR . 394.)
         (VALUES . 394.) (SVREF . 394.) (CONS . 394.) (NULL . 394.)
         (NOT . 394.) (REST . 394.) (FIRST . 394.) (CDR . 394.) (CAR . 394.)
        )
      #S(HASH-TABLE EQ (SYMBOL-FUNCTION . 5.) (SVREF . 5.) (VALUES-LIST . 5.)
         (CDDDDR . 5.) (CDDDAR . 5.) (CDDADR . 5.) (CDDAAR . 5.) (CDADDR . 5.)
         (CDADAR . 5.) (CDAADR . 5.) (CDAAAR . 5.) (CADDDR . 5.) (CADDAR . 5.)
         (CADADR . 5.) (CADAAR . 5.) (CAADDR . 5.) (CAADAR . 5.) (CAAADR . 5.)
         (CAAAAR . 5.) (FOURTH . 5.) (THIRD . 5.) (SECOND . 5.) (CDDDR . 5.)
         (CDDAR . 5.) (CDADR . 5.) (CDAAR . 5.) (CADDR . 5.) (CADAR . 5.)
         (CAADR . 5.) (CAAAR . 5.) (CDDR . 5.) (CDAR . 5.) (CADR . 5.)
         (CAAR . 5.) (REST . 5.) (FIRST . 5.) (CDR . 5.) (CAR . 5.)
         (LIST* . 1.) (LIST . 1.) (EQ . 1.) (CONSP . 1.) (ATOM . 1.)
         (VALUES . 1.) (CONS . 1.) (NULL . 1.) (NOT . 1.)
        )
      (NIL) (T) (T . T) *FOR-VALUE* PROGN VALUES ONE 0. C-NIL PROG1 *STACKZ*
      ANODE SECLASS-OR-2 (PUSH)
      #S(HASH-TABLE EQ (LIST* . 243.) (LIST . 219.) (SYMBOL-FUNCTION . 215.)
         (VALUES-LIST . 211.) (VALUES . 197.) (EQ . 182.) (%SVSTORE . 177.)
         (SVREF . 172.) (CONS . 167.) (NULL . 162.) (NOT . 162.) (CONSP . 157.)
         (ATOM . 152.) (CDDDDR . 147.) (CDDDAR . 142.) (CDDADR . 137.)
         (CDDAAR . 132.) (CDADDR . 127.) (CDADAR . 122.) (CDAADR . 117.)
         (CDAAAR . 112.) (FOURTH . 107.) (CADDDR . 107.) (CADDAR . 102.)
         (CADADR . 97.) (CADAAR . 92.) (CAADDR . 87.) (CAADAR . 82.)
         (CAAADR . 77.) (CAAAAR . 72.) (CDDDR . 67.) (CDDAR . 62.)
         (CDADR . 57.) (CDAAR . 52.) (THIRD . 47.) (CADDR . 47.) (CADAR . 42.)
         (CAADR . 37.) (CAAAR . 32.) (CDDR . 27.) (CDAR . 22.) (SECOND . 17.)
         (CADR . 17.) (CAAR . 12.) (REST . 7.) (CDR . 7.) (FIRST . 2.)
         (CAR . 2.)
        )
      ((CAR)) ((CDR)) ((CAR) (CAR)) ((CDR) (CAR)) ((CAR) (CDR)) ((CDR) (CDR))
      ((CAR) (CAR) (CAR)) ((CDR) (CAR) (CAR)) ((CAR) (CDR) (CAR))
      ((CDR) (CDR) (CAR)) ((CAR) (CAR) (CDR)) ((CDR) (CAR) (CDR))
      ((CAR) (CDR) (CDR)) ((CDR) (CDR) (CDR)) ((CAR) (CAR) (CAR) (CAR))
      ((CDR) (CAR) (CAR) (CAR)) ((CAR) (CDR) (CAR) (CAR))
      ((CDR) (CDR) (CAR) (CAR)) ((CAR) (CAR) (CDR) (CAR))
      ((CDR) (CAR) (CDR) (CAR)) ((CAR) (CDR) (CDR) (CAR))
      ((CDR) (CDR) (CDR) (CAR)) ((CAR) (CAR) (CAR) (CDR))
      ((CDR) (CAR) (CAR) (CDR)) ((CAR) (CDR) (CAR) (CDR))
      ((CDR) (CDR) (CAR) (CDR)) ((CAR) (CAR) (CDR) (CDR))
      ((CDR) (CAR) (CDR) (CDR)) ((CAR) (CDR) (CDR) (CDR))
      ((CDR) (CDR) (CDR) (CDR)) ((ATOM)) ((CONSP)) ((NOT)) ((CONS)) ((SVREF))
      ((SVSET)) ((EQ)) ((VALUES0)) ((VALUES1)) (PUSH) STACK-TO-MV
      ((LIST-TO-MV)) ((SYMBOL-FUNCTION)) (PUSH) LIST ((NIL)) ((VALUES1)) LIST*
      C-GLOBAL-FUNCTION-CALL COMPILER-ERROR PRIMOP MK-ANODE
      "~S called with ~S arguments, but it requires ~
                                   ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
      "~S mit ~S Argumenten aufgerufen, braucht aber ~
                                   ~:[~:[~S bis ~S~;~S~]~;mindestens ~*~S~] Argumente."
      "~S est appelé avec ~S arguments mais a besoin ~
                                    ~:[de ~:[~S à ~S~;~S~]~;d'au moins ~*~S~] arguments."
      LANGUAGE C-WARN C-NORMAL-FUNCTION-CALL FUNCTION-CODES
      TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS CALLS-CODE CALLSR FUNTABR-INDEX
      #S(HASH-TABLE EQ (INVOKE-DEBUGGER . 1.) (ERROR-OF-TYPE . 1.) (ERROR . 1.)
         (UNWIND-TO-DRIVER . 1.) (DRIVER . 1.)
        )
      ((BARRIER))
      #Y(C-GLOBAL-FUNCTION-CALL-1 #11Y(00 00 00 00 00 01 07 00 01 19 01) NIL)
      C-DIRECT-FUNCTION-CALL *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL
      INLINE-EXPANSION FUNCTION LAMBDA INLINE-CALLABLE-FUNCTION-P
      C-FUNCALL-INLINE
  )  )
#Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROCLAIM REMOVE-OLD-DEFINITIONS
   #Y(C-PROCLAIM
      #156Y(01 00 00 00 00 02 9C 20 03 00 19 02 9C 5A 25 00 78 94 01 62 AB 8B
            94 80 80 86 01 00 14 8E 06 0A AA 6A 01 DA 37 02 30 B9 0F 01 82 01
            1A 66 94 01 62 AB 8B 94 80 63 86 01 00 14 88 03 15 AA 6A 04 DD 37
            02 30 B9 0F 04 AA 6A 06 37 07 C8 F8 31 4F 0F 06 82 01 1A 5B 94 01
            62 AB 8B 94 3C 86 01 00 14 88 03 15 AA 6A 06 DD 37 02 30 B9 0F 06
            AA 6A 04 37 07 C8 F8 31 4F 0F 04 82 01 1A 5C 94 01 62 1A 13 86 01
            00 14 8E 06 0A AA 6A 07 DA 37 02 30 B9 0F 07 82 01 AB 8C 94 69 00
            19 04
           )
      #S(HASH-TABLE EQ (DECLARATION . 109.) (NOTINLINE . 70.) (INLINE . 30.)
         (SPECIAL . 1.)
        )
      *KNOWN-SPECIAL-VARS* #.#'EQ FUNCTION-NAME-P *INLINE-FUNCTIONS* #.#'EQUAL
      *NOTINLINE-FUNCTIONS* *USER-DECLARATION-TYPES*
  )  )
#Y(#:TOP-LEVEL-FORM-134 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROCLAIM-CONSTANT REMOVE-OLD-DEFINITIONS
   #Y(C-PROCLAIM-CONSTANT
      #39Y(02 00 00 00 00 03 0E 00 1C 0E AC 6A 01 DA 37 02 30 B9 0F 01 AB 87 03
           03 00 19 03 AC AC 2E 04 79 0E 05 5C 0F 05 19 03
          )
      *COMPILING-FROM-FILE* *KNOWN-SPECIAL-VARS* #.#'EQ C-CONSTANTP
      C-CONSTANT-VALUE *CONSTANT-SPECIAL-VARS*
  )  )
#Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-DEFUN REMOVE-OLD-DEFINITIONS
   #Y(C-DEFUN
      #51Y(01 00 01 00 00 08 3A 01 12 7C 01 0E 00 1C 21 1A 0E AC 9D 79 0E 04 5C
           0F 04 19 03 0E 00 1C 11 0E 01 1C 0D AC 6A 02 DB 37 02 30 B9 0F 02 91
           01 61 00 19 03
          )
      *COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
      *INLINE-DEFINITIONS*
  )  )
#Y(#:TOP-LEVEL-FORM-136 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROVIDE REMOVE-OLD-DEFINITIONS
   #Y(C-PROVIDE
      #20Y(01 00 00 00 00 02 AB 70 4C 6A 00 D9 37 02 30 B9 0F 00 19 02)
      *COMPILED-MODULES* #.#'STRING=
  )  )
#Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-REQUIRE REMOVE-OLD-DEFINITIONS
   #Y(C-REQUIRE
      #47Y(01 00 01 00 00 08 3B 01 14 3C 02 AD 70 4C 6A 00 D9 37 02 8B B5 11 91
           00 04 AD 7F E7 02 9D 1F 0A DA AD 32 00 17 19 04 00 19 04 AC C5 33 19
           04
          )
      *COMPILED-MODULES* #.#'STRING-EQUAL
      #Y(C-REQUIRE-LOAD-LIB
         #45Y(01 00 00 00 00 02 AB D8 6F 01 93 00 9C 1F 09 AA 70 EC DA 37 04 8B
              36 09 91 00 01 9E 14 2E 07 19 04 AA DB 62 DC 62 DD 62 2C 07 06 19
              04
             )
         (#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 "lib" :VERSION NIL
         )  )
         SEARCH-FILE
         #.(PATHNAME-TYPE
            '#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
                :TYPE "lib" :VERSION NIL
           )   )
         :VERBOSE :PRINT :ECHO LOAD COMPILE-FILE
  )  )  )
#Y(#:TOP-LEVEL-FORM-138 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANALYZE-LETLIST REMOVE-OLD-DEFINITIONS
   #Y(ANALYZE-LETLIST
      #90Y(01 00 00 00 00 02 AB 01 02 92 02 80 43 93 02 8D 06 23 9D 5A 1F 26 9D
           5A 77 8E 06 20 9D 5A 5B 1F 1B 9D 5A 5B 5B 1B 15 9D 5A 77 83 01 9D 5A
           5B 5A 14 83 00 1A 15 93 02 83 01 00 1A 74 C3 4F 0B D9 DA DB 6D 03 04
           93 06 2F 00 50 82 02 91 02 FF BD AB 71 47 AB 71 47 3F 02 19 05
          )
      C-ERROR "Illegal syntax in LET/LET*: ~S" "Falsche Syntax in LET/LET*: ~S"
      "Mauvaise syntaxe pour LET/LET* : ~S" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ANALYZE-LAMBDALIST REMOVE-OLD-DEFINITIONS
   #Y(ANALYZE-LAMBDALIST
      #754Y(01 00 00 00 00 02 AB 01 04 D8 01 08 A8 1F 2D 93 0D AA 8D 06 09 AA
            2E 08 16 01 82 0D 1A 6E 9B 25 01 13 9B 25 02 00 C6 4F 6F DC DD DE
            6D 03 07 AE 2F 03 50 1A 63 AA 83 0D 1A 5E 16 01 A8 1F 80 BE 93 0D
            24 09 80 B8 1A 1B 9B 25 0A 04 9B 25 0B 03 9B 1A 2C C6 4F 80 73 DC
            DD DE 6D 03 07 AE 2F 03 50 16 01 82 0D A8 1F 80 95 93 0D AA 8D 06
            59 9B 1F 80 4F 93 00 8E 06 80 49 9B 5B 1B 08 9B 5A 14 83 0C 00 1A
            10 9B 5B 1F 39 9B 5B 5B 1B 0D 93 00 83 0C 9B 5B 5A 14 83 0B C3 1A
            1F 9B 5B 5B 1F 22 9B 5B 5B 77 8E 06 1B 9B 5B 5B 5B 1B 15 93 00 83
            0C 9B 5B 77 83 0B 9B 5B 5B 5A 14 83 0A 16 01 1A FF A1 AA 2E 08 16
            01 1A FF 99 16 01 1A FF 94 C6 4F 80 44 E5 E6 E7 6D 03 07 BD 2F 03
            50 1A 38 9B 25 10 15 C6 4F 0E E5 E6 E7 6D 03 07 BE 2F 03 50 16 01
            1A 23 16 01 1A 1F 9B FF 1A 17 16 01 A8 1F 16 93 0D 24 0C 11 82 0D
            1F 45 93 0D AA 8D 06 4F AA 2E 08 82 0E 16 01 A8 1F 80 8D 93 0D 9B
            25 11 08 C6 4F 14 DC DD C9 1A 07 C6 4F 0C EC ED 03 16 14 6D 03 07
            AE 2F 03 50 16 01 82 0D 1A 59 9B 25 17 80 44 C6 4F 80 C4 DC DD DE
            6D 03 07 AE 2F 03 50 1A 80 B7 9B 5A 77 83 07 9B 5A 5B 1A 15 9B 5B
            5B 5A 1A 33 9B 5A 20 6C 93 00 71 82 6A 19 70 D5 83 07 9B 77 83 06
            9B 5B 1F 19 9B 5B 77 83 05 9B 5B 5B 20 5A C3 1A 10 AA 71 82 6A 19
            70 D5 83 07 AA 83 06 62 83 05 C3 14 83 04 1A 80 6E AA 23 12 05 AA
            24 13 FF 7B 16 01 A8 1F 80 81 93 0D 24 12 80 7B 82 0D 7D 07 A8 1F
            80 63 93 0D AA 8D 06 FF 7D 9B 1F 80 43 93 00 8D 06 1C 9B 5A 1F 3A
            9B 5A 77 8E 83 34 9B 5A 5B 1F 2F 9B 5A 5B 77 8E 06 28 9B 5A 5B 5B
            1B 22 9B 5B 1C FF 79 9B 5B 1F 19 9B 5B 5B 1C FF 6F 9B 5B 5B 1F 0E
            9B 5B 5B 77 8E 06 07 9B 5B 5B 5B 1C FF 5C AA 2E 08 16 01 82 0D 1A
            FF A4 AA 23 18 05 AA 24 13 FF 28 16 01 A8 1F 0D 93 0D 24 18 08 7D
            02 1A 02 16 01 82 0D A8 1F 80 82 93 0D 9B 25 1A 08 C6 4F 6F DC DD
            C9 1A 07 C6 4F 67 EC ED 03 16 14 6D 03 07 AE 2F 03 50 16 01 1A 59
            9B 25 1B 00 9B 1A 2A C6 4F 80 4A DC DD DE 6D 03 07 AE 2F 03 50 16
            01 82 0D A8 1F 80 4D 93 0D AA 8D 06 5D 9B 1F 28 93 00 8E 06 23 9B
            5B 1B 08 9B 5A 14 83 02 00 1A 10 9B 5B 1F 13 9B 5B 5B 1B 0E 93 00
            83 02 9B 5B 5A 14 83 01 16 01 1A 49 AA 2E 08 16 01 1A 42 16 01 1A
            FF BD AA 24 13 FF 86 16 01 A8 1F 06 93 0D 23 13 FF AD 92 0D 0E C6
            4F 0B F4 F5 64 1E 6D 03 07 BD 2F 03 50 B6 71 47 B6 71 47 B6 71 47
            B6 71 47 B6 B6 B6 71 47 B6 71 47 B6 71 47 B6 71 47 B6 B6 71 47 B6
            71 47 3F 0D 19 10
           )
      0.
      #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
         (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
         (&OPTIONAL . 1.)
        )
      #S(HASH-TABLE EQ (&AUX . 21.) (&KEY . 21.) (&REST . 21.)
         (&OPTIONAL . 21.)
        )
      C-ERROR "Lambda list marker ~S not allowed here."
      "Dieser Lambdalistenmarker ist an dieser Stelle nicht erlaubt: ~S"
      "Le marqueur de liste lambda ~S n'est pas permis ici." LANGUAGE
      LAMBDALIST-ERROR &OPTIONAL
      #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
         (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
         (&OPTIONAL . 1.)
        )
      #S(HASH-TABLE EQ (&AUX . 173.) (&KEY . 173.) (&REST . 173.)) &REST
      "Missing &REST parameter in lambda list ~S"
      "Fehlender &REST-Parameter in der Lambdaliste: ~S"
      "Il manque le paramètre &REST dans la liste lambda ~S"
      #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
         (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
         (&OPTIONAL . 1.)
        )
      #S(HASH-TABLE EQ (&ENVIRONMENT . 125.) (&WHOLE . 125.) (&BODY . 125.)
         (&AUX . 125.) (&ALLOW-OTHER-KEYS . 125.) (&KEY . 125.) (&REST . 125.)
         (&OPTIONAL . 125.)
        )
      &KEY &AUX "Lambda list element ~S is superfluous."
      "Überflüssiges Lambdalisten-Element: ~S"
      "L'élément de liste lambda est superflu : ~S"
      #S(HASH-TABLE EQ (&ENVIRONMENT . 209.) (&WHOLE . 209.) (&BODY . 209.)
         (&AUX . 209.) (&ALLOW-OTHER-KEYS . 209.) (&KEY . 209.) (&REST . 209.)
         (&OPTIONAL . 209.)
        )
      &ALLOW-OTHER-KEYS *KEYWORD-PACKAGE*
      #S(HASH-TABLE EQ (&ENVIRONMENT . 118.) (&WHOLE . 118.) (&BODY . 118.)
         (&AUX . 118.) (&ALLOW-OTHER-KEYS . 118.) (&KEY . 118.) (&REST . 118.)
         (&OPTIONAL . 118.)
        )
      #S(HASH-TABLE EQ (&ENVIRONMENT . 4.) (&WHOLE . 4.) (&BODY . 4.)
         (&AUX . 4.) (&ALLOW-OTHER-KEYS . 4.) (&KEY . 4.) (&REST . 4.)
         (&OPTIONAL . 4.)
        )
      "Lambda lists with dots are only allowed in macros, not here: ~S"
      "Eine Lambdaliste, die einen Punkt enthält, ist nur bei Macros erlaubt, nicht hier: ~S"
      "Les listes lambdas contenant une paire pointée ne sont permises qu'avec des macros et non ici : ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   LAMBDALIST-ERROR REMOVE-OLD-DEFINITIONS
   #Y(LAMBDALIST-ERROR
      #23Y(01 00 00 00 00 02 C3 4F 0C D9 DA DB 6D 03 04 AF 2F 00 50 19 02 19 02
          )
      C-ERROR "Illegal lambda list element ~S"
      "Unzulässiges Lambdalistenelement: ~S"
      "N'est pas permis dans une liste lambda : ~S" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
   #Y(INLINE-CALLABLE-FUNCTION-P
      #173Y(02 00 01 00 00 09 3C 01 AD 31 04 1E 80 9D 93 03 C3 59 1E 80 96 94
            03 31 04 1E 80 8F 9E 5B 5B 58 1E 80 88 9E 5B 77 AA 31 04 1E 80 7D
            93 00 C4 59 1E 80 76 94 00 31 04 1E 80 6F 9B 5B 77 AA 31 0B 1E 80
            64 DA AB 37 06 31 5D 58 1E 80 5A DB AB 37 06 31 5D 58 1E 80 50 DC
            AB 37 06 71 5D DD AC 37 06 71 5D DE AD 37 06 8D 5D 03 AC 31 45 14
            91 01 0D 91 06 1D 91 02 25 B1 AB 32 01 2D 19 09 A1 1D 24 B1 91 03
            01 9D 14 32 01 32 19 09 AB 31 8E 1A 05 B1 91 03 77 9C 14 32 01 31
            19 09 14 B2 96 02 32 02 31 19 09 19 09 19 06 19 05 19 04
           )
      FUNCTION LAMBDA &KEY &ALLOW-OTHER-KEYS &OPTIONAL &REST &AUX
  )  )
#Y(#:TOP-LEVEL-FORM-142 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *SPECIALS*) *SPECIALS*
  )
#Y(#:TOP-LEVEL-FORM-143 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *IGNORES*) *IGNORES*
  )
#Y(#:TOP-LEVEL-FORM-144 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *IGNORABLES*) *IGNORABLES*
  )
#Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PUSH-SPECIALS REMOVE-OLD-DEFINITIONS
   #Y(PUSH-SPECIALS #18Y(00 00 00 00 00 01 98 00 98 01 6A 02 32 00 17 9A 00 01)
      PUSH-*VENV* MAKE-SPECIAL-VAR *SPECIALS*
  )  )
#Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   IGNORE-CHECK REMOVE-OLD-DEFINITIONS
   #Y(IGNORE-CHECK
      #82Y(01 00 00 00 00 02 D8 AC D9 71 2E AA 6A 02 DB 37 02 8B B5 2F AA 6A 0E
           DB 37 02 8B B5 32 D8 AD DC 8D 2E 2C D8 AD E2 8D 2E 26 AA 8E 80 22 E7
           E8 D4 14 6D 03 08 AB 2F 09 19 03 DD DE CA 1A 72 E3 E4 D0 1A 6D D8 AD
           DC 8D 2E 70 D8 AD E2 8D 2E 6F 00 19 03
          )
      VAR 1. *IGNORES* #.#'EQ 2.
      "Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
      "Binden der Variablen ~S kann trotz IGNORE-Deklaration~%Seiteneffekte haben, weil sie SPECIAL deklariert ist."
      "Lier la variable ~S peut avoir des effets de bord malgré la déclaration IGNORE~%car elle a été déclarée SPECIAL."
      LANGUAGE C-WARN 5. "variable ~S is used despite of IGNORE declaration."
      "Variable ~S wird trotz IGNORE-Deklaration benutzt."
      "La variable ~S est utilisée malgré la déclaration IGNORE." *IGNORABLES*
      "variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
      "Variable ~S wird nicht benutzt.~%Schreibfehler oder fehlende IGNORE-Deklaration?"
      "La variable ~S n'est pas utilisée.~%Mauvaise orthographe ou déclaration IGNORE manquante?"
  )  )
#Y(#:TOP-LEVEL-FORM-147 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(C-MAKE-CLOSURE
      #29Y(03 00 00 00 00 04 91 03 03 00 19 04 D8 94 03 94 03 7A 03 D9 AF 71 45
           7A 02 60 02 19 04
          )
      VENV MAKE-VECTOR1&PUSH
  )  )
#Y(#:TOP-LEVEL-FORM-148 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-FIXED-VAR-1 REMOVE-OLD-DEFINITIONS
   #Y(BIND-FIXED-VAR-1
      #68Y(01 00 00 00 00 02 AB 8B 5F 24 AB 87 00 20 AB 6A 01 DA 37 02 8B B5 17
           E2 AC E3 62 E4 62 E5 62 E6 62 E7 62 E8 6A 11 EA 6A 13 2C 10 14 19 02
           AB 88 03 0D C7 4F 0A DD DE DF 6D 03 08 AF 2F 04 50 AB 2E 09 19 02
          )
      PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
      "Constant ~S cannot be bound." "Konstante ~S kann nicht gebunden werden."
      "La constante ~S ne peut pas être liée." LANGUAGE MAKE-SPECIAL-VAR :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ *STACKZ*
      :VENVC *VENVC* MAKE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-149 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-FIXED-VAR-2 REMOVE-OLD-DEFINITIONS
   #Y(BIND-FIXED-VAR-2
      #29Y(01 00 00 00 00 02 D8 AC D9 8E 2E 06 D8 AC DA 8E 2E 03 00 19 02 DB 0E
           04 5C 0F 04 19 02
          )
      VAR 2. 3. (BIND 1.) *STACKZ*
  )  )
#Y(#:TOP-LEVEL-FORM-150 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-BIND-FIXED-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-FIXED-VAR
      #65Y(03 00 00 00 00 04 D8 AE D9 8D 2E 09 D8 AE E0 8D 2E 1C 00 19 04 D8 AE
           DA 8D 2E 77 DB AD 6A 04 AE 7A 04 DD D8 B0 DE 71 2E 6E 07 60 02 1A 0E
           DB AD 6A 04 AE 7A 04 E1 AF 6A 04 AF 60 04 14 60 02 19 04
          )
      VAR 2. 3. GET *VENVC* BIND 1. NEW-CONST 9. SET
  )  )
#Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-FIXED-VAR-LIST
      #75Y(01 00 01 00 00 08 3C 01 AC AC 01 02 92 03 32 D8 0E 01 5C 0F 01 DA 37
           01 71 86 DB 62 DC 62 DD 62 DE A6 5A 58 14 DF 62 E0 6A 01 E1 6A 0A 6D
           10 0B 83 00 93 03 6E 0C 83 01 94 03 82 03 69 03 91 03 4E AB 71 47 AB
           71 47 3F 02 19 07
          )
      1. *STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP
      :STACKZ :VENVC *VENVC* MAKE-VAR BIND-FIXED-VAR-1
  )  )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   UNMODIFY-UNUSED-VAR REMOVE-OLD-DEFINITIONS
   #Y(UNMODIFY-UNUSED-VAR
      #69Y(01 00 00 00 00 02 D8 AC D9 71 2E 62 1A 30 9B 5B 77 DA AB DB C7 1A 20
           86 01 00 5B 5B 1B 70 93 00 DA AB DD 31 2E 5B 1B 06 DA AB DB 62 31 2F
           16 01 9B 5B 77 DA AB DB 00 14 31 2F 16 01 82 01 AB 8C 94 55 00 19 04
          )
      VAR 7. ANODE 3. ((VALUES1)) 2.
  )  )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(CHECKING-FIXED-VAR-LIST
      #80Y(01 00 01 00 00 08 3C 01 62 AD 62 1A 3A D9 AB DC 62 31 2F 9F 5A 1C 0C
           D9 AB DD 71 2E DE 30 AA AE DF 30 AA AA 2E 08 1A 1B 86 01 00 14 2E 00
           D9 AB DA 8D 2E 0F D9 AB DB 8E 2E 53 D9 AB DC 8E 2E 03 AA 83 02 82 04
           82 01 AB 8C 94 5D AC 31 47 19 06
          )
      IGNORE-CHECK VAR 2. 6. 9. 10. 0. GONE UNMODIFY-UNUSED-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BOUND-TO-VAR-P REMOVE-OLD-DEFINITIONS
   #Y(BOUND-TO-VAR-P
      #50Y(02 00 00 00 00 03 D8 AD D9 8D 2E 1E DA AC DB 71 2E 71 45 24 04 14 DA
           AC DB 31 2E 5A F7 DA AC 8D 32 6A 9C 1F 05 93 01 23 05 03 00 19 03 9C
           5B 5A 19 03
          )
      VAR 2. ANODE 3. 1. GET
  )  )
#Y(#:TOP-LEVEL-FORM-155 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
   #Y(BIND-MOVABLE-VAR
      #135Y(02 00 00 00 00 03 AC 8B 5F 80 66 AC 87 00 80 61 AC 6A 01 DA 37 02
            8B B5 80 57 E5 0E 0A 5C 0F 0A E6 AD E7 62 E8 B0 6E 11 EA B2 87 11
            80 53 00 14 EC 62 ED 62 EE 62 EF 6A 0A F0 6A 19 6D 12 1A AA AD 6F
            1B 92 00 13 AB AE 7A 02 AA F4 AD F5 31 2E 79 F4 AD F5 AD 31 2F 16
            02 16 01 15 19 03 C7 4F 0D DD DE DF 6D 03 08 B0 2F 04 50 CC 1A 08
            CC 1A 05 AC 87 03 69 CE 14 0E 0A 5C 0F 0A AC 2E 0C 19 03 B2 2E 13
            1A FF A8
           )
      PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR
      "Constant ~S cannot be bound." "Konstante ~S kann nicht gebunden werden."
      "La constante ~S ne peut pas être liée." LANGUAGE 0. *STACKZ* (BIND 1.)
      MAKE-SPECIAL-VAR 1. :NAME :SPECIALP :CONSTANTP ANODE-CONSTANTP :CONSTANT
      ANODE-CONSTANT :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC*
      MAKE-VAR BOUND-TO-VAR-P VAR 8.
  )  )
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-MOVABLE-VAR
      #67Y(01 00 00 00 00 02 D8 AC D9 8D 2E 12 D8 AC DE 8D 2E 1E D8 AC E1 31 2E
           77 8E 88 25 00 19 02 D8 AC DA 8D 2E 77 DB D8 AD DC 71 2E 6E 05 60 02
           1A 0B DF AC 6A 08 D8 AF E1 71 2E 60 04 14 60 01 19 02 CD 19 02
          )
      VAR 2. 3. BIND 1. NEW-CONST 9. SET *VENVC* 10. ((PUSH))
  )  )
#Y(#:TOP-LEVEL-FORM-157 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-MOVABLE-VAR-ANODE
      #57Y(02 00 00 00 00 03 D8 D9 AE 6E 02 6D 03 03 AD AD 6F 04 92 00 1C DD AB
           DE 71 2E 62 1A 0E 86 01 00 77 A2 22 05 94 00 AE 30 AC 82 01 AB 8C 94
           6E 16 02 16 01 AC AB 60 02 19 04
          )
      BIND-MOVABLE (NIL) C-BIND-MOVABLE-VAR MK-ANODE BOUND-TO-VAR-P VAR 8.
  )  )
#Y(#:TOP-LEVEL-FORM-158 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-MOVABLE-VAR-LIST
      #72Y(03 00 00 00 00 04 AD AD 01 03 92 04 26 93 03 AA D8 6F 01 93 06 AB 6F
           02 AB 83 04 AA 83 05 6A 03 83 03 92 09 03 AA 2E 04 16 03 94 04 82 04
           69 04 91 04 5A 91 06 05 98 04 9E 36 00 AC 71 47 AC 71 47 AC 71 47 3F
           03 19 09
          )
      ONE C-FORM BIND-MOVABLE-VAR *STACKZ* PUSH-*VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-159 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(CHECKING-MOVABLE-VAR-LIST
      #152Y(02 00 00 00 00 03 AC AC 62 92 02 37 93 02 92 00 27 14 2E 00 D9 AB
            DA 8D 2E 1E D9 AB DB 8D 2E 28 D9 AB E0 8E 2E 80 47 D9 AB DC 8E 2E
            0B D9 AB DD 71 2E DE 30 AA AA 83 01 16 01 94 02 82 02 69 02 91 02
            49 AA 31 47 19 06 D9 AB DC 62 31 2F D9 AB DD 71 2E DE 30 AA 93 02
            DF AB DA 31 2E 16 01 5B 1B 56 93 02 DF AB DB 62 31 2F 16 01 1A 4A
            D9 AB DC 62 31 2F D9 AB DD 71 2E DE 30 AA 93 02 DF AB DA 31 2E 16
            01 5B 1B 0A 93 02 DF AB DB 62 31 2F 16 01 AA 2E 09 1A FF A0
           )
      IGNORE-CHECK VAR 2. 3. 9. 10. 0. ANODE 6. UNMODIFY-UNUSED-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-160 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-VAR-LIST
      #192Y(01 00 00 00 00 02 0E 00 1B 07 AB 71 46 62 1A 80 A7 00 19 02 86 01
            00 1C 80 9C D9 AB DA 8D 2E 80 95 D9 AB DB 8D 2E 80 8E D9 AB DC 71
            2E 62 1A 80 7E 86 01 00 77 D9 AB DA 8D 2E 80 6F D9 AB DB 8D 2E 80
            68 D9 AB DD 8D 2E 80 61 D9 AB DE 31 2E 77 23 07 80 57 9C 5B 5B 1C
            80 51 D9 AB DE 71 2E DF 30 AA 9C 5B 77 E0 AB E1 62 31 2F 16 01 9C
            5B 78 E0 AB E1 62 31 2F 16 01 D9 AE E2 71 2E D9 AC E2 71 2E 1A 1A
            93 00 E0 AB E1 71 2E 92 00 0C 93 00 94 00 B3 30 AA 16 01 AB 83 03
            16 02 82 00 9B 20 63 16 01 D9 AF E2 AD 31 2F 16 01 16 01 82 01 AB
            8C 94 FF 7D 16 02 82 01 AB 8C 94 FF 57 00 19 04
           )
      *NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
  )  )
#Y(#:TOP-LEVEL-FORM-161 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-BIND-WITH-SVARS REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-WITH-SVARS
      #206Y(06 00 00 00 00 00 B0 B0 B0 B0 B0 B0 62 92 06 80 63 9F 5A 1C 0A 93
            04 93 03 6F 00 AB 7F A3 00 93 06 93 06 93 05 93 04 D9 6E 02 DB AF
            DC 8D 2E 80 4D DB AF E3 8D 2E 80 67 DB AF E5 8E 2E 80 83 DD AE 6A
            06 AE AE 7A 05 AD E4 B1 6A 06 B0 7A 04 9E 14 60 04 16 04 F6 AB 7F
            A3 00 94 06 94 06 94 06 94 06 94 06 82 06 69 06 69 06 69 06 69 06
            69 06 91 06 FF 9D AA 31 47 19 0E 00 61 03 1A 55 DD AE 6A 06 AE AE
            7A 05 AD AC DB B2 DF 8D 2E 6B E0 DB B3 E1 71 2E 6E 0A 7A 02 60 01
            61 03 1A FF B4 DD AE 6A 06 AE AE 7A 05 AD AC E4 B2 6A 06 B1 60 04
            1A FF 9D DD AE 6A 06 AE AE 7A 05 AD AC 60 03 1A FF 91 E6 AD DC 31
            2E 5B 1B 69 00 1A FF 85
           )
      C-BIND-MOVABLE-VAR-ANODE ONE MAKE-LABEL VAR 2. JMPIFBOUNDP *VENVC* 3.
      BIND 1. NEW-CONST 9. SET 6. ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(C-LAMBDABODY
      #794Y(02 00 03 00 00 12 3C 03 3C 02 3C 01 AE D8 2F 01 DA B0 DB 6A 04 DD
            6A 06 2C 06 07 10 04 0E 04 10 08 6A 04 0E 06 5C 10 06 62 2E 09 10
            0A CE 10 0C D0 4F 81 B7 91 15 82 D0 93 16 2E 0E 41 0D 6A 04 B7 71
            45 E7 AC E8 AD 31 2F 16 02 6A 04 B6 71 45 E7 AC E9 AD 31 2F 16 02
            6A 04 B3 CE 59 58 14 E7 AC EA AD 31 2F 16 02 6A 04 E7 AB EB B5 31
            2F 16 01 6A 04 E7 AB EC B4 31 2F 16 01 6A 04 E7 AB ED B0 31 2F 16
            01 92 22 09 6A 04 93 23 AB 30 AA 16 01 94 23 63 6A 16 6A 17 72 02
            00 30 60 41 02 6A 08 0E 08 10 08 0E 18 10 18 0E 16 10 16 0E 06 10
            06 00 10 19 00 10 1A 00 10 1B 01 16 65 2C 2E 1C 41 03 15 0F 1B 15
            0F 1A 15 0F 19 2D 1D 62 0E 06 5C 0F 06 F6 65 3A 65 4F 2F 1E 41 02
            69 15 69 15 65 39 2E 1E 41 02 69 12 69 12 65 36 23 0B 82 1F 65 36
            7A 01 2E 1E 41 02 69 0C 69 0C 65 33 2E 1E 41 02 69 09 69 09 D8 0E
            08 5C 0F 08 E3 0E 08 5C 0F 08 F7 BF 2E 1F 09 13 BC BC 65 3A 65 3A
            2C 04 20 41 04 69 11 69 11 69 0E 69 10 65 36 23 0B 05 B6 2E 21 09
            0A B3 B3 65 34 65 34 2C 04 20 41 04 69 08 69 08 69 05 69 07 65 2F
            65 2F 2F 22 41 02 69 03 69 03 64 23 04 2E 79 64 24 6F 25 C0 65 50
            6F 26 BE 6E 26 BC BC 6F 27 BA 6E 26 B8 6E 26 B6 B6 6F 27 B4 B4 6F
            27 72 07 23 6A 0A AB AE B0 6D 03 28 98 29 65 1A 65 1A 65 1A 6D 04
            2A C1 C1 C0 C2 C1 C1 6D 06 2B 98 29 BD BD BD 6D 04 2A BA BA B9 BB
            BA BA 6D 06 2B 98 2C B6 B6 6D 03 2A B2 64 2D 6A 08 65 37 03 2E 7B
            03 03 2F 7B 02 32 07 23 79 64 30 64 31 AC 6D 03 32 92 02 0A AF D8
            30 AA AE AD A2 79 30 AA 65 19 C1 BF BD BB B9 B7 72 07 23 2E 33 15
            16 19 12 07 16 10 50 14 6A 04 E7 AB 64 34 AE 31 2F 16 01 92 11 19
            6A 04 E7 AB E8 71 2E 64 35 BE 37 06 71 60 72 01 36 E7 AC E8 AD 31
            2F 16 02 64 36 AB D8 71 2E 24 37 80 50 6A 04 E7 AB E8 E3 31 2F 16
            01 6A 04 E7 AB E9 E3 31 2F 16 01 6A 04 E7 AB EA 63 31 2F 16 01 6A
            04 E7 AB EB 62 31 2F 16 01 6A 04 E7 AB EC 62 31 2F 16 01 6A 04 E7
            AB ED 62 31 2F 16 01 6A 04 E7 AB 64 34 80 2E 00 64 36 AB 64 38 64
            39 31 2F 16 01 6A 04 E7 AB 64 3A C0 31 2F 16 01 6A 04 6A 04 6A 04
            6A 04 6A 04 E7 AB 64 38 31 2E 16 01 1B 80 89 CE 14 E7 AC 64 3B AD
            31 2F 16 01 F6 6A 04 E7 AB 64 3C 80 2E 00 71 45 72 02 35 E7 AC 64
            3D AD 31 2F 16 01 F6 6A 04 E7 AB 64 3E 80 2E 00 71 45 72 02 35 E7
            AC 64 3F AD 31 2F 16 01 F6 6A 04 E7 AB EC 80 2E 00 71 45 72 02 35
            E7 AC 64 40 AD 31 2F 16 02 92 12 1E 6A 04 E7 AB 64 3C 31 2E 16 01
            1B 0C 6A 04 E7 AB 64 3E 31 2E 16 01 1C 06 64 41 64 42 2F 43 0E 04
            16 01 12 05 19 06 5A 5B 5B 43 1A FD 2D 01 02 3F 02 1A FD E0 C3 1A
            FF 74
           )
      1. TEST-LIST :NAME :ENCLOSING *FUNC* :VENVC *VENVC* MAKE-FNODE *STACKZ*
      MAKE-LABEL *FUNC-START-LABEL* 0. *ANONYMOUS-COUNT* C-ERROR
      ANALYZE-LAMBDALIST FNODE 10. 11. 12. 13. 14. 15. *VENV* *FENV* *DENV*
      *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
      PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
      BIND-AUX-VARS PROGN ALL C-FORM CHECKING-FIXED-VAR-LIST
      CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-FIXED-VAR MAPCAP
      C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND (T) ((RET)) LAMBDABODY
      (T . T) MK-ANODE OPTIMIZE-VAR-LIST 2. GONE ANODE ERROR 3.
      ((NIL) (SKIP 2.) (RET)) 20. 5. 6. 7. 8. 9. 16. C-LAMBDABODY "GF"
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-163 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-REQ-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-REQ-VARS
      #37Y(01 00 00 00 00 02 62 AC 62 1A 0F 86 01 00 14 2E 00 6A 01 83 02 AA 2E
           02 82 01 AB 8C 94 6D 16 02 AA 31 47 19 03
          )
      PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-164 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-OPT-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-OPT-VARS
      #129Y(04 00 00 00 00 05 01 04 B2 B2 B2 B2 92 03 80 56 93 00 23 00 80 62
            D9 93 03 7A 01 00 79 DA 93 05 6A 03 6A 04 7A 04 7A 01 6D 03 05 93
            01 AB 6F 06 AB 83 06 AA 83 07 16 02 93 01 DF 6F 08 83 07 93 03 2E
            09 6A 04 83 06 93 03 2E 0A 93 00 23 00 04 93 05 2E 09 94 03 94 03
            94 03 82 03 69 03 69 03 69 03 91 03 FF AA 16 04 AD 71 47 AD 71 47
            AD 71 47 AD 71 47 3F 04 19 09 62 83 05 62 83 04 1A FF B7
           )
      0. OPTIONAL-SVAR BOUNDP *VENVC* *STACKZ* MK-ANODE BIND-MOVABLE-VAR ONE
      C-FORM PUSH-*VENV* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-165 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-REST-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-REST-VARS
      #22Y(01 00 00 00 00 02 62 93 02 2E 00 6A 01 83 00 93 02 2E 02 15 19 02)
      PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-166 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BIND-AUX-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-AUX-VARS
      #56Y(02 00 00 00 00 03 01 02 AE AE 92 01 1F 93 00 AA D8 6F 01 93 03 AB 6F
           02 AB 83 05 AA 83 06 AA 2E 03 16 03 94 01 82 01 69 01 91 01 61 16 02
           AB 71 47 AB 71 47 3F 02 19 05
          )
      ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FNODE-FUNCTION REMOVE-OLD-DEFINITIONS
   #Y(C-FNODE-FUNCTION
      #222Y(01 00 01 00 00 08 3A 01 02 0E 00 10 00 D9 DA DB B2 DC 71 2E 8D 88
            11 DB B2 DE 8D 2E 14 00 14 62 DB B4 E3 71 2E 1A 80 52 DD B2 7A 02
            60 01 1A 80 A6 DF DB B3 E0 71 2E 6A 00 7A 03 CC 79 E2 0E 00 5C 0F
            00 15 1A 58 E6 AB 60 02 1A 1D 93 00 AA 6A 0C DB AB E3 80 2E 00 E5
            37 02 8B B5 69 E7 E8 AC E0 71 2E 6A 11 6A 00 60 04 14 D5 79 E2 0E
            00 5C 0F 00 AD 7F A3 02 16 01 82 00 9B 20 4F 16 01 AA 7F A5 00 62
            DB B5 EB 71 2E 1A 35 EC AB 60 02 1A 1D 93 00 AA 6A 0C DB AB EB 80
            2E 00 E5 37 02 8B B5 69 E7 ED AC E0 71 2E 6A 11 6A 00 60 04 14 03
            16 79 E2 0E 00 5C 0F 00 AD 7F A3 02 16 01 82 00 9B 20 4E 16 01 AA
            7F A5 00 EF B5 DB B7 DC 71 2E 7A 03 7A 01 32 04 23 14 2C 03 18 11
            19 03
           )
      *STACKZ* FUNCTION (NIL) FNODE 9. FCONST 3. VENV 4. ((PUSH)) 1. 6. *FUNC*
      #.#'EQ BCONST GET BLOCK *VENVC* ((PUSH)) 8. GCONST TAGBODY ((PUSH))
      COPY-CLOSURE MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-168 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROGN REMOVE-OLD-DEFINITIONS
   #Y(C-PROGN
      #80Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 92 00 31 9B 5B 1C 31 DD 62
           AC 92 00 1D 93 00 82 01 AA 92 02 29 00 14 6F 04 AE DF AC E0 71 2E 2F
           09 FA AA 83 03 16 02 91 00 63 E2 AD AD 71 47 2C 03 0B 19 05 2D 03 19
           02 93 00 2E 04 19 02 0E 06 1A 54
          )
      *FORM* 1. TEST-LIST C-NIL C-FORM (NIL) *FOR-VALUE* ANODE 2. SECLASS-OR-2
      PROGN MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-169 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROG1 REMOVE-OLD-DEFINITIONS
   #Y(C-PROG1
      #83Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 3B 6A 03 24 04 06 0E 00 5B
           5B 1C 30 0E 00 5B 77 DC 6F 06 DF 0E 08 5C 10 08 DD 0E 00 5B 5B 79 62
           2F 06 11 14 E1 E2 AD D9 71 2E E2 AD D9 71 2E 6F 0B AD E4 AE D0 7B 03
           2C 03 0E 19 03 DD 0E 00 5B 79 2E 06 19 01
          )
      *FORM* 2. TEST-LIST *FOR-VALUE* ONE PROGN C-FORM 1. *STACKZ* PROG1 ANODE
      SECLASS-OR-2 (PUSH) ((POP)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROG2 REMOVE-OLD-DEFINITIONS
   #Y(C-PROG2
      #35Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 DC 0E 00 5B 5B 77 0E
           00 5B 5B 5B 7B 02 7A 03 2E 05 19 01
          )
      *FORM* 3. TEST-LIST PROGN PROG1 C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-171 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-IF REMOVE-OLD-DEFINITIONS
   #Y(C-IF
      #122Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 0E 00 5B 5B 77
            0E 00 5B 5B 5B 77 AC DC 6F 05 AA 87 06 80 43 AC 6E 05 AC 6E 05 62
            6E 09 6A 0A 6E 09 E3 E4 B0 E5 71 2E E4 B0 E5 71 2E 6F 0E E4 AF E5
            71 2E 6F 0E B0 E7 AF 7A 02 B1 E8 B0 7A 02 B1 B3 B2 7A 07 2C 03 11
            19 09 AC 6E 05 02 10 08 AF 62 2F 05 11 15 19 05 AA 87 07 6E 02 10
            08 AF 62 2F 05 11 AB 2E 05 3E 19 05
           )
      *FORM* 3. 4. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE
      *NO-CODE* MAKE-LABEL *FOR-VALUE* IF ANODE 2. SECLASS-OR-2 JMPIFNOT JMP
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-172 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-WHEN REMOVE-OLD-DEFINITIONS
   #Y(C-WHEN
      #28Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 DC 0E 00 5B 5B 79 7A
           03 2E 05 19 01
          )
      *FORM* 2. TEST-LIST IF PROGN C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-173 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-UNLESS REMOVE-OLD-DEFINITIONS
   #Y(C-UNLESS
      #29Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 00 5B 77 62 DC 0E 00 5B 5B 79
           7A 04 2E 05 19 01
          )
      *FORM* 2. TEST-LIST IF PROGN C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-174 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-AND REMOVE-OLD-DEFINITIONS
   #Y(C-AND
      #166Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 1C 80 52 0E 00 5B 5B 1C
            80 53 E0 62 0E 00 78 6A 09 6E 0A 92 01 32 93 01 82 02 AA 92 03 80
            46 CE 14 6F 07 AF E4 AC E5 71 2E 2F 0E FB 92 03 3B AA 87 0F 3A AA
            83 04 0E 09 1B 80 59 D7 14 AD 60 02 14 83 04 16 02 91 01 4E AA 83
            02 DB AE AE 71 47 2C 03 06 19 05 DB DC DD 2C 03 06 19 01 0E 00 5B
            77 2E 07 19 01 0E 09 1A FF B6 9B 1A 53 AA 87 10 52 0E 09 1C 03 E9
            83 04 02 10 12 B0 62 1A 09 86 01 00 14 62 2F 07 82 01 AB 8C 94 73
            16 02 11 7C 03 1A FF AF D6 1A FF A4
           )
      *FORM* 1. TEST-LIST AND (NIL) ((T)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
      MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
      (NIL) *NO-CODE* JMPIFNOT1 JMPIFNOT
  )  )
#Y(#:TOP-LEVEL-FORM-175 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-OR REMOVE-OLD-DEFINITIONS
   #Y(C-OR
      #166Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 1C 80 52 0E 00 5B 5B 1C
            80 53 E0 62 0E 00 78 6A 09 6E 0A 92 01 32 93 01 82 02 AA 92 03 80
            46 CE 14 6F 07 AF E4 AC E5 71 2E 2F 0E FB 92 03 3B AA 87 0F 3A AA
            83 04 0E 09 1B 80 59 D6 14 AD 60 02 14 83 04 16 02 91 01 4E AA 83
            02 DB AE AE 71 47 2C 03 06 19 05 DB DC DD 2C 03 06 19 01 0E 00 5B
            77 2E 07 19 01 0E 09 1A FF B6 9B 1A 53 AA 88 10 52 0E 09 1C 03 AA
            83 04 02 10 11 B0 62 1A 09 86 01 00 14 62 2F 07 82 01 AB 8C 94 73
            16 02 11 7C 03 1A FF AF D5 1A FF A4
           )
      *FORM* 1. TEST-LIST OR (NIL) ((NIL)) MK-ANODE C-FORM (NIL) *FOR-VALUE*
      MAKE-LABEL ONE ANODE 2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE
      *NO-CODE* JMPIF1 JMPIF
  )  )
#Y(#:TOP-LEVEL-FORM-176 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-QUOTE REMOVE-OLD-DEFINITIONS
   #Y(C-QUOTE
      #40Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB DC 0E 05 1B 07
           00 14 2C 03 08 19 02 DE AD 6E 07 7A 02 60 01 1A 70
          )
      *FORM* 2. TEST-LIST QUOTE (NIL) *FOR-VALUE* CONST NEW-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-177 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-THE REMOVE-OLD-DEFINITIONS
   #Y(C-THE
      #22Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 5B 77 2E 03 19 01)
      *FORM* 3. TEST-LIST C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-178 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-DECLARE REMOVE-OLD-DEFINITIONS
   #Y(C-DECLARE
      #23Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB DC DD 6D 03 06 6A 00 2F 07 19 01
          )
      *FORM* 1. TEST-LIST "Misplaced declaration: ~S"
      "Deklarationen sind an dieser Stelle nicht erlaubt: ~S"
      "Une déclaration n'est pas permise ici : ~S" LANGUAGE C-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-179 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-LOAD-TIME-VALUE REMOVE-OLD-DEFINITIONS
   #Y(C-LOAD-TIME-VALUE
      #46Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 DC DD 0E 06 1B 07
           00 14 2C 03 0B 19 02 DF E0 AE 70 5C E1 B0 6D 04 0A 7A 02 60 01 1A 6A
          )
      *FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST :VALUE
      :FORM MAKE-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-180 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-CATCH REMOVE-OLD-DEFINITIONS
   #Y(C-CATCH
      #66Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 6F 04 DD 0E 06 5C 10
           06 DF 0E 00 5B 5B 79 2E 04 11 14 6A 08 6E 09 DD E2 AE D9 71 2E E2 AE
           D9 71 2E 6F 0B AE E4 AE 7A 02 AF E5 B0 7A 05 2C 03 0E 19 04
          )
      *FORM* 2. TEST-LIST ONE C-FORM CATCH *STACKZ* PROGN *FOR-VALUE*
      MAKE-LABEL ANODE SECLASS-OR-2 CATCH-OPEN (CATCH-CLOSE) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-181 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-THROW REMOVE-OLD-DEFINITIONS
   #Y(C-THROW
      #63Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB 6F 04 DD 0E 06
           5C 10 06 0E 00 5B 5B 77 DF 2F 04 11 14 E0 E1 AD E2 71 2E E1 AD E2 71
           2E 2F 0B 77 02 79 AD E4 AE D0 7B 03 2C 03 0E 19 03
          )
      *FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* ALL THROW ANODE 2.
      SECLASS-OR-2 (PUSH) ((THROW)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-182 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-UNWIND-PROTECT REMOVE-OLD-DEFINITIONS
   #Y(C-UNWIND-PROTECT
      #98Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 0E 04 5C 10 04 0E 00 5B 77 2E 05
           11 14 DE 0E 04 5C 10 04 DF 0E 00 5B 5B 79 62 2F 05 11 14 62 6E 08 DB
           E1 AE D9 71 2E E1 AE D9 71 2E 6F 0A E3 AD 7A 02 AF 0E 0C 25 0D 09 D1
           1A 07 D2 1A 04 00 1A 01 00 14 E8 B0 B2 E9 B3 7A 02 7A 04 32 02 23 7B
           02 2C 03 12 19 04
          )
      *FORM* 2. TEST-LIST UNWIND-PROTECT *STACKZ* C-FORM CLEANUP PROGN
      MAKE-LABEL ANODE SECLASS-OR-2 UNWIND-PROTECT-OPEN *FOR-VALUE*
      #S(HASH-TABLE EQ (T . 7.) (ONE . 4.) (NIL . 1.)) ((VALUES0)) ((VALUES1))
      (UNWIND-PROTECT-NORMAL-EXIT) UNWIND-PROTECT-CLOSE MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-183 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PROGV REMOVE-OLD-DEFINITIONS
   #Y(C-PROGV
      #169Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 6F 04 AA 88 05 05
            AA 88 06 80 69 E0 0E 09 79 9B 10 09 0E 00 5B 5B 77 DB 2F 04 11 14
            E2 0E 09 79 9B 10 09 DF 0E 00 5B 5B 5B 79 2E 04 11 14 63 E3 AC E4
            31 2E 5A 1B 0A AE E5 30 AA AC E5 30 AA 7C 00 E2 E3 B1 E4 71 2E E3
            B0 E4 71 2E 6F 0E E3 AE E4 71 2E 6F 0E B1 91 03 2E 00 14 B1 91 05
            2B 00 14 B1 91 07 28 00 79 32 02 23 79 32 02 23 79 2C 03 13 19 07
            DF 0E 00 5B 5B 77 DF 0E 00 5B 5B 5B 79 7A 03 2E 04 19 02 D2 1A 50
            D3 1A 53 E9 B4 6A 09 6A 12 7A 04 60 01 1A 4D
           )
      *FORM* 3. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE PROGN
      1. *STACKZ* PROGV ANODE 2. 0. SECLASS-OR-2 ((PUSH)) ((PROGV)) UNWIND
      *FOR-VALUE* MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-184 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-PROG1
      #121Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 25 04 80 65 E5 E6 E7 E8 E9
            6D 04 12 7A 02 EB AF EC B0 03 15 61 05 1A 3D DD 0E 06 79 9B 10 06
            0E 00 5B 77 2E 07 11 14 E0 0E 06 5C 10 06 E1 0E 00 5B 5B 79 62 2F
            07 11 14 E2 E3 AD D9 71 2E E3 AD D9 71 2E 6F 0C E3 AD D9 31 2E 5B
            1B FF B6 AE EE 30 AA AD 60 01 14 2C 03 17 19 04 03 18 1A 01 CC 14
            0E 00 5B 79 2E 07 19 01 00 19 01
           )
      *FORM* 2. TEST-LIST *FOR-VALUE*
      #S(HASH-TABLE EQ (NIL . 93.) (ONE . 89.) (ALL . 22.)) MVCALLP *STACKZ*
      C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST :VALUE
      #.#'VALUES :FORM #'VALUES MAKE-CONST (MVCALLP) (MV-TO-STACK) ((MVCALL))
      0. MK-ANODE PROG1
  )  )
#Y(#:TOP-LEVEL-FORM-185 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MULTIPLE-VALUE-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-CALL
      #101Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 1C 80 47 0E 00 5B 77
            DC 6F 05 62 AB 83 00 DE 83 00 0E 00 5B 78 DF 92 01 22 93 01 82 02
            AB 8D 88 32 CC 14 0E 0A 5C 10 0A AD E3 2F 05 11 14 AA 83 04 E4 83
            04 16 02 84 00 91 01 5E 16 02 E5 83 00 E6 E7 AC 71 47 2C 03 10 19
            03 0E 00 5B 77 62 2F 03 19 01 CB 1A 4C
           )
      *FORM* 2. TEST-LIST C-FUNCTION-CALL ONE C-FORM (MVCALLP) 0. MVCALLP
      MVCALL *STACKZ* ALL (MV-TO-STACK) (MVCALL) MULTIPLE-VALUE-CALL (T . T)
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-186 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MULTIPLE-VALUE-LIST REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-LIST
      #46Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 03 1B 08 0E 00 5B 77 2E 05
           19 01 0E 00 5B 77 DC 6F 05 DE DF AC D9 71 2E AC CB 79 2C 03 09 19 02
          )
      *FORM* 2. TEST-LIST *FOR-VALUE* ALL C-FORM MULTIPLE-VALUE-LIST ANODE
      ((MV-TO-LIST)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-187 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(SETQLIST-MACROP
      #37Y(01 00 00 00 00 02 AB 92 00 15 93 00 AA 8E 06 06 AA 6E 00 87 01 0C 16
           01 9B 5B 5B F6 91 00 6B 00 19 03 02 19 04
          )
      VENV-SEARCH-MACRO SYMBOL-MACRO-P
  )  )
#Y(#:TOP-LEVEL-FORM-188 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-SETQ REMOVE-OLD-DEFINITIONS
   #Y(C-SETQ
      #163Y(00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 45 8E 8C 0A DB DC DD 6D
            03 06 6A 00 2F 07 0E 00 5B 1C 3E 0E 00 78 87 09 3C 0E 00 78 E6 62
            92 02 26 93 02 9E 5B 77 AA E7 6F 0D AC 8D 06 3C CA 4F 0A ED EE EF
            6D 03 06 B0 2F 07 50 F0 83 03 16 03 9D 5B 5B F8 91 02 5A F1 AC AC
            71 47 2C 03 1A 19 04 2D 08 19 01 E2 70 58 E2 0E 00 5B 79 6A 0B 6A
            0C 72 02 00 75 02 2E 0D 19 01 AA 83 03 AE E8 AC E9 71 2E 2F 12 FA
            AC AB 0E 13 1C 04 A2 5B 5B 58 14 6D 03 14 AA 83 04 AF E8 AC E9 71
            2E 2F 12 FB 16 01 1A FF A9
           )
      *FORM* 1. TEST-LIST "Odd number of arguments to SETQ: ~S"
      "Ungerade viele Argumente zu SETQ: ~S"
      "Nombre impair d'arguments pour SETQ : ~S" LANGUAGE C-ERROR C-NIL
      SETQLIST-MACROP SETF *VENV* *FENV* C-FORM (NIL) ONE ANODE 2. SECLASS-OR-2
      *FOR-VALUE* C-VARSET "Cannot assign to non-symbol ~S."
      "Zuweisung auf ~S unmöglich, da kein Symbol."
      "Rien ne peut être assigné à ~S car ce n'est pas un symbole." (VALUES1)
      SETQ MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-189 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PSETQ REMOVE-OLD-DEFINITIONS
   #Y(C-PSETQ
      #256Y(00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 45 8E 8C 0A DB DC DD 6D
            03 06 6A 00 2F 07 0E 00 5B 1C 80 9F 0E 00 78 87 09 80 9C 01 02 0E
            00 78 92 00 23 93 00 82 01 93 01 82 02 AA E6 6F 0D AC 8D 06 80 98
            CA 4F 0A EA EB EC 6D 03 06 B0 2F 07 50 16 03 91 00 5D 16 01 01 02
            ED AE AE 92 01 80 4A 93 01 93 01 EE AB EF 71 2E AF 89 18 80 81 EE
            AC EF 71 2E AF 89 18 80 80 F1 83 06 AB 83 06 F2 83 05 AA 83 05 6A
            11 D9 30 AA AE EE AD EF 71 2E EE AD EF 71 2E 6F 1B 2F 1B FA 0E 11
            5B 0F 11 16 02 94 01 82 01 69 01 91 01 FF B6 16 02 0E 1C 1C 03 F5
            83 01 64 1E AB AE AE 71 47 72 02 24 2C 03 1F 19 06 2D 08 19 01 E2
            70 58 E2 0E 00 5B 79 6A 0B 6A 0C 72 02 00 75 02 2E 0D 19 01 AA 83
            05 AC AB 62 6D 03 0F 83 04 E8 0E 11 5C 0F 11 1A FF 61 AA 83 06 AB
            83 06 1A FF 91 AB 83 05 AA 83 05 1A FF 88
           )
      *FORM* 1. TEST-LIST "Odd number of arguments to PSETQ: ~S"
      "Ungerade viele Argumente zu PSETQ: ~S"
      "Nombre impair d'arguments pour PSETQ : ~S" LANGUAGE C-ERROR C-NIL
      SETQLIST-MACROP PSETF *VENV* *FENV* C-FORM ONE C-VARSET 0. *STACKZ*
      "Cannot assign to non-symbol ~S."
      "Zuweisung auf ~S unmöglich, da kein Symbol."
      "Rien ne peut être assigné à ~S car ce n'est pas un symbole." (NIL) ANODE
      2. SECLASSES-COMMUTE (PUSH) (POP) SECLASS-OR-2 *FOR-VALUE* (NIL) PSETQ
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-190 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MULTIPLE-VALUE-SETQ REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-SETQ
      #221Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 DB 2F 02 0E 00
            5B 77 62 1A 80 59 16 02 DE 0E 00 5B 79 2E 07 19 01 D1 1A 0D E2 E3
            AF E4 71 2E AF 6A 0D 23 08 71 00 79 2C 03 0F 1A 80 9C AA E8 E9 62
            6D 03 0F 0E 0D 1C 02 9E 58 14 6D 03 12 AA 83 02 AD E3 AC E4 71 2E
            2F 13 F9 16 01 1A 80 53 82 00 1A 80 6B 86 01 00 14 8E 06 07 AA 6E
            04 87 05 FF A9 82 01 AB 8C 94 6C 16 02 0E 00 5B 77 71 45 0E 00 5B
            5B 77 E0 6F 07 0E 09 10 09 AE 8D 88 FF 98 0E 00 5B 77 E3 AF E4 71
            2E 62 92 02 24 93 02 AA 8D 06 FF 98 D7 4F 0A ED EE EF 6D 03 18 AE
            2F 14 50 16 01 F1 83 00 F2 0E 09 5C 0F 09 82 02 91 02 5C B1 F2 8F
            01 2D FF 96 F3 B2 7A 02 83 00 E2 AC B2 9E 79 2C 03 0F 16 03 11 19
            03
           )
      *FORM* 3. TEST-LIST 0. VENV-SEARCH-MACRO SYMBOL-MACRO-P
      MULTIPLE-VALUE-SETF C-FORM ALL *STACKZ* MULTIPLE-VALUE-SETQ ANODE 2.
      *FOR-VALUE* ((VALUES1)) MK-ANODE NOP (NIL) C-VARSET SECLASS-OR-2 C-ERROR
      "Cannot assign to non-symbol ~S."
      "Zuweisung auf ~S unmöglich, da kein Symbol."
      "Rien ne peut être assigné à ~S car ce n'est pas un symbole." LANGUAGE
      (POP) 1. NV-TO-STACK
  )  )
#Y(#:TOP-LEVEL-FORM-191 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PARALLEL-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
   #Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE
      #192Y(03 00 01 00 00 0A 3C 01 01 02 B0 B0 AF 72 02 23 B0 1A 80 67 93 02
            DC 37 01 71 86 DD 62 DE 62 DF B1 6D 08 08 AA AE 0E 09 78 7A 03 83
            08 93 01 6A 09 AB 9C 5B 79 AB AB 30 AC 16 03 AB DA 30 AA AA AD 2F
            0A 16 02 1A 27 93 02 93 02 D8 AC D9 8E 2E 19 00 2A 01 D8 AD DA 31
            2E 0B 00 00 AA 6C 03 01 94 05 32 00 27 16 01 1B FF AA AB AB 2F 0A
            16 01 F6 AE 7F A3 03 82 02 82 01 82 00 9D 1F 06 9C 1F 03 9B 20 43
            16 03 AA 7F A5 00 AD 62 AD 71 47 1A 21 93 00 93 00 9C 5B 77 9D 5B
            5B 77 E3 AD 6A 0C AD 7A 04 AC 2E 0D 5C 16 02 F6 AD 7F A3 02 16 01
            82 00 9B 20 5C 16 01 AA 7F A5 00 32 03 23 19 06
           )
      VAR 2. 1.
      #Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE-1
         #29Y(01 00 00 00 00 02 D9 AC DA 31 2E 77 AA 02 59 1D 0A 68 00 01 AB 37
              03 30 B5 19 03 19 03
             )
         NIL ANODE 2.
        )
      :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR *STACKZ*
      C-BIND-MOVABLE-VAR-ANODE GET *VENVC* C-BIND-MOVABLE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-192 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-LET/LET* REMOVE-OLD-DEFINITIONS
   #Y(C-LET/LET*
      #216Y(01 00 00 00 00 02 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 78
            62 6A 04 6A 05 72 02 00 30 60 41 02 6A 06 0E 06 10 06 0E 07 10 07
            0E 04 10 04 0E 08 10 08 B7 2E 09 41 03 9D 10 0A 9F 10 0B A1 10 0C
            2D 0D 0E 00 5B 77 2E 0E 41 02 DB 0E 06 5C 0F 06 62 0E 08 5C 0F 08
            6A 06 6A 08 AD AD 65 22 2C 03 0F 41 03 91 23 06 DB 0E 06 5C 0F 06
            E8 04 22 79 6E 11 AD AD 6F 12 AA B0 B2 6D 03 13 91 26 80 48 AF AF
            AF 2C 03 16 14 AD EF 6A 06 65 26 6A 18 7A 04 7A 02 72 03 23 91 26
            39 03 1A 14 AF AE 7A 01 72 02 23 6E 1B B1 6F 1C AC 6D 03 1D 92 02
            0B B2 64 1E 30 AA B1 AD A5 79 30 AA B0 2E 1F 15 16 0A 12 03 16 03
            12 04 19 05 98 14 B0 B0 2C 03 15 1A FF B4 03 19 1A 45
           )
      *FORM* 2. TEST-LIST 0. *VENV* *FENV* *STACKZ* *DENV* *VENVC*
      PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS
      ANALYZE-LETLIST PROCESS-MOVABLE-VAR-LIST PROGN C-FORM
      CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP
      C-PARALLEL-BIND-MOVABLE-VAR-ANODE UNWIND *FOR-VALUE* LET* LET
      ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE 1. OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-193 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-LOCALLY REMOVE-OLD-DEFINITIONS
   #Y(C-LOCALLY
      #58Y(00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 78 62 6A 04
           6A 05 72 02 00 30 60 41 02 0E 04 10 04 AD 2E 06 41 03 9D 10 07 2D 08
           B6 E1 A7 79 35 01 11 16 03 11 19 04
          )
      C-FORM *FORM* 1. TEST-LIST *VENV* *FENV* PROCESS-DECLARATIONS *SPECIALS*
      PUSH-SPECIALS PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-194 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MULTIPLE-VALUE-BIND REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-BIND
      #370Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 77
            AA 62 1A 80 53 E2 93 01 0E 00 5B 5B 77 7A 02 7A 01 0E 00 5B 5B 5B
            7B 02 2E 0B 19 02 0E 00 5B 5B 77 62 6F 0B EE 0E 00 5B 5B 5B 79 6E
            0B EF F0 AD F1 71 2E F0 AD F1 71 2E 6F 1A AD AD 7A 02 2C 03 1B 16
            02 1A 81 0E 86 01 00 14 8D 06 09 DC DD DE 6D 03 07 AB 2F 08 82 01
            AB 8C 94 6A 16 02 AA 71 45 E1 8F 01 2D FF 9E 0E 00 5B 5B 78 62 6A
            0C 6A 0D 72 02 00 30 60 41 02 6A 0E 0E 0E 10 0E 0E 0F 10 0F 0E 0C
            10 0C 0E 10 10 10 B7 2E 11 41 03 9D 10 12 9F 10 13 A1 10 14 2D 15
            92 1B FF 7E 0E 00 5B 5B 77 F4 6F 0B 62 0E 10 5C 0F 10 65 1C 2E 1D
            41 02 DB 0E 0E 5C 0F 0E 14 6A 10 AD 62 92 01 13 93 01 AA 2E 1E 6A
            0E 83 01 AA 2E 1F 16 01 82 01 91 01 6D AA 31 47 16 01 F6 EE 04 21
            79 6E 0B AF 6E 20 B1 64 21 65 25 71 45 7A 02 AC B0 B2 6D 03 22 B2
            B0 B5 62 92 01 1D 93 01 93 04 93 04 6D 03 23 71 46 AB 81 02 23 00
            94 03 94 03 82 03 69 03 69 03 91 01 63 AA 31 47 16 03 F6 AF 64 24
            6A 0E 65 27 6A 25 7A 04 7A 02 32 03 23 7B 02 EF F0 B4 F1 71 2E F0
            AF F1 71 2E 6F 1A B3 6F 26 AC 6D 03 1B 92 02 0A B0 E1 30 AA AF AD
            A3 79 30 AA B2 2E 27 15 16 09 12 03 16 03 12 04 19 05
           )
      *FORM* 3. TEST-LIST 0. "Only symbols may be used as variables, not ~S"
      "Nur Symbole können Variable sein, nicht ~S"
      "Seuls les symboles peuvent servir de variable et non ~S" LANGUAGE
      C-ERROR 1. LET C-FORM *VENV* *FENV* *STACKZ* *DENV* *VENVC*
      PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS
      PROGN MULTIPLE-VALUE-BIND ANODE 2. SECLASS-OR-2 MK-ANODE ALL
      PROCESS-FIXED-VAR-LIST PUSH-*VENV* BIND-FIXED-VAR-2
      CHECKING-FIXED-VAR-LIST NV-TO-STACK C-MAKE-CLOSURE C-BIND-FIXED-VAR
      UNWIND *FOR-VALUE* SECLASS-WITHOUT OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-195 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-COMPILER-LET REMOVE-OLD-DEFINITIONS
   #Y(C-COMPILER-LET
      #126Y(00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC
            2F 03 0E 01 5B 77 01 02 92 02 80 45 93 02 8D 06 25 9D 5A 1F 28 9D
            5A 77 8E 06 22 9D 5A 5B 1F 1D 9D 5A 5B 5B 1B 17 9D 5A 77 83 01 9D
            5A 5B 77 30 5C 14 83 00 1A 15 93 02 83 01 00 1A 74 C8 4F 0B DE DF
            E0 6D 03 09 93 06 2F 05 50 82 02 91 02 FF BB AB 71 47 AB 31 47 13
            66 00 04 E2 0E 01 5B 5B 79 35 01 11 18 01 19 05
           )
      C-FORM *FORM* 2. TEST-LIST 0. C-ERROR
      "Illegal syntax in COMPILER-LET: ~S" "Falsche Syntax in COMPILER-LET: ~S"
      "Mauvaise syntaxe pour COMPILER-LET : ~S" LANGUAGE PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-196-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   C-BLOCK REMOVE-OLD-DEFINITIONS
   #Y(C-BLOCK
      #152Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 AA 8D 06 0F C6 4F 0A
            DC DD DE 6D 03 07 AE 2F 03 50 7C 00 E0 0E 09 5C 10 09 6A 0A 6E 0B
            E4 6A 0D E6 AD E7 E8 37 01 71 86 E9 62 EA 62 EB 6A 09 6D 08 14 EB
            6A 09 ED 62 EE 6A 0A 6D 0C 17 AF 9C 79 0E 18 5C 10 18 F1 0E 00 5B
            5B 79 6E 1A E0 AF F3 8D 2E 1C 6A 09 64 21 30 AA E0 F4 AC D9 71 2E
            AC B2 60 02 14 2C 03 20 16 01 11 16 02 11 19 02 E0 F4 AC D9 71 2E
            F5 B6 8E 80 01 A7 14 6E 1E B3 7A 03 AD 64 1F B4 60 04 1A 5A
           )
      *FORM* 2. TEST-LIST C-ERROR "Block name must be a symbol, not ~S"
      "Blockname muß ein Symbol sein, nicht ~S"
      "Un nom de bloc doit être un symbole et non ~S" LANGUAGE BLOCK *STACKZ*
      *FOR-VALUE* MAKE-LABEL :FNODE *FUNC* :LABEL :CONSVAR :NAME :SPECIALP
      :CLOSUREP :STACKZ MAKE-VAR :USED-FAR :FOR-VALUE MAKE-BLOCK *BENV* PROGN
      C-FORM 5. ANODE BLOCK-OPEN NEW-CONST (BLOCK-CLOSE) MK-ANODE 0.
  )  )
#Y(#:TOP-LEVEL-FORM-196-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-RETURN-FROM REMOVE-OLD-DEFINITIONS
   #Y(C-RETURN-FROM
      #253Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 AA 8D 06 0F C7
            4F 0A DD DE DF 6D 03 08 AE 2F 04 50 7C 00 AA 6E 09 92 00 25 E5 AB
            8D 32 80 49 9B 1F 80 C3 0E 00 5B 5B 77 64 1F 6F 0F EC 64 20 AC EC
            AF 6E 21 7A 02 60 02 14 2C 03 18 19 04 E2 E3 E4 6D 03 08 AC 2F 04
            19 03 EC ED AC EE 6A 12 E5 B1 DA 31 2E 78 E5 B2 E6 71 2E 7A 04 EF
            E5 B1 D9 71 2E 7A 02 60 03 1A 50 0E 00 5B 5B 77 E5 AC E6 71 2E 6F
            0F E5 AC E8 71 2E 0E 11 22 0B 6A 12 E5 AD DA 31 2E 78 89 13 41 0E
            19 1B 37 6A 11 1A 23 03 1E 1A 39 6A 12 60 01 1A 80 40 AC F2 AC E6
            71 2E 37 03 70 B9 F2 AC E6 AD 31 2F 16 01 F2 AB F3 80 2E 00 AA E5
            AE E8 31 2E 22 60 16 01 E5 AC F4 63 31 2F EC F5 AC E5 AF E6 8E 2E
            44 00 14 EC B0 E5 B2 E8 71 2E 0E 11 21 FF BA 00 7B 02 7A 01 32 02
            23 5C 1A FF 52 64 22 2E 23 19 03
           )
      *FORM* 2. 3. TEST-LIST C-ERROR "Block name must be a symbol, not ~S"
      "Blockname muß ein Symbol sein, nicht ~S"
      "Un nom de bloc doit être un symbole et non ~S" LANGUAGE BENV-SEARCH
      "RETURN-FROM block ~S is impossible from here."
      "RETURN-FROM auf Block ~S an dieser Stelle nicht möglich."
      "RETURN-FROM bloc ~S est impossible à partir d'ici." BLOCK 6. C-FORM 1.
      *FUNC* *STACKZ* MAY-UNWIND RETURN-FROM (T . T) UNWIND JMP MK-ANODE
      *NO-CODE* FNODE 19. 5. (T . T) ((VALUES0)) ALL (T . T) NEW-CONST
      C-RETURN-FROM COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-197 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-TAGBODY REMOVE-OLD-DEFINITIONS
   #Y(C-TAGBODY
      #322Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 01 02 92 02 26 93 02 9B
            20 1A AA 8E 06 04 91 00 80 B0 AA 8D 08 80 AB C7 4F 0A DD DE DF 6D
            03 08 AE 2F 04 50 16 01 82 02 91 02 5A AB 71 47 AB 71 47 3F 02 16
            03 41 02 E1 0E 0A 5C 10 0A E3 6A 0C E5 B0 E6 E7 37 01 71 86 E8 62
            E9 62 EA 6A 0A 6D 08 13 EA 6A 0A EC B7 71 45 37 07 CC F8 70 19 6D
            0A 15 EE A1 76 00 9C 79 0E 17 5C 10 17 62 F0 0E 00 78 B5 B5 92 02
            1F 93 02 9B 1F 80 50 AA 62 6F 19 AF F2 AC F3 71 2E 2F 1C FB AA 83
            06 16 01 16 01 82 02 91 02 61 AE 80 47 04 16 03 F5 B0 64 1E 71 2E
            71 45 E1 8F 01 30 3A 0E 25 1C 07 AB 64 26 81 02 23 01 F5 AB AD 2C
            03 27 16 02 11 16 01 11 19 03 AA 83 02 62 6E 03 83 01 1A FF 57 9D
            1F FF BE AA 93 03 8E 01 FF B7 82 02 93 01 82 02 83 05 1A FF AC F5
            B0 64 1E 71 2E AA 71 45 E1 62 1A 14 B7 AE AD 72 01 01 BA 37 06 03
            1F F7 71 5D 71 41 83 00 84 01 AB AD 90 01 2D 66 AA 31 47 16 01 F6
            6A 0A F5 AD 7A 02 30 AA 64 20 64 21 64 22 AF 72 00 26 6E 23 9D 7B
            02 AF 64 24 32 02 23 5C FA 16 03 1A FF 80
           )
      *FORM* 1. TEST-LIST MAKE-LABEL C-ERROR
      "Only numbers and symbols are valid tags, not ~S"
      "Nur Zahlen und Symbole sind zulässige Sprungziele, nicht aber ~S"
      "Seuls les symboles et les nombres peuvent servir de marqueur de saut et non ~S"
      LANGUAGE 0. *STACKZ* :FNODE *FUNC* :LABELLIST :CONSVAR :NAME :SPECIALP
      :CLOSUREP :STACKZ MAKE-VAR :USED-FAR MAKE-TAGBODY #.#'VECTOR *GENV* (NIL)
      C-FORM ANODE 2. SECLASS-OR-2 TAGBODY 5. #.#'EQL TAGBODY-OPEN
      SIMPLE-VECTOR
      #Y(C-TAGBODY-1 #16Y(01 00 00 00 00 02 AB 31 80 1E 03 9C 19 02 19 02))
      NEW-CONST ((TAGBODY-CLOSE-NIL)) *FOR-VALUE* ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-198 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-GO REMOVE-OLD-DEFINITIONS
   #Y(C-GO
      #255Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 AA 8E 06 03 91
            00 0D AA 8D 08 09 DB DC DD 6D 03 06 AB 2F 07 AA 2E 08 41 02 92 01
            1B E4 AC 8D 32 3E 9C 1F 80 C3 EA 64 20 EA AE 6E 21 AE 7A 03 60 01
            14 2C 03 17 19 04 E1 E2 E3 6D 03 06 AD 2F 07 19 04 EA EB EC 6A 0F
            E4 B0 E8 71 2E 03 15 7B 03 EE AE E4 B1 D9 71 2E 70 96 7A 02 60 02
            1A 52 E4 AC E5 71 2E 0E 0E 22 0A 6A 0F E4 AD E8 71 2E 89 11 50 F0
            0E 19 1B 80 55 E4 AD F2 71 2E AA 71 45 F0 1A 10 15 16 02 1A 18 AC
            AB 72 01 01 B1 8D 01 72 84 00 AA AC 90 01 2D 6F B0 AD 30 16 9C 16
            03 F6 6A 0E 1A 1E 6A 0F 60 01 1A 34 AD F3 AC F4 71 2E 37 03 70 B9
            F3 AC F4 AD 31 2F 16 01 F3 AB F5 80 2E 00 AA E4 AF E5 31 2E 22 60
            16 01 EA 64 1E 64 1F EA B0 AF E4 B3 E5 71 2E 0E 0E 21 47 00 7B 03
            7A 02 2C 03 17 19 05 64 22 2E 23 19 04
           )
      *FORM* 2. TEST-LIST "Tag must be a symbol or a number, not ~S"
      "Sprungziel muß ein Symbol oder eine Zahl sein, nicht ~S"
      "Le marqueur de saut doit être un symbole ou un nombre et non ~S"
      LANGUAGE C-ERROR GENV-SEARCH "GO to tag ~S is impossible from here."
      "GO auf Tag ~S an dieser Stelle nicht möglich."
      "GO vers le marqueur ~S n'est pas possible ici." TAGBODY 1. *FUNC*
      *STACKZ* 3. MAY-UNWIND GO (T . T) UNWIND (NIL) JMP MK-ANODE 0. *NO-CODE*
      5. FNODE 8. 19. (T . T) (VALUES0) (T . T) NEW-CONST C-GO COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-199 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FUNCTION REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCTION
      #257Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 78 0E 00 5B 77 91
            01 04 AA 87 04 20 6A 00 30 9E 77 9B 1F 0A 93 00 24 25 05 9B 5B 20
            80 A6 64 2E 64 2F 64 30 6D 03 18 AB 2F 19 19 04 AA 2E 05 41 03 9D
            25 06 80 85 E6 E7 A2 5D 14 E8 E3 B4 7A 02 2C 04 11 1A 80 5F 0E 07
            1C 17 AD 8B 51 13 AD 6A 08 E1 37 02 8B B5 0A AD 6A 0A E1 37 02 30
            B9 0F 0A E3 E4 AF 8C 01 04 AF 88 0D 4B E6 B0 6E 12 7A 02 D6 5C 1A
            35 ED EE EF 6D 03 18 AE 2F 19 19 06 E3 F2 E6 AE 6E 1B 7A 02 F4 E6
            AF 6E 1B 7A 02 03 1D 61 03 1A 15 E6 AC 8E 32 16 E3 64 1E 64 1F E6
            AF 64 20 31 2E 14 7A 02 60 01 14 2C 03 14 19 06 64 21 AC 64 20 71
            2E 2E 22 19 06 64 23 2E 24 19 06 9F 1A 23 0E 26 1B 03 0E 27 58 10
            26 92 05 04 AE 87 04 6D 6A 28 64 29 AB 64 20 80 2E 00 6A 2A 31 8D
            0F 2A 14 2F 2B 14 94 04 6F 2C 2E 2D 11 19 04
           )
      *FORM* 2. 3. TEST-LIST FUNCTION-NAME-P FENV-SEARCH
      #S(HASH-TABLE EQ (LOCAL . 97.) (GLOBAL . 76.) (MACRO . 65.) (NIL . 18.))
      *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS*
      FUNCTION (T) DECLARED-NOTINLINE CONST :VALUE :FORM MAKE-CONST
      MAKE-FUNNAME-CONST ((SYMBOL-FUNCTION)) MK-ANODE
      "~S is not a function. It is a locally defined macro."
      "~S ist keine Funktion, sondern ein lokal definierter Macro."
      "~S n'est pas une fonction mais une macro définie localement." LANGUAGE
      C-ERROR (T) NEW-CONST (PUSH) ((SVREF)) (NIL) FCONST 1. VAR C-VAR
      C-FUNCTION COMPILER-ERROR LAMBDA *NO-CODE* *FOR-VALUE* *FUNC* FNODE
      *ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
      "Only symbols and lambda expressions are function names, not ~S"
      "Nur Symbole und Lambda-Ausdrücke sind Namen von Funktionen, nicht ~S"
      "Seuls les symboles et les expressions lambda sont des noms de fonction et non ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-200 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-%GENERIC-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(C-%GENERIC-FUNCTION-LAMBDA
      #50Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1B 03 0E 04 58 10 03 6A 05 DE
           AB D9 80 2E 00 6A 07 31 8D 0F 07 14 6F 08 0E 00 78 62 63 6D 04 09 2E
           0A 11 19 01
          )
      *FORM* 1. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT*
      SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
  )  )
#Y(#:TOP-LEVEL-FORM-201
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   %OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS MACRO
   #Y(%OPTIMIZE-FUNCTION-LAMBDA
      #34Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 0F 9D 5B 78 DA DB DC 9E 79 7A
           02 C8 61 02 19 04 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR CONS FUNCTION LAMBDA (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-202 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(C-%OPTIMIZE-FUNCTION-LAMBDA
      #124Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1B 03 0E 04 58 10 03 0E 00
            5B 77 70 A0 6A 05 DE AB DF 80 2E 00 6A 08 31 8D 0F 08 14 6F 09 0E
            00 5B 78 01 02 AE 6D 05 0A 6E 0B 62 AC 1A 0C 93 00 AA CF 59 14 83
            02 16 01 82 00 9B 20 71 16 01 AA 7F A5 00 DF 0E 0D 5C 10 0D E6 AE
            60 02 10 00 2D 0F 12 02 14 E8 E9 AE D9 71 2E E9 AD D9 71 2E 6F 12
            AE EB AE D7 7B 03 2C 03 15 16 04 11 19 01
           )
      *FORM* 2. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE 1.
      *ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION GONE
      *STACKZ* QUOTE C-QUOTE %OPTIMIZE-FUNCTION-LAMBDA ANODE SECLASS-OR-2
      (PUSH) ((CONS)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-203-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   C-FLET REMOVE-OLD-DEFINITIONS
   #Y(C-FLET
      #344Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 77
            01 02 92 02 25 93 02 9B 1F 0A 93 00 88 04 05 9B 5B 20 81 05 CD 4F
            0C E3 E4 E5 6D 03 0E E7 AF 2C 03 0A 50 16 01 82 02 91 02 5B AB 71
            47 AB 71 47 3F 02 16 03 41 02 6A 10 0E 10 10 10 0E 11 10 11 0E 12
            10 12 DB 0E 10 5C 0F 10 62 0E 11 5C 0F 11 6A 10 6A 11 B7 B7 01 03
            92 04 80 4B 93 04 83 00 93 03 DE AB EB 71 2E 8D 88 80 CA AA 6E 16
            83 02 DF 0E 10 5C 0F 10 EF 37 01 71 86 F0 62 F1 62 F2 63 F3 62 F4
            62 F5 6A 10 64 1E 6A 11 6D 10 1F AB 7A 01 9C 79 83 02 AA 83 04 16
            01 16 01 94 04 82 04 69 04 91 04 FF B5 AC 71 47 AC 71 47 64 20 6A
            21 9F 79 31 47 76 00 3F 03 16 05 41 03 9B 10 21 98 22 A1 36 00 64
            23 0E 00 5B 5B 79 6E 24 B0 B0 6F 25 E7 B1 AD 7A 01 72 02 23 6E 26
            B3 6F 27 AC B5 B7 6D 03 28 98 29 B5 B5 6D 03 2A AF 64 2B 6A 10 65
            1A 6A 2C 7A 04 7A 02 72 03 23 6D 03 2D 92 01 0A B4 DF 30 AA B3 AC
            A7 79 30 AA B2 2E 2E 15 16 02 11 16 05 12 03 19 04 6A 05 DE AB DF
            80 2E 00 93 01 6F 08 94 01 6F 09 93 01 83 03 AA 83 02 16 01 1A FE
            EE AA 7A 01 EC AC 2F 15 79 83 01 1A FF 59
           )
      *FORM* 2. TEST-LIST 0. FUNCTION-NAME-P *FUNC* FNODE 1. SYMBOL-SUFFIX
      C-LAMBDABODY C-ERROR "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE FLET
      *STACKZ* *VENVC* *VENV* 9. :VALUE MAKE-CONST C-FNODE-FUNCTION :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
      MAKE-VAR #.#'VECTOR *FENV* PUSH-*VENV* PROGN C-FORM
      CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT
      C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE*
      MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-203-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   C-LABELS REMOVE-OLD-DEFINITIONS
   #Y(C-LABELS
      #420Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 6A 04 0E 04
            10 04 0E 05 10 05 0E 06 10 06 DB 0E 04 5C 0F 04 62 0E 05 5C 0F 05
            6A 04 6A 05 0E 00 5B 77 01 05 92 05 26 93 05 9B 1F 0A 93 00 88 07
            05 9B 5B 20 80 64 03 17 4F 0C F0 F1 F2 6D 03 1B ED AF 2C 03 17 50
            16 01 82 05 91 05 5A AE 71 47 AE 71 47 AE 71 47 AE 71 47 AE 71 47
            3F 05 16 06 41 05 AE AB 62 92 02 11 93 02 83 00 93 01 83 00 94 02
            82 02 69 02 91 02 6F 6A 1C 83 00 F5 AB 31 47 36 00 16 03 10 1C 98
            1E A2 36 00 98 1F B0 B0 B0 72 02 17 62 AB B3 1A 80 66 93 00 83 05
            E0 0E 04 5C 0F 04 E1 37 01 71 86 E2 62 E3 62 E4 63 E5 62 E6 62 E7
            6A 04 E8 6A 05 6D 10 11 83 04 6A 12 EB AB E0 80 2E 00 93 01 6F 14
            83 03 94 00 83 02 62 ED 9D 5B 77 2E 16 42 5C 79 A0 5A 79 83 01 1A
            FF 64 16 03 1A 1F 93 01 9C 1F 77 93 01 AB 64 20 AC 64 21 31 2E 78
            6F 22 83 04 16 02 82 01 82 00 9C 20 63 16 02 AA 7F A5 00 64 23 0E
            00 5B 5B 79 6E 24 B3 AD 92 01 2D 93 01 93 01 EB AB 64 25 71 2E 8E
            88 15 64 20 AC 64 26 63 31 2F AA 6E 27 64 20 AD 64 28 AD 31 2F 16
            01 16 02 94 01 82 01 69 01 91 01 53 16 02 B3 AC 6F 29 ED AD AD 7A
            01 72 02 23 6E 2A B6 6F 2B AC B9 BB 6D 03 2C 98 2D B8 B1 6D 03 2E
            AF 64 2F 6A 04 65 1E 6A 30 7A 04 7A 02 72 03 23 6D 03 31 92 01 0B
            B8 E0 30 AA B7 AC 04 10 79 30 AA B5 2E 32 15 16 04 11 16 07 12 03
            19 02
           )
      *FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
      MAKE-VAR *FUNC* FNODE SYMBOL-SUFFIX LABELS ANALYZE-LAMBDALIST C-ERROR
      "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE *FENV*
      #.#'VECTOR PUSH-*VENV* C-LAMBDABODY VAR 10. C-FNODE-FUNCTION PROGN C-FORM
      9. 3. NEW-CONST 4. CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
      SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
      *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-203-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   C-GENERIC-FLET REMOVE-OLD-DEFINITIONS
   #Y(C-GENERIC-FLET
      #342Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 77
            01 03 92 03 25 93 03 9B 1F 0A 93 00 88 04 05 9B 5B 20 81 04 CD 4F
            0C E3 E4 E5 6D 03 0E DD AF 2C 03 0A 50 16 01 82 03 91 03 5B AC 71
            47 AC 71 47 AC 71 47 3F 03 16 04 41 03 6A 0F 0E 0F 10 0F 0E 10 10
            10 0E 07 10 07 DB 0E 0F 5C 0F 0F 62 0E 10 5C 0F 10 6A 0F 6A 10 B8
            B8 B8 01 03 92 05 80 46 93 05 83 00 93 03 E9 6F 12 83 01 EB 0E 0F
            5C 0F 0F EC 37 01 71 86 ED 62 EE 62 EF 63 F0 62 F1 62 F2 6A 0F F3
            6A 10 6D 10 1C 62 F5 A2 5A 7B 02 9C 79 83 01 AA 83 03 16 01 94 05
            94 05 82 05 69 05 69 05 91 05 FF BA AC 71 47 AC 71 47 64 1E 6A 08
            9F 79 31 47 76 00 3F 03 16 06 41 03 9B 10 08 98 1F A1 36 00 64 20
            0E 00 5B 5B 79 6E 12 B0 B0 6F 21 DD B1 AD 7A 01 72 02 23 6E 22 B3
            6F 23 AC B5 B7 6D 03 24 98 25 B5 B5 6D 03 26 AF 64 27 6A 0F 65 1A
            6A 28 7A 04 7A 02 72 03 23 6D 03 29 92 01 0A B4 EB 30 AA B3 AC A7
            79 30 AA B2 2E 2A 15 16 02 11 16 05 12 03 19 05 93 00 AA 83 04 DD
            AB 9E 5B 77 6D 03 06 83 03 DD AB 9E 5B 77 9F 5B 78 6A 07 6A 08 72
            02 00 6D 05 09 83 02 16 01 1A FE E3
           )
      *FORM* 2. TEST-LIST 0. FUNCTION-NAME-P CLOS:GENERIC-FLET
      CLOS::DEFGENERIC-LAMBDALIST-CALLINFO *VENV* *FENV*
      CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
      "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE
      *STACKZ* *VENVC* ONE C-FORM 1. :NAME :SPECIALP :CONSTANTP :USEDP
      :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC #.#'VECTOR
      PUSH-*VENV* PROGN CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR
      SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
      *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-203-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-GENERIC-LABELS REMOVE-OLD-DEFINITIONS
   #Y(C-GENERIC-LABELS
      #345Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 6A 04 0E 04
            10 04 0E 05 10 05 0E 06 10 06 DB 0E 04 5C 0F 04 62 0E 05 5C 0F 05
            6A 04 6A 05 0E 00 5B 77 01 04 92 04 26 93 04 9B 1F 0A 93 00 88 07
            05 9B 5B 20 80 58 03 17 4F 0C F0 F1 F2 6D 03 1B EB AF 2C 03 17 50
            16 01 82 04 91 04 5A AD 71 47 AD 71 47 AD 71 47 AD 71 47 3F 04 16
            05 41 04 AD AC 62 92 02 11 93 02 83 00 93 01 83 00 94 02 82 02 69
            02 91 02 6F 6A 15 83 00 F4 AB 31 47 36 00 16 03 10 15 98 1D A1 36
            00 62 AE 1A 80 5C 93 00 AA 83 05 E0 0E 04 5C 0F 04 E1 37 01 71 86
            E2 62 E3 62 E4 63 E5 62 E6 62 E7 6A 04 E8 6A 05 6D 10 11 83 04 62
            EA EB AD A0 5B 77 2C 03 14 7B 02 A0 5A 79 83 03 EB AB 9E 5B 77 9F
            5B 78 6A 06 6A 15 72 02 00 6D 05 16 83 02 16 01 1A FF 69 93 00 AA
            64 1E 6F 1F 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A5 00 64 20 0E
            00 5B 5B 79 6E 1F B1 AC 6F 21 EB AD AD 7A 01 72 02 23 6E 22 B4 6F
            23 AC B7 B9 6D 03 24 98 25 B6 B1 6D 03 26 AF 64 27 6A 04 65 1C 6A
            28 7A 04 7A 02 72 03 23 6D 03 29 92 01 0A B6 E0 30 AA B5 AC A9 79
            30 AA B3 2E 2A 15 16 03 11 16 06 12 03 19 02
           )
      *FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME
      :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC
      MAKE-VAR GENERIC CLOS:GENERIC-LABELS CLOS::DEFGENERIC-LAMBDALIST-CALLINFO
      *FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
      "Illegal function definition syntax in ~S: ~S"
      "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
      "Mauvaise syntaxe de définition de fonction dans ~S : ~S" LANGUAGE
      #.#'VECTOR PUSH-*VENV* ONE C-FORM PROGN CHECKING-MOVABLE-VAR-LIST
      ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
      C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE
      OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-204 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MACROLET REMOVE-OLD-DEFINITIONS
   #Y(C-MACROLET
      #75Y(00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC 2F
           03 0E 01 5B 77 62 92 01 13 93 01 93 00 AA 83 02 AB 6E 05 83 02 16 02
           82 01 91 01 6D 6A 06 83 00 DF AB 31 47 36 00 10 06 B0 E0 0E 01 5B 5B
           79 35 01 11 19 04
          )
      C-FORM *FORM* 2. TEST-LIST 0. MAKE-MACRO-EXPANDERCONS *FENV* #.#'VECTOR
      PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-205 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-SYMBOL-MACROLET REMOVE-OLD-DEFINITIONS
   #Y(C-SYMBOL-MACROLET
      #239Y(00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC
            2F 03 0E 01 5B 78 62 6A 05 6A 06 72 02 00 30 60 41 02 0E 07 10 07
            0E 05 10 05 B0 2E 08 41 03 9D 10 09 9F 10 0A A1 10 0B 2D 0C 0E 01
            5B 77 01 02 92 02 27 93 02 9B 1F 0E 93 00 8E 06 09 9B 5B 1F 05 9B
            5B 5B 1C 28 D0 4F 0A E6 E7 E8 6D 03 11 AE 2F 0D 50 16 01 82 02 91
            02 59 AB 71 47 AB 71 47 3F 02 16 03 41 02 6A 09 AC 6F 12 62 1A 1F
            93 00 83 02 9B 5B 77 83 01 1A 5A 86 01 00 D0 4F 0C EB EC ED 6D 03
            11 EE AF 2C 03 0D 50 82 01 AB 8C 94 68 16 02 EF 62 AD AD 1A 1B 16
            03 1A 1C 93 01 9C 1F 77 93 01 AB AB 6E 18 7A 02 AF 7F A4 04 16 02
            82 01 82 00 9C 20 66 16 02 AA 7F A5 00 6A 05 7A 01 32 02 24 36 00
            0F 05 C1 F1 04 17 79 35 01 16 02 12 03 16 03 12 02 19 04
           )
      C-FORM *FORM* 2. TEST-LIST 0. *VENV* *FENV* *DENV* PROCESS-DECLARATIONS
      *SPECIALS* *IGNORES* *IGNORABLES* PUSH-SPECIALS C-ERROR
      "Illegal syntax in SYMBOL-MACROLET: ~S"
      "Falsche Syntax in SYMBOL-MACROLET: ~S"
      "Mauvaise syntaxe pour SYMBOL-MACROLET : ~S" LANGUAGE INTERSECTION
      "~S: symbol ~S must not be declared SPECIAL and a macro at the same time"
      "~S: Symbol ~S darf nicht gleichzeitig SPECIAL und Makro deklariert werden."
      "~S : Le symbole ~S ne peut être déclaré SPECIAL et macro en même temps."
      SYMBOL-MACROLET #.#'VECTOR MAKE-SYMBOL-MACRO PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-206 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-EVAL-WHEN REMOVE-OLD-DEFINITIONS
   #Y(C-EVAL-WHEN
      #89Y(00 00 01 00 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC 2F
           03 01 02 0E 01 5B 77 62 1A 1C 86 01 00 25 05 0B 7D 03 1A 10 7D 02 1A
           0C 9C 1A 22 DE DF E0 6D 03 09 AB 2F 0A 82 01 AB 8C 94 60 16 02 E3 0E
           01 5B 5B 79 92 01 03 AA 2E 0C AE 91 03 5C 00 14 35 01 19 05
          )
      C-FORM *FORM* 2. TEST-LIST 0.
      #S(HASH-TABLE EQ (EVAL . 21.) (COMPILE . 5.) (LOAD . 1.))
      "EVAL-WHEN situation must be EVAL or LOAD or COMPILE, but not ~S"
      "Situation bei EVAL-WHEN muß EVAL, LOAD oder COMPILE sein, nicht ~S."
      "EVAL-WHEN ne s'applique qu'aux situations EVAL, LOAD ou COMPILE et non ~S."
      LANGUAGE C-ERROR PROGN C-EVAL-WHEN-COMPILE
  )  )
#Y(#:TOP-LEVEL-FORM-207 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-COND REMOVE-OLD-DEFINITIONS
   #Y(C-COND
      #75Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 78 92 00 1A 93 00 9B 1F 18 93
           00 9C 5B 1B 1F E3 AB E2 A0 5B 79 60 03 16 02 F6 2E 0C 19 01 00 1A 78
           DB DC DD 6D 03 06 AB 2F 07 16 01 1A 6B E0 AB E1 9F 5B 79 E2 A1 5B 79
           60 04 16 02 1A 5B
          )
      *FORM* 1. TEST-LIST "COND clause without test: ~S"
      "COND-Klausel ohne Test: ~S" "Clause COND sans test : ~S" LANGUAGE
      C-ERROR IF PROGN COND OR C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-208 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-CASE REMOVE-OLD-DEFINITIONS
   #Y(C-CASE
      #456Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 01 03 AD
            62 1A 80 87 DB DC DD 6D 03 06 AB 2F 07 1A 80 79 7C 00 1A 80 6C 7D
            00 F9 1A 80 66 9C 1A 1A 86 01 00 1F 61 93 00 91 03 68 AA 02 21 69
            AA 23 08 65 62 AB 8D 0B 66 AB 60 01 14 62 1A 39 00 2A 01 37 01 31
            86 0B 00 00 AA 6C 0C 01 E5 67 02 00 B1 7A 02 7A 01 E6 67 04 00 B1
            A0 73 7A 03 7A 03 2E 0F 19 07 86 01 00 14 B2 E1 37 02 8B B5 06 AA
            83 07 AA 83 02 82 01 AB 8C 94 69 16 02 AA 80 47 01 16 01 AA 9D 5B
            79 83 05 16 01 82 01 AB 8C 94 FF 8E 16 02 91 00 03 E2 83 02 AC 80
            47 02 AB 80 47 01 F6 71 45 E3 8F 01 31 FF 93 AD E8 6F 0F 01 02 AE
            62 1A 80 59 9B FA 16 01 1A 80 50 E6 9C 5B 79 6E 0F 9C 5A 1F 6F 93
            01 62 6E 11 AC 7A 03 83 03 16 01 1A 38 AC 6E 14 AB 62 1A 14 9B 5B
            5B 5A 19 0B 86 01 00 AC 93 01 ED 37 02 8B B5 6E 82 01 AB 8C 94 6E
            9F 19 0B 03 18 1A 33 86 01 00 5A 1B FF BB 02 10 12 E6 9F 5B 79 62
            2F 0F 11 82 01 AB 8C 94 68 16 02 AA 80 47 00 AC 87 13 FF B7 62 6E
            11 6A 16 6E 11 98 17 B0 8F 00 28 4B 03 19 14 F2 B0 F3 B0 72 00 17
            B1 7A 01 32 02 23 79 6E 1C B1 F5 AE 62 B3 1A 28 93 00 9B 5B 77 62
            93 02 1A 0B 93 00 AA 9F 79 83 02 16 01 82 00 9B 20 72 16 01 AA 30
            A5 16 01 F6 AD 7F A3 02 16 01 82 00 9B 20 55 16 01 AA 7F A5 00 B2
            64 1E B5 32 00 17 7B 04 62 B2 1A 18 93 00 9B 5B 77 9C 5B 5B 77 64
            1F B5 7A 02 7A 03 AD 7F A3 02 16 01 82 00 9B 20 65 16 01 AA 7F A5
            00 B1 B4 B2 7A 03 32 02 23 7B 02 2C 03 20 19 0B
           )
      *FORM* 1. TEST-LIST "CASE clause without objects: ~S"
      "CASE-Klausel ohne Objekte: ~S" "Clause CASE sans objets LISP : ~S"
      LANGUAGE C-ERROR OTHERWISE #.#'EQ (T NIL) 2.
      #Y(C-CASE-IFIFY
         #73Y(01 00 00 00 00 02 91 01 09 00 19 02 02 1A 2C 92 01 77 D9 9D 5A 77
              9B 1F 73 DA 62 AC 1A 12 93 00 DB 68 00 01 DC AD 7A 02 7A 03 83 02
              16 01 82 00 9B 20 6B 16 01 AA 30 A5 16 01 5C F6 DD 9F 5A 5B 79 94
              04 6B 4A 60 04 19 02
             )
         NIL IF OR EQL QUOTE PROGN
        )
      LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP
      ANODE-CONSTANT-VALUE #.#'EQL *FOR-VALUE* EQL=EQ EQ EQL CASE #.#'THIRD
      ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-209 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-HANDLER-BIND REMOVE-OLD-DEFINITIONS
   #Y(C-HANDLER-BIND
      #302Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 DB 2F 02 0E 00 5B 78
            01 03 0E 00 5B 77 62 1A 80 B1 86 01 00 14 D9 D9 2C 03 02 93 00 9C
            5B 77 46 04 26 AC 2B 05 01 10 06 B1 DF A9 79 2F 08 11 47 1C 18 02
            10 09 00 10 0A B0 2E 0B 12 02 1A 80 7E 64 23 9F 79 2E 0B 19 05 1B
            68 E4 6E 0D AC 83 07 AA 83 06 E6 0E 0F 5C 10 0F 6A 0F 0E 10 10 10
            E9 0E 0F 5C 0F 0F 37 01 71 86 EA EB 62 6D 03 14 AB AB 6F 15 AA 2E
            16 EF B6 AE 7A 03 62 6F 0B AB 7A 01 AD 7A 01 2F 18 B5 F1 AD AF 6F
            1A AD F3 6A 0F 6A 1C 7A 03 F5 6A 0F B8 03 1E 7B 03 03 1F 7B 03 32
            02 23 7B 02 64 20 64 21 AC 6D 03 14 AD 7A 01 2E 22 15 16 05 11 16
            01 11 14 83 05 16 01 16 02 82 01 AB 8C 94 FF 4A 16 02 92 02 FF 73
            AC 80 47 02 AB 80 47 01 AA 80 47 00 62 6E 0D 6A 0F 64 24 0E 0F 5C
            10 0F 64 23 A4 79 6E 0B 64 25 AB A3 79 6E 26 64 27 B5 64 28 71 2A
            6E 29 6A 0F A7 7B 03 64 2A B3 7A 02 B4 B4 B0 F5 6A 0F B7 6A 0A 7A
            04 7A 03 32 02 23 7B 02 2C 03 14 16 01 11 19 07
           )
      *FORM* 2. TEST-LIST 0. TRY-SUBTYPEP
      #Y(C-HANDLER-BIND-1 #9Y(00 00 00 00 01 16 00 48 00) NIL) *ERROR-HANDLER*
      OR SUBTYPEP *NO-CODE* *FOR-VALUE* C-FORM ONE MAKE-LABEL ANYTHING *STACKZ*
      *VENV* 1. CONDITION (T) MK-ANODE BIND-MOVABLE-VAR PUSH-*VENV* %FUNCALL
      CHECKING-MOVABLE-VAR-LIST (HANDLER-BEGIN) C-BIND-MOVABLE-VAR-ANODE
      UNWINDSP *FUNC* UNWIND (NIL) ((RET)) HANDLER (T . T) OPTIMIZE-VAR-LIST
      PROGN 4. HANDLER-BIND ANODELIST-SECLASS-OR HANDLER-OPEN VECTOR NEW-CONST
      JMP
  )  )
#Y(#:TOP-LEVEL-FORM-210 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FUNCALL-NOTINLINE REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL-NOTINLINE
      #73Y(02 00 00 00 00 03 AB D8 2F 01 AC DA 6F 03 DC 0E 05 5C 10 05 AF DE AF
           7A 02 92 01 18 93 01 DA 6F 03 AA 83 01 16 01 DF 83 00 DC 0E 05 5C 0F
           05 82 01 91 01 68 E0 B2 71 45 7A 02 83 00 E0 E1 AC 71 47 2C 03 0A 16
           02 11 19 04
          )
      0. TEST-LIST ONE C-FORM 1. *STACKZ* (FUNCALLP) (PUSH) FUNCALL (T . T)
      MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-211 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FUNCALL-INLINE REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL-INLINE
      #1070Y(05 00 00 00 00 06 00 2A 01 7E 04 00 00 AD D8 2F 01 93 03 82 04 2E
             02 41 0D 91 07 0F 91 06 0C 91 05 09 91 04 06 91 03 03 92 02 03 DB
             2E 04 B6 71 45 B6 71 45 BE 71 45 91 0B 0B AA AD AD 72 02 35 8F 01
             30 82 F7 06 10 00 1B 23 AA AD 90 01 2F 1D C8 4F 0B E5 E6 E7 6D 03
             09 65 1A 2F 05 50 BF AD AC 72 01 36 62 70 9F 81 02 23 15 9D F6 04
             10 2A 05 6A 10 0E 11 0B 01 00 0E 12 0B 01 01 0E 13 0B 01 02 0E 14
             0B 01 03 0E 15 0B 01 04 6A 10 92 15 02 0E 11 14 6A 16 92 17 02 0E
             12 14 92 18 02 0E 13 14 92 19 02 0E 14 14 91 1A 82 E6 EF 65 1F 7A
             02 F0 6A 15 37 05 31 4E 5C 10 15 A3 10 10 A5 10 11 A7 10 16 A9 10
             12 04 10 10 13 04 12 10 14 65 30 63 6A 11 6A 12 72 02 00 30 60 41
             02 04 1E 2A 0E 00 10 19 00 10 1A 00 10 1B 01 09 00 0B 12 00 0B 12
             01 0B 12 02 0B 12 03 0B 12 04 0B 12 05 0B 12 06 0B 12 07 0B 12 08
             0B 12 09 0B 12 0A 0B 12 0B 0B 12 0C 0B 12 0D 14 01 03 C1 2E 1C 41
             03 15 0F 1B 15 0F 1A 15 0F 19 2D 1D E2 0E 10 5C 0F 10 62 0E 16 5C
             0F 16 0E 10 F7 0E 16 F6 C0 6C 1E 01 65 46 92 00 80 43 92 4D 82 4D
             93 4D 82 4E 06 38 00 10 11 06 3B 01 10 12 06 3E 02 10 13 06 41 03
             10 14 06 44 04 10 15 B9 64 1F 2F 20 12 05 14 93 02 AB 6F 21 AB 83
             10 AA 83 11 6A 10 83 0F AA 2E 22 16 03 82 00 91 00 FF BD 16 01 65
             45 65 45 65 45 92 02 80 40 06 4A 00 1C 04 92 4F 82 09 04 4F 58 58
             14 91 00 82 0D 93 02 64 1F 2F 20 14 93 04 AB 6F 21 AB 83 0F AA 83
             10 6A 10 83 0E AA 2E 22 93 03 24 0A 82 1D 16 03 94 02 94 02 82 02
             69 02 69 02 91 02 40 16 03 65 42 23 0A 82 22 06 47 00 1B 82 39 91
             4C 82 3F 00 14 06 37 00 10 11 06 3A 01 10 12 06 3D 02 10 13 06 40
             03 10 14 06 43 04 10 15 B9 64 1F 2F 20 12 05 14 65 44 AB 6F 21 AB
             83 09 AA 83 0A 6A 10 83 08 AA 2E 22 16 03 E2 0E 10 5C 0F 10 0B 17
             01 16 01 B6 80 47 0C B5 80 47 0B B4 80 47 0A B3 80 47 09 B2 80 47
             08 B1 80 47 07 65 3A 65 3A 2F 26 41 02 69 03 69 03 64 27 04 19 79
             6E 20 B7 B5 B3 67 1A 02 67 1B 05 67 1C 08 67 1D 0B B5 72 08 23 B8
             B8 6F 28 B6 B6 6F 28 B4 B4 6F 28 67 1B 02 6E 29 67 1C 05 6E 29 67
             1D 08 67 1E 09 6F 28 67 1E 0B 6E 29 B6 B6 6F 28 72 08 23 AA AE B0
             6D 03 2A 06 1A 01 10 10 BD BB B9 72 03 23 BD BB B9 72 03 23 BD BB
             B9 72 03 23 67 20 00 2C 04 2B 11 14 98 2C 67 1C 02 67 1D 03 67 1E
             04 6D 04 2D 67 1C 05 67 1D 06 67 1E 08 67 1F 07 67 20 09 67 21 0A
             6D 06 2E 98 2C 67 1E 0B 67 1F 0C 67 20 0D 6D 04 2D 98 2F B6 B6 6D
             03 2D B2 64 30 6A 10 65 40 6A 31 7A 04 7A 02 72 07 23 64 32 BA B8
             B6 67 1E 00 67 1F 07 62 67 21 09 37 07 71 4C B7 B5 7A 01 72 08 23
             6E 33 AE 6F 34 AC 6D 03 35 92 02 0A B0 D8 30 AA AF AD A3 79 30 AA
             AD 2E 36 15 16 11 12 03 16 03 12 07 19 1F C8 4F 0B DE DF E0 6D 03
             09 65 1A 2F 05 50 E2 AB AE AE 72 02 35 72 01 36 1A 2B 37 01 71 86
             BB AB 7A 01 81 02 23 11 BA 62 7A 01 81 02 23 10 B9 62 7A 01 81 02
             23 0F 84 04 E3 E4 AC 7A 02 7A 02 83 16 16 01 84 01 AB AB 90 01 32
             4F 16 02 06 10 00 1C FC BB 1A FC DB 0E 15 1A FD 22 AA 65 47 65 47
             65 47 65 47 A1 33 16 01 1A FE 80 62 AD AD AD 65 49 A3 33 16 03 1A
             FE 73 02 10 23 93 05 62 2F 20 11 06 3A 00 10 11 06 3D 01 10 12 06
             40 02 10 13 06 43 03 10 14 06 46 04 10 15 93 5F 82 60 64 1F 2F 20
             12 05 1A FD CA AC 64 1F 6F 20 93 04 AB 6F 21 AB 83 11 AA 83 12 6A
             10 83 10 AA 2E 22 16 05 1A FD C9 06 47 00 1C FE 19 01 04 65 46 A0
             33 1A FE 19 64 24 65 4D 67 49 00 32 02 23 5C 1A FD CC 91 4C 6F 06
             47 00 5A 1A FD C2 64 25 04 4D 5C 1A FD BA
            )
      1. TEST-LIST ANALYZE-LAMBDALIST C-FUNCALL-INLINE COMPILER-ERROR C-ERROR
      "Too many arguments to ~S" "Zuviele Argumente für ~S"
      "Trop d'arguments pour ~S" LANGUAGE 0. DECLARE IGNORE
      "Too few arguments to ~S" "Zuwenig Argumente für ~S"
      "Trop peu d'arguments pour ~S" *STACKZ* *VENV* *FENV* *BENV* *GENV*
      *DENV* *VENVC* INLINING
      #Y(C-FUNCALL-INLINE-1
         #17Y(01 00 00 00 00 02 9C 5A 25 00 03 02 19 02 00 19 02)
         #S(HASH-TABLE EQ (INLINING . 1.) (IN-DEFUN . 1.) (DECLARATION . 1.))
        )
      *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
      #Y(C-FUNCALL-INLINE-FINISH-USING-APPLYARG
         #205Y(05 00 00 00 00 06 07 01 01 10 01 07 01 02 10 02 07 01 03 10 03
               07 01 04 10 04 07 01 05 10 05 07 02 01 77 DE 2F 07 12 05 14 AC
               CB 59 58 14 B1 71 45 B1 71 45 72 02 35 B1 71 45 6D 03 09 E2 E3
               AD E4 71 2E E3 AD E4 71 2E 6F 0D AD AD 7A 02 2C 03 0E 16 01 F6
               60 01 0C 00 01 AF 2E 0F 41 02 15 0C 00 04 15 0C 00 03 AE 2E 0F
               41 02 15 0C 00 07 15 0C 00 06 AB 23 08 80 4B AB 7A 01 2E 0F 41
               02 15 0C 00 0D 15 0C 00 0C E0 0E 10 5C 0F 10 0C 00 02 68 00 03
               2E 11 0C 00 05 68 00 06 68 00 07 AF AF 2C 04 12 41 04 15 0C 00
               0A 15 0C 00 09 15 0C 00 0B 15 0C 00 08 AB 23 08 11 68 00 0C 2E
               13 0C 00 0E 19 06 01 02 3F 02 1A FF B3 00 19 06
              )
         NIL *VENV* *FENV* *BENV* *GENV* *DENV* ONE C-FORM 0. C-UNLIST
         APPLY-UNLIST ANODE 2. SECLASS-OR-2 MK-ANODE PROCESS-FIXED-VAR-LIST
         *STACKZ* BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
        )
      ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV* *NO-CODE* LIST* LIST
      BIND-AUX-VARS PROGN CHECKING-MOVABLE-VAR-LIST CHECKING-FIXED-VAR-LIST
      C-MAKE-CLOSURE C-PARALLEL-BIND-MOVABLE-VAR-ANODE C-BIND-FIXED-VAR MAPCAP
      C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND *FOR-VALUE* FUNCALL
      ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-212 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-LOCAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-LOCAL-FUNCTION-CALL
      #65Y(03 00 00 00 00 04 AC 2E 00 41 06 B1 62 B5 B2 B2 B2 B2 B2 B2 6D 09 01
           AA 23 02 0D AA 23 03 09 DE B5 7A 02 B3 2F 07 19 0B B2 62 B6 B3 B3 B3
           B3 B3 62 BD 93 13 BB BB BB BB BB 6D 07 04 2C 0A 05 19 0B
          )
      FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS
      CCLOSURE-CALL-CODE-PRODUCER C-DIRECT-FUNCTION-CALL FUNCTION
      C-FUNCALL-NOTINLINE
  )  )
#Y(#:TOP-LEVEL-FORM-213 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCTION-CALL
      #65Y(02 00 00 00 00 03 AC AC 71 45 89 00 18 9D 1F 0F 93 02 24 02 0A 9D 5B
           1F 06 9D 5B 77 87 03 13 AC AC 2F 07 19 03 AC AC 62 A0 5B 5A 78 63 2C
           05 01 19 03 AC DC DC 2C 03 05 9D 5B 77 9D 79 2E 06 19 03
          )
      INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE FUNCTION FUNCTION-NAME-P 2.
      TEST-LIST C-FORM C-FUNCALL-NOTINLINE
  )  )
#Y(#:TOP-LEVEL-FORM-214 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-FUNCALL REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL
      #23Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 2F 03 19 01
          )
      *FORM* 2. TEST-LIST C-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-215 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-APPLY REMOVE-OLD-DEFINITIONS
   #Y(C-APPLY
      #354Y(00 00 00 00 00 01 46 00 81 56 6A 01 DA 2F 03 00 2A 01 0E 01 5B 77
            0E 01 5B 5B 0B 01 00 14 71 45 71 8E AB AB 63 2C 03 04 1B 80 71 9C
            1F 27 93 01 24 06 22 9C 5B 1F 1E 9C 5B 77 88 07 18 9D 2A 01 9D 5B
            5A 0B 00 00 AC E0 E0 2C 03 03 67 00 00 88 09 80 F4 16 01 AB F0 6F
            19 E6 0E 1A 5C 10 1A 67 06 00 F3 AF 7A 02 92 01 1C 93 01 F0 6F 19
            AA 83 01 9D 5B 1C 09 E6 0E 1A 5C 0F 1A F4 83 01 16 01 82 01 91 01
            64 F5 B1 7A 02 83 00 F5 64 1E AC 71 47 2C 03 1F 16 02 11 16 04 47
            19 01 AB 67 03 00 37 01 70 A6 67 04 00 70 9E 9F 5B 5A 78 63 2C 05
            05 16 03 1A 64 6A 0C 00 79 9F 33 0E 12 1C 80 5E 1A 80 4E 67 05 00
            67 09 00 37 01 70 A6 67 0A 00 70 9E AD 62 2C 05 05 16 09 1A FF BD
            67 04 00 8E 06 0E 67 04 00 8B 52 80 72 67 04 00 8B 58 80 6B 67 04
            00 6A 0C E5 AB E6 80 2E 00 8E 02 0F E7 67 05 00 7A 02 6A 10 E9 37
            02 8B B5 FF A8 0E 12 1C 0D 67 04 00 6A 13 E9 37 02 30 BC 5B 1B 0A
            67 04 00 6E 14 ED 37 01 31 7A 14 9B 1F 0E DE EE 9D 79 7A 02 B1 63
            2C 03 04 1B FF 89 16 06 1A FF 16 AA 9F 33 16 05 1A FF 0E AA B1 6C
            0A 02 67 01 00 2E 0B 41 03 92 02 FF 85 AC 23 17 64 16 05 1A FE F5
            19 01
           )
      C-APPLY *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE
      FUNCTION FUNCTION-NAME-P 2. DECLARED-NOTINLINE
      #Y(C-APPLY-C-LOCAL-APPLY
         #83Y(01 00 00 00 00 02 AB 2E 02 41 06 91 02 1B 68 01 01 37 01 70 A6 68
              01 01 70 9E 68 00 01 B2 B2 B2 B2 B2 B2 6D 09 03 23 04 03 00 19 08
              68 01 01 37 01 70 A6 68 01 01 70 9E 68 00 01 B2 B2 B2 B2 B2 62 68
              00 01 93 11 BA BA BA BA BA 6D 07 05 2C 0A 06 48 01
             )
         NIL NIL FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS
         CCLOSURE-CALL-CODE-PRODUCER C-DIRECT-FUNCTION-CALL
        )
      FENV-SEARCH *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL
      *COMPILING-FROM-FILE* *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL
      INLINE-EXPANSION LAMBDA LOCAL ONE C-FORM *STACKZ* (APPLYP) (PUSH) APPLY
      (T . T) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-216 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-PLUS REMOVE-OLD-DEFINITIONS
   #Y(C-PLUS
      #118Y(00 00 00 00 00 01 6A 00 D9 2F 02 DB 01 02 0E 00 78 62 1A 3C AE AD
            81 02 35 04 1A 32 9E 1A 11 9E 25 07 12 9D 5A 1A 09 CB 1A 01 CC 14
            93 03 60 02 14 2E 06 19 05 E2 AE 9F 61 02 1A 35 86 01 00 14 88 04
            08 AA 2E 05 F8 14 8D 08 49 AA 83 03 82 01 AB 8C 94 68 16 02 AB 71
            45 AA 23 03 FF BE AA 23 01 FF BC AC 80 47 02 AD 23 03 03 AD 83 02
            E2 9E 5C 14 2E 0B 19 05
           )
      *FORM* 1. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE C-FORM
      #S(HASH-TABLE EQ (-1. . 8.) (1. . 5.) (0. . 1.)) 1+ 1- +
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-217 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MINUS REMOVE-OLD-DEFINITIONS
   #Y(C-MINUS
      #166Y(00 00 00 00 00 01 6A 00 D9 2F 02 6A 00 71 45 D9 72 01 2D DB DB 01
            02 91 04 20 0E 00 5B 77 AA 88 04 08 AA 2E 05 F7 14 8D 08 0C 9B F9
            16 01 92 04 0C 0E 00 5B 1A 0B 9C FA 1A 72 91 04 74 0E 00 5B 5B 14
            62 1A 36 AF AD 81 01 36 05 1A 2C DE AE AE 60 03 10 00 2D 07 11 19
            06 00 1A 3E AE 24 03 04 9D 5B 1C 75 9F 1A 27 86 01 00 14 88 04 08
            AA 2E 05 F8 14 8D 08 4F AA 83 03 82 01 AB 8C 94 68 16 02 92 01 49
            E0 AD 23 03 53 AE 24 03 06 9E 14 60 01 1A 07 AD AF 72 00 36 60 02
            14 AD 71 47 32 02 23 79 2E 09 19 06
           )
      *FORM* 2. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE + C-PLUS -
      C-GLOBAL-FUNCTION-CALL-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-218 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-SVSTORE REMOVE-OLD-DEFINITIONS
   #Y(C-SVSTORE
      #59Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 0E
           00 5B 5B 5B 77 37 01 71 86 37 01 71 86 DB AC B0 7A 02 AC B0 7A 02 7A
           02 DC AF AF AF 7A 04 7A 03 2E 05 19 06
          )
      *FORM* 4. TEST-LIST LET* %SVSTORE C-FORM
  )  )
#Y(#:TOP-LEVEL-FORM-219 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-EQ REMOVE-OLD-DEFINITIONS
   #Y(C-EQ
      #81Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 AB
           88 03 04 AA 87 03 1E AB 88 03 08 AB AB 9B F9 9C F8 16 02 AA 88 03 04
           AA 88 05 19 E1 AC AC 60 03 14 2E 08 19 03 DC AC 6E 05 AC 2E 05 59 14
           7A 02 2E 06 19 03 DF AC 60 02 1A 66
          )
      *FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM NULL
      C-GLOBAL-FUNCTION-CALL-FORM EQ
  )  )
#Y(#:TOP-LEVEL-FORM-220 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EQL=EQ REMOVE-OLD-DEFINITIONS
   #Y(EQL=EQ
      #23Y(01 00 00 00 00 02 AB 31 06 1D 0A AB 31 0D 1D 05 AB 31 1B 19 02 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-221 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-EQL REMOVE-OLD-DEFINITIONS
   #Y(C-EQL
      #82Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 AB
           88 03 04 AA 87 03 19 AB 88 03 06 AB 6E 05 87 07 1E AA 88 03 06 AA 6E
           05 87 07 14 E2 2E 0B 19 03 DC AC 6E 05 AC 6E 05 71 01 7A 02 2E 06 19
           03 E0 AC AC 60 03 10 00 2D 09 11 19 03
          )
      *FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM EQL=EQ EQ
      C-EQ EQL C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-222 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EQUAL=EQL REMOVE-OLD-DEFINITIONS
   #Y(EQUAL=EQL
      #23Y(01 00 00 00 00 02 AB 31 06 1D 0A AB 31 08 1D 05 AB 31 1B 19 02 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-223 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-EQUAL REMOVE-OLD-DEFINITIONS
   #Y(C-EQUAL
      #59Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77 AB
           88 03 06 AB 6E 04 87 05 0F AA 88 03 06 AA 6E 04 87 05 05 E0 2E 09 19
           03 DE AC AC 60 03 10 00 2D 07 11 19 03
          )
      *FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE EQUAL=EQL EQL C-EQL
      EQUAL C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-224 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAP-ON-CARS-INNER REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-CARS-INNER
      #65Y(03 00 01 00 00 0A 3A 01 0D 7C 01 91 02 0B AE AC 71 47 35 01 19 05 92
           02 75 93 02 37 01 71 86 D8 D9 AD 7A 02 DA AD DB B0 7A 02 7A 02 7A 01
           B4 B4 94 0A B1 A6 79 6B 4F 7A 03 DC B3 7A 02 60 04 19 07
          )
      IF CONSP LET CAR RETURN-FROM
  )  )
#Y(#:TOP-LEVEL-FORM-225 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAP-ON-CARS REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-CARS
      #141Y(03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 9B 2A 01 37 01
            31 86 0B 00 00 37 01 71 86 62 AF 1A 0C 93 00 37 01 71 86 83 02 16
            01 82 00 9B 20 71 16 01 AA 7F A5 00 37 01 71 86 D8 67 04 00 C4 79
            7A 01 DA AF DB DC B1 B7 72 01 17 DD B1 B5 6C 06 01 B5 B5 6D 03 07
            E0 62 B6 1A 11 93 00 AA E1 AC 7A 02 7A 02 AD 7F A3 02 16 01 82 00
            9B 20 6C 16 01 AA 30 A5 16 01 79 E2 B5 7A 02 7A 05 7A 03 7A 03 E3
            67 07 00 7A 02 60 04 19 09
           )
      LET (NIL) BLOCK LET* #.#'LIST TAGBODY
      #Y(C-MAP-ON-CARS-1
         #29Y(01 00 00 00 00 02 D9 68 00 01 68 01 01 DA 68 01 02 A1 7B 02 68 00
              01 7A 03 60 03 19 02
             )
         NIL SETQ %FUNCALL
        )
      C-MAP-ON-CARS-INNER SETQ CDR GO LIST-NREVERSE
  )  )
#Y(#:TOP-LEVEL-FORM-226 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAP-ON-LISTS REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-LISTS
      #160Y(03 00 00 00 00 04 37 01 71 86 37 01 71 86 62 AE 1A 0C 93 00 37 01
            71 86 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A5 00 37 01 71 86 D8
            AE C4 79 7A 01 DA AF DB DC B1 B6 72 01 17 DD B1 DE DF 62 B6 1A 0C
            93 00 E0 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 30 A5 16 01
            79 E1 B7 7A 02 7A 03 E2 B7 BC E3 BD 04 0F 7B 02 BA 7A 03 7A 03 E2
            62 B7 1A 11 93 00 AA E4 AC 7A 02 7A 02 AD 7F A3 02 16 01 82 00 9B
            20 6C 16 01 AA 30 A5 16 01 79 E5 B6 7A 02 7A 06 7A 03 7A 03 E6 B1
            7A 02 60 04 19 08
           )
      LET (NIL) BLOCK LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM SETQ
      %FUNCALL CDR GO LIST-NREVERSE
  )  )
#Y(#:TOP-LEVEL-FORM-227 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPC REMOVE-OLD-DEFINITIONS
   #Y(C-MAPC
      #154Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 45 89
            03 05 E7 2E 10 19 01 37 01 71 86 AA 0E 00 5B 5B 5B 79 37 01 71 86
            62 AC 1A 0C 93 00 37 01 71 86 83 02 16 01 82 00 9B 20 71 16 01 AA
            7F A5 00 37 01 71 86 DC AF 0E 00 5B 5B 77 7A 02 7A 01 DD AF DE DF
            B1 B4 72 01 17 E0 B1 E1 B5 B5 6D 03 0A E3 62 B6 1A 11 93 00 AA E4
            AC 7A 02 7A 02 AD 7F A3 02 16 01 82 00 9B 20 6C 16 01 AA 30 A5 16
            01 79 E5 B5 7A 02 7A 05 7A 03 7A 03 B1 60 04 16 04 F6 2E 0E 19 01
           )
      *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST
      TAGBODY
      #Y(C-MAPC-1 #16Y(01 00 00 00 00 02 D8 0E 01 5B 77 9E 61 02 19 02)
         %FUNCALL *FORM*
        )
      C-MAP-ON-CARS-INNER SETQ CDR GO C-FORM MAPC C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-228 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPL REMOVE-OLD-DEFINITIONS
   #Y(C-MAPL
      #191Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 45 89
            03 05 EA 2E 13 19 01 37 01 71 86 AA 0E 00 5B 5B 5B 79 37 01 71 86
            62 AC 1A 0C 93 00 37 01 71 86 83 02 16 01 82 00 9B 20 71 16 01 AA
            7F A5 00 37 01 71 86 DC AF 0E 00 5B 5B 77 7A 02 7A 01 DD AF DE DF
            B1 B4 72 01 17 E0 B1 E1 E2 62 B6 1A 0C 93 00 E3 AB 7A 02 83 02 16
            01 82 00 9B 20 71 16 01 AA 30 A5 16 01 79 E4 B7 7A 02 7A 03 E5 0E
            00 5B 77 A7 7B 02 E6 62 B7 1A 11 93 00 AA E7 AC 7A 02 7A 02 AD 7F
            A3 02 16 01 82 00 9B 20 6C 16 01 AA 30 A5 16 01 79 E8 B6 7A 02 7A
            06 7A 03 7A 03 B1 60 04 16 04 F6 2E 11 19 01
           )
      *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST
      TAGBODY IF OR ATOM RETURN-FROM %FUNCALL SETQ CDR GO C-FORM MAPL
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-229 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPCAR REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCAR
      #61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
           71 45 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
           0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P
      CONS C-MAP-ON-CARS C-FORM MAPCAR C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-230 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPLIST REMOVE-OLD-DEFINITIONS
   #Y(C-MAPLIST
      #61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
           71 45 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
           0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P
      CONS C-MAP-ON-LISTS C-FORM MAPLIST C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-231 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPCAN REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCAN
      #45Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 45 89 03
           05 DF 2E 08 19 01 DC 0E 00 5B 77 0E 00 5B 78 6D 03 05 2E 06 19 01
          )
      *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-CARS
      C-FORM MAPCAN C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-232 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPCON REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCON
      #45Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 71 45 89 03
           05 DF 2E 08 19 01 DC 0E 00 5B 77 0E 00 5B 78 6D 03 05 2E 06 19 01
          )
      *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-LISTS
      C-FORM MAPCON C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-233 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPCAP REMOVE-OLD-DEFINITIONS
   #Y(C-MAPCAP
      #61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
           71 45 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
           0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P
      REVAPPEND C-MAP-ON-CARS C-FORM MAPCAP C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-234 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-MAPLAP REMOVE-OLD-DEFINITIONS
   #Y(C-MAPLAP
      #61Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 1C 12 0E 00 5B 77 0E 00 5B 78
           71 45 89 06 11 E2 2E 0B 19 01 DC 0E 00 5B 5C 10 00 2D 05 11 19 01 DF
           0E 00 5B 77 0E 00 5B 78 6D 03 08 2E 09 19 01
          )
      *FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P
      REVAPPEND C-MAP-ON-LISTS C-FORM MAPLAP C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-235
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   C-TYPEP-ALIST1
   #1=((ARRAY . ARRAYP) (ATOM . ATOM) (BIT-VECTOR . BIT-VECTOR-P)
       (CHARACTER . CHARACTERP) (COMMON . COMMONP)
       (COMPILED-FUNCTION . COMPILED-FUNCTION-P) (COMPLEX . COMPLEXP)
       (CONS . CONSP) (DOUBLE-FLOAT . DOUBLE-FLOAT-P) (FIXNUM . FIXNUMP)
       (FLOAT . FLOATP) (FUNCTION . FUNCTIONP) (HASH-TABLE . HASH-TABLE-P)
       (INTEGER . INTEGERP) (KEYWORD . KEYWORDP) (LIST . LISTP)
       (LONG-FLOAT . LONG-FLOAT-P) (NULL . NULL) (NUMBER . NUMBERP)
       (PACKAGE . PACKAGEP) (PATHNAME . PATHNAMEP)
       (RANDOM-STATE . RANDOM-STATE-P) (RATIONAL . RATIONALP)
       (READTABLE . READTABLEP) (REAL . REALP) (SEQUENCE . SEQUENCEP)
       (SHORT-FLOAT . SHORT-FLOAT-P) (SIMPLE-ARRAY . SIMPLE-ARRAY-P)
       (SIMPLE-BIT-VECTOR . SIMPLE-BIT-VECTOR-P)
       (SIMPLE-STRING . SIMPLE-STRING-P) (SIMPLE-VECTOR . SIMPLE-VECTOR-P)
       (SINGLE-FLOAT . SINGLE-FLOAT-P)
       (CLOS:STANDARD-GENERIC-FUNCTION . CLOS::GENERIC-FUNCTION-P)
       (CLOS:STANDARD-OBJECT . CLOS::STD-INSTANCE-P) (STREAM . STREAMP)
       (STRING . STRINGP) (SYMBOL . SYMBOLP) (VECTOR . VECTORP)
      )
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT C-TYPEP-ALIST1 '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-236
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   C-TYPEP-ALIST2
   #1=((BIGNUM (X) (AND (INTEGERP X) (NOT (FIXNUMP X))))
       (BIT (X) (OR (EQL X 0.) (EQL X 1.))) (NIL (X) (DECLARE (IGNORE X)) NIL)
       (RATIO (X) (AND (RATIONALP X) (NOT (INTEGERP X))))
       (STANDARD-CHAR (X) (AND (CHARACTERP X) (STANDARD-CHAR-P X)))
       (STRING-CHAR (X) (AND (CHARACTERP X) (STRING-CHAR-P X)))
       (STRUCTURE (X)
        (LET ((Y (TYPE-OF X)))
         (AND (SYMBOLP Y) (GET Y 'DEFSTRUCT-DESCRIPTION)
          (%STRUCTURE-TYPE-P Y X)
       )))
       (T (X) (DECLARE (IGNORE X)) T)
      )
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT C-TYPEP-ALIST2 '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-237 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-TYPEP-ARRAY REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-ARRAY
      #19Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
      #Y(C-TYPEP-ARRAY-1
         #137Y(01 00 02 00 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA 68 00 01 B0
               7A 02 AF 23 01 27 DB DC B2 7A 02 DD B2 6E 06 7A 02 7A 03 60 01
               14 AF 23 01 16 AF 8D 08 15 DF B0 71 45 E0 B4 7A 02 7A 03 E1 62
               B2 1A 34 00 1A 65 00 1A 39 DF B0 E0 B4 7A 02 7A 03 60 01 1A 2D
               00 1A 14 93 00 AA 23 01 77 DF DD AC 7A 02 E2 B9 B1 7A 03 7A 03
               60 01 14 84 04 AD 7F A3 02 16 01 82 00 9B 20 5E 16 01 AA 30 A5
               16 02 5C 14 32 02 23 61 02 19 05
              )
         NIL * AND EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
         EQL ARRAY-RANK 0. ARRAY-DIMENSION
  )  )  )
#Y(#:TOP-LEVEL-FORM-238 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-TYPEP-VECTOR REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-VECTOR
      #19Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
      #Y(C-TYPEP-VECTOR-1
         #43Y(01 00 01 00 01 00 3A 02 02 C4 F8 DA 68 00 01 AF 7A 02 AE 23 01 12
              DB DC B1 C8 7B 02 DE B1 7A 02 7A 03 60 01 61 02 19 04 00 1A 79
             )
         NIL * AND EQL ARRAY-DIMENSION (0.) QUOTE
  )  )  )
#Y(#:TOP-LEVEL-FORM-239 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-TYPEP-NUMBER REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-NUMBER
      #23Y(02 00 00 00 00 03 00 2A 02 7E 03 00 00 7E 02 00 01 AA 2B 00 01 19 04
          )
      #Y(C-TYPEP-NUMBER-1
         #155Y(01 00 02 00 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA 68 00 02 B0
               7A 02 AF 23 01 80 5A 68 00 02 B0 35 01 1B 80 54 A0 1F 80 55 A0
               5B 1B 80 50 68 00 02 93 06 35 01 1C 80 46 DC A1 5A 14 B2 7A 03
               60 01 14 AF 23 01 3D 68 00 02 B0 35 01 1B 38 A0 1F 0D A0 5B 1B
               09 68 00 02 93 06 35 01 1B 2C E6 E7 D3 14 6D 03 08 E1 68 00 01
               68 00 01 68 00 01 B4 2C 06 0A E3 00 51 00 1A 48 DB A1 1A FF BD
               DD DE CA 1A 5E 00 1A 0D E4 A1 1A 03 E5 A1 5A 14 B3 7A 03 60 01
               14 32 02 23 61 02 19 05
              )
         NIL * AND <= < "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
         "~S: Argument zu ~S muß *, ~S oder eine Liste von ~S sein: ~S"
         "~S : L'argument de ~S doit être *, ~S ou une liste de ~S: ~S"
         LANGUAGE TYPEP C-WARN C-TYPEP >= >
         "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
         "~S: Argument zu ~S muß *, ~S oder eine Liste von ~S sein: ~S"
         "~S : L'argument de ~S doit être *, ~S ou une liste de ~S: ~S"
  )  )  )
#Y(#:TOP-LEVEL-FORM-240
   #163Y(00 00 00 00 00 01 D8 D9 2E 02 79 DB DC 2E 02 79 DD C9 79 DF E0 2E 09
         79 E2 CE 79 E4 E4 E5 2F 0E 79 E7 D3 79 E9 D5 79 EB D7 79 ED ED EE 2F
         0E 79 EF EF F0 2F 0E 79 F1 F1 F2 2F 0E 79 F3 F3 F4 2F 0E 79 F5 F5 64
         1E 2F 0E 79 64 1F 64 1F 64 20 2F 0E 79 64 21 64 21 64 22 2F 0E 79 64
         23 64 24 2E 09 79 64 25 64 26 2E 09 79 64 27 64 28 2E 09 79 64 29 64
         2A 2E 09 79 7A 14 64 2B 8C 5F 1C AA 64 2B 70 4F 8D 01 14 64 2C 64 2D
         64 2E 6D 03 2F 64 30 64 2B 64 2B 70 4F 2C 04 31 64 2B AB 31 79 03 2B
         19 02
        )
   ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
   #Y(#:TOP-LEVEL-FORM-240-1
      #73Y(01 00 02 00 01 00 3A 03 02 C3 F9 3A 02 02 C3 F8 D9 DA B0 7A 02 AF 23
           00 2A DB DC B2 7A 02 DD B2 6E 06 7A 02 7A 03 60 01 14 AF 23 00 19 DF
           E0 B3 CC 7B 02 DD B2 7A 02 7A 03 60 01 14 32 02 23 61 02 19 05 00 1A
           62 00 1A 72
          )
      * AND VECTORP EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE
      EQL ARRAY-DIMENSION #1=(0.)
     )
   SIMPLE-VECTOR SIMPLE-VECTOR-P C-TYPEP-VECTOR COMPLEX
   #Y(#:TOP-LEVEL-FORM-240-2
      #70Y(01 00 02 00 01 00 3A 03 02 C3 F9 3A 02 02 9E F8 D9 DA B0 7A 02 AF 23
           00 27 DB DC B2 7A 02 DD B2 7A 02 7A 03 60 01 14 AF 23 00 18 DB DE B3
           7A 02 DD B2 7A 02 7A 03 60 01 14 32 02 23 61 02 19 05 00 1A 63 00 1A
           72
          )
      * AND COMPLEXP TYPEP REALPART QUOTE IMAGPART
     )
   INTEGER INTEGERP C-TYPEP-NUMBER MOD
   #Y(#:TOP-LEVEL-FORM-240-3
      #47Y(01 00 01 00 01 00 3C 02 AC 8E 0C 15 DF E0 AF 7A 02 E1 E2 B1 7A 02 7A
           02 E3 B1 B1 7A 03 60 04 19 04 D8 D9 DA 6D 03 03 DC AE 2C 03 05 DE 00
           51
          )
      #2="~S: argument to MOD must be an integer: ~S"
      #3="~S: Argument zu MOD muß ganze Zahl sein: ~S"
      #4="~S : L'argument de MOD doit être un entier: ~S" LANGUAGE TYPEP C-WARN
      C-TYPEP AND INTEGERP NOT MINUSP <
     )
   SIGNED-BYTE
   #Y(#:TOP-LEVEL-FORM-240-4
      #59Y(01 00 01 00 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0C 17 E0 E1 AF 7A
           02 AE 23 00 1C E2 E3 B1 7A 02 B0 7A 03 60 01 61 02 19 04 D9 DA DB 6D
           03 04 DD AE 2C 03 06 DF 00 51 00 1A 6B
          )
      * #5="~S: argument to SIGNED-BYTE must be an integer or * : ~S"
      #6="~S: Argument zu SIGNED-BYTE muß ganze Zahl oder * sein: ~S"
      #7="~S : L'argument de SIGNED-BYTE doit être un entier ou bien * : ~S"
      LANGUAGE TYPEP C-WARN C-TYPEP AND INTEGERP < INTEGER-LENGTH
     )
   UNSIGNED-BYTE
   #Y(#:TOP-LEVEL-FORM-240-5
      #66Y(01 00 01 00 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0C 1E E0 E1 AF 7A
           02 E2 E3 B1 7A 02 7A 02 AF 23 00 1C E4 E5 B2 7A 02 B1 7A 03 60 01 61
           03 19 04 D9 DA DB 6D 03 04 DD AE 2C 03 06 DF 00 51 00 1A 6B
          )
      * #8="~S: argument to UNSIGNED-BYTE must be an integer or * : ~S"
      #9="~S: Argument zu UNSIGNED-BYTE muß ganze Zahl oder * sein: ~S"
      #10="~S : L'argument de UNSIGNED-BYTE doit être un entier ou bien * : ~S"
      LANGUAGE TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <= INTEGER-LENGTH
     )
   REAL REALP RATIONAL RATIONALP FLOAT FLOATP SHORT-FLOAT SHORT-FLOAT-P
   SINGLE-FLOAT SINGLE-FLOAT-P DOUBLE-FLOAT DOUBLE-FLOAT-P LONG-FLOAT
   LONG-FLOAT-P STRING STRINGP SIMPLE-STRING SIMPLE-STRING-P BIT-VECTOR
   BIT-VECTOR-P SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P C-TYPEP-ALIST3
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT C-TYPEP-ALIST3
    `((ARRAY . ,(C-TYPEP-ARRAY 'ARRAYP))
      (SIMPLE-ARRAY . ,(C-TYPEP-ARRAY 'SIMPLE-ARRAY-P))
      (VECTOR .
       ,#'(LAMBDA (X &OPTIONAL (EL-TYPE '*) (SIZE '*) &REST ILLEGAL-ARGS)
           (DECLARE (IGNORE ILLEGAL-ARGS))
           `#11=(AND (VECTORP ,X)
                 ,@(IF (EQ EL-TYPE '*) 'NIL
                    `#12=((EQUAL (ARRAY-ELEMENT-TYPE ,X)
                           ',(UPGRADED-ARRAY-ELEMENT-TYPE EL-TYPE)
                   )     ))
                 ,@(IF (EQ SIZE '*) 'NIL
                    `#13=((EQL (ARRAY-DIMENSION ,X 0.) ',SIZE))
      )   )     )  )
      (SIMPLE-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-VECTOR-P))
      (COMPLEX .
       ,#'(LAMBDA (X &OPTIONAL (RTYPE '*) (ITYPE RTYPE) &REST ILLEGAL-ARGS)
           (DECLARE (IGNORE ILLEGAL-ARGS))
           `#14=(AND (COMPLEXP ,X)
                 ,@(IF (EQ RTYPE '*) 'NIL `#15=((TYPEP (REALPART ,X) ',RTYPE)))
                 ,@(IF (EQ ITYPE '*) 'NIL `#16=((TYPEP (IMAGPART ,X) ',ITYPE)))
      )   )     )
      (INTEGER . ,(C-TYPEP-NUMBER 'INTEGER 'INTEGERP))
      (MOD .
       ,#'(LAMBDA (X &OPTIONAL N &REST ILLEGAL-ARGS)
           (DECLARE (IGNORE ILLEGAL-ARGS))
           (UNLESS (INTEGERP N)
            (C-WARN (DEUTSCH #3# ENGLISH #2# FRANCAIS #4#) 'TYPEP N)
            (THROW 'C-TYPEP NIL)
           )
           `#17=(AND (INTEGERP ,X) (NOT (MINUSP ,X)) (< ,X ,N))
      )   )
      (SIGNED-BYTE .
       ,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
           (DECLARE (IGNORE ILLEGAL-ARGS))
           (UNLESS (OR (EQ N '*) (INTEGERP N))
            (C-WARN (DEUTSCH #6# ENGLISH #5# FRANCAIS #7#) 'TYPEP N)
            (THROW 'C-TYPEP NIL)
           )
           `#18=(AND (INTEGERP ,X)
                 ,@(IF (EQ N '*) 'NIL `#19=((< (INTEGER-LENGTH ,X) ,N)))
      )   )     )
      (UNSIGNED-BYTE .
       ,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS)
           (DECLARE (IGNORE ILLEGAL-ARGS))
           (UNLESS (OR (EQ N '*) (INTEGERP N))
            (C-WARN (DEUTSCH #9# ENGLISH #8# FRANCAIS #10#) 'TYPEP N)
            (THROW 'C-TYPEP NIL)
           )
           `#20=(AND (INTEGERP ,X) (NOT (MINUSP ,X))
                 ,@(IF (EQ N '*) 'NIL `#21=((<= (INTEGER-LENGTH ,X) ,N)))
      )   )     )
      (REAL . ,(C-TYPEP-NUMBER 'REAL 'REALP))
      (RATIONAL . ,(C-TYPEP-NUMBER 'RATIONAL 'RATIONALP))
      (FLOAT . ,(C-TYPEP-NUMBER 'FLOAT 'FLOATP))
      (SHORT-FLOAT . ,(C-TYPEP-NUMBER 'SHORT-FLOAT 'SHORT-FLOAT-P))
      (SINGLE-FLOAT . ,(C-TYPEP-NUMBER 'SINGLE-FLOAT 'SINGLE-FLOAT-P))
      (DOUBLE-FLOAT . ,(C-TYPEP-NUMBER 'DOUBLE-FLOAT 'DOUBLE-FLOAT-P))
      (LONG-FLOAT . ,(C-TYPEP-NUMBER 'LONG-FLOAT 'LONG-FLOAT-P))
      (STRING . ,(C-TYPEP-VECTOR 'STRINGP))
      (SIMPLE-STRING . ,(C-TYPEP-VECTOR 'SIMPLE-STRING-P))
      (BIT-VECTOR . ,(C-TYPEP-VECTOR 'BIT-VECTOR-P))
      (SIMPLE-BIT-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-BIT-VECTOR-P))
   ) )
   WARN
  )
#Y(#:TOP-LEVEL-FORM-241 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   C-TYPEP REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP
      #555Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 5B 77
            AA 88 03 82 0B AA 6E 04 62 AB 8D 06 81 BB 9C 1F 06 93 01 8D 06 80
            D3 AB 88 15 81 F2 AB 6E 16 EC 37 01 71 7A 9D 22 81 E6 EF F0 AF 7A
            02 F1 F2 E8 B0 2E 16 14 7A 02 60 02 14 60 02 14 7A 03 2E 11 19 05
            5B F6 14 AE 7A 02 2E 06 19 05 5B F6 14 AE 60 02 10 00 E0 AF 71 82
            6F 09 B1 7A 01 62 B0 62 2C 05 0A 11 19 05 5B F6 37 01 71 86 AB AB
            75 01 AB 7A 01 AB 7A 02 E4 9C 79 B1 60 02 10 00 E5 B2 71 82 6F 09
            B4 7A 01 62 B0 62 2C 05 0A 11 19 08 E7 AE E8 AD AF 7A 01 35 01 1A
            FF 9C EB E8 AD 7A 02 A0 1A FF 96 EF F0 AF 7A 02 F1 F2 E8 A1 1A FF
            82 64 1E 64 1F 64 20 6D 03 21 E7 A2 5B 77 2C 03 22 F3 00 51 9F 5B
            77 A0 5B 77 8E 06 64 AA B2 7A 02 2E 06 16 08 1A 80 E7 64 24 B1 94
            06 03 25 79 03 26 61 03 10 00 2D 27 1A 31 03 1B 4F 81 1F 93 04 24
            1C 06 AE 71 45 23 1D 4A 93 04 23 23 59 93 04 24 28 80 69 AE 71 45
            24 1D 80 62 64 28 B1 E8 A2 5B 77 7A 02 60 03 10 00 2D 29 11 16 07
            1A 80 9E 64 2A E7 B2 E8 A3 5B 77 7A 02 7A 03 7A 02 2E 06 16 07 1A
            80 89 37 01 71 86 64 2D AB B3 7A 02 7A 01 93 07 62 94 09 1A 10 93
            00 E7 B1 E8 AD 7A 02 7A 03 83 02 16 01 82 00 9B 20 6D 16 01 AA 30
            A5 16 01 79 60 03 F6 2E 11 16 07 1A 80 51 93 04 24 2A 07 AE 71 45
            23 1D FF A7 93 04 23 2B FF B6 93 04 23 2C FF B0 93 04 6A 0B 37 03
            7F BC 03 1C 32 5B F9 37 01 71 86 AE AB A2 5B 76 01 AB 7A 01 AB 7A
            02 E4 9C 79 B4 60 02 10 00 64 2E 93 0B 71 82 6F 09 B7 7A 01 62 B0
            62 2C 05 0A 11 16 0A 18 08 19 01 50 16 02 1A 80 47 AB DD 37 03 7F
            BC 00 1B FE 6F AB DF 37 03 7F BC 00 1B FE 6F AB 6A 0B 37 03 7F BC
            00 1B FE 7E AB E6 37 01 80 7A 00 1B FE 9E AB EA 37 01 8D 7A FE A2
            AB EC 37 01 80 7A 00 1C 0B 14 88 15 07 AA 6E 16 9D 21 FE 97 16 02
            E7 2E 2F 19 03
           )
      *FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE #.C-TYPEP-ALIST1
      C-GLOBAL-FUNCTION-CALL-FORM #.C-TYPEP-ALIST2 #:TYPEP SYMBOL-SUFFIX
      C-FUNCALL-INLINE C-TYPEP-ALIST3 LAMBDA #:TYPEP DEFTYPE-EXPANDER TYPEP
      QUOTE C-FORM DEFSTRUCT-DESCRIPTION %STRUCTURE-TYPE-P CLOS::CLASS
      CLOS::CLASS-P CLOS:CLASS-NAME CLOS::SUBCLASSP CLOS:CLASS-OF
      LOAD-TIME-VALUE CLOS:FIND-CLASS C-TYPEP SATISFIES 2.
      "~S: argument to SATISFIES must be a symbol: ~S"
      "~S: Argument zu SATISFIES muß Symbol sein: ~S"
      "~S : L'argument de SATISFIES doit être un symbole: ~S" LANGUAGE C-WARN
      MEMBER CASE (T) ((T NIL)) C-CASE EQL C-EQL NOT AND OR LET #:TYPEP
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-242 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FNODE-FIXUP-TABLE*) *FNODE-FIXUP-TABLE*
  )
#Y(#:TOP-LEVEL-FORM-243 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PASS2 REMOVE-OLD-DEFINITIONS
   #Y(PASS2
      #95Y(01 00 00 00 00 02 9C 10 00 6A 00 D9 AB DA 80 2E 00 DB AB 31 32 16 01
           1B 04 00 11 19 02 2D 04 14 6A 00 D9 AB DD 31 2E 16 01 1C 04 AA 2E 06
           F6 AA 2E 07 F6 6A 00 AB 6E 08 2F 09 16 01 6A 00 D9 AB E2 80 2E 00 62
           1A 0E 86 01 00 D9 AB 8E 32 04 AA 27 FF B3 82 01 AB 8C 94 6E 00 16 02
           1A FF BB
          )
      *FUNC* FNODE 2. ANODE COMPILE-TO-LAP 20. CONST-TO-LOADV
      INSERT-COMBINED-LAPS ASSEMBLE-LAP CREATE-FUN-OBJ 17.
  )  )
#Y(#:TOP-LEVEL-FORM-244 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CODE-PARTS*) *CODE-PARTS*
  )
#Y(#:TOP-LEVEL-FORM-245 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CODE-POSITIONS*) *CODE-POSITIONS*
  )
#Y(#:TOP-LEVEL-FORM-246 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(CONST-INDEX
      #98Y(02 00 01 00 00 09 3A 01 03 0E 00 F7 D9 AC DA 71 2E D9 AD DB 71 2E D9
           AE DC 71 2E 91 02 29 B0 7A 01 D9 B0 DA AD 31 2F 16 01 AF 7A 01 D9 B0
           DB AD 31 2F 16 01 1A 29 9C 5A 1B 25 92 05 22 AB B0 30 AA 1A 1C 82 02
           82 01 93 02 B1 8D 01 69 84 00 9D 5B 1B 70 AC B1 7A 01 30 AC AB B0 7A
           01 30 AC 15 19 06
          )
      *FUNC* FNODE 17. 18. 16.
  )  )
#Y(#:TOP-LEVEL-FORM-247 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   KCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(KCONST-INDEX
      #54Y(02 00 01 00 00 09 3A 01 03 0E 00 F7 AD 8E 83 1B D9 AC DA 71 2E D9 AD
           DB 71 2E 92 00 0C 93 00 A1 21 11 82 00 84 01 91 00 74 16 02 AD AD AD
           2C 03 04 19 04 9C 19 06
          )
      *FUNC* FNODE 9. 14. CONST-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-248 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   KCONST-INDEX-1 REMOVE-OLD-DEFINITIONS
   #Y(KCONST-INDEX-1
      #20Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 71 2E 2F 03 19 02) CONST
      1. 2. KCONST-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-249 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-CONST-CODE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONST-CODE
      #28Y(02 00 00 00 00 03 92 02 0D AC 02 21 0C DA AD AD 6F 03 60 02 19 03 C3
           19 03 C4 19 03
          )
      (NIL) (T) CONST KCONST-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-250 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(BCONST-INDEX
      #36Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 2E D9 AD DB 71 2E 1A
           04 82 00 84 01 93 00 A0 22 77 9C 19 05
          )
      *FUNC* FNODE 5. 6.
  )  )
#Y(#:TOP-LEVEL-FORM-251 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(GCONST-INDEX
      #36Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 2E D9 AD DB 71 2E 1A
           04 82 00 84 01 93 00 A0 22 77 9C 19 05
          )
      *FUNC* FNODE 7. 8.
  )  )
#Y(#:TOP-LEVEL-FORM-252 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(FCONST-INDEX
      #45Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 AC D9 AD DA 71 2E 37 03 8B B5 10
           AC 62 6F 03 AC AB 7A 02 0E 04 5C 0F 04 15 19 03 AC 62 2F 03 19 03
          )
      *FUNC* FNODE 17. CONST-INDEX *FNODE-FIXUP-TABLE*
  )  )
#Y(#:TOP-LEVEL-FORM-253 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CODE-PART*) *CODE-PART*
  )
#Y(#:TOP-LEVEL-FORM-254 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CODE-INDEX*) *CODE-INDEX*
  )
#Y(#:TOP-LEVEL-FORM-255 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *DEAD-CODE*) *DEAD-CODE*
  )
#Y(#:TOP-LEVEL-FORM-256 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *LABEL-SUBST*) *LABEL-SUBST*
  )
#Y(#:TOP-LEVEL-FORM-257 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CURRENT-VALUE*) *CURRENT-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-258 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *CURRENT-VARS*) *CURRENT-VARS*
  )
#Y(#:TOP-LEVEL-FORM-259 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   LABEL-SUBST REMOVE-OLD-DEFINITIONS
   #Y(LABEL-SUBST
      #66Y(02 00 00 00 00 03 AC 70 4F 62 1A 1A 6A 00 AD 32 01 01 5A 1A 0A 86 01
           00 AD AF AC 8D 0C 6E 9D 78 37 03 30 B0 82 01 AB 8C 94 6B 16 02 AB AD
           70 4F AD 70 4F 72 02 24 30 53 AC 62 30 53 AC D9 31 7F 19 03
          )
      *CODE-PARTS* CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-260 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FINISH-CODE-PART REMOVE-OLD-DEFINITIONS
   #Y(FINISH-CODE-PART
      #33Y(00 00 00 00 00 01 6A 00 2E 01 6A 00 6A 02 37 01 30 18 6A 03 31 8D 0F
           03 14 6A 04 37 01 30 18 19 01
          )
      *CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
  )  )
#Y(#:TOP-LEVEL-FORM-261 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EMIT-JMP REMOVE-OLD-DEFINITIONS
   #Y(EMIT-JMP
      #34Y(01 00 00 00 00 02 D8 AC 6A 01 7A 03 0E 02 5C 0F 02 6A 03 AA AD 30 4F
           79 AD AB 30 53 16 02 2D 04 19 02
          )
      JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-262 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   TRAVERSE-ANODE REMOVE-OLD-DEFINITIONS
   #Y(TRAVERSE-ANODE
      #1772Y(01 00 00 00 00 02 AB 62 1A 86 D9 00 0F 00 1A 24 6A 01 AA AC 2F 02
             AA AC AD AD 6A 03 37 03 70 B0 30 BA 0F 03 16 01 1A 0C 0E 00 1B 5F
             6A 01 8D 06 5F AA 2E 04 9B 0F 01 6A 05 70 14 AB DE AC 31 7E 16 01
             1A 86 67 E1 AB E2 31 2E 1A 82 4B AA 8D 06 57 E1 AB 8D 32 6F E3 CF
             1A 86 84 86 01 00 1F 6D 0E 00 1B 86 7D 6A 03 94 01 37 03 30 B4 9B
             5A 25 0E 86 69 9B 5B 77 E7 AB E8 71 2E 6A 08 62 1A 1A 16 04 1A 86
             5D D6 1A 29 86 01 00 E7 AB 8E 32 08 E7 AB E8 71 2E 9E 21 68 82 01
             AB 8C 94 6A 16 02 AA E7 AD E9 71 2E 6F 12 0E 01 5C 0F 01 92 00 55
             D7 0F 07 9C 1A 83 50 E7 9C 5B 77 2E 15 1A 0E E7 9C 5B 77 2E 16 1A
             06 E7 9C 5B 77 2E 17 14 60 02 1A 85 E1 D6 1A 15 E7 AB 2E 15 1A 80
             AB F1 AD F2 71 2E E7 AB E8 71 2E 92 00 69 D7 0F 07 F3 AB 8D 32 64
             AA E7 AD E9 71 2E 2F 12 16 02 1A 80 8E F4 F1 AE E8 80 2E 03 14 62
             6F 1D 60 02 1A 80 7E 64 20 AD AD AD 60 04 16 03 1A 80 72 91 02 71
             64 21 AC 9D 1A 11 AC AC AC 2C 03 1F 41 03 91 01 6C 64 22 AD AC 31
             8D 14 60 03 16 03 1A 80 50 64 25 AC AC 60 03 16 02 1A 80 45 9B 5B
             77 9C 5B 5B 77 9D 5B 5B 5B 77 AC 6A 08 F0 37 02 8B B5 3C F1 AD E2
             8D 2E FF 79 00 0F 07 F1 AD E9 8D 2E FF 91 F1 AD 64 1E 8D 2E FF AE
             AA F1 AE 64 23 71 2E 2F 24 41 02 91 01 FF B8 64 26 9C 14 60 02 16
             02 14 0E 01 5C 0F 01 AC 60 01 1A 80 91 16 03 1A 85 44 64 27 F1 AE
             E8 80 2E 03 14 62 6F 1D 60 02 1A 80 71 64 28 AD AD AD 60 04 16 03
             1A 80 65 91 02 71 64 29 AC 9D 1A 11 AC AC AC 2C 03 1F 41 03 91 01
             6C 64 2A AD AC 31 8D 14 60 03 16 03 1A 80 43 64 2B AC AC 60 03 16
             02 1A 39 9B 5B 77 9C 5B 5B 77 9D 5B 5B 5B 77 AC 6A 08 F0 37 02 8B
             B5 35 F1 AD E9 8D 2E FF 9B F1 AD 64 1E 8D 2E FF B9 AA F1 AE 64 23
             71 2E 2F 24 41 02 91 01 44 64 2C AB 60 02 16 02 14 0E 01 5C 0F 01
             AC 0E 08 5C 0F 08 16 03 1A 84 B1 16 03 1A 84 AC F4 AB 62 6F 1D 7A
             02 0E 01 5C 0F 01 00 0F 07 AA 60 01 1A 2E 9B 5B 77 AA 6A 08 F0 37
             02 8C B5 60 16 01 1A 84 87 9B 5B 77 AA 6A 08 F0 37 02 8B B5 18 64
             27 AB 62 6F 1D 7A 02 0E 01 5C 0F 01 AA 0E 08 5C 0F 08 16 01 1A 84
             63 16 01 1A 84 5E 03 2D 1A 81 AF 9B 5B 77 9C 5B 5B 77 9D 5B 5B 5B
             77 2C 03 2F 14 27 FD 6A 1A 84 43 64 32 AB 7A 02 0E 01 5C 0F 01 16
             01 1A 84 34 9B 5B 77 9C 5B 5B 77 6F 30 AA 64 31 8F 01 30 61 16 01
             1A 84 1F 9B 5B 77 62 6E 33 9D 5A 25 34 19 03 35 1A 06 03 35 1A 09
             03 36 14 AC 9D 1A 05 03 37 14 AB 9E 14 60 03 1A 01 00 14 0E 01 5C
             0F 01 6A 38 9E 5B 77 AB AB 30 4F 79 AB AB 30 53 16 03 6A 38 AA AC
             30 4F 79 AC AB 30 53 16 02 2D 39 6A 05 70 14 AB DE AC 31 7E 16 01
             9B 0F 01 16 02 1A 83 C2 16 01 1A 83 BD 93 00 AA 23 3A 75 AA 23 3B
             71 16 01 1A 83 1B 16 01 1A 83 A9 16 01 1A 83 25 37 05 A0 5B 5A F9
             70 64 9C 5B 5B 5B 78 9D 5B 5B 77 62 1A 14 86 01 00 77 94 01 AE 37
             06 71 5D AB B0 AC 30 66 16 02 82 01 AB 8C 94 68 16 02 64 3F AC 62
             6F 40 AD A0 5B 5B 5B 7B 03 0E 01 5C 0F 01 16 02 9B 5B 5B 78 62 1A
             12 86 01 00 6A 38 AA AC 30 4F 79 AC AB 30 53 16 02 82 01 AB 8C 94
             6A 16 02 2D 39 1A 82 C4 9B 5B 77 9C 5B 5B 77 1A 33 64 25 AC AC 60
             03 16 02 1A 3C AA 9D 5A 78 2F 24 41 02 91 01 6B 64 26 AB 60 02 16
             02 1A 28 03 42 1A 24 6A 41 F3 AB E2 31 2E 16 01 1B 71 03 43 1A 15
             82 01 9C 5A 1C 7A 9C 5A 20 4F 93 01 0E 41 21 61 E3 64 44 2F 0D 14
             0E 01 5C 0F 01 77 64 45 8E 02 0D D6 0F 07 64 46 62 2F 47 14 60 01
             1A 03 00 0F 07 0F 08 16 02 1A 82 CC 64 48 9C 5B 77 6E 15 9D 5B 5B
             77 60 03 1A 82 8E 64 49 9C 5B 77 9D 5B 5B 77 6E 2E 60 03 1A 82 70
             9B 5A 14 9C 5B 77 6E 2E 60 02 1A 82 63 03 4A 1A 82 5E 9B 5B 77 9C
             5B 5B 5B 77 F1 AC 64 1E 8E 2E 05 E3 64 4B 2F 0D AA F1 AD 64 23 71
             2E 2F 24 41 02 92 01 05 E3 64 4C 2F 0D 93 04 AB A1 5B 5B 5B 5B 7B
             02 0E 01 5C 0F 01 93 04 24 4D 11 0E 01 77 AF 70 97 AB AB 30 4F 79
             AB AB 30 53 16 03 00 0F 07 0F 08 16 04 1A 82 44 9B 5B 5B 77 64 4E
             9D 5B 77 6E 2E AC 7A 03 0E 01 5C 0F 01 77 AA AC 30 4F 79 AC AB 30
             53 16 03 1A 82 22 9B 5B 5B 77 9C 5B 77 64 4F AB E2 80 2E 00 2F 24
             41 02 64 50 AC AC 60 03 16 02 1A 81 4F 64 51 9C 5B 77 2E 16 1A 18
             9B 5B 5B 1B 55 9B 5B 77 64 4F AB 31 32 16 01 1B 66 64 51 9C 5B 77
             2E 2E 14 60 02 1A 81 28 64 52 9C 5B 77 6E 2E 9D 5B 5B 7B 02 0E 01
             5C 0F 01 9B 5B 78 62 1A 10 86 01 00 AC AB 30 4F 79 AB AB 30 53 16
             01 82 01 AB 8C 94 6C 16 02 1A 81 AE 9B 5B 5B 5B 77 9C 5B 77 64 53
             AB E2 80 2E 00 2F 24 41 02 64 54 AC AC A0 5B 5B 77 60 04 16 02 1A
             80 D6 64 55 9C 5B 77 2E 17 1A 19 9B 5B 5B 5B 1B 4F 9B 5B 77 64 53
             AB 31 32 16 01 1B 65 64 55 9C 5B 77 2E 2E 14 9D 5B 5B 77 60 03 1A
             80 AA AA 0E 01 5C 0F 01 D6 0F 07 64 46 00 1A 80 90 9B 5B 77 E7 AB
             E8 80 2E 00 9C 5B 5B 77 6A 41 6F 30 62 AC 64 56 71 2A 1A 0E 93 00
             AA 62 7A 02 AD 7F A3 02 16 01 82 00 9B 20 6F 16 01 AA 7F A5 00 64
             57 80 2A 01 64 58 AC 9D 79 62 6F 40 AD AD A1 5B 5B 5B 61 04 16 02
             F6 14 0E 01 5C 0F 01 9B 5B 5B 5B 78 62 1A 10 86 01 00 AC AB 30 4F
             79 AB AB 30 53 16 01 82 01 AB 8C 94 6C 16 02 1A 80 E2 AA 0E 01 5C
             0F 01 D6 0F 07 1A 80 B9 AA 0E 01 5C 0F 01 1A 80 CD AA 0E 01 5C 0F
             01 D7 0F 07 64 46 02 14 6F 47 60 01 0F 08 1A 80 B7 9B 14 0E 01 5C
             0F 01 2D 39 1A 32 0E 07 1C FC 88 6A 07 23 13 FC E4 93 00 AA 23 3C
             FC EC AA 23 3D FC E7 16 01 93 00 AA 23 3B 05 AA 24 3D FC DF 16 01
             64 3E 0E 01 5C 0F 01 9B 5B 77 2E 04 02 0F 00 1A 80 74 AA 0E 01 5C
             0F 01 9B 5B 1A 1E AA 0E 01 5C 0F 01 9B 5B 77 AB AB 30 4F 79 AB AB
             30 53 16 02 1A 80 53 AA 0E 01 5C 0F 01 9B 5B 77 AB AB 30 4F 79 AB
             AB 30 53 16 02 1A 07 9B 14 0E 01 5C 0F 01 00 0F 07 0F 08 1A 2F 9B
             14 0E 01 5C 0F 01 D7 0F 07 1A 06 AA 0E 01 5C 0F 01 00 0F 08 1A 18
             AA 0E 01 5C 0F 01 64 59 6A 08 37 05 31 50 0F 08 1A 06 E3 03 5A 14
             2F 0D 82 01 AB 8C 94 F9 72 00 19 04
            )
      *DEAD-CODE* *CODE-PART* LABEL-SUBST *LABEL-SUBST* EMIT-JMP *CODE-PARTS*
      CODE-PART *CURRENT-VALUE* *CURRENT-VARS* ANODE 3. TRAVERSE-ANODE "ITEM"
      COMPILER-ERROR
      #S(HASH-TABLE EQ (UNBIND1 . 1625.) (UNWIND-PROTECT-CLEANUP . 1614.)
         (LIST* . 1602.) (LIST . 1602.) (CONS . 1602.) (SVSET . 1588.)
         (SVREF . 1588.) (SYMBOL-FUNCTION . 1588.) (CONSP . 1588.)
         (ATOM . 1588.) (CDR . 1588.) (CAR . 1588.) (EQ . 1588.) (NOT . 1588.)
         (MVCALL . 1588.) (LIST-TO-MV . 1588.) (MV-TO-LIST . 1588.)
         (NV-TO-STACK . 1588.) (MV-TO-STACK . 1588.) (STACK-TO-MV . 1588.)
         (UNLIST* . 1588.) (UNLIST . 1588.) (PUSH-UNBOUND . 1588.)
         (APPLY . 1588.) (FUNCALL . 1588.) (CALLCKEY . 1588.) (CALLC . 1588.)
         (CALLSR . 1588.) (CALLS2 . 1588.) (CALLS1 . 1588.)
         (MAKE-VECTOR1&PUSH . 1588.) (POP . 1588.) (PUSH . 1588.)
         (PROGV . 1588.) (PUSH-NIL . 1588.) (UNWIND-PROTECT-CLOSE . 1566.)
         (UNWIND-PROTECT-OPEN . 1543.) (CATCH-OPEN . 1543.) (JSR . 1533.)
         (JMP . 1522.) (THROW . 1466.) (BARRIER . 1466.) (RET . 1466.)
         (T . 1444.) (STORE . 1435.) (HANDLER-BEGIN . 1435.)
         (UNWIND-PROTECT-NORMAL-EXIT . 1435.) (CATCH-CLOSE . 1435.)
         (TAGBODY-CLOSE . 1435.) (BLOCK-CLOSE . 1435.) (MVCALLP . 1435.)
         (VALUES1 . 1435.) (SKIPSP . 1435.) (SKIPI . 1435.) (SKIP . 1435.)
         (VALUES0 . 1423.) (HANDLER-OPEN . 1312.) (TAGBODY-CLOSE-NIL . 1297.)
         (NIL . 1297.) (GO . 1262.) (TAGBODY-OPEN . 1171.)
         (RETURN-FROM . 1141.) (BLOCK-OPEN . 1069.) (BOUNDP . 983.)
         (JMPIFBOUNDP . 983.) (APPLYP . 978.) (FUNCALLP . 978.) (CALL2 . 965.)
         (CALL1 . 965.) (CALL0 . 965.) (CALL . 949.) (CALLP . 1649.)
         (COPY-CLOSURE . 933.) (VENV . 819.) (JMPHASH . 717.)
         (JMPIFNOT1 . 1477.) (JMPIF1 . 1477.) (JMPIFNOT . 1477.)
         (JMPIF . 1477.) (UNWINDSP . 573.) (UNWIND . 536.) (BIND . 531.)
         (SETVALUE . 490.) (GETVALUE . 473.) (SET . 374.) (GET . 215.)
         (GCONST . 86.) (BCONST . 78.) (FCONST . 70.) (CONST . 2.)
        )
      CONST 1. 2. MAKE-CONST-CODE FALSE TRUE FCONST-INDEX BCONST-INDEX
      GCONST-INDEX #.#'EQ VAR 4. FNODE GETVALUE KCONST-INDEX 9.
      ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK LOADI LOAD
      SETVALUE STOREIC STOREC STOREV STOREI STORE BIND KCONST-INDEX-1
      EXPAND-UNWIND SPDEPTH-DIFFERENCE 0. SKIPSP MAKE-LABEL
      #S(HASH-TABLE EQ (JMPIFNOT1 . 16.) (JMPIF1 . 9.) (JMPIFNOT . 5.)
         (JMPIF . 1.)
        )
      JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE *CODE-INDEX* FINISH-CODE-PART JMPIF
      JMPIF1 JMPIFNOT JMPIFNOT1 (VALUES1) JMPHASH CONST-INDEX *FUNC* (VENV)
      (NIL) VENV (NIL) :VALUE MAKE-CONST COPY-CLOSURE CALL (PUSH) VAR-CLOSUREP
      VAR-STACKZ JMPIFBOUNDP BLOCK-OPEN BLOCK RETURN-FROM-I RETURN-FROM
      TAGBODY-OPEN TAGBODY GO-I GO LIST VECTOR HANDLER-OPEN #.#'SYMBOLP
      "LISTITEM"
  )  )
#Y(#:TOP-LEVEL-FORM-263-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   NOTE-REFERENCES REMOVE-OLD-DEFINITIONS
   #Y(NOTE-REFERENCES
      #150Y(01 00 01 00 00 08 3C 01 9D 5A 25 00 80 85 9D 1A 10 9D 5B 77 AC AB
            30 4F 79 AB AB 30 53 16 02 9D 5B 5B 77 9D 1A 29 9D 5B 5B 78 62 AB
            8B 94 80 60 86 01 00 AD AB 30 4F 79 AB AB 30 53 16 01 82 01 1A 69
            9D 1A 07 9D 5B 1A 03 9D 5B 5B 5B 77 9E 14 AB 30 4F 79 AB AB 30 53
            19 05 9D 5B 78 62 AB 8B 94 2E 86 01 00 AE AB 30 4F 79 AB AB 30 53
            16 01 82 01 1A 6A 9D 5B 5B 5B 78 62 1A 10 86 01 00 AE AB 30 4F 79
            AB AB 30 53 16 01 82 01 AB 8C 94 6C 00 19 05 00 19 03
           )
      #S(HASH-TABLE EQ (HANDLER-OPEN . 104.) (TAGBODY-OPEN . 78.)
         (JMPTAIL . 61.) (JSR . 57.) (BLOCK-OPEN . 57.)
         (UNWIND-PROTECT-CLOSE . 54.) (UNWIND-PROTECT-OPEN . 54.)
         (CATCH-OPEN . 54.) (JMPIFBOUNDP . 54.) (JMPHASH . 26.)
         (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.) (JMPCASE . 5.) (JMP . 2.)
  )  )  )
#Y(#:TOP-LEVEL-FORM-263-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REMOVE-REFERENCES REMOVE-OLD-DEFINITIONS
   #Y(REMOVE-REFERENCES
      #201Y(01 00 01 00 00 08 3C 01 62 9E 5A 25 00 80 B7 9E 1A 19 9E 5B 77 AA
            AE AC 70 4F 37 07 71 4F 30 53 AA AC 37 03 7F B9 01 16 01 9E 5B 5B
            77 AA 9F 1A 35 9E 5B 5B 78 62 1A 17 86 01 00 14 AF AC 70 4F 37 07
            71 4F 30 53 AA AD 37 03 7F B9 02 82 01 AB 8C 94 65 16 02 1A 80 6E
            9E 1A 07 9E 5B 1A 03 9E 5B 5B 5B 77 AA A0 14 AC 70 4F 37 07 71 4F
            30 53 AA AC 37 03 7F B9 01 16 01 1A 80 4A 9E 5B 78 62 1A 17 86 01
            00 14 B0 AC 70 4F 37 07 71 4F 30 53 AA AD 37 03 7F B9 02 82 01 AB
            8C 94 65 16 02 1A 25 9E 5B 5B 5B 78 62 1A 17 86 01 00 14 B0 AC 70
            4F 37 07 71 4F 30 53 AA AD 37 03 7F B9 02 82 01 AB 8C 94 65 16 02
            15 19 03
           )
      #S(HASH-TABLE EQ (HANDLER-OPEN . 148.) (TAGBODY-OPEN . 111.)
         (JMPTAIL . 82.) (JSR . 78.) (BLOCK-OPEN . 78.)
         (UNWIND-PROTECT-CLOSE . 75.) (UNWIND-PROTECT-OPEN . 75.)
         (CATCH-OPEN . 75.) (JMPIFBOUNDP . 75.) (JMPHASH . 36.)
         (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.) (JMPCASE . 5.) (JMP . 2.)
  )  )  )
#Y(#:TOP-LEVEL-FORM-264
   #64Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 62 1A 0A 86 01 00 14 AD 63 30 66
        82 01 AB 8C 94 72 16 02 DA 8C 5F 15 AA DA 70 4F 8D 01 0E DB DC DD 6D 03
        06 DF DA DA 70 4F 2C 04 08 DA AB 31 79 C5 19 02
       )
   #.#'EQ
   #1=(NIL T CONST LOAD LOADI LOADC LOADV LOADIC STORE STOREI STOREC STOREV
       STOREIC GETVALUE SETVALUE POP VENV COPY-CLOSURE BOUNDP VALUES1
       MV-TO-LIST TAGBODY-CLOSE-NIL NOT EQ CAR CDR CONS ATOM CONSP
       SYMBOL-FUNCTION SVREF SVSET LIST LIST*
      )
   ONE-VALUE-OPS "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT ONE-VALUE-OPS
    (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
     (DOLIST (OP '#1#) (SETF (GETHASH OP HT) T)) HT
   ))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-265
   #104Y(00 00 00 00 00 01 37 05 C3 F9 70 64 D9 62 1A 0A 86 01 00 14 AD 62 30
         66 82 01 AB 8C 94 72 16 02 DA 62 1A 0A 86 01 00 14 AD DB 30 66 82 01
         AB 8C 94 72 16 02 DC 62 1A 0A 86 01 00 14 AD DD 30 66 82 01 AB 8C 94
         72 16 02 DE 8C 5F 15 AA DE 70 4F 8D 01 0E DF E0 E1 6D 03 0A E3 DE DE
         70 4F 2C 04 0C DE AB 31 79 C9 19 02
        )
   #.#'EQ
   #1=(NIL PUSH-NIL T CONST LOAD LOADI LOADC LOADV LOADIC GETVALUE POP JSR
       JMPTAIL BARRIER VENV COPY-CLOSURE CALL CALL0 CALLS1 CALLS2 CALLSR
       FUNCALL PUSH-UNBOUND JMPIFBOUNDP BOUNDP VALUES0 STACK-TO-MV MVCALL
       BLOCK-OPEN TAGBODY-OPEN TAGBODY-CLOSE-NIL GO GO-I UNWIND-PROTECT-OPEN
       UNWIND-PROTECT-CLOSE HANDLER-OPEN HANDLER-BEGIN LIST
      )
   #2=(STORE STOREI STOREC STOREV STOREIC SETVALUE BIND PROGV PUSH
       MAKE-VECTOR1&PUSH CALL1 CALL2 CALLC CALLCKEY APPLY UNLIST UNLIST*
       VALUES1 LIST-TO-MV MVCALLP CATCH-OPEN NOT EQ CAR CDR CONS ATOM CONSP
       SYMBOL-FUNCTION SVREF SVSET LIST*
      )
   ONE
   #3=(MV-TO-STACK NV-TO-STACK MV-TO-LIST RETURN-FROM RETURN-FROM-I THROW
       UNWIND-PROTECT-NORMAL-EXIT
      )
   ALL FOR-VALUE-TABLE "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT FOR-VALUE-TABLE
    (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
     (DOLIST (OP '#1#) (SETF (GETHASH OP HT) 'NIL))
     (DOLIST (OP '#2#) (SETF (GETHASH OP HT) 'ONE))
     (DOLIST (OP '#3#) (SETF (GETHASH OP HT) 'ALL)) HT
   ))
   WARN
  )
#Y(#:TOP-LEVEL-FORM-266 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SIMPLIFY REMOVE-OLD-DEFINITIONS
   #Y(SIMPLIFY
      #945Y(01 00 00 00 00 02 93 01 9B 5A 25 00 80 71 9B 5B 77 D9 37 01 31 7A
            1A 80 6A C6 1A 80 66 93 00 23 02 0B 9B 5B 77 D9 37 01 71 7A 23 03
            6C 93 00 23 04 0C 9B 5B 5B 77 D9 37 01 71 7A 23 03 5B C8 1A 80 41
            C8 1A 3E 00 1A 3B C6 1A 38 9D 5A 5A 25 09 80 44 AC E2 9F 5A 5B 77
            60 02 1A 82 A4 AC CE 1A 82 9F 9D 5A 5A 25 0C 32 AC D0 1A 82 94 AC
            D1 1A 82 8F 9D 5A 5B 77 AD E7 30 AA AD CD 1A 82 37 DE DF 2F 08 F6
            62 62 AE 94 00 62 AF 9D 1F 82 A4 9D 5B F7 92 00 FF B5 AA 23 05 48
            9C 1F 82 92 9D 5A 5A 25 10 82 8B 9C 5A 77 6A 11 62 8C 65 82 81 AD
            9D F9 1A 81 1D 9C 5A 5A 25 12 82 74 9C 5B 1F 82 6F 9C 5B 77 EB 8E
            02 82 67 AD 9D 5B F9 1A 81 02 AC D7 1A 80 F7 AC 03 15 1A 80 F1 9D
            5A 5B 77 9D 5A 5A 25 16 80 70 9D 5A 5B 77 AE E2 AC AE 32 02 35 1A
            81 77 9D 5A 5B 77 9E 5A 5B 5B 77 AF EF AD AD B0 32 02 35 1A 80 87
            AD 03 1A 1A 81 8F AA 23 19 76 AC F3 30 AA AD E2 96 02 7A 02 30 AA
            1A 81 9F AA 23 19 81 0D AD E2 AC 31 8E 1A 81 6C AE 03 1C 1A 81 30
            AE CD 1A 81 14 AD 03 1D 1A 80 BE 9D 5A 5B 77 AB AB 8F 01 30 70 16
            02 1A 81 E2 9D 5A 5B 77 23 18 FF B8 16 01 1A 81 D5 9C 5A 5A 25 1E
            81 CE 9C 5A 5B 77 9E 5A 5B 77 9F 5A 5B 5B 77 AF EF F1 AF AF 32 03
            35 1A 14 9C 5A 5B 77 9E 5A 5B 77 9F 5A 5B 5B 77 AF EF AE AE 32 02
            35 14 9E 14 60 03 1A 81 52 9D 5A 5B 77 9F 5A 5B 77 AF 03 1F 1A 81
            3C 9C 5A 77 AA 23 1F 6B 16 01 1A 81 81 AB 64 21 30 AA AC 03 22 1A
            81 47 93 01 64 20 8D 02 6E 93 01 64 23 8E 02 81 67 AC 03 24 14 30
            AA AC 9D 5B 14 30 AC 1A 81 2C AE 03 27 1A 80 90 9C 5A 77 AA 23 25
            80 4D AA 24 0A 2A 9D 5A 5B 77 AA 23 19 11 AD E2 96 02 7A 02 30 AA
            AE 03 28 14 30 AA 1A 80 8C 9E 5B 1F 51 9E 5B 77 64 26 8E 02 49 16
            02 1A 81 1C 16 01 1A 81 17 AC 03 29 1A 80 E2 9C 5A 77 6A 11 62 8B
            65 71 9C 5A 77 AA 23 2A 04 AA 24 2B 07 AE 9E 5B FA 1A 80 83 16 01
            1A 80 F1 9D 5A 5B 77 9D 5A 5A 25 2C 80 5B AE 03 2D 14 AD 9E 1A 15
            9D 5A 5B 77 AB AB 8F 01 30 6E AB AB 90 01 2F 26 AE CD 14 AC 9F 14
            32 01 36 14 60 02 14 30 AA AE 9F 5B 1A 16 9D 5A 5B 77 AA AC 8F 01
            30 FE AD AA AC 8F 01 2F FE AC AF 9F 5B FB 14 30 AC 7D 06 16 02 1A
            FD F5 AD 64 2D 9D 14 60 02 14 30 AA AD 9E 5B 1A 18 9D 5A 77 6A 11
            62 8C 65 19 AD 64 2E 30 AA AD 03 2D 14 96 02 7A 02 9F 5C 14 30 AC
            7D 05 16 01 1A FD C4 16 01 1A 80 64 9C 5A 77 AA 24 2F 80 5A 9D 5A
            5B 77 9F 5A 5B 77 AF 03 2F 14 AD AD 72 02 35 60 02 14 30 AA AF 94
            05 30 AC 7D 07 16 03 1A FD 95 9D 5A 78 64 30 8E 02 32 AC 03 31 14
            30 AA 7D 04 1A FD 82 9D 5A 77 6A 32 AC 7F 65 00 9D F9 9C F8 1A FD
            72 AD D9 AD 31 7E 9E FC 16 01 1A 25 16 01 1A FD 5C 03 18 1A 80 5E
            16 01 9D 20 56 92 02 13 14 D9 37 01 71 7A AB 9C 21 07 AA 23 03 55
            92 01 52 16 01 16 04 91 00 56 16 01 62 9F 5A 77 24 33 80 54 9F 5B
            F6 1F 80 4E 9B 5A 77 23 34 14 9F 5B 5A 77 24 0A 80 40 9F 5B 5B F6
            1F 3A 9B 5A 77 24 34 34 9B 5A 5B 77 9C 5A 5B 5B 77 AC A2 5B 21 FF
            A2 A1 5B 5A 5B 5A 14 B1 64 35 AE AF AE 72 02 35 AF 7A 04 30 AA 16
            03 93 00 2E 36 93 04 2E 37 AE 94 01 30 AC 7C 02 16 01 15 19 03
           )
      #S(HASH-TABLE EQ (THROW . 60.) (RET . 60.) (RETURN-FROM-I . 60.)
         (RETURN-FROM . 60.) (JMPTAIL . 57.) (GO-I . 57.) (GO . 57.)
         (BARRIER . 57.) (JMPHASH . 54.) (JMPCASE1-FALSE . 17.)
         (JMPCASE1-TRUE . 17.) (JMPCASE . 17.) (JMP . 2.)
        )
      FOR-VALUE JMPCASE1-TRUE ALL JMPCASE1-FALSE ONE SIMPLIFY "AT-END"
      COMPILER-ERROR
      #S(HASH-TABLE EQ (SVREF . 13.) (CONS . 13.) (EQ . 13.) (POP . 13.)
         (STACK-TO-MV . 2.) (LIST* . 2.) (LIST . 2.) (CONSP . 95.) (ATOM . 95.)
         (SYMBOL-FUNCTION . 95.) (CDR . 95.) (CAR . 95.) (NOT . 95.)
         (LIST-TO-MV . 95.) (MV-TO-LIST . 95.) (VALUES1 . 95.) (VALUES0 . 95.)
         (BOUNDP . 95.) (VENV . 95.) (GETVALUE . 95.) (LOADIC . 95.)
         (LOADV . 95.) (LOADC . 95.) (LOADI . 95.) (LOAD . 95.) (CONST . 95.)
         (T . 95.) (NIL . 95.)
        )
      SKIP (SKIP 1.)
      #S(HASH-TABLE EQ (STACK-TO-MV . 11.) (LIST-TO-MV . 6.) (VALUES0 . 1.)
         (VALUES1 . 72.)
        )
      (NIL) (CAR) (POP)
      #S(HASH-TABLE EQ (LIST* . 595.) (PUSH-UNBOUND . 553.)
         (NV-TO-STACK . 412.) (MV-TO-STACK . 380.) (PUSH . 315.) (POP . 279.)
         (SKIPSP . 256.) (SKIPI . 184.) (SKIP . 56.) (NOT . 18.) (VALUES1 . 2.)
        )
      ONE-VALUE-OPS #S(HASH-TABLE EQ (CONSP . 27.) (ATOM . 22.) (NOT . 2.))
      (NOT) (CONSP) (ATOM)
      #S(HASH-TABLE EQ (STORE . 91.) (NV-TO-STACK . 402.) (PUSH . 61.)
         (LOAD . 106.) (SKIPI . 16.) (SKIP . 2.)
        )
      SKIPI 0. 1. (POP) (POP) NV-TO-STACK (VALUES1)
      #S(HASH-TABLE EQ (SKIPSP . 25.) (SKIPI . 2.) (SKIP . 111.)) SKIPSP
      (STORE 0.) (VALUES1) (SKIP 1.) (PUSH) (VALUES1) POP (LOAD 0.) (STORE 0.)
      (STORE 0.) (PUSH) VALUES0 STACK-TO-MV
      #S(HASH-TABLE EQ (NIL . 78.) (VALUES0 . 78.) (STACK-TO-MV . 10.))
      PUSH-NIL (PUSH) PUSH-UNBOUND (1.) (CONS) FOR-VALUE-TABLE RET JSR JMPTAIL
      REMOVE-REFERENCES NOTE-REFERENCES
  )  )
#Y(#:TOP-LEVEL-FORM-267 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-PART REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-PART
      #40Y(01 00 00 00 00 02 AB 6E 00 91 00 03 00 19 03 14 70 4F 62 1A 0C 86 01
           00 14 8E 0C 03 AA 2E 01 82 01 AB 8C 94 70 00 19 05
          )
      SIMPLIFY OPTIMIZE-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-268 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-LABEL REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-LABEL
      #204Y(01 00 03 00 00 11 3A 03 07 AE D8 37 01 80 7A 03 3A 02 07 6A 01 AE
            81 01 01 02 3A 01 04 AC 7F 9E 01 AE 9D 5B 22 80 90 91 04 80 93 00
            19 05 62 1A 0B AA 93 05 82 06 B1 6F 04 7F A4 00 9F 20 72 6A 01 AA
            B1 62 32 01 02 16 01 AA 62 1A 1E 86 01 00 14 D8 37 01 71 7A 6A 01
            AB 72 01 01 92 00 08 AC AC AC 37 01 27 FF 9F 16 02 82 01 AB 8C 94
            5E 00 19 09 AD 6A 01 AC 32 01 01 78 30 AC 6A 01 AA AC 62 32 01 02
            16 01 AD 30 9E 78 92 00 05 14 D8 B2 31 7E 16 01 B0 62 30 53 AE 2E
            06 19 07 93 00 AA 8E 0C 11 6A 01 AB 32 01 01 5A 77 24 05 06 AF AB
            8E 01 FF BE 00 19 07 DA 2E 03 92 04 FF 6D 14 70 4F 92 00 FF 69 9B
            5B 1C 54 00 19 06
           )
      CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES
      JMP OPTIMIZE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-269 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-SHORT REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-SHORT
      #561Y(01 00 01 00 00 08 3A 01 07 6A 00 AD 81 01 01 01 AB 70 9E 94 00 92
            00 82 15 AD 9D 22 81 F4 93 03 9B 5A 25 01 81 EA AC AB 2F 02 6A 00
            AA B2 62 32 01 02 16 01 AA B1 AC 70 4F 37 07 71 4F 30 53 AA 2E 03
            16 01 1A 81 C6 62 AE 70 4F 62 1A 80 D8 86 01 00 14 8E 0C 80 CE 6A
            00 AB 72 01 01 93 00 9B 5A 25 04 80 BE AB B2 30 AA AC B1 30 4F 79
            B1 AB 30 53 16 01 AC B0 30 4F 79 B0 AB 30 53 16 01 AC 83 04 16 02
            1A 80 9E 7C 00 92 01 80 7A 1A 80 67 C8 1A 80 7D C9 1A 80 79 9B 5B
            77 9C 5B 5B 77 93 02 C8 59 14 93 03 C9 59 14 B6 9F 22 17 A5 F9 B0
            B5 30 4F 79 B5 AB 30 53 16 01 B0 83 08 93 0B 24 05 02 7D 01 B6 9E
            22 17 A4 F8 B0 B4 30 4F 79 B4 AB 30 53 16 01 B0 83 08 93 0B 24 06
            02 7D 00 AD DF 37 01 71 7A 23 08 02 7C 01 AC DF 37 01 71 7A 24 08
            FF 93 92 01 10 92 00 0D E1 A1 5B 79 B0 AB 30 AC 16 01 7C 01 F6 AF
            91 02 FF 84 91 01 FF 84 CD 14 AF AF 7A 03 30 AA 16 06 1A 09 E3 2E
            0C 16 02 1A 02 16 02 82 01 AB 8C 94 FF 23 16 02 AE E5 B0 70 4F 37
            05 71 50 30 53 AE 2E 03 AA 62 1A 19 86 01 00 6A 00 AB 72 01 01 2E
            0E AA 2E 0F AA 6A 00 AC 72 01 01 2F 10 82 01 AB 8C 94 63 16 06 1A
            80 B0 9B 5B 77 9C 5B 5B 77 AD 9D 21 05 AD 9C 22 FE D5 16 03 1A 80
            9B 62 AC 62 30 AC AB 70 4F 62 1A 80 57 EC B2 72 00 17 AA 62 1A 09
            86 01 00 14 AF 2F 15 82 01 AB 8C 94 73 16 02 6A 00 AB 94 03 72 02
            24 AB AF AC 32 01 02 16 03 AE AC B0 70 4F 37 07 71 4F 30 53 AB 83
            03 16 01 1A 1B 86 01 00 14 8E 0C 14 AA B2 8D 01 0F 6A 00 AB 72 01
            01 9B 5A 77 23 13 FF AD 16 01 82 01 AB 8C 94 5F 16 02 AC AC 30 AC
            92 00 26 14 62 1A 0D 86 01 00 6A 00 AB 72 01 01 2E 16 82 01 AB 8C
            94 6F 16 02 AB 2E 03 19 06 9B 5B 77 AC 9C 22 FE 1B 16 01 00 19 06
            16 01 AD 9D 21 05 94 03 9D 22 13 9E 5A 77 23 11 0D AD 9D 21 FF 51
            9E 5B 5A 77 24 12 FF 49 00 19 05
           )
      *CODE-PARTS*
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 318.) (JMPCASE1-TRUE . 318.)
         (JMPCASE . 318.) (JMP . 479.)
        )
      LABEL-SUBST OPTIMIZE-LABEL
      #S(HASH-TABLE EQ (JMPHASH . 185.) (JMPCASE1-FALSE . 53.)
         (JMPCASE1-TRUE . 53.) (JMPCASE . 53.) (JMP . 2.)
        )
      JMPCASE1-TRUE JMPCASE1-FALSE FOR-VALUE ALL (VALUES1) JMPCASE
      OPTIMIZE-SHORT COMPILER-ERROR #.#'INTEGERP SIMPLIFY OPTIMIZE-VALUE
      OPTIMIZE-JMPCASE JMPHASH HANDLER-OPEN JMP #.#'COPY-LIST NOTE-REFERENCES
      OPTIMIZE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-270 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   GET-BOOLEAN-VALUE REMOVE-OLD-DEFINITIONS
   #Y(GET-BOOLEAN-VALUE
      #183Y(01 00 00 00 00 02 62 46 00 80 A5 1A 16 A0 5A 5A 25 01 80 9A C5 47
            1A 80 97 C6 47 1A 80 92 9E 58 F9 82 05 A0 20 67 92 05 80 84 00 2A
            01 00 0B 00 00 AA AE 6C 04 02 B1 70 4F 62 1A 80 6B 6A 05 AB 32 01
            01 77 9B 5A 25 06 2B 00 16 05 47 1A 80 60 9B 5B 5B 5A 1C 73 9B 5B
            5B 5A 1A 11 B4 9C 5B 5A 22 03 DB 9F 33 B4 9C 5B 5B 5A 22 0F C5 14
            9F 33 16 01 1A 32 DF 2E 08 16 01 1A 2B 16 01 1A 27 86 01 00 14 8D
            0C FF B6 9B 5A 25 09 17 00 16 04 47 1A 1E C5 19 04 C6 19 04 AA 23
            03 76 AA 23 02 75 00 19 04 DF 2E 08 82 01 AB 8C 94 53 16 04 00 47
            14 91 01 64 15 19 03
           )
      VALUE
      #S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 15.) (CATCH-CLOSE . 15.)
         (TAGBODY-CLOSE . 15.) (BLOCK-CLOSE . 15.) (VALUES1 . 15.)
         (SETVALUE . 15.) (STOREIC . 15.) (STOREC . 15.) (STOREV . 15.)
         (STOREI . 15.) (STORE . 15.) (SKIPSP . 15.) (SKIPI . 15.) (SKIP . 15.)
         (UNBIND1 . 15.) (NOT . 12.) (LIST* . 7.) (LIST . 7.) (CONS . 7.)
         (CONST . 7.) (T . 7.) (TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.)
         (NIL . 2.)
        )
      FALSE TRUE
      #Y(GET-BOOLEAN-VALUE-NEU
         #29Y(01 00 00 00 00 02 07 00 01 1C 09 AB 07 00 01 22 09 00 19 02 9C 0C
              00 01 19 02 00 48 01
             )
         NIL NIL
        )
      *CODE-PARTS*
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 20.) (JMPCASE1-TRUE . 20.)
         (JMPCASE . 20.) (JMP . 8.)
        )
      GET-BOOLEAN-VALUE COMPILER-ERROR
      #S(HASH-TABLE EQ (CATCH-OPEN . 1.) (BLOCK-OPEN . 1.) (JMPIFBOUNDP . 1.))
  )  )
#Y(#:TOP-LEVEL-FORM-271 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-JMPCASE REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-JMPCASE
      #145Y(02 00 00 00 00 03 9C 5A 77 23 00 80 64 00 19 03 AD D9 AD 94 06 6E
            02 7A 03 30 AA AB AF AD 70 4F 37 06 DB 71 4F 30 53 AD 2E 04 AB DD
            37 01 71 7A 2E 06 19 05 E0 AE 94 05 1A 21 9B 5A 5A 25 09 1E AA 94
            01 9C F9 9B F8 16 02 1A 10 B0 2E 04 B1 2E 06 19 08 AB 82 01 14 30
            AC 84 02 9B 20 5C AC 8E 8B 08 B0 D8 AF B1 7A 03 30 AA AC 8D 89 5D
            00 19 08 9C 5A 5B 77 9D 5A 5B 5B 77 AB 9C 21 FF 91 AB DF 37 01 8D
            7A 08 AA DF 37 01 8E 7A FF A6 00 19 05
           )
      JMPCASE JMP GET-BOOLEAN-VALUE 1. OPTIMIZE-PART CODE-PART OPTIMIZE-SHORT
      FOR-VALUE 0.
      #S(HASH-TABLE EQ (NOT . 20.) (UNWIND-PROTECT-CLEANUP . 1.)
         (CATCH-CLOSE . 1.) (TAGBODY-CLOSE . 1.) (BLOCK-CLOSE . 1.)
         (VALUES1 . 1.) (SKIPSP . 1.) (SKIPI . 1.) (SKIP . 1.) (UNBIND1 . 1.)
  )  )  )
#Y(#:TOP-LEVEL-FORM-272 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-VALUE
      #233Y(01 00 01 00 00 08 3A 01 07 6A 00 AD 81 01 01 01 93 01 9B 5A 25 01
            80 CE AB B1 AD 70 4F 37 07 71 4F 30 53 AF E2 AE CE 7B 02 30 AA 93
            03 24 02 0D E4 A1 5B 79 B0 AB 30 AC 16 01 AF 2E 0D AF 2E 0E 9C 1A
            80 65 9B 5B 77 9C 5B 5B 77 93 02 24 02 09 AB DB 37 01 71 7A 24 04
            0E 93 02 24 05 15 AA DB 37 01 71 7A 23 04 0C AE DE 9F 5B 79 7F AA
            02 AF AF 2F 07 94 04 6E 08 AA 23 09 FF 9C AA 24 11 31 AC B1 AE 70
            4F 37 07 71 4F 30 53 AF E2 AD D5 7B 02 30 AA 93 03 24 05 0D EB A1
            5B 79 B0 AB 30 AC 16 01 AF 2E 0D AF 2E 0E 9D 14 2E 0F B0 2E 10 19
            07 00 19 07 AE E2 AD AD 7A 03 30 AA AB EC 37 01 71 7A 37 01 28 02
            08 FF 3D 94 03 6E 08 91 00 64 00 19 06 9B 5B 77 AA DB 37 01 8E 7A
            06 9C 5B 5B 5A 1C 66 00 19 05 00 19 04
           )
      *CODE-PARTS*
      #S(HASH-TABLE EQ (JMP . 189.) (JMPCASE1-FALSE . 46.)
         (JMPCASE1-TRUE . 46.) (JMPCASE . 46.)
        )
      JMPCASE1-TRUE FOR-VALUE ALL JMPCASE1-FALSE JMPCASE OPTIMIZE-JMPCASE
      GET-BOOLEAN-VALUE TRUE JMP (TRUE) (VALUES1) SIMPLIFY OPTIMIZE-PART
      OPTIMIZE-LABEL OPTIMIZE-SHORT FALSE (FALSE) (VALUES1) CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-273 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COALESCE REMOVE-OLD-DEFINITIONS
   #Y(COALESCE
      #125Y(00 00 01 00 00 07 3A 01 1B 62 D8 6A 01 70 14 1A 05 AB 83 02 84 01
            AB AB 90 01 32 75 16 02 AA 31 47 16 01 F7 00 2A 01 37 05 C5 F9 B1
            80 45 02 70 64 AD 62 1A 32 86 01 00 6A 01 AB 72 01 01 9B 1F 22 9B
            5B 1F 1E 9B 5B 5B 1F 19 93 00 9C 5B 77 9D 5B 5B 5A 7B 02 AC AB B0
            62 30 65 79 AB B0 AC 30 66 16 02 16 01 82 01 AB 8C 94 4A 16 02 00
            0B 01 00 AB 6C 03 01 AB 30 68 06 01 00 19 04
           )
      0. *CODE-PARTS* #.#'EQUAL
      #Y(COALESCE-1
         #258Y(02 00 00 00 00 03 9C 5B 1B 03 00 19 03 62 AC 1A 0E 93 00 6A 01
               AB 72 01 01 83 02 16 01 82 00 9B 20 6F 16 01 AA 7F A5 00 62 6A
               01 70 14 DA 62 B0 1A 0E 93 00 6A 03 AB 72 01 01 83 02 16 01 82
               00 9B 20 6F 16 01 AA 7F A5 00 37 04 71 49 1A 3C AF B2 1A 16 16
               03 1A 17 93 01 9C 1F 77 93 01 93 01 AB 2F 06 16 02 82 01 82 00
               9C 20 6B 16 02 AF 1A 08 AA 9C 5A 78 30 AA 82 00 9B 20 75 16 01
               67 01 00 83 04 67 01 00 AE 2F 07 16 02 DC AE 90 00 28 17 29 2A
               01 93 04 9B 5A 0B 01 00 AB 6C 05 01 94 06 8F 00 28 FF A9 16 02
               E0 6E 09 E2 AB CE 7B 02 AF B2 1A 1C 16 03 1A 1D 93 01 9C 1F 77
               93 01 6A 01 AF 9E 79 AB AD AC 32 01 02 16 04 82 01 82 00 9C 20
               65 16 02 AB B2 30 53 AB E4 AF 31 7E AE AC 70 A4 6A 01 37 01 30
               18 AC 6A 03 37 01 30 18 16 02 6A 01 AC 72 01 01 2E 0D AF 2E 0E
               02 0C 00 01 19 07
              )
         NIL *CODE-PARTS* #.#'MAX *CODE-POSITIONS* #.#'CONSP
         #Y(COALESCE-1-1 #15Y(01 00 00 00 00 02 93 01 68 00 01 31 02 19 02) NIL
           )
         REMOVE-REFERENCES NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART
         OPTIMIZE-PART COALESCE
  )  )  )
#Y(#:TOP-LEVEL-FORM-274 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   OPTIMIZE-ALL REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-ALL
      #607Y(00 00 00 00 00 01 D8 1A 80 59 6A 01 AB 72 01 01 92 00 1F 14 70 9E
            94 00 92 00 0E AD AB DA 37 01 71 7A 8D 01 04 DB DA 2F 04 AA AE AE
            AE 2C 04 05 16 02 16 01 6A 01 AB 72 01 01 92 00 04 AB AB 2F 06 16
            01 6A 01 AB 72 01 01 92 00 04 AB AB 2F 07 16 01 6A 01 AB 72 01 01
            92 00 04 AB AB 2F 08 16 01 84 00 AA 6A 01 70 14 8E 01 FF 9E 16 01
            2D 09 1B FF 93 D8 6A 01 70 14 1A 81 37 A3 FF 16 08 1A 81 30 B0 B0
            6A 01 B0 32 01 01 5B 79 30 AC 6A 01 AA AF 62 32 01 02 16 01 A1 FE
            16 08 00 2A 01 AB 70 9E 94 00 AA 70 4F 6A 0A B0 32 01 01 0B 03 00
            01 03 92 04 46 B0 6C 0B 01 AE 62 1A 80 D1 86 01 00 14 8E 0C 80 C7
            AA B6 8D 01 80 C1 6A 01 AB 32 01 01 77 9B 5A 25 0C 80 B2 AB B1 A0
            33 1C 80 AB 9C FC 16 01 1A 80 A6 9C FB 16 01 1A 80 9F B2 9C 5B 1A
            02 B2 9C 5B 5A 22 80 91 AB AF A0 33 1C 80 8A 9C FA 16 01 1A 80 85
            E5 9C 5B 1A 10 6A 01 AC 72 01 01 93 00 B1 9C 5B 5A 21 6D E6 9C 5B
            77 7A 02 B3 B3 AC A0 5B 7B 02 30 AC 6A 01 AA B0 62 32 01 02 16 01
            A4 09 0B 16 0B 1A FF 60 E8 9D 5B 1A 23 6A 01 AD 72 01 01 93 00 9B
            5B 77 E7 37 01 8D 7A 09 9B 5B 5B 77 E7 37 01 31 7A 14 B2 9D 5B 5A
            21 5A E9 9D 5B 77 AC 7A 03 B4 B4 AC A1 5B 7B 02 30 AC 6A 01 AA B2
            62 32 01 02 16 01 A5 09 0C 16 0C 1A FF 18 AB B0 A0 33 1B FF 5C 16
            01 82 01 AB 8C 94 FF 2A 16 02 91 03 FE E8 91 01 FF 6F 91 02 FF 9F
            16 09 1A 0C 6A 01 AB 72 01 01 91 00 FE EC 16 01 85 00 14 24 00 6E
            16 01 6A 0A AA AC D8 32 01 02 16 01 EA EB 6A 01 6A 0A 72 01 26 EC
            AB 37 05 80 51 00 14 ED EE 37 02 80 65 00 62 AB 62 1A 80 73 86 01
            00 77 93 00 9B 5A 25 17 80 4C AB F0 9D 5B 77 7A 02 30 AA 1A 80 40
            F0 9C 5B 77 7A 02 E8 9D 5B 5B 77 9E 5B 77 E7 37 01 8D 7A 09 9E 5B
            5B 77 E7 37 01 31 7A 14 60 03 1A 18 F0 9C 5B 5B 77 7A 02 E6 9D 1A
            09 F0 9C 5B 77 7A 02 E5 9D 5B 5B 77 60 02 14 9E 5B 61 02 F7 16 01
            AA 70 9E 9B 5B 1C 07 AA 94 01 7A 01 30 AC 16 01 AA AE 7F A4 03 16
            01 82 01 AB 8C 94 FF 88 16 02 15 19 03
           )
      0. *CODE-PARTS* CODE-PART OPTIMIZE-ALL COMPILER-ERROR OPTIMIZE-LABEL
      OPTIMIZE-JMPCASE OPTIMIZE-VALUE OPTIMIZE-SHORT COALESCE *CODE-POSITIONS*
      #Y(OPTIMIZE-ALL-BETTER
         #49Y(02 00 00 00 00 03 9C 58 1D 25 6A 01 AC 72 01 01 6A 01 AE 72 01 01
              AB 68 00 01 8F 01 30 0A AB AB 68 00 01 32 02 31 19 05 AA AC 32 01
              31 19 05 19 03
             )
         NIL *CODE-POSITIONS*
        )
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 28.) (JMPCASE1-TRUE . 23.)
         (JMPCASE . 173.) (JMP . 2.)
        )
      JMPIFNOT1 JMPIF1 FOR-VALUE JMPIFNOT JMPIF LIST #.#'CONS #.#'CAR #.#'>
      #.#'CDR
      #S(HASH-TABLE EQ (JMPCASE1-FALSE . 59.) (JMPCASE1-TRUE . 48.)
         (JMPCASE . 14.) (JMP . 2.)
        )
      JMP
  )  )
#Y(#:TOP-LEVEL-FORM-275 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILE-TO-LAP REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-TO-LAP
      #85Y(00 00 00 00 00 01 D8 63 37 06 C4 F8 70 19 D8 63 37 06 C4 F8 30 19 10
           02 9E 10 03 DC 60 01 10 05 C4 10 06 00 10 07 00 10 08 00 10 09 00 10
           0A 6A 0B E4 AB E5 80 2E 00 E6 AB E7 80 2E 00 2E 10 12 06 2D 11 14 93
           00 82 01 EA 8D 02 04 EB EC 2F 15 15 12 02 19 02
          )
      10. 0. *CODE-POSITIONS* *CODE-PARTS* (START) *CODE-PART* *CODE-INDEX*
      *DEAD-CODE* *LABEL-SUBST* *CURRENT-VALUE* *CURRENT-VARS* *FUNC* FNODE 2.
      ANODE 3. TRAVERSE-ANODE OPTIMIZE-ALL (START) COMPILE-TO-LAP START
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-276 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CONST-TO-LOADV REMOVE-OLD-DEFINITIONS
   #Y(CONST-TO-LOADV
      #71Y(01 00 00 00 00 02 AB 92 00 38 93 00 9B 1F 2C 9B 5A 25 00 27 AB 93 01
           9D 5B 77 71 8D 9E 5B 1A 04 AB D9 DA 9E 5B 61 02 1A 09 AB C6 1A 05 AB
           DC 9D 5B 5C 14 30 AA 1A 04 DD DE 2F 07 16 01 82 00 91 00 48 16 01 9C
           19 02
          )
      #S(HASH-TABLE EQ (GO . 36.) (TAGBODY-OPEN . 36.) (RETURN-FROM . 36.)
         (BLOCK-OPEN . 36.) (CALL2 . 36.) (CALL1 . 36.) (CALL0 . 36.)
         (CALL . 36.) (COPY-CLOSURE . 36.) (BIND . 36.) (SETVALUE . 36.)
         (GETVALUE . 36.) (JMPHASH . 26.) (VENV . 22.) (CONST . 13.)
         (STOREV . 1.) (LOADV . 1.)
        )
      LOADV 0. (LOADV 0. 0.) JMPHASHV CONST-TO-LOADV "Illegal-in-GF"
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-277
   #70Y(00 00 00 00 00 01 00 2A 04 D8 6A 01 37 01 70 65 2E 02 0B 00 00 DB 6A 01
        37 01 70 65 2E 02 0B 00 01 DC 6A 01 37 01 70 65 2E 02 0B 00 02 DD 6A 01
        37 01 70 65 2E 02 0B 00 03 DE 2E 07 DE AB 6C 08 01 31 78 C9 19 02
       )
   1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS
   REMOVE-OLD-DEFINITIONS
   #Y(INSERT-COMBINED-LAPS
      #995Y(01 00 00 00 00 02 AB 92 00 80 45 93 00 9B 1F 38 86 00 00 14 AA 23
            01 05 AA 24 02 80 50 16 01 9C 5B 5A 1F 10 9C 5B 5A 77 AA 23 03 80
            51 AA 23 04 80 4C 16 01 AB DF 30 AA AB AB 23 01 80 69 07 00 04 14
            9E 5B 5C 14 30 AC 16 01 82 00 91 00 FF BB 16 01 AB 94 00 92 01 83
            85 93 01 9B 1F 83 68 9C 5A 1F 80 8A 93 00 9D 5A 5A 25 08 80 74 16
            01 1A 57 C8 1A 22 AB 23 01 79 C9 1A 1B C9 1A 18 16 01 9C 5B 5A 5B
            5B 5A 1B FF AB AB 9D 5B 5A 77 23 03 63 AB 23 01 66 C8 14 9E 5B 5A
            5B 77 7A 02 30 AA AB 9D 5B 5B 1A FF 9E 07 00 03 1A FF 94 CC 1A 32
            CD 1A 01 CE 14 9E 5A 5B 5B 5A 1C 02 82 00 93 03 94 00 62 30 AC 16
            01 15 1A 18 CF 1A 15 D0 1A 12 D1 1A 0F AD AB 94 03 A0 5A 78 32 02
            23 5C 1A 81 CF 00 14 E7 37 02 30 BC 78 91 00 67 16 01 9B 5A 25 10
            82 D3 9E 1A 0D D6 1A 82 06 AB AB 81 02 35 01 16 01 9D 5B F8 AC D4
            73 91 00 6F 16 01 AD AB 23 12 64 D7 1A 81 E6 AC D4 73 91 00 57 16
            02 1A 82 A7 AE EF 9D 1A 80 DB AE F1 9D 1A 80 A1 9C 5B 77 9E 5B 77
            EE 8D 02 6A 9E 5B 5A 1F 07 9E 5B 5A 77 23 18 64 AE F2 AC 7A 02 30
            AA AE 9F 1A 80 BC 16 03 1A 82 74 03 1C 1A 0A AD 9E 5B 5A 77 23 03
            74 03 1D 14 9E 5B 77 A0 5B 5A 5B 77 60 03 1A 80 C8 9C 5A 1F 82 51
            9C 5A 77 AA 23 15 FF B0 AA 24 1B 1D 9D 5B 5A 1F 18 9D 5B 5A 77 AA
            23 03 05 AA 24 04 FF BC 16 01 9D 5B 5A 5B 5B 5A 1C FF BA 16 02 1A
            82 25 9C 5A 1F 82 1E 9B 5B 77 9D 5A 5A 25 1E 81 06 AE 03 20 1A 80
            48 9D 5B 5A 1F 80 FA 9D 5B 5A 77 AA 23 1F 6C AA 24 18 0E AE 64 21
            9E 14 A1 5B 5A 5B 77 60 03 1A 2D 16 03 1A 81 EB AE 03 22 1A 1E 9D
            5B 5A 1F 80 D0 9D 5B 5A 77 AA 23 1F 6D AA 24 18 1F AB 9F 5B 5A 5B
            77 8E 01 16 AE 03 23 14 9E 14 60 02 14 30 AA AE 9F 5B 78 30 AC 16
            03 1A 81 B5 16 03 1A 81 B0 9D 5B 5A 1F 80 9A 9D 5B 5A 77 24 18 80
            92 9D 5B 5A 5B 77 96 01 8E 01 80 87 AD 64 24 96 02 60 02 14 30 AA
            AD 9E 1A 2B 03 26 1A 1E AD 9E 5B 77 68 00 01 8D 02 72 03 27 1A 10
            03 28 1A 0C AD 9E 5B 77 68 00 01 8D 02 72 03 29 14 AC 7A 02 30 AA
            AD 9E 5B 5B 5B 1A 80 96 9D 5B 5A 1F 35 9D 5B 77 68 00 01 8D 02 09
            9D 5B 77 68 00 02 8E 02 23 9D 5B 5B 5A 1F 1D 9D 5B 5B 77 64 25 8D
            02 FF AD 9D 5B 5B 5A 77 24 18 0B 9D 5B 5B 5A 5B 77 AB 8D 01 FF AC
            AD 64 2A AC 60 02 14 30 AA AD 9E 5B 1A 80 4D 16 02 1A 81 0B AC 64
            2C 9D 5B 77 60 02 1A 80 C7 AC 64 2E 9D 5B 5B 77 7A 02 30 AA AC 9D
            5B 1A 80 BD 93 01 64 2D 8D 02 68 AC 64 2F 9D 5B 1A 34 EA 1A 04 84
            00 82 02 93 02 64 30 8D 02 75 AA 23 12 14 AD 03 31 14 AC 60 02 14
            30 AA AD 9E 14 30 AC 16 02 1A 80 BB 16 02 1A 80 B6 AC 03 32 1A 08
            AC 93 01 9D 5B 77 60 02 14 30 AA 16 01 1A 80 A1 29 2A 02 9C 5B 5B
            5A 0B 00 00 9C 5B 5B 5B 5B 0B 00 01 AA 6C 33 01 67 01 00 30 68 16
            01 9B 5B 1A 21 9B 5B 5B 77 9C 5B 5B 5B 78 EA 92 01 11 93 01 AD 9D
            5F 82 01 64 34 AB 81 02 35 00 91 01 6F 16 03 9B 5B 78 00 1A 28 9C
            5A 1F 80 53 9C 5A 77 24 35 80 4C 9C 5B 77 64 36 8E 02 80 43 AC 64
            37 9D 5B 77 9F 5A 5B 77 60 03 14 30 AA AC 9D 5B 5B 14 30 AC 16 01
            1A 2B 93 01 64 2B 8E 02 22 9C 5B 5A 1F 1D 9C 5B 5A 77 24 18 16 9C
            5B 5A 5B 77 9C 5B 77 8E 01 0B 9C 5B 5B 77 9C 5B 5B 5A 21 FE F7 16
            01 93 00 64 38 8E 02 06 AB 82 01 14 30 AC 9B F7 5B F6 91 01 FC 7B
            16 02 9C 19 02
           )
      NIL ATOM CONSP JMPIF JMPIFNOT JMPIFATOM JMPIFCONSP (PUSH)
      #S(HASH-TABLE EQ (RET . 101.) (STOREC . 98.) (STORE . 95.)
         (JMPIFNOT . 72.) (JMPIF . 69.) (PUSH . 66.)
        )
      ((T . T&PUSH) (CONST . CONST&PUSH) (LOADI . LOADI&PUSH)
       (LOADC . LOADC&PUSH) (LOADV . LOADV&PUSH) (GETVALUE . GETVALUE&PUSH)
       (CALL . CALL&PUSH) (CALL1 . CALL1&PUSH) (CALL2 . CALL2&PUSH)
       (CALLS1 . CALLS1&PUSH) (CALLS2 . CALLS2&PUSH) (CALLSR . CALLSR&PUSH)
       (CALLC . CALLC&PUSH) (CALLCKEY . CALLCKEY&PUSH) (CAR . CAR&PUSH)
       (CDR . CDR&PUSH) (CONS . CONS&PUSH) (LIST . LIST&PUSH)
       (LIST* . LIST*&PUSH) (FUNCALL . FUNCALL&PUSH) (APPLY . APPLY&PUSH)
       (COPY-CLOSURE . COPY-CLOSURE&PUSH) (HANDLER-BEGIN . HANDLER-BEGIN&PUSH)
      )
      ((EQ . JMPIFEQ) (LOAD . LOAD&JMPIF) (CALL1 . CALL1&JMPIF)
       (CALL2 . CALL2&JMPIF) (CALLS1 . CALLS1&JMPIF) (CALLS2 . CALLS2&JMPIF)
       (CALLSR . CALLSR&JMPIF)
      )
      ((EQ . JMPIFNOTEQ) (LOAD . LOAD&JMPIFNOT) (CALL1 . CALL1&JMPIFNOT)
       (CALL2 . CALL2&JMPIFNOT) (CALLS1 . CALLS1&JMPIFNOT)
       (CALLS2 . CALLS2&JMPIFNOT) (CALLSR . CALLSR&JMPIFNOT)
      )
      ((NIL . NIL&STORE) (T . T&STORE) (POP . POP&STORE)
       (CALLS1 . CALLS1&STORE) (CALLS2 . CALLS2&STORE) (CALLSR . CALLSR&STORE)
      )
      ((LOAD . LOAD&STOREC)) ((SKIP . SKIP&RET)) #.#'EQ
      #S(HASH-TABLE EQ (APPLY . 637.) (HANDLER-OPEN . 599.) (JMPHASHV . 566.)
         (JMPHASH . 566.) (JMPIFNOT . 550.) (JMPIF . 550.)
         (UNWIND-PROTECT-CLOSE . 545.) (UNBIND1 . 502.) (JSR . 488.)
         (JMPIFBOUNDP . 684.) (LOAD . 178.) (CONST . 127.) (PUSH-NIL . 37.)
         (NIL . 37.)
        )
      #Y(INSERT-COMBINED-LAPS-NILPUSHER-P
         #49Y(01 00 00 00 00 02 93 01 31 04 1E 23 9C 5A 77 AA 23 00 0D 91 00 07
              9D 5B 77 D9 8D 02 09 00 19 03 9D 5A 5B 5A 19 03 AC 9E 5B 78 30 AC
              C5 19 03 19 02
             )
         PUSH-NIL (PUSH) 1.
        )
      1. (NIL&PUSH) PUSH-NIL SYMBOL-FUNCTION (PUSH) CONST&SYMBOL-FUNCTION&PUSH
      STORE CONST&SYMBOL-FUNCTION&STORE CONST&SYMBOL-FUNCTION EQ JMPIFEQTO
      JMPIFNOTEQTO
      #S(HASH-TABLE EQ (PUSH . 191.) (CONS . 104.) (CDR . 50.) (CAR . 8.)) PUSH
      LOAD&CAR&PUSH LOAD&CAR&STORE LOAD&CDR&PUSH LOAD&CDR&STORE LOAD&CONS&STORE
      (PUSH) LOAD&INC&PUSH LOAD&DEC&PUSH LOAD&INC&STORE LOAD&DEC&STORE
      LOAD&PUSH (NIL) UNBOUND->NIL (PUSH) JSR&PUSH JSR (UNBIND1) UNBIND
      (UNWIND-PROTECT-CLOSE)
      #Y(INSERT-COMBINED-LAPS-1
         #22Y(02 00 00 00 00 03 68 00 01 AC 68 00 02 70 96 AE AC AC 30 66 19 05
             )
         NIL
        )
      2. SKIP (RET) APPLY&SKIP&RET (BARRIER)
  )  )
#Y(#:TOP-LEVEL-FORM-278 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   NUM-OPERAND-LENGTH REMOVE-OLD-DEFINITIONS
   #Y(NUM-OPERAND-LENGTH
      #27Y(01 00 00 00 00 02 AB D8 8F 01 2F 09 AB DA 8F 01 2F 06 C7 19 02 C4 19
           02 C6 19 02
          )
      128. 1. 32768. 2. 6.
  )  )
#Y(#:TOP-LEVEL-FORM-279 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
   #Y(ASSEMBLE-LAP
      #884Y(01 00 00 00 00 02 AB D8 92 01 81 55 93 01 9B 1F 2F 93 00 6A 01 37
            01 70 65 91 00 04 DA DB 2F 04 DD 9C 5E 5B 77 DE AB 24 07 11 9E 5B
            77 E0 93 05 E1 37 06 31 5D 5E 14 8F 01 2F 0C 9C 25 0C 81 07 AA AC
            30 53 1A 81 12 E2 93 04 E1 37 06 31 5D 5E 14 9F 5B 77 81 02 35 02
            CE F7 93 03 60 01 F9 1A 80 E5 AA 9F 1A 80 5B 9B 1A 20 84 04 DE 9F
            5B 5A 79 9F 1A 80 A7 AA 9F 5B 77 6E 0D 32 02 35 1A 14 AA 9F 5B 77
            6E 0D 81 02 35 00 14 80 8D 00 1A 80 B6 AA 31 8D F6 14 9F 5B 1A 28
            AA 9F 5B 77 6E 0D 81 02 35 00 14 9F 5B 5B 77 6E 0D 32 02 35 1A 0D
            AA 9F 5B 77 6E 0D 81 02 35 00 14 31 8D F6 14 9F 5B 5B 5B 77 6E 0D
            81 02 35 00 1A 80 7A AA 9F 5B 77 6E 0D 32 02 35 1A 03 AA 31 8D F6
            84 04 DE 9F 5B 5B 5A 79 9F 5B 1A 34 AA 9F 5B 77 6E 0D 81 02 35 00
            14 9F 5B 1A 11 AA 9F 5B 77 6E 0D 81 02 35 00 14 31 8D 1A 09 AA 9F
            5B 77 6E 0D 32 02 35 F6 84 04 DE 9F 5B 5B 5B 5A 79 9F 5B 5B 78 AB
            30 AA 16 01 1A 23 AA 9F 5B 77 6E 0D 81 02 35 00 9E 5B 78 92 00 11
            84 05 DE 9C 5A 79 AB AB 30 AA 16 01 82 00 91 00 6F 16 01 AE AB 81
            02 35 04 AF AC AC AF A2 5B 7B 03 30 AA 16 03 16 01 82 01 91 01 FE
            AB 16 02 62 D8 AD 62 1A 80 9D AA AD 30 53 1A 80 94 86 01 00 1F 74
            AC 9C 5B 77 81 02 35 02 9B 5A 25 0E 80 81 9B 5B 5B 78 9C 5A 25 0F
            29 9B 1A 27 9B 5B 1A 23 9B 5B 5B 1A 1E AC EC 30 AA B1 31 8D 1A 80
            50 93 01 AA 23 06 70 16 01 1A 80 4E AC ED 30 AA 03 16 1A 38 00 14
            62 AB 8B 94 80 45 86 01 00 AF 93 01 81 02 35 05 94 00 70 4F B0 72
            01 36 E8 AB E9 8F 02 31 25 EA AB EB 8F 02 31 45 93 01 AA 23 06 4A
            AA 24 14 12 AC ED 30 AA 03 17 14 B2 32 02 35 FD 7D 08 16 01 1A 02
            16 01 16 01 82 01 1A FF B6 16 03 82 01 AB 8C 94 FF 65 16 02 9C 16
            02 1B FF 4F 00 2A 02 00 0B 00 00 C3 0B 00 01 9B 2A 01 AB 2B 18 01
            0B 00 00 AA 6C 19 01 AB 6C 1A 01 AF 62 1A 81 30 86 01 00 1F 81 28
            67 05 01 9C 5B 77 32 02 35 0B 05 01 9B 5B 5B 77 06 05 00 33 9B 5A
            25 1B 81 0E 9B 1A 80 54 9B 1A 15 9B 1A 80 B1 9B 5B 5B 5B 77 9F 1A
            1C 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00 33 1A 80 E7 9B
            5B 5B 5B 77 06 05 00 33 9B 5B 1A 24 9B 5B 5B 5B 77 9F 33 9B 5B 5B
            5B 5B 77 9F 1A 10 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06 05 00
            33 9B 5B 5B 5B 5B 5B 77 9F 33 1A 80 AD 9B 5B 5B 5B 77 9F 1A 08 9B
            5B 5B 5B 77 06 05 00 33 9B 5B 1A 80 45 9B 5B 5B 5B 77 9F 33 9B 5B
            5B 5B 5B 77 9F 33 1A 31 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 06
            05 00 33 1A 1E 9B 5B 5B 5B 77 9F 33 9F 2A 01 9C 5B 5B 5B 5B 5A 0B
            00 00 AA 6C 1C 01 67 01 00 30 68 16 01 9B 5B 5B 5B 5B 5B 77 9E 33
            1A 80 49 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 5B 77 AA 71 45 DE 1A 0F
            AC 9C 5E 14 70 4F AD 9D 5F EC AB 81 02 35 00 AA AC 90 01 32 6B 16
            03 1A 1D 9B 5B 5B 5B 77 9F 33 9B 5B 5B 5B 78 62 1A 08 86 01 00 14
            A0 33 82 01 AB 8C 94 74 16 02 82 01 AB 8C 94 FE CB 16 05 67 00 00
            31 47 19 03
           )
      0. INSTRUCTION-CODES ASSEMBLE-LAP "ILLEGAL INSTRUCTION" COMPILER-ERROR
      #.INSTRUCTION-TABLE 1. K #.SHORT-CODE-OPSIZE #.INSTRUCTION-TABLE-K
      #.SHORT-CODE-OPS O
      #S(HASH-TABLE EQ (NLX . 230.) (NHL . 200.) (NBL . 185.) (NNL . 170.)
         (BL . 154.) (NL . 143.) (NBN . 114.) (NNN . 92.) (BN . 83.) (NB . 66.)
         (NN . 55.) (L . 44.) (B . 41.) (NC . 36.) (N . 36.) (K . 36.)
         (O . 265.)
        )
      NUM-OPERAND-LENGTH
      #S(HASH-TABLE EQ (NLX . 2.) (NHL . 2.) (NBL . 2.) (NNL . 2.) (BL . 2.)
         (NL . 2.) (L . 2.)
        )
      #S(HASH-TABLE EQ (NHL . 8.) (NBL . 8.) (NNL . 8.) (NLX . 4.) (BL . 4.)
         (NL . 4.) (L . 1.)
        )
      -64. 63. -16384. 16383. 2. 6. 5. 4.
      #Y(ASSEMBLE-LAP-NEW-BYTE
         #16Y(01 00 00 00 00 02 AB 07 00 01 5C 0C 00 01 19 02) NIL
        )
      #Y(ASSEMBLE-LAP-NUM-OPERAND
         #56Y(01 00 00 00 00 02 AB D9 8F 01 2F 23 AB DA 90 01 2F 20 D9 DB DC 71
              CB AD 71 CE 72 02 35 07 00 01 33 DC DD 71 CB AC 31 CE 14 07 00 01
              33 19 02 9C 1A 76 DE DF 2F 08 19 02
             )
         NIL 128. 32768. 7. 8. 0. ASSEMBLE-LAP "15 BIT" COMPILER-ERROR
        )
      #Y(ASSEMBLE-LAP-LABEL-OPERAND
         #110Y(01 00 00 00 00 02 68 01 02 93 02 32 02 35 0C 01 02 94 01 70 4F
               68 01 02 72 01 36 9D 5A 25 01 80 4A C5 1A 3A DC DA DD 71 CB AC
               71 CE 32 02 35 1A 27 DC 07 00 01 33 DB 07 00 01 33 DD DE 71 CB
               AB 71 CE 07 00 01 33 DD DF 71 CB AB 71 CE 07 00 01 33 DD DD 71
               CB AB 31 CE 14 07 00 01 33 C8 14 DB 71 CB AB 71 CE 07 00 01 33
               19 03 00 19 03
              )
         NIL #S(HASH-TABLE EQ (6. . 18.) (2. . 5.) (1. . 2.)) 7. 0. 128. 8. 24.
         16.
        )
      #S(HASH-TABLE EQ (NLX . 243.) (NC . 199.) (NHL . 157.) (NBL . 138.)
         (NNL . 121.) (BL . 107.) (NL . 99.) (NBN . 70.) (NNN . 54.) (BN . 41.)
         (NB . 21.) (NN . 13.) (L . 9.) (B . 6.) (N . 2.) (K . 2.) (O . 272.)
        )
      #Y(ASSEMBLE-LAP-1
         #25Y(02 00 00 00 00 03 68 00 01 AC 70 4F 68 02 02 72 01 36 AE AC AC 30
              66 19 05
             )
         NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-280 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-LAP
      #440Y(02 00 00 00 00 03 00 2A 01 7E 03 00 00 9B 2A 02 62 C3 0B 01 00 62
            00 0B 02 01 9D 2A 01 AD 2B 01 01 0B 00 00 9B 2A 01 AB 6C 02 01 AC
            2B 03 01 0B 01 00 06 06 00 1C 81 47 06 05 00 F9 06 02 00 73 AA DC
            8F 01 32 0D E0 9C 5E 14 93 00 9C 5B 5A 25 09 81 1B AA DD 63 37 05
            C9 F7 71 5D AB DD 9D 5E 14 72 01 36 DF 9D 5E 14 9C 1A 1B AA 60 01
            16 02 1A 80 FE AA 9F 33 1A 0E AA 06 06 00 33 1A 07 AA 37 02 06 07
            00 33 14 60 02 16 02 1A 80 E3 AA 9F 1A 0C AA 9F 73 06 07 00 1A 26
            AA 06 06 00 73 A0 1A 1E AA 9F 73 A0 1A 06 AA 9F 73 06 07 00 73 A1
            1A 28 AA 9F 1A 04 AA 06 06 00 73 37 02 06 08 00 73 60 03 16 02 1A
            80 A9 AA 9F 73 A0 1A 06 AA 9F 73 06 07 00 73 37 02 06 09 00 73 60
            04 16 02 1A 80 8F AA B8 30 96 1A 0D 9F 2A 01 9F 73 AC 23 0A 71 93
            0D 9C 5E 14 00 0B 02 00 AC 6C 0B 01 AB 30 68 AD AC 37 02 06 0B 00
            73 06 05 00 61 03 16 05 1A 80 5E 9E 73 AA B7 30 96 77 AA 71 45 62
            E4 1A 11 62 AE 9D 5E 14 06 0B 00 73 83 01 E5 AB 81 02 35 00 AA AD
            90 01 32 69 16 01 AE AE AC 31 47 61 02 16 06 1A 2C 9E 73 AA B7 70
            96 71 45 62 D8 1A 0A 37 02 06 0A 00 73 83 01 84 00 AA AD 90 01 32
            70 16 01 AD AD AC 31 47 61 02 16 05 1A 03 00 16 02 F6 AE 9C 79 83
            05 16 01 06 06 00 1B FE B9 16 03 62 92 00 2D 06 03 01 1C 28 9B 5A
            77 06 04 01 5A 77 90 01 2D 1C 06 03 01 77 83 00 06 03 01 5B 0B 03
            01 92 02 0F 94 02 AD AC 7F AB 01 69 02 91 00 53 91 02 71 15 19 07
           )
      0.
      #Y(DISASSEMBLE-LAP-NEXT-BYTE
         #28Y(00 00 00 00 00 01 68 00 01 31 8D 0C 00 01 07 01 01 77 07 01 01 5B
              0C 01 01 15 19 01
             )
         NIL
        )
      #Y(DISASSEMBLE-LAP-NUM-OPERAND
         #37Y(00 00 00 00 00 01 07 00 01 73 AA D9 8F 01 2F 12 DA DB AC 72 02 35
              72 02 37 07 00 01 73 32 02 35 19 02 15 19 01
             )
         NIL 128. 256. -128.
        )
      #Y(DISASSEMBLE-LAP-LABEL-OPERAND
         #177Y(00 00 02 00 00 0C 3A 02 80 6D 07 00 01 73 AA D9 8F 01 2F 80 4E
               DB AB 81 02 35 00 14 DA 8F 01 2F 06 DB AB 81 02 35 00 DC AB 72
               02 37 07 00 01 73 81 02 35 00 14 8E 88 3B DC DC DC 07 00 01 73
               72 02 37 07 00 01 73 72 02 35 72 02 37 07 00 01 73 72 02 35 72
               02 37 07 00 01 33 14 32 02 35 1A 14 9B 1A 11 AA DA 8F 01 2F 77
               DB 9C 1A 6D 14 AB 30 AC 1A 39 9B 16 01 F8 3A 01 08 68 01 01 AD
               81 02 35 01 62 68 01 02 92 00 17 AD 9C 5A 77 8F 01 30 0F AD 9C
               5A 77 8F 01 2D 13 9B F7 5B F6 91 00 69 AD C8 73 83 00 91 01 45
               9B 0C 01 02 9B 5A 5B 19 05
              )
         NIL 128. 64. -128. 256.
         #Y(DISASSEMBLE-LAP-PC->LABEL-A
            #20Y(01 00 00 00 00 02 AB D8 D9 AE 70 88 72 02 25 30 CC 5C 19 02)
            STRING "L"
        )  )
      #.SHORT-CODE-BASE #.SHORT-CODE-OPS #.#'>= #.INSTRUCTION-TABLE-K
      #.INSTRUCTION-TABLE
      #S(HASH-TABLE EQ (NLX . 244.) (NC . 194.) (NHL . 151.) (NBL . 125.)
         (NNL . 119.) (BL . 101.) (NL . 97.) (NBN . 87.) (NNN . 81.) (BN . 73.)
         (NB . 65.) (NN . 61.) (L . 46.) (B . 39.) (N . 34.) (K . 34.)
         (O . 26.)
        )
      JMPHASH
      #Y(DISASSEMBLE-LAP-1
         #22Y(02 00 00 00 00 03 AB 37 01 07 01 01 73 07 00 01 5C 0C 00 01 19 03
             )
         NIL
        )
      1. 2.
  )  )
#Y(#:TOP-LEVEL-FORM-281 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CREATE-FUN-OBJ REMOVE-OLD-DEFINITIONS
   #Y(CREATE-FUN-OBJ
      #403Y(02 00 00 00 00 03 D8 D9 AE DA 71 2E DB C7 44 D9 B1 DD 71 2E DE 31
            AA 41 02 AA AC 3F 02 16 02 40 D9 66 00 05 DF 71 2E DE 31 AA 41 02
            AA AC 3F 02 16 02 40 D9 66 00 05 E0 8D 2E 80 78 CC 14 D9 66 00 05
            E2 8D 2E 80 71 CC 14 D9 66 00 05 E4 8D 2E 80 6D CC 14 32 03 35 40
            D9 66 00 05 DD 71 2E D9 66 00 05 DF 71 2E D9 66 00 05 E0 71 2E D9
            66 00 05 E4 71 2E 91 01 0E 91 00 0B AD AD 72 02 35 E8 8F 01 2F 80
            4B 92 01 0D 91 00 0A AC 8E 88 06 AD EA 8F 01 2F 3E 91 01 80 AE 92
            00 80 AA AD AD 72 02 35 EA 90 01 2F 80 9F D7 14 9E 5E 14 AE 32 02
            35 1A 80 94 C5 1A FF 85 CE 1A FF 8C D2 1A 0A E5 D9 66 00 05 E6 8D
            2E 74 CC 14 32 02 35 1A FF 83 D4 1A 56 D6 1A 56 03 15 44 D9 66 01
            05 EE 71 2E 71 45 DE 31 AA 41 02 AA AC 3F 02 16 02 40 D9 66 01 05
            EF 71 2E DE 31 AA 41 02 AA AC 3F 02 16 02 40 45 1A 80 50 62 D9 B6
            F2 71 2E D9 B7 F3 71 2E 1A 1D 14 31 38 1A 0F 16 03 1A 19 93 01 9C
            1F 77 93 01 91 00 6D 9C 14 83 04 16 02 82 01 82 00 9C 20 69 16 02
            AA 30 A5 16 01 1A 3A AB AB F4 71 2A 7A 01 32 02 23 1A 3A CC 16 03
            F6 D9 66 00 05 E4 8D 2E FF 82 3D 40 66 00 04 45 14 F0 D9 B2 EF 71
            2E 37 01 70 9F AA D9 B4 EE 71 2E 0E 19 1B FF 95 D9 B5 F2 31 2E 14
            72 03 23 D9 B4 E2 8D 2E FF BB 9B 16 01 F6 6D 06 1D D9 AE 64 1E AD
            31 2F 16 01 9D 19 03
           )
      :NAME FNODE 1. :CODEVEC #.#'LIST* 10. 256. 11. 12. 0. 20. 16. 13. 128.
      15. 64. 6. #(1. 7. 12. 16. 19. 21.) 5. 22. #(27. 32. 36. 39. 41.)
      #.#'VALUES 14. 9. :CONSTS *COMPILING-FROM-FILE* 17. 18. SIMPLE-VECTOR
      MAKE-CLOSURE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-282 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SIGNATURE REMOVE-OLD-DEFINITIONS
   #Y(SIGNATURE
      #131Y(01 00 00 00 00 02 AB 71 35 AC 71 34 93 00 82 01 D8 93 02 82 03 72
            02 37 72 02 35 93 01 82 02 D8 93 03 82 04 72 02 37 72 02 35 93 02
            82 03 D9 AB 71 C7 82 04 AD AD DA AE 71 C7 AD 91 04 13 00 14 DD B1
            71 C7 B4 B6 3F 08 19 08 93 0B DC 31 2A 1A 24 93 08 82 09 D8 93 0A
            82 0B 72 02 37 72 02 35 93 09 82 0A D8 93 0B 82 0C 72 02 37 72 02
            35 DB B2 8D C7 56 A6 14 AB AC AE 72 02 35 31 43 16 02 1A FF BC
           )
      256. 7. 0. 4. LIST 6.
  )  )
#Y(#:TOP-LEVEL-FORM-283 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PASS3 REMOVE-OLD-DEFINITIONS
   #Y(PASS3
      #57Y(00 00 00 00 00 01 6A 00 62 1A 27 86 01 00 77 D9 AB DA 80 2E 00 9C 5B
           77 AB DA AC 72 02 35 AD DA AE 72 02 35 71 2B D9 AB DA 80 2E 00 31 2C
           16 02 82 01 AB 8C 94 55 00 19 03
          )
      *FNODE-FIXUP-TABLE* FNODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-284 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILE-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-LAMBDABODY
      #33Y(02 00 00 00 00 03 AC AC 6F 00 0E 01 1B 10 00 10 02 AD 2E 03 2D 04 11
           DD AB DE 31 2E 19 04 00 19 04
          )
      C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-285 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILE-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-LAMBDA
      #85Y(07 00 00 00 00 00 02 10 00 00 10 01 00 10 02 0E 03 10 04 00 10 05 00
           10 06 00 10 07 04 19 10 08 04 1B 10 09 04 1D 10 0A 04 23 10 0B 00 10
           0C 04 25 10 0D D1 10 0F D1 10 10 00 10 11 65 37 65 37 6F 12 6A 0F 8E
           88 05 15 12 10 19 08 65 38 EB 2F 12 16 01 1A 73
          )
      *COMPILING* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *ERROR-OUTPUT*
      *C-ERROR-OUTPUT* *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC*
      *FENV* *BENV* *GENV* *VENV* *VENVC* *DENV* 0. *ERROR-COUNT*
      *WARNING-COUNT* *NO-CODE* COMPILE-LAMBDABODY (NIL NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-286
   #26Y(00 00 00 00 00 01 00 2A 01 C3 0B 00 00 D9 2E 02 D9 AB 6C 03 01 31 78 C4
        19 02
       )
   0. COMPILE-FORM REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FORM
      #32Y(06 00 00 00 00 00 D9 68 00 01 31 8D 0C 00 01 14 6F 02 62 B2 7A 02 B1
           B1 B1 B1 B1 2C 07 03 19 07
          )
      NIL #:COMPILED-FORM SYMBOL-SUFFIX COMPILE-LAMBDA
  )  )
#Y(#:TOP-LEVEL-FORM-287 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILE REMOVE-OLD-DEFINITIONS
   #Y(COMPILE
      #416Y(01 00 01 00 00 08 3B 01 14 3C 02 01 02 AF 88 00 80 45 AF 6E 06 91
            03 80 5C AA 8C 51 80 82 AA DF 37 01 80 7A 05 1B 80 85 9B 5D FB A0
            1F 09 93 05 24 16 04 7D 02 82 05 AF 8D 09 80 76 A0 1F 06 93 05 23
            1A 80 CF AF 8D 0A 80 CA D9 F3 F4 03 1D 14 6D 03 05 B1 32 01 1F D9
            DA DB C7 1A 72 E0 E1 E2 6D 03 05 E3 B2 2C 03 0C B0 2E 0D 1A 19 AA
            DF B1 31 7E 1A 80 46 92 06 0E AA DF 37 01 80 7A 03 1C 05 9E 20 59
            7D 01 AF 8E 09 FF B1 E6 E7 E8 6D 03 05 B0 2F 0C 92 06 24 91 01 53
            AA B0 31 78 1A 1B E9 EA B2 EB EC ED 6D 03 05 B4 32 03 1F 7D 01 1A
            FF 79 EF F0 F1 6D 03 05 B1 2F 0C A1 19 07 B8 64 20 31 2B 1A 80 5F
            B9 64 21 31 2B 1A 80 5E BA 64 22 31 2B 1A 80 5D BB 64 23 31 2B 1A
            80 5C BD 64 24 31 2B 1A 80 5D 65 43 64 36 31 2B 1A 80 9A 00 1A 80
            A7 EE 83 00 92 41 11 65 40 DF AC 31 7E 04 46 1A 80 96 91 42 6C 91
            41 6F 65 40 AB 31 78 04 46 1A 80 86 63 64 1E 64 1E 01 02 6A 1F 01
            03 B8 8D 0A FF 9A 00 14 B9 8D 0A FF 9B 00 14 BA 8D 0A FF 9C 00 14
            BB 8D 0A FF 9D 00 14 62 BD 8D 0A FF 9D 0E 25 10 26 00 10 27 04 13
            10 28 04 15 10 29 04 17 10 2A 04 19 10 2B 04 1B 10 2C 04 1D 10 2D
            04 1F 10 2E 04 21 10 2F 04 23 10 30 04 25 10 31 04 27 10 32 04 29
            10 33 04 2B 10 34 04 2D 10 35 65 43 8D 0A FF 60 04 43 5B 14 65 45
            AB 6F 37 6A 29 8E 88 FF 5A 91 46 FF 6B 9B 16 02 12 10 19 15
           )
      FUNCTION-NAME-P ERROR
      "Name of function to be compiled must be a symbol, not ~S"
      "Name einer zu compilierenden Funktion muß ein Symbol sein, nicht: ~S"
      "Le nom d'une fonction à compiler doit être un symbole et non ~S"
      LANGUAGE GET-FUNNAME-SYMBOL TRACED-DEFINITION
      "~S: redefining ~S; it was traced!"
      "~S: ~S war getraced und wird umdefiniert!"
      "~S: ~S est redéfinie, alors qu'elle était tracée!" COMPILE WARN UNTRACE2
      "~S is already compiled." "~S ist schon compiliert."
      "~S est déjà compilée." UNDEFINED-FUNCTION :NAME "Undefined function ~S"
      "Funktion ~S ist undefiniert." "Fonction non définie ~S." MACRO
      "~S is already compiled." "~S ist schon compiliert."
      "~S est déjà compilée." LAMBDA
      "Not a lambda expression nor a function: ~S"
      "Das ist weder ein Lambda-Ausdruck noch ein funktionales Objekt:~%~S"
      "Ni expression lambda ni fonction : ~S" 0. *ERROR-OUTPUT* 5. 6. 7. 4. 8.
      *TOPLEVEL-DENV* *DENV* *NO-CODE* *COMPILING* *ERROR-COUNT*
      *WARNING-COUNT* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *C-ERROR-OUTPUT*
      *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC* *FENV* *BENV* *GENV*
      *VENV* *VENVC* 1. COMPILE-LAMBDABODY
  )  )
#Y(#:TOP-LEVEL-FORM-288 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *TOPLEVEL-FOR-VALUE*) *TOPLEVEL-FOR-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-289 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILE-TOPLEVEL-FORM REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-TOPLEVEL-FORM
      #302Y(01 00 01 00 00 08 3A 01 02 0E 00 10 00 C4 4F 81 1A A3 1F 80 E6 93
            08 AA 8D 06 80 80 16 01 0E 0A 1C 80 E1 1A 80 E2 B2 6A 02 6F 03 AA
            88 04 6D AA DD 71 2B 37 01 27 4F 16 04 18 08 1A 80 ED 9E 25 07 80
            7C 00 1A 0F B6 E0 2F 09 94 0C 92 00 74 9B 5B 1B 0C 9B 5A 14 37 01
            27 FF AB 16 01 1A 35 DD AB 92 00 1D 93 00 82 01 0E 0A 1C 02 9C 58
            10 0A AD 6A 00 84 07 14 6F 0B 27 FF 8B 11 16 01 91 00 63 16 03 1A
            0F A7 10 0C B0 6A 0D 37 01 70 65 98 0E 35 01 11 00 16 07 18 08 1A
            80 8F AA 2E 06 41 03 92 02 FF 99 AC 24 10 1A B6 6A 02 6A 0F 72 02
            00 70 5A 37 01 27 FF 4E 16 07 18 08 1A 80 6C AD 8B 58 66 16 04 0E
            0A 1C 3B 1A 3D 00 16 03 18 08 1A 80 58 00 1A 3E B5 6A 15 2F 16 0E
            17 1C 80 44 14 30 8D B5 37 0C 7D 02 F6 6A 17 30 82 0E 12 1C 37 F0
            6A 12 31 47 79 2E 19 1A 2E B2 8D 06 FF 26 0E 0A 1B 04 B2 87 11 43
            00 10 12 6A 00 62 B7 0E 0A 1B 40 D6 7B 02 2F 14 09 0B 0E 15 1B FF
            B7 0E 17 1B FF BC 0E 12 1B 49 00 11 50 11 19 03
           )
      *TOPLEVEL-NAME* C-ERROR *VENV* VENV-SEARCH-MACRO SYMBOL-MACRO-P 0.
      FENV-SEARCH
      #S(HASH-TABLE EQ (SYMBOL-MACROLET . 68.) (MACROLET . 68.)
         (COMPILER-LET . 68.) (EVAL-WHEN . 68.) (LOCALLY . 68.) (PROGN . 5.)
        )
      1. TEST-LIST *TOPLEVEL-FOR-VALUE* SYMBOL-SUFFIX *FORM* C-FORM-TABLE
      COMPILE-TOPLEVEL-FORM *FENV* MACRO C-CONSTANTP *PACKAGE-TASKS* ((VALUES))
      COMPILE-LAMBDABODY *C-LISTING-OUTPUT* DISASSEMBLE-CLOSURES
      *FASOUTPUT-STREAM* PROGN C-EVAL-WHEN-COMPILE
  )  )
#Y(#:TOP-LEVEL-FORM-290 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPILE-FILE REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FILE
      #790Y(01 00 00 00 80 1C 05 00 00 00 3A 05 02 7D 05 3C 04 3A 03 02 0E 05
            10 05 3A 05 02 0E 06 10 06 3A 07 02 0E 07 10 07 01 04 BD E0 2F 09
            5A 1B 0A BD E2 37 02 70 F1 37 01 30 F1 09 13 92 12 05 14 8E 16 81
            04 92 11 12 14 8D 16 0E BB 02 21 81 13 BB 37 02 30 F1 09 11 7D 00
            BD E6 37 03 70 F9 52 82 A5 D2 44 91 04 81 04 BF 8D 16 81 08 00 14
            52 82 72 65 1A 65 1B 70 F5 01 02 91 0C 80 FC 65 1D 8D 16 81 00 00
            14 91 0D 80 FF 00 10 11 62 A3 10 12 A5 10 13 A7 10 14 A9 10 15 04
            10 10 16 52 82 13 91 1C 80 ED 0E 1E 1B 19 00 0F 1F 0F 20 0F 21 0F
            22 0F 23 0F 24 0F 25 0F 26 0F 27 0F 28 0F 29 7D 24 63 63 6A 2A 6A
            2B 65 20 91 21 80 E3 0E 2C 10 2D 00 10 2E 00 10 2F 00 10 30 00 10
            31 00 10 32 00 10 33 0E 34 10 35 03 36 10 37 03 36 10 38 0E 16 58
            1C 03 04 3F 58 10 39 02 10 3A 64 36 04 29 10 1E 04 2B 10 3B 04 2D
            10 2A 04 2F 10 2B 04 31 10 3C 64 3D 64 3E 64 3F 6D 03 1A 65 6E 2F
            40 0E 16 1C 80 DB 0E 41 10 2A 64 42 64 43 2D 42 14 7A 02 7A 02 37
            0C 7D 00 6A 16 30 82 11 1A 80 C0 E3 BE 37 01 30 F1 1A 09 BC 02 21
            74 BC 37 02 30 F1 09 12 E4 BD 37 01 7F F1 02 7D 01 92 11 FE F9 1A
            FE E4 E5 BE 37 01 30 F1 1A FE E9 BF E8 37 03 30 F9 1A FE F9 04 15
            1A FE F4 65 1D E8 37 03 30 F9 1A FF 01 04 1D 1A FE FC B8 E8 37 03
            30 F9 1A FE F9 14 EF F0 F1 6D 03 1A 65 36 2D 1B 14 2D 1C 42 14 70
            C2 70 C3 2C 07 1D 0E 1E 1C FE FB 1A FF 11 6A 2C 65 22 32 02 2B 1A
            FF 15 64 5F 64 60 64 61 6D 03 1A AC 71 47 2F 40 92 00 80 CC 64 62
            64 63 64 64 6D 03 1A AB 71 47 2F 40 16 02 1A 80 BB 0E 07 1C 10 63
            64 46 AC 64 47 6A 48 72 02 35 6F 49 2C 03 1D AA 64 4A 84 12 14 6F
            4B 2F 4C 16 01 63 65 5A 62 64 44 37 01 30 7C 65 59 2E 45 0F 14 65
            59 62 64 44 37 01 70 76 65 5A 2E 45 0F 15 AA 64 44 8E 01 FF BA 16
            01 64 4D 64 4E 64 4F 6D 03 1A 65 6E 2F 40 64 50 64 51 64 52 6D 03
            1A 6A 37 6A 38 62 6A 38 03 53 59 14 62 6D 03 1A 2C 04 40 92 5D 80
            47 0E 1F 1C 0F 64 54 64 55 64 56 6D 03 1A 6A 1F 71 47 2F 40 6A 24
            6A 23 64 57 64 58 2C 04 59 0F 24 1C 0F 64 5A 64 5B 64 5C 6D 03 1A
            6A 24 71 47 2F 40 6A 21 6A 20 6F 5D 6A 21 6A 20 6F 5E 91 01 FF 26
            91 00 FF 34 16 02 64 65 2E 40 6A 37 80 88 4A 12 05 16 01 12 0C 16
            05 53 05 00 20 1C 22 1A 05 05 00 20 1C 1B 6A 16 37 01 31 73 6A 11
            37 01 31 73 05 00 0F 1B 0A 66 00 31 30 F7 66 00 21 30 F7 54 12 05
            16 01 11 16 05 53 05 00 05 1C 0E 1A 05 05 00 05 1C 07 66 00 00 37
            01 31 73 54 16 01 40 05 00 02 1C 05 14 37 01 31 73 45 53 05 00 00
            1C 0B 1A 05 05 00 00 1C 04 14 63 31 73 54 16 05 12 03 19 07
           )
      :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *COMPILE-WARNINGS*
      *COMPILE-VERBOSE* *COMPILE-PRINT*
      (#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
          :TYPE "lsp" :VERSION NIL
      )  )
      SEARCH-FILE
      #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
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lib" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lis" :VERSION NIL
        )
      :INPUT-IMMUTABLE #.#'VALUES :OUTPUT *LIBOUTPUT-STREAM*
      *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* *COMPILE-FILE-LINENO1*
      *COMPILE-FILE-LINENO2* *FASOUTPUT-STREAM*
      "~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A"
      "~&Listing der Compilation von File ~A~%am ~@? durch ~A in der Version ~A"
      "~&Listage de la compilation du fichier ~A~%le ~@? par ~A, version ~A"
      LANGUAGE DATE-FORMAT GET-DECODED-TIME FORMAT *COMPILING*
      *FUNCTIONS-WITH-ERRORS* *KNOWN-SPECIAL-VARS* *UNKNOWN-FREE-VARS*
      *CONSTANT-SPECIAL-VARS* *KNOWN-FUNCTIONS* *UNKNOWN-FUNCTIONS*
      *INLINE-FUNCTIONS* *NOTINLINE-FUNCTIONS* *INLINE-DEFINITIONS*
      *USER-DECLARATION-TYPES* *COMPILED-MODULES* *PACKAGE* *READTABLE*
      *ERROR-OUTPUT* *C-ERROR-OUTPUT* *FUNC* *FENV* *BENV* *GENV* *VENV*
      *VENVC* *TOPLEVEL-DENV* *DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE*
      *TOPLEVEL-FOR-VALUE* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT*
      "~%Compiling file ~A ..." "~%File ~A wird compiliert..."
      "~%Compilation du fichier ~A..." C-COMMENT *KEYWORD-PACKAGE* VERSION
      QUOTE "EOF" LINE-NUMBER "~%; ~A" -2. *PRIN-LINELENGTH*
      WRITE-TO-SHORT-STRING #:TOP-LEVEL-FORM SYMBOL-SUFFIX
      COMPILE-TOPLEVEL-FORM "~&~%Compilation of file ~A is finished."
      "~&~%Compilation von File ~A beendet."
      "~&~%Compilation du fichier ~A terminée." "~%~D error~:P, ~D warning~:P"
      "~%~D Error~:P, ~D Warnung~:[en~;~]"
      "~%~D erreur~:P, ~D avertissement~:P" 1.
      "~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}"
      "~%Es gab Errors in den folgenden Funktionen:~%~{~<~%~:; ~S~>~^~}"
      "~%Il y a des erreurs dans les fonctions :~%~{~<~%~:; ~S~>~^~}" :TEST
      #.#'EQUAL NSET-DIFFERENCE
      "~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
      "~%Folgende Funktionen wurden verwendet, aber nicht definiert:~%~{~<~%~:; ~S~>~^~}"
      "~%Les fonctions suivantes sont utilisées mais non définies :~%~{~<~%~:; ~S~>~^~}"
      SET-DIFFERENCE INTERSECTION
      "~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
      "~%Folgende Special-Variablen wurden nicht definiert:~%~{~<~%~:; ~S~>~^~}"
      "~%Les variables utilisées comme SPECIAL ne sont pas définies :~%~{~<~%~:; ~S~>~^~}"
      "~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}"
      "~%Folgende Special-Variablen wurden zu spät definiert:~%~{~<~%~:; ~S~>~^~}"
      "~%Les variables déclarées SPECIAL sont définies trop tard :~%~{~<~%~:; ~S~>~^~}"
      "~%"
  )  )
#Y(#:TOP-LEVEL-FORM-291 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISASSEMBLE-CLOSURES REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-CLOSURES
      #46Y(02 00 00 00 00 03 00 2A 01 00 0B 00 00 AA 6C 00 01 AE 9C 33 16 01 67
           00 00 71 47 62 1A 09 86 01 00 14 AF 2F 01 82 01 AB 8C 94 73 00 19 06
          )
      #Y(DISASSEMBLE-CLOSURES-MARK
         #52Y(01 00 00 00 00 02 AB 07 00 01 5C 0C 00 01 AB 71 35 62 1A 19 86 01
              00 14 8E 0A 10 AA 8E 09 0C AA 68 00 01 37 03 8B B5 03 AA 27 5B 82
              01 AB 8C 94 63 00 19 04
             )
         NIL
        )
      DISASSEMBLE-CLOSURE
  )  )
#Y(#:TOP-LEVEL-FORM-292 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISASSEMBLE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-CLOSURE
      #506Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 AB 30 8D AB 30 8D D9 DA DB 6D
            03 04 AC 37 02 30 8B AC 71 33 AC 30 83 AC 2E 05 41 08 AA DE 92 01
            1F B5 30 8D DF B6 37 02 30 8B AA B6 30 83 E0 B6 37 02 30 8B 93 01
            B6 30 83 82 01 84 00 91 01 61 16 02 B3 30 8D B1 B4 30 83 E1 E2 E3
            6D 03 04 B4 37 02 30 8B B3 30 8D B0 B4 30 83 E4 E5 E6 6D 03 04 B4
            37 02 30 8B B3 30 8D 91 05 25 EA EB D7 14 6D 03 04 B4 37 02 30 8B
            91 04 1B B3 30 8D 64 26 64 27 64 28 6D 03 04 B4 37 02 30 8B 62 AB
            1A 80 9D E7 E8 D4 1A 59 AD 71 45 B4 30 8D AA B5 30 83 ED EE EF 2C
            03 04 25 18 3E 03 19 1A 34 F4 B5 37 02 30 8B 03 1D 1A 2A F2 B5 37
            02 30 8B AA 24 1B 6C 03 1D 1A 1C 64 1F B5 37 02 30 8B 03 20 1A 11
            03 21 1A 25 64 1E B5 37 02 30 8B AA 24 1B 66 03 20 14 B5 37 02 30
            8B AE AA 8B 94 2B 93 00 82 01 B6 30 83 AA 8B 94 59 03 22 14 B6 37
            02 30 8B 1A 67 B4 30 8D 64 23 64 24 64 25 6D 03 04 B5 37 02 30 8B
            16 01 1A FF 75 16 01 91 03 65 16 01 1A FF 6B 93 00 AA 64 29 6F 2A
            83 02 16 01 82 00 9B 20 70 16 01 AA 7F A5 00 AC AC 6F 2B 92 00 80
            A8 9B 5A 77 9C 5A 78 B7 30 8D AB B8 30 83 DE 64 2C B9 70 92 72 01
            36 1A 3D 9B 5A 25 2E 2E 63 9C 5B 5A 1A 10 63 64 2F 9D 1A 05 63 6A
            30 9D 5B 5B 77 32 02 35 14 30 00 1A 0E 64 31 9C 5B 1A 03 64 31 9C
            5B 77 AF 30 96 14 3F 02 1A 1B 00 1A 18 64 2D BA 30 8A 84 01 AB AB
            90 01 32 73 16 02 AA B8 30 86 9B 20 FF B3 00 41 02 92 01 35 DE F3
            64 32 BC 70 92 72 01 36 72 01 33 1A 0F AA BA 37 02 30 8B 1A 1E 64
            2D BC 30 8A 84 01 AB AB 90 01 32 73 16 02 64 33 BA 37 02 30 8B AB
            23 31 5E AA BA 30 83 16 04 82 00 91 00 FF 58 16 02 B3 30 8D 19 0B
           )
      *STANDARD-OUTPUT* "Disassembly of function " "Disassembly von Funktion "
      "Déassemblage de la fonction " LANGUAGE SIGNATURE 0. "(CONST " ") = "
      " required arguments" " notwendige Argumente" " arguments nécessaires"
      " optional arguments" " optionale Argumente" " arguments facultatifs"
      "Rest parameter" "Rest-Parameter vorhanden" "Paramètre &REST"
      "No rest parameter" "Kein Rest-Parameter" "Pas de paramètre &REST"
      ENGLISH DEUTSCH FRANCAIS
      #S(HASH-TABLE EQ (FRANCAIS . 44.) (ENGLISH . 15.) (DEUTSCH . 1.))
      " Keyword-Parameter: " " keyword parameter" 1. "s" ": " " mot" "s" "-clé"
      "." ", " "Other keywords are allowed." "Andere Keywords sind zugelassen."
      "D'autres mots-clé sont permis." "No keyword parameters"
      "Keine Keyword-Parameter" "Pas de mot-clé" 35. WRITE-TO-SHORT-STRING
      DISASSEMBLE-LAP 6. #\Space
      #S(HASH-TABLE EQ (HANDLER-OPEN . 34.) (TAGBODY-OPEN . 34.)
         (CONST&SYMBOL-FUNCTION&STORE . 34.) (COPY-CLOSURE . 34.)
         (COPY-CLOSURE&PUSH . 34.) (CONST&SYMBOL-FUNCTION . 34.)
         (CONST&SYMBOL-FUNCTION&PUSH . 34.) (CONST&STORE . 34.) (BIND . 34.)
         (GETVALUE&PUSH . 34.) (GETVALUE . 34.) (SETVALUE . 34.)
         (CONST&PUSH . 34.) (CONST . 34.) (JMPIFNOTEQTO . 34.)
         (JMPIFEQTO . 34.) (CALL2&JMPIF . 34.) (CALL2&JMPIFNOT . 34.)
         (CALL2&PUSH . 34.) (CALL2 . 34.) (CALL1&JMPIF . 34.)
         (CALL1&JMPIFNOT . 34.) (CALL1&PUSH . 34.) (CALL1 . 34.) (CALL0 . 34.)
         (CALL&PUSH . 28.) (CALL . 28.) (CALLSR&JMPIF . 13.)
         (CALLSR&JMPIFNOT . 13.) (CALLSR&STORE . 13.) (CALLSR&PUSH . 13.)
         (CALLSR . 13.) (CALLS2&JMPIF . 7.) (CALLS2&JMPIFNOT . 7.)
         (CALLS2&STORE . 7.) (CALLS2&PUSH . 7.) (CALLS2 . 7.)
         (CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.)
         (CALLS1&PUSH . 1.) (CALLS1 . 1.)
        )
      256. FUNTABR-INDEX STRING 42. "; "
  )  )
#Y(#:TOP-LEVEL-FORM-293 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DISASSEMBLE REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE
      #114Y(01 00 00 00 00 02 AB 88 00 12 AB 8C 51 80 45 AB 2E 07 F7 14 E0 37
            01 8E 7A 80 46 F7 9C 1F 07 93 01 24 09 02 82 01 AB 8E 0A 3D AB 8D
            09 20 AB E6 71 2B AC E7 71 2B AD E8 71 2B AE E9 71 2B AF EA 71 2B
            B0 EB 71 2B B1 EC 71 2B 2C 07 15 F7 AB 2E 16 9C 19 02 D9 DA AD DB
            DC DD 6D 03 06 AF 32 03 1F 9C 5D F7 1A FF B5 E2 E3 E4 E5 6D 03 06
            AD 32 01 1F
           )
      FUNCTION-NAME-P UNDEFINED-FUNCTION :NAME "Undefined function ~S"
      "Funktion ~S ist undefiniert." "Fonction non-définie ~S" LANGUAGE
      GET-FUNNAME-SYMBOL TRACED-DEFINITION MACRO ERROR "Cannot disassemble ~S"
      "~S kann nicht disassembliert werden." "Impossible de déassembler ~S" 0.
      1. 4. 5. 6. 7. 8. COMPILE-LAMBDA DISASSEMBLE-CLOSURE
  )  )