(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 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 BB 0F 01 19 01)
   COMPILER *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "COMPILER")
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 37 01 30 DC 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 DC 19 01)
   (VERSION SUBR-INFO)
  )
#Y(#:TOP-LEVEL-FORM-7
   #31Y(00 00 00 00 00 01 D8 70 CF D9 8C 61 0B AA D9 70 51 8D 03 04 D9 DA 2F 03
        D9 AB 31 83 C4 19 02
       )
   #1="KEYWORD" *KEYWORD-PACKAGE*
   (DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1#)) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-8
   #31Y(00 00 00 00 00 01 D8 70 CF D9 8C 61 0B AA D9 70 51 8D 03 04 D9 DA 2F 03
        D9 AB 31 83 C4 19 02
       )
   #1="LISP" *LISP-PACKAGE* (DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1#))
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COMPILING*) *COMPILING*
  )
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 63 30 55 C4 19 01)
   (SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
  )
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 63 30 55 C4 19 01)
   (SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
  )
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COMPILE-PRINT*) *COMPILE-PRINT*
  )
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *COMPILING-FROM-FILE*) *COMPILING-FROM-FILE*
  )
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COMPILE-FILE-PATHNAME*) *COMPILE-FILE-PATHNAME*
  )
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COMPILE-FILE-TRUENAME*) *COMPILE-FILE-TRUENAME*
  )
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COMPILE-FILE-LINENO1*) *COMPILE-FILE-LINENO1*
  )
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COMPILE-FILE-LINENO2*) *COMPILE-FILE-LINENO2*
  )
#Y(#:TOP-LEVEL-FORM-18 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *C-LISTING-OUTPUT*) *C-LISTING-OUTPUT*
  )
#Y(#:TOP-LEVEL-FORM-19 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *C-ERROR-OUTPUT*) *C-ERROR-OUTPUT*
  )
#Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *KNOWN-SPECIAL-VARS*) *KNOWN-SPECIAL-VARS*
  )
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CONSTANT-SPECIAL-VARS*) *CONSTANT-SPECIAL-VARS*
  )
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *FASOUTPUT-STREAM*) *FASOUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-23
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COUTPUT-FILE*) *COUTPUT-FILE*
  )
#Y(#:TOP-LEVEL-FORM-25
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *COUTPUT-STREAM*) *COUTPUT-STREAM*
  )
#Y(#:TOP-LEVEL-FORM-26
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
  )
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *KNOWN-FUNCTIONS*) *KNOWN-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *UNKNOWN-FUNCTIONS*) *UNKNOWN-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *UNKNOWN-FREE-VARS*) *UNKNOWN-FREE-VARS*
  )
#Y(#:TOP-LEVEL-FORM-30 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *INLINE-FUNCTIONS*) *INLINE-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-31 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *NOTINLINE-FUNCTIONS*) *NOTINLINE-FUNCTIONS*
  )
#Y(#:TOP-LEVEL-FORM-32 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *INLINE-DEFINITIONS*) *INLINE-DEFINITIONS*
  )
#Y(#:TOP-LEVEL-FORM-33 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *USER-DECLARATION-TYPES*) *USER-DECLARATION-TYPES*
  )
#Y(#:TOP-LEVEL-FORM-34 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *COMPILED-MODULES*) *COMPILED-MODULES*
  )
#Y(#:TOP-LEVEL-FORM-35 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *PACKAGE-TASKS*) *PACKAGE-TASKS*
  )
#Y(#:TOP-LEVEL-FORM-36
   #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
   (SPECIAL *FFI-MODULE*) *FFI-MODULE*
  )
#Y(#:TOP-LEVEL-FORM-37-1
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 3D 19 01)
   %RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-37-2
   #22Y(00 00 00 00 00 01 D8 D9 DA C6 79 31 88 D8 DC 62 2C 03 05 3D 19 01)
   CLOSURE-NAME SETF-EXPANDER -1.
   #Y(SETF-CLOSURE-NAME
      #17Y(00 02 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-37-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CLOSURE
      #25Y(00 00 00 00 80 1B 00 03 00 00 3C 03 3C 02 3C 01 AD AD 71 39 AD 31 3A
           19 04
          )
      :NAME :CODEVEC :CONSTS
  )  )
#Y(#:TOP-LEVEL-FORM-38
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 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)
       )
   (DEFCONSTANT INSTRUCTION-TABLE '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-39
   #34Y(00 00 00 00 00 01 D8 D9 71 48 1A 0D D9 9D 5E 77 AA DA AE 31 88 16 01 84
        01 AB AB 90 01 32 6D 00 19 03
       )
   0. #.INSTRUCTION-TABLE INSTRUCTION
  )
#Y(#:TOP-LEVEL-FORM-40
   #61Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 DA 71 48 1A 0D DA 9D 5E 77 AA AE
        AE 30 68 16 01 84 01 AB AB 90 01 32 6D 16 02 DB 8C 61 0B AA DB 70 51 8D
        03 04 DB DC 2F 05 DB AB 31 83 C6 19 02
       )
   #.#'EQ 0. #.INSTRUCTION-TABLE INSTRUCTION-CODES
   (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
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-41
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 C3 19 01
       )
   INSTRUCTION-TABLE-K #1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)
   (DEFCONSTANT INSTRUCTION-TABLE-K '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-42
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 C3 19 01
       )
   SHORT-CODE-BASE 155. (DEFCONSTANT SHORT-CODE-BASE 155.) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-43
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 C3 19 01
       )
   SHORT-CODE-OPSIZE #1=#(15. 25. 21. 30. 10.)
   (DEFCONSTANT SHORT-CODE-OPSIZE '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-44
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 C3 19 01
       )
   SHORT-CODE-OPS #1=#(155. 170. 195. 216. 246.)
   (DEFCONSTANT SHORT-CODE-OPS '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-45
   #60Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 1A 0F AA 70 00 92 00 05 14 AD AD
        30 68 16 01 84 00 AA DA 90 01 32 6B 16 01 DB 8C 61 0B AA DB 70 51 8D 03
        04 DB DC 2F 05 DB AB 31 83 C6 19 02
       )
   #.#'EQ 0. 768. FUNCTION-CODES
   (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
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-46
   #61Y(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 61 0B AA DA 70 51 8D
        03 04 DA DB 2F 04 DA AB 31 83 C5 19 02
       )
   0. 768. FUNTABR-INDEX
   (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))
   ) ) ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CALLS-CODE REMOVE-OLD-DEFINITIONS
   #Y(CALLS-CODE
      #27Y(00 01 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-48
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) MEMQ
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(MEMQ
      #54Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 19 9D 5B 77 9E 5B 5B 77 AA 8C
           61 06 AA 70 5E 8D 0D 0D DD AC AC C9 61 03 19 05 AC 2E 01 19 03 DA AC
           AC 70 5E C6 79 C7 1A 6D
          )
      3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
  )  )
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILER-ERROR REMOVE-OLD-DEFINITIONS
   #Y(COMPILER-ERROR
      #19Y(00 01 00 01 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-50 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *STACKZ*) *STACKZ*
  )
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   STACKZ-FUN REMOVE-OLD-DEFINITIONS
   #Y(STACKZ-FUN
      #20Y(00 01 00 00 00 02 9C 1F 08 AB 37 01 30 A0 5B 19 02 9C 19 02)
  )  )
#Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   IN-SAME-FUNCTION-P REMOVE-OLD-DEFINITIONS
   #Y(IN-SAME-FUNCTION-P #15Y(00 02 00 00 00 03 AC 6E 00 AC 2E 00 59 19 03)
      STACKZ-FUN
  )  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ZUGRIFF-IN-STACK REMOVE-OLD-DEFINITIONS
   #Y(ZUGRIFF-IN-STACK
      #249Y(00 02 00 00 00 03 62 D8 D8 AF A0 21 80 CD A0 20 04 D9 DA 2F 03 93
            05 AA 8D 0E 28 9B 1F 3F 93 00 AA 23 04 24 AA 24 06 2C AC 6A 07 71
            97 81 02 35 02 AD E0 9E 5B 77 32 02 35 14 81 02 35 03 16 01 1A 80
            91 AC 9C 1A 80 69 AD DD 9E 5B 77 72 02 37 31 97 1A 65 D9 E1 2F 03
            16 01 1A 80 77 9B 25 0A 80 6E 14 AC 32 02 35 1A 04 91 03 76 9C F9
            CE F7 C3 F8 1A 80 5F AB DD 6A 07 72 02 35 81 02 35 01 CB 1A 2C AB
            DD 6A 07 72 02 35 81 02 35 01 C8 1A 1E 14 AC 32 02 35 1A 04 91 03
            76 9C F9 CB F7 C3 F8 1A 31 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 14 AC 32 02 35 1A 04 91
            03 76 9C F9 CE F7 C3 F8 1A 04 D9 E4 2F 03 16 01 82 05 1A FF 2E 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 . 101.) (MVCALL . 101.) (MVCALLP . 88.)
         (BLOCK . 67.) (CLEANUP . 56.) (UNWIND-PROTECT . 35.) (CATCH . 21.)
         (PROGV . 9.)
        )
      1. "STACKZ-ITEM" BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   MAY-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(MAY-UNWIND
      #32Y(00 02 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-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   EXPAND-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(EXPAND-UNWIND
      #279Y(00 03 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 ED A0 20 04 DA DB 2F 04 93 05 AA 8D
            0E 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 BC 67 02 01 9C 1A 37 9D 33 C9 1A 68 DA E1
            2F 04 16 01 1A 80 A8 9B 25 0A 80 9F 9C 33 E3 06 03 03 5C 0B 02 03
            CF 0B 02 02 1A 80 92 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 75 7D 04 E8 06 03 03 5C 0B
            02 03 D4 1A 2A 9C 33 92 04 6E D4 1A 22 14 67 03 02 32 02 35 1A 08
            06 02 00 1B 72 06 02 02 0B 02 00 D2 0B 02 02 C3 0B 02 01 1A 80 41
            9C 33 D5 14 06 03 03 5C 0B 02 03 1A 34 67 02 02 31 97 0B 02 02 67
            02 01 31 97 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 0E 9B 33 67 01 03 31 4A 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 98 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 . 140.) (MVCALLP . 113.) (BLOCK . 100.)
         (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-56 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SPDEPTH-DIFFERENCE REMOVE-OLD-DEFINITIONS
   #Y(SPDEPTH-DIFFERENCE
      #79Y(00 02 00 00 00 03 D8 1A 3F AC 6A 05 71 97 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-57 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *FENV*) *FENV*
  )
#Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   FENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(FENV-SEARCH
      #107Y(00 01 00 01 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 26 03
            D9 2E 02 AB 71 48 71 98 DB AA AC 8F 01 2D 23 AE AE 9D 5E 14 8E 04
            13 AD AB 31 97 5E 14 9B 20 4D DE AF AD 31 97 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-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
   #Y(GLOBAL-IN-FENV-P #13Y(00 02 00 00 00 03 AC AC 2F 00 58 19 03) FENV-SEARCH
  )  )
#Y(#:TOP-LEVEL-FORM-60 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *BENV*) *BENV*
  )
#Y(#:TOP-LEVEL-FORM-61
   #292Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
         88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
         30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
         EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
         F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
         64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
         64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
         31 88 64 28 64 2A 31 82 E7 64 2B 64 2C 03 2D 79 31 88 E7 64 2E 62 2C
         03 2F EC 64 2B 64 2C 03 30 79 31 88 EC 64 2E 62 2C 03 2F F1 64 2B 64
         2C 03 31 79 31 88 F1 64 2E 62 2C 03 2F 64 1E 64 2B 64 2C 03 32 79 31
         88 64 1E 64 2E 62 2C 03 2F 64 23 64 2B 64 2C 03 33 79 31 88 64 23 64
         2E 62 2C 03 2F 64 28 64 2B 64 2C 03 34 79 31 88 64 28 64 2E 62 2C 03
         2F DB 64 35 62 2C 03 2F DB 64 36 31 89 C6 19 01
        )
   MAKE-BLOCK REMOVE-OLD-DEFINITIONS
   #Y(MAKE-BLOCK
      #65Y(00 00 00 00 80 1B 00 06 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DE
           DF 71 33 E0 AB E1 B4 31 32 E0 AB E2 B3 31 32 E0 AB E3 B2 31 32 E0 AB
           E4 B1 31 32 E0 AB E5 B0 31 32 E0 AB E6 AF 31 32 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(00 01 00 00 00 02 D8 AC 31 35 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 19 02) BLOCK 6.)
   SETF-EXPANDER -1.
   #Y(SETF-BLOCK-FNODE
      #18Y(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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-62 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) BLOCK
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(BENV-SEARCH
      #48Y(00 01 00 01 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 35 16 01 1B 70 9C 5A
           19 03
          )
      *BENV* BLOCK
  )  )
#Y(#:TOP-LEVEL-FORM-64 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *GENV*) *GENV*
  )
#Y(#:TOP-LEVEL-FORM-65
   #248Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
         88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
         30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
         EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
         F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
         64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
         64 23 64 25 31 82 E7 64 26 64 27 03 28 79 31 88 E7 64 29 62 2C 03 2A
         EC 64 26 64 27 03 2B 79 31 88 EC 64 29 62 2C 03 2A F1 64 26 64 27 03
         2C 79 31 88 F1 64 29 62 2C 03 2A 64 1E 64 26 64 27 03 2D 79 31 88 64
         1E 64 29 62 2C 03 2A 64 23 64 26 64 27 03 2E 79 31 88 64 23 64 29 62
         2C 03 2A DB 64 2F 62 2C 03 2A DB 64 30 31 89 C6 19 01
        )
   MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
   #Y(MAKE-TAGBODY
      #57Y(00 00 00 00 80 1B 00 05 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 DD DE 71
           33 DF AB E0 B3 31 32 DF AB E1 B2 31 32 DF AB E2 B1 31 32 DF AB E3 B0
           31 32 DF AB E4 AF 31 32 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(00 01 00 00 00 02 D8 AC 31 35 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 19 02) TAGBODY 5.)
   SETF-EXPANDER -1.
   #Y(SETF-TAGBODY-FNODE
      #18Y(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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-66 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) TAGBODY
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   GENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(GENV-SEARCH
      #73Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 9C 1F 09 9C 5A 77 AA 71 48 D9 1A
           25 00 19 03 9F 5A 5B 1A 0D 9F 5A 78 DA AB 31 35 16 01 1B 70 9F 5A 14
           AB 3F 02 19 06 AC 9C 5E 14 B0 8D 03 65 84 00 AA AC 90 01 2D 70 16 03
           82 01 1A 43
          )
      *GENV* 0. TAGBODY
  )  )
#Y(#:TOP-LEVEL-FORM-68
   #18Y(00 00 00 00 00 01 D8 30 5D D9 DA 70 5E 30 55 C4 19 01)
   (SPECIAL SPECDECL) SPECDECL
   (LET
     ((*EVALHOOK*
         #'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM)) (SVREF (SVREF ENV 0.) 1.)
     ))    )
     0.
  ))
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   PROCLAIMED-SPECIAL-P REMOVE-OLD-DEFINITIONS
   #Y(PROCLAIMED-SPECIAL-P
      #25Y(00 01 00 00 00 02 AB 31 8F 1D 0C AB 6A 00 D9 37 02 30 B7 58 58 19 02
           19 02
          )
      *KNOWN-SPECIAL-VARS* #.#'EQ
  )  )
#Y(#:TOP-LEVEL-FORM-70 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *VENV*) *VENV*
  )
#Y(#:TOP-LEVEL-FORM-71 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *VENVC*) *VENVC*
  )
#Y(#:TOP-LEVEL-FORM-72
   #440Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
         88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
         30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
         EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
         F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
         64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
         64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
         31 88 64 28 64 2A 31 82 64 2B 30 5D 64 2C 30 5D 64 2D 2E 01 64 2D E2
         64 2E 31 88 64 2D 64 2F 31 82 64 30 30 5D 64 31 30 5D 64 32 2E 01 64
         32 E2 64 33 31 88 64 32 64 34 31 82 64 35 30 5D 64 36 30 5D 64 37 2E
         01 64 37 E2 64 38 31 88 64 37 64 39 31 82 64 3A 30 5D 64 3B 30 5D 64
         3C 2E 01 64 3C E2 64 3D 31 88 64 3C 64 3E 31 82 64 3F 30 5D 64 40 30
         5D 64 41 2E 01 64 41 E2 64 42 31 88 64 41 64 43 31 82 F1 64 44 64 45
         03 46 79 31 88 F1 64 47 62 2C 03 48 64 1E 64 44 64 45 03 49 79 31 88
         64 1E 64 47 62 2C 03 48 64 23 64 44 64 45 03 4A 79 31 88 64 23 64 47
         62 2C 03 48 64 28 64 44 64 45 03 4B 79 31 88 64 28 64 47 62 2C 03 48
         64 2D 64 44 64 45 03 4C 79 31 88 64 2D 64 47 62 2C 03 48 64 32 64 44
         64 45 03 4D 79 31 88 64 32 64 47 62 2C 03 48 64 37 64 44 64 45 03 4E
         79 31 88 64 37 64 47 62 2C 03 48 DB 64 4F 62 2C 03 48 DB 64 50 31 89
         C6 19 01
        )
   MAKE-VAR REMOVE-OLD-DEFINITIONS
   #Y(MAKE-VAR
      #105Y(00 00 00 00 80 1B 00 0B 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 33 E5 AB E6 B9 31 32 E5 AB
            E7 B8 31 32 E5 AB E8 B7 31 32 E5 AB E9 B6 31 32 E5 AB EA B5 31 32
            E5 AB EB B4 31 32 E5 AB EC B3 31 32 E5 AB ED B2 31 32 E5 AB EE B1
            31 32 E5 AB EF B0 31 32 E5 AB F0 AF 31 32 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(00 01 00 00 00 02 D8 AC 31 35 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 19 02) VAR 11.)
   SETF-EXPANDER -1.
   #Y(SETF-VAR-CONSTANTP
      #18Y(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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-73 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) VAR
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   VENV-SEARCH REMOVE-OLD-DEFINITIONS
   #Y(VENV-SEARCH
      #122Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC 8B 61 0B AC 87 01 07 91 01
            80 54 00 19 03 C5 19 03 AB 71 48 71 98 DB 1A 36 C5 19 06 DC AB DD
            8D 31 77 63 AB 3F 02 19 06 C5 19 06 AD AB 31 97 5E 14 DC AB 8D 35
            66 AA 0E 06 21 6D DF AF 95 03 3F 03 19 06 AE AE 9D 5E 21 62 DD AB
            81 02 35 00 AA AC 90 01 2D 6E AD 9C 5E F9 16 02 92 01 FF AC AB 8D
            26 FF AD E0 2E 09 92 01 FF A0 1A 72
           )
      *VENV* PROCLAIMED-SPECIAL-P SPECIAL 0. VAR 2. SPECDECL LOCAL VENV-SEARCH
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   VENV-SEARCH-MACRO REMOVE-OLD-DEFINITIONS
   #Y(VENV-SEARCH-MACRO
      #55Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC AC 2F 01 41 03 92 02 07 AC 23
           03 08 00 19 06 AF 2E 02 19 06 AB 9C 5E 14 2E 04 1E 0C 63 AC 9D 5E 14
           DD 71 2E 3F 02 19 06 19 06
          )
      *VENV* VENV-SEARCH SYMBOL-MACRO-EXPAND LOCAL SYMBOL-MACRO-P 0.
  )  )
#Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 AB 9F 61 02 F8 82 01 AB 8C 96 6D 16 02 DB 9C 36 00 0F
           00 19 03
          )
      *VENV* VAR 1. #.#'VECTOR
  )  )
#Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ZUGRIFF-IN-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(ZUGRIFF-IN-CLOSURE
      #83Y(00 03 00 00 00 04 01 02 1A 1A AA 8D 0D 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 31 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-78
   #156Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
         88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
         30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
         EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
         F1 F3 31 82 E7 F4 F5 03 1E 79 31 88 E7 64 1F 62 2C 03 20 EC F4 F5 03
         21 79 31 88 EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 88 F1 64 1F 62
         2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 89 C6 19 01
        )
   MAKE-CONST REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONST
      #41Y(00 00 00 00 80 1B 00 03 00 00 3C 03 3C 02 3C 01 DB DC 71 33 DD AB DE
           B1 31 32 DD AB DF B0 31 32 DD AB E0 AF 31 32 15 19 04
          )
      :VALUE :FORM :HORIZONT #1=(CONST) 4. CONST 1. 2. 3.
     )
   CONST DEFSTRUCT-DESCRIPTION #1#
   ((VALUE 1. NIL T NIL) (FORM 2. NIL T NIL) (HORIZONT 3. 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(00 01 00 00 00 02 D8 AC 31 35 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CONST 2.)
   (FUNCTION CONST-HORIZONT (CONST) T) (INLINE CONST-HORIZONT) CONST-HORIZONT
   (#2# (DECLARE (IN-DEFUN CONST-HORIZONT))
     (BLOCK CONST-HORIZONT (THE T (%STRUCTURE-REF 'CONST OBJECT 3.)))
   )
   #Y(CONST-HORIZONT #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CONST 3.)
   SETF-EXPANDER -1.
   #Y(SETF-CONST-VALUE
      #18Y(00 02 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(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 2.
     )
   #Y(SETF-CONST-HORIZONT
      #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONST 3.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-79 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) CONST
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 30 5D D9 DA 30 55 C4 19 01)
   (SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
   (SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DYNAMIC-EXTENT
     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-81 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *DENV*) *DENV*
  )
#Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   PROCESS-DECLARATIONS REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-DECLARATIONS
      #269Y(00 01 00 00 00 02 01 03 AE 80 4A 04 14 62 1A 80 EE D8 D9 DA 6D 03
            03 AB 2F 04 1A 80 E0 94 01 62 1A 17 AA 83 07 1A 10 86 01 00 14 8D
            08 74 E4 E5 E6 6D 03 03 AB 2F 04 82 01 AB 8C 96 6A 16 03 1A 80 BB
            94 01 62 1A 17 AA 83 06 1A 10 86 01 00 14 8D 08 74 E8 E9 EA 6D 03
            03 AB 2F 04 82 01 AB 8C 96 6A 16 03 1A 80 96 94 01 62 1A 17 AA 83
            05 1A 10 86 01 00 14 8D 08 74 EC ED EE 6D 03 03 AB 2F 04 82 01 AB
            8C 96 6A 16 03 1A 80 71 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 56 86 01 00 1F FF 64 AA 37 01
            30 A0 5B 1B FF 5B 93 00 AA 8E 08 34 AA 6A 05 DE 37 02 8B B7 49 6A
            07 92 00 16 9B 5A 77 24 08 0B AB 9C 5A 78 DE 37 02 8B B7 FF B1 82
            00 91 00 6A 16 01 0E 09 1C 0A AA 6A 0A DE 37 02 8B B7 FF 9E EF F0
            F1 6D 03 03 AB AD 2C 03 04 16 01 82 01 AB 8C 96 FF A3 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-83 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   DECLARED-NOTINLINE REMOVE-OLD-DEFINITIONS
   #Y(DECLARED-NOTINLINE
      #110Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 D9 AD 7A 02 6A 00 DA 37 02 8C
            B7 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 B7 06 02 19 03 00 19 03 AC 6A
            05 DA 37 02 8B B7 74 AC 6E 06 DF 37 01 71 84 CB 59 19 03 AD 94 01
            DA 37 02 8C B7 43 00 19 04 AD 94 01 DA 37 02 8C B7 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-84
   #919Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
         88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
         30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
         EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
         F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
         64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
         64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
         31 88 64 28 64 2A 31 82 64 2B 30 5D 64 2C 30 5D 64 2D 2E 01 64 2D E2
         64 2E 31 88 64 2D 64 2F 31 82 64 30 30 5D 64 31 30 5D 64 32 2E 01 64
         32 E2 64 33 31 88 64 32 64 34 31 82 64 35 30 5D 64 36 30 5D 64 37 2E
         01 64 37 E2 64 38 31 88 64 37 64 39 31 82 64 3A 30 5D 64 3B 30 5D 64
         3C 2E 01 64 3C E2 64 3D 31 88 64 3C 64 3E 31 82 64 3F 30 5D 64 40 30
         5D 64 41 2E 01 64 41 E2 64 42 31 88 64 41 64 43 31 82 64 44 30 5D 64
         45 30 5D 64 46 2E 01 64 46 E2 64 47 31 88 64 46 64 48 31 82 64 49 30
         5D 64 4A 30 5D 64 4B 2E 01 64 4B E2 64 4C 31 88 64 4B 64 4D 31 82 64
         4E 30 5D 64 4F 30 5D 64 50 2E 01 64 50 E2 64 51 31 88 64 50 64 52 31
         82 64 53 30 5D 64 54 30 5D 64 55 2E 01 64 55 E2 64 56 31 88 64 55 64
         57 31 82 64 58 30 5D 64 59 30 5D 64 5A 2E 01 64 5A E2 64 5B 31 88 64
         5A 64 5C 31 82 64 5D 30 5D 64 5E 30 5D 64 5F 2E 01 64 5F E2 64 60 31
         88 64 5F 64 61 31 82 64 62 30 5D 64 63 30 5D 64 64 2E 01 64 64 E2 64
         65 31 88 64 64 64 66 31 82 64 67 30 5D 64 68 30 5D 64 69 2E 01 64 69
         E2 64 6A 31 88 64 69 64 6B 31 82 64 6C 30 5D 64 6D 30 5D 64 6E 2E 01
         64 6E E2 64 6F 31 88 64 6E 64 70 31 82 E7 64 71 64 72 03 73 79 31 88
         E7 64 74 62 2C 03 75 EC 64 71 64 72 03 76 79 31 88 EC 64 74 62 2C 03
         75 F1 64 71 64 72 03 77 79 31 88 F1 64 74 62 2C 03 75 64 1E 64 71 64
         72 03 78 79 31 88 64 1E 64 74 62 2C 03 75 64 23 64 71 64 72 03 79 79
         31 88 64 23 64 74 62 2C 03 75 64 28 64 71 64 72 03 7A 79 31 88 64 28
         64 74 62 2C 03 75 64 2D 64 71 64 72 03 7B 79 31 88 64 2D 64 74 62 2C
         03 75 64 32 64 71 64 72 03 7C 79 31 88 64 32 64 74 62 2C 03 75 64 37
         64 71 64 72 03 7D 79 31 88 64 37 64 74 62 2C 03 75 64 3C 64 71 64 72
         03 7E 79 31 88 64 3C 64 74 62 2C 03 75 64 41 64 71 64 72 03 7F 79 31
         88 64 41 64 74 62 2C 03 75 64 46 64 71 64 72 03 80 80 79 31 88 64 46
         64 74 62 2C 03 75 64 4B 64 71 64 72 03 80 81 79 31 88 64 4B 64 74 62
         2C 03 75 64 50 64 71 64 72 03 80 82 79 31 88 64 50 64 74 62 2C 03 75
         64 55 64 71 64 72 03 80 83 79 31 88 64 55 64 74 62 2C 03 75 64 5A 64
         71 64 72 03 80 84 79 31 88 64 5A 64 74 62 2C 03 75 64 5F 64 71 64 72
         03 80 85 79 31 88 64 5F 64 74 62 2C 03 75 64 64 64 71 64 72 03 80 86
         79 31 88 64 64 64 74 62 2C 03 75 64 69 64 71 64 72 03 80 87 79 31 88
         64 69 64 74 62 2C 03 75 64 6E 64 71 64 72 03 80 88 79 31 88 64 6E 64
         74 62 2C 03 75 DB 64 80 89 62 2C 03 75 DB 64 80 8A 31 89 C6 19 01
        )
   MAKE-FNODE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-FNODE
      #199Y(00 00 00 00 80 1B 00 14 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 33 EF AB F0 C2
            31 32 EF AB F1 C1 31 32 EF AB F2 C0 31 32 EF AB F3 BF 31 32 EF AB
            F4 BE 31 32 EF AB F5 BD 31 32 EF AB 64 1E BC 31 32 EF AB 64 1F BB
            31 32 EF AB 64 20 BA 31 32 EF AB 64 21 B9 31 32 EF AB 64 22 B8 31
            32 EF AB 64 23 B7 31 32 EF AB 64 24 B6 31 32 EF AB 64 25 B5 31 32
            EF AB 64 26 B4 31 32 EF AB 64 27 B3 31 32 EF AB 64 28 B2 31 32 EF
            AB 64 29 B1 31 32 EF AB 64 2A B0 31 32 EF AB 64 2B AF 31 32 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(00 01 00 00 00 02 D8 AC 31 35 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 19 02) FNODE 20.)
   SETF-EXPANDER -1.
   #Y(SETF-FNODE-NAME
      #18Y(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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(00 02 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-85 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) FNODE
   DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-86 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *FUNC*) *FUNC*
  )
#Y(#:TOP-LEVEL-FORM-87 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *FUNC-START-LABEL*) *FUNC-START-LABEL*
  )
#Y(#:TOP-LEVEL-FORM-88 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *ANONYMOUS-COUNT*) *ANONYMOUS-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-89 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *NO-CODE*) *NO-CODE*
  )
#Y(#:TOP-LEVEL-FORM-90 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *FORM*) *FORM*
  )
#Y(#:TOP-LEVEL-FORM-91 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *FOR-VALUE*) *FOR-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-92
   #156Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 62 DE 72 04 00 31
         88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
         30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
         EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
         F1 F3 31 82 E7 F4 F5 03 1E 79 31 88 E7 64 1F 62 2C 03 20 EC F4 F5 03
         21 79 31 88 EC 64 1F 62 2C 03 20 F1 F4 F5 03 22 79 31 88 F1 64 1F 62
         2C 03 20 DB 64 23 62 2C 03 20 DB 64 24 31 89 C6 19 01
        )
   MK-ANODE REMOVE-OLD-DEFINITIONS
   #Y(MK-ANODE
      #31Y(00 03 00 00 00 04 D8 D9 71 33 DA AB DB B1 31 32 DA AB DC B0 31 32 DA
           AB DD AF 31 32 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(00 01 00 00 00 02 D8 AC 31 35 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 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(00 01 00 00 00 02 D8 AC D9 31 31 19 02) ANODE 3.)
   SETF-EXPANDER -1.
   #Y(SETF-ANODE-TYPE
      #18Y(00 02 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(00 02 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(00 02 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-93 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01) ANODE
   DEFSTRUCT-DESCRIPTION
  )
#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 82 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 05 31 4C 19 02 C3 19 02)
      (NIL) SECLASS-OR-2
  )  )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SECLASS-OR-2 REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-OR-2
      #48Y(00 02 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-97 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANODELIST-SECLASS-OR REMOVE-OLD-DEFINITIONS
   #Y(ANODELIST-SECLASS-OR
      #17Y(00 01 00 00 00 02 98 00 98 01 AD 32 00 17 9A 00 02) SECLASS-OR
      ANODE-SECLASS
  )  )
#Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SECLASS-WITHOUT REMOVE-OLD-DEFINITIONS
   #Y(SECLASS-WITHOUT
      #51Y(00 02 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 50 14 94 05 02 21 0D AB 94 06 37 05 31 50 5C 19 05 02
           1A 6D 02 1A 77
          )
      #Y(SECLASS-WITHOUT-BOUND
         #16Y(00 01 00 00 00 02 AB 68 00 01 37 03 30 B7 19 02) NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANODES-COMMUTE REMOVE-OLD-DEFINITIONS
   #Y(ANODES-COMMUTE
      #20Y(00 02 00 00 00 03 D8 AD D9 71 31 D8 AD D9 71 31 2F 02 19 03) ANODE
      2. SECLASSES-COMMUTE
  )  )
#Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SECLASSES-COMMUTE REMOVE-OLD-DEFINITIONS
   #Y(SECLASSES-COMMUTE
      #24Y(00 02 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(00 02 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-102 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   GET-FUNNAME-STRING+PACK REMOVE-OLD-DEFINITIONS
   #Y(GET-FUNNAME-STRING+PACK
      #40Y(00 01 00 00 00 02 9C 1F 19 D8 93 02 71 8C D9 9F 5B 77 71 8C DA 72 05
           13 9D 5B 5A 14 71 8A 3F 02 19 02 AB 71 8C 9D 1A 73
          )
      "(" " " ")"
  )  )
#Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SYMBOL-SUFFIX REMOVE-OLD-DEFINITIONS
   #Y(SYMBOL-SUFFIX
      #73Y(00 02 00 00 00 03 AC 8E 08 08 AC 8D 8A 04 AB 87 00 28 AC 2E 01 41 02
           AD 8D 08 22 AD 8D 09 0D AD 37 0B 7C 06 C5 FA 7C 05 14 7F 89 03 AB DB
           AF 72 03 13 91 01 0E AA 30 CE 19 06 9C 19 03 AD 80 8C 03 1A 69 AA AC
           30 D7 19 06
          )
      FUNCTION-NAME-P GET-FUNNAME-STRING+PACK 10. "-"
  )  )
#Y(#:TOP-LEVEL-FORM-104 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-COMMENT REMOVE-OLD-DEFINITIONS
   #Y(C-COMMENT
      #31Y(00 01 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-105 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-106 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *WARNING-COUNT*) *WARNING-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-WARN REMOVE-OLD-DEFINITIONS
   #Y(C-WARN
      #75Y(00 01 00 00 01 17 D8 D9 DA 6D 03 03 AD 81 02 13 02 6A 04 31 97 0F 04
           0E 05 1B 09 0E 07 14 91 00 07 00 19 04 0E 06 1A 75 98 08 AB AF E1 8C
           52 13 6A 09 E2 AB 31 35 16 01 1C 09 6A 09 E2 AB E3 31 31 16 01 14 2D
           0C 14 A2 9A 04 04
          )
      "~%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-108 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *ERROR-COUNT*) *ERROR-COUNT*
  )
#Y(#:TOP-LEVEL-FORM-109 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-ERROR REMOVE-OLD-DEFINITIONS
   #Y(C-ERROR
      #79Y(00 01 00 00 01 17 6A 00 31 97 0F 00 D9 8C 52 13 6A 01 DA AB 31 35 16
           01 1C 09 6A 01 DA AB DB 31 31 16 01 14 92 00 0D 0E 04 1C 09 AA 6A 05
           37 03 30 BB 0F 05 6A 06 DF E0 E1 6D 03 0A AC 2D 0B 14 B1 B1 2C 06 0C
           16 01 E5 E6 E7 E8 2C 03 11 51
          )
      *ERROR-COUNT* *FUNC* FNODE 1. *COMPILING-FROM-FILE*
      *FUNCTIONS-WITH-ERRORS* *C-ERROR-OUTPUT*
      "~%ERROR~@[ in function ~S~]~A :~%~?"
      "~%ERROR~@[ in Funktion ~S~]~A :~%~?"
      "~%ERREUR~@[ dans la fonction ~S~]~A :~%~?" LANGUAGE C-SOURCE-LOCATION
      FORMAT C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-110 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-EVAL-WHEN-COMPILE REMOVE-OLD-DEFINITIONS
   #Y(C-EVAL-WHEN-COMPILE
      #33Y(00 01 00 00 00 02 0E 00 1C 12 0E 01 1C 0E 6A 01 30 8F AB 37 0C 7D 02
           F6 6A 01 30 84 AB 30 5E 19 02
          )
      *COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
  )  )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-CONSTANTP REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANTP
      #84Y(00 01 00 00 00 02 9C 1F 1B 93 01 C5 59 1E 80 42 94 01 31 06 1E 3C 9C
           5B 5B 58 19 02 02 19 02 AB 30 61 19 02 AB 31 0A 1D 29 AB 31 1E 1D 24
           AB 31 09 1D 1F AB 31 24 1D 1A AB 31 08 1E 15 AB 8D 8D 5B AB 71 8A 0E
           00 21 57 AB 6A 01 37 03 30 BE 58 1A 47 19 02
          )
      *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
  )  )
#Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANT-VALUE
      #66Y(00 01 00 00 00 02 9C 20 34 AB 8D 0A 14 AB 8D 1E 10 AB 8D 09 0C AB 8D
           24 08 AB 8E 08 1D AB 8E 8D 08 9C 19 02 AB 30 51 19 02 AB 71 8A 0E 00
           21 74 AB 6A 01 37 03 30 BE 5B 19 02 00 19 02 9C 5B 5A 19 02
          )
      *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
  )  )
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANODE-CONSTANTP REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANTP
      #63Y(00 01 00 00 00 02 D8 AC D9 71 31 AA 31 06 1E 2D 9B 5B 58 1E 28 93 00
           9B 20 08 D8 AB 8D 35 17 00 19 04 93 00 C5 59 1E 13 9B 5B 77 DA AB D9
           80 31 00 C6 59 58 19 04 AA 28 01 05 4B 19 04 19 03
          )
      ANODE 3. CONST :FORM
  )  )
#Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANODE-CONSTANT REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANT
      #25Y(00 01 00 00 00 02 D8 AC D9 31 31 77 9B 20 05 AA 28 01 04 72 9B 5B 5A
           19 03
          )
      ANODE 3.
  )  )
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANODE-CONSTANT-VALUE REMOVE-OLD-DEFINITIONS
   #Y(ANODE-CONSTANT-VALUE
      #16Y(00 01 00 00 00 02 AB 6E 00 D9 AB DA 31 31 19 03) ANODE-CONSTANT
      CONST 1.
  )  )
#Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   NEW-CONST REMOVE-OLD-DEFINITIONS
   #Y(NEW-CONST #15Y(00 01 00 00 00 02 D8 D9 D9 AE 2C 04 02 19 02) :HORIZONT
      :VALUE MAKE-CONST
  )  )
#Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   MAKE-LABEL REMOVE-OLD-DEFINITIONS
   #Y(MAKE-LABEL
      #22Y(00 01 00 00 00 02 37 01 71 90 AA 62 30 55 AA D8 AE 31 88 15 19 02)
      FOR-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-118 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   MAKE-SPECIAL-VAR REMOVE-OLD-DEFINITIONS
   #Y(MAKE-SPECIAL-VAR
      #39Y(00 01 00 00 00 02 D8 AC D9 63 DA B0 6E 03 DC B2 87 03 07 00 14 2C 08
           0B 19 02 DD DE DF B5 6E 08 E1 B7 2C 06 0A 1A 6D
          )
      :NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :HORIZONT :ALL :VALUE
      C-CONSTANT-VALUE :FORM MAKE-CONST MAKE-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   TEST-LIST REMOVE-OLD-DEFINITIONS
   #Y(TEST-LIST
      #81Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3C 01 AD 8E 0D 08 AD 37 01 30 A0 5B
           1C 09 D9 DA DB 6D 03 04 AE 2F 05 AD 71 48 AD 90 01 32 0E 92 01 08 AD
           71 48 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-120
   #68Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 DA DB C7 79 DD C9 79 CA 7B 04 AA
        1A 0F 93 00 93 00 94 01 AB B0 AC 30 68 16 03 82 00 9B 20 6E 16 02 E0 8C
        61 0B AA E0 70 51 8D 03 04 E0 E1 2F 0A E0 AB 31 83 CB 19 02
       )
   #.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
   #Y(#:TOP-LEVEL-FORM-120-1 #11Y(00 00 00 00 00 01 62 2E 00 19 01) C-LET/LET*)
   LET*
   #Y(#:TOP-LEVEL-FORM-120-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)
        (CONSTANT-EQL . C-CONSTANT-EQL) (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)
        (FORMAT . C-FORMAT) (REMOVE-IF . C-REMOVE-IF)
        (REMOVE-IF-NOT . C-REMOVE-IF-NOT) (DELETE-IF . C-DELETE-IF)
        (DELETE-IF-NOT . C-DELETE-IF-NOT) (SUBSTITUTE-IF . C-SUBSTITUTE-IF)
        (SUBSTITUTE-IF-NOT . C-SUBSTITUTE-IF-NOT)
        (NSUBSTITUTE-IF . C-NSUBSTITUTE-IF)
        (NSUBSTITUTE-IF-NOT . C-NSUBSTITUTE-IF-NOT) (FIND-IF . C-FIND-IF)
        (FIND-IF-NOT . C-FIND-IF-NOT) (POSITION-IF . C-POSITION-IF)
        (POSITION-IF-NOT . C-POSITION-IF-NOT) (COUNT-IF . C-COUNT-IF)
        (COUNT-IF-NOT . C-COUNT-IF-NOT) (SUBST-IF . C-SUBST-IF)
        (SUBST-IF-NOT . C-SUBST-IF-NOT) (NSUBST-IF . C-NSUBST-IF)
        (NSUBST-IF-NOT . C-NSUBST-IF-NOT) (MEMBER-IF . C-MEMBER-IF)
        (MEMBER-IF-NOT . C-MEMBER-IF-NOT) (ASSOC-IF . C-ASSOC-IF)
        (ASSOC-IF-NOT . C-ASSOC-IF-NOT) (RASSOC-IF . C-RASSOC-IF)
        (RASSOC-IF-NOT . C-RASSOC-IF-NOT)
      )
   C-FORM-TABLE
   (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)
            (CONSTANT-EQL . C-CONSTANT-EQL) (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)
            (FORMAT . C-FORMAT) (REMOVE-IF . C-REMOVE-IF)
            (REMOVE-IF-NOT . C-REMOVE-IF-NOT) (DELETE-IF . C-DELETE-IF)
            (DELETE-IF-NOT . C-DELETE-IF-NOT) (SUBSTITUTE-IF . C-SUBSTITUTE-IF)
            (SUBSTITUTE-IF-NOT . C-SUBSTITUTE-IF-NOT)
            (NSUBSTITUTE-IF . C-NSUBSTITUTE-IF)
            (NSUBSTITUTE-IF-NOT . C-NSUBSTITUTE-IF-NOT) (FIND-IF . C-FIND-IF)
            (FIND-IF-NOT . C-FIND-IF-NOT) (POSITION-IF . C-POSITION-IF)
            (POSITION-IF-NOT . C-POSITION-IF-NOT) (COUNT-IF . C-COUNT-IF)
            (COUNT-IF-NOT . C-COUNT-IF-NOT) (SUBST-IF . C-SUBST-IF)
            (SUBST-IF-NOT . C-SUBST-IF-NOT) (NSUBST-IF . C-NSUBST-IF)
            (NSUBST-IF-NOT . C-NSUBST-IF-NOT) (MEMBER-IF . C-MEMBER-IF)
            (MEMBER-IF-NOT . C-MEMBER-IF-NOT) (ASSOC-IF . C-ASSOC-IF)
            (ASSOC-IF-NOT . C-ASSOC-IF-NOT) (RASSOC-IF . C-RASSOC-IF)
            (RASSOC-IF-NOT . C-RASSOC-IF-NOT)
       )  )
       HASHTABLE
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-121 #12Y(00 00 00 00 00 01 D8 30 E7 00 19 01)
   #Y(#:TOP-LEVEL-FORM-121-1
      #26Y(00 01 00 00 00 02 AB 8C 54 08 AB 6A 00 37 01 8C 67 03 00 19 02 D8 2E
           01 19 02
          )
      C-FORM-TABLE COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FORM REMOVE-OLD-DEFINITIONS
   #Y(C-FORM
      #318Y(00 01 00 01 00 08 9D 10 00 3A 04 02 0E 01 10 01 C5 4F 81 16 0E 00
            20 80 5B 6A 00 8E 08 1C 6A 00 6A 03 2F 04 41 02 91 01 0A 6A 00 2E
            05 16 02 50 1A 80 F7 AA 37 01 27 4E 1A 73 2D 06 50 1A 80 EA AE 8B
            54 09 AE 8B 5A 05 AE 87 0A 80 68 AA 35 00 1A 80 65 6A 00 6A 03 6A
            0C 72 02 00 70 5C 37 01 27 FF A3 1A 80 52 AE 6A 0D 00 79 0E 00 78
            2C 03 13 1A 80 44 0E 00 77 AA 88 07 80 9A AA 2E 08 41 03 91 02 3A
            AD 6A 09 37 01 70 67 91 00 FF B1 AE 8E 08 05 AE 8B 5A FF BB AE 6A
            0D E6 AB E7 80 31 00 8E 04 11 AE 87 0A 0D E8 AF 7A 02 6A 11 EA 37
            02 8B B7 FF B1 AE 2E 0B 16 05 50 1A 80 6C 9D 25 14 27 6A 00 6A 03
            6A 0C 72 02 00 70 5C 37 01 27 FF 34 1A 18 ED AE 7A 02 0E 00 78 2F
            16 1A 0D AD AB 0E 00 78 2C 03 13 1A 03 EF 2E 18 16 04 50 1A 39 F2
            ED AC 7A 02 0E 00 5B 7B 02 37 01 27 FF 06 1A 25 64 1F AB 64 21 62
            31 32 64 1F AB 64 20 64 22 31 32 15 1A 24 9B 1F 05 93 00 23 19 53
            F3 F4 F5 6D 03 1E AB 2F 02 16 01 50 14 0E 01 1B 0A 64 1F AB 64 20
            31 31 5B 1C 49 15 12 02 19 03
           )
      *FORM* *FOR-VALUE* C-ERROR *VENV* VENV-SEARCH-MACRO C-VAR C-CONST
      FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE DECLARED-NOTINLINE
      C-GLOBAL-FUNCTION-CALL *FENV* *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL
      C-LOCAL-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" LANGUAGE ANODE 2. 3. (NIL)
  )  )
#Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-124 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-125 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-VAR
      #317Y(00 01 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 BB 0F 07 CC F8 9D 25 0A 81 0A
            B0 60 01 1A 25 D4 1A 07 E7 E8 B3 8D 8D 77 D5 14 E9 B5 6E 13 EC B7
            2C 06 15 1A 1E AE 6E 0B E4 0E 0D 1C 06 E4 AC E6 8E 31 57 00 14 00
            79 0E 0D 1C 0F E4 AD E6 8D 31 51 EE A3 14 7A 02 60 01 1A 01 00 14
            2C 03 17 19 06 02 1A 19 E7 AE 6E 18 7A 02 F1 E7 AF 6E 18 7A 02 03
            1A 61 03 1A 0E E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 60 00 14 2C 03
            17 19 05 AC 60 01 1A 17 F3 AE 6A 1C 6A 1D 7A 04 60 01 1A 13 16 01
            1A 80 80 E4 0E 0D 1B 65 00 14 00 79 0E 0D 1B 62 00 14 6D 03 17 AA
            E4 AE 64 1E 31 31 79 E4 AE 64 1E AD 31 32 16 01 0E 0D 1C 80 58 0E
            1F 1B 80 53 E4 AD 64 20 63 31 32 E4 AD 64 21 71 31 6E 22 0E 23 21
            07 E4 AD 64 24 63 31 32 E4 AD 64 24 8E 31 32 6A 1C 92 00 25 AA E4
            AF 64 25 31 31 21 FF 9E 93 00 64 26 AB 31 35 16 01 1C 0B 93 00 64
            26 AB E6 63 31 32 16 01 82 00 91 00 5B 64 27 64 28 2F 29 16 01 15
            19 05 64 27 D8 2F 29 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 . 137.) (LOCAL . 95.) (SPECIAL . 29.))
      MAKE-SPECIAL-VAR VAR *FOR-VALUE* 3. CONST :HORIZONT :VALUE :ALL
      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-126 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-VARSET REMOVE-OLD-DEFINITIONS
   #Y(C-VARSET
      #278Y(00 03 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 31 66 B3 60 01 79 E2 AD E3 8D 31 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
            32 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 31 55 0E 1B 1B 80 73 E2
            AD E3 62 31 32 B0 AB A2 7B 02 AA E2 AF F4 31 31 79 E2 AF F4 AD 31
            32 16 02 E2 AD F5 71 31 6E 1E 0E 1F 21 39 E2 AD 64 20 63 31 32 6A
            18 92 00 25 AA E2 AF 64 21 31 31 21 FF A2 93 00 64 22 AB 31 35 16
            01 1C 0B 93 00 64 22 AB E3 63 31 32 16 01 82 00 91 00 5B 64 23 64
            24 2F 25 16 01 64 26 E2 AE 64 27 71 31 37 05 71 53 E2 AE 64 27 AD
            31 32 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(00 01 00 00 00 02 93 01 D8 AB D9 71 31 6A 02 30 BA 19 03) VAR 10.
         *STACKZ*
        )
      8.
  )  )
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   MAKE-FUNNAME-CONST REMOVE-OLD-DEFINITIONS
   #Y(MAKE-FUNNAME-CONST
      #36Y(00 01 00 00 00 02 9C 1F 16 9C 5B 77 D9 DA DB AD 6E 04 DD DC DE B1 7A
           02 7A 02 2C 06 07 19 03 AB 2E 00 19 02
          )
      NEW-CONST :HORIZONT :ALL :VALUE GET-SETF-SYMBOL :FORM QUOTE MAKE-CONST
  )  )
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-NORMAL-FUNCTION-CALL
      #95Y(00 01 00 00 00 02 6A 00 D9 2F 02 0E 00 78 71 48 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 4A 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-129 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   FDESCR-SIGNATURE REMOVE-OLD-DEFINITIONS
   #Y(FDESCR-SIGNATURE
      #82Y(00 01 00 00 00 02 9C 5B 1B 3C 93 01 DA AB DB 71 31 DA AC DC 71 31 DA
           AD DD 71 31 DA AE DE 71 31 DA AF DF 71 31 DA B0 E0 71 31 3F 06 19 03
           9C 5B 5B 43 41 0D B6 71 48 B6 71 48 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-130 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   TEST-ARGUMENT-SYNTAX REMOVE-OLD-DEFINITIONS
   #Y(TEST-ARGUMENT-SYNTAX
      #253Y(00 09 00 00 00 00 B3 8E 0D 08 B3 37 01 30 A0 5B 1C 0B D8 D9 DA 6D
            03 03 B2 B5 2C 03 04 B3 71 48 B1 B1 72 02 35 91 0A 06 B2 AC 90 01
            31 37 91 06 09 91 05 06 AB AB 90 01 31 2B 92 05 80 40 AB AB 8F 01
            31 3D 91 06 3D AB AB 81 01 36 01 AA B6 7F 9F 0B AB 8D 96 80 63 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 03 B8 B1 2C 08 08 1A 64 CC 19 0C CD 19 0C
            CE 19 0C CE 19 10 E9 EA EB 6D 03 03 93 04 B9 2C 03 08 CE 19 10 CE
            19 10 7D 02 92 02 80 41 1A 80 48 EE EF F0 6D 03 03 AB B8 B4 71 48
            03 19 59 14 B5 2C 05 04 19 0F B5 AE 62 92 02 36 93 02 AA 88 0F 41
            AA 2E 10 F6 14 8E 8D FF BB AA 24 14 0D 9E 5B 77 88 0F 40 9E 5B 77
            87 10 FF BC 91 02 0A AA B3 ED 37 02 8B B7 02 9B F7 16 01 9D 5B 5B
            F8 91 02 4A 91 00 FF AB 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-131 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-DIRECT-FUNCTION-CALL
      #1001Y(00 0A 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 48 B4 B4 72
             02 35 AC 62 0E 0A 10 0A E3 B1 B1 72 01 34 1A 80 F6 EA EB 2F 14 92
             0D 80 52 1A 80 4B AB 31 97 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 31 2F 0F FD AB 83 06 B1 E5 AC E6 71 31 2F 0F FD AA 83 06 16
             03 92 0D 82 D4 1A 81 37 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 31 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 31 2F 0F FF AA 83 08 16 01 F0 B5
             B5 72 01 36 7A 02 83 07 16 01 11 F1 83 03 D4 1A 80 A1 AF B1 72 01
             36 F2 AB 7A 02 83 04 AA 0E 0A 5C 0F 0A 16 01 92 0E 80 BA 1A 80 42
             F4 83 03 F5 83 03 D4 1A 80 7D 93 15 82 16 AA E4 6F 09 B2 E5 AC E6
             71 31 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 4D AF B1 8F 01 30 FF A8 92 0E 80 75
             91 0B 80 4D 92 13 FF B6 0E 0A 10 0A C0 92 00 22 93 00 82 01 E4 6F
             09 B3 E5 AC E6 71 31 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 64 20
             83 03 D4 14 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 31 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 48 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 A7 16 01 F6 62 92 16 80 49 93 16 82 17 6E 21 AA AD 64 22 37 02
             70 BE 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 31 2F 0F 09 0F 63 A2 5B 77 AC 6A 0A 7A 04
             83 08 16 01 11 9D 5B 78 62 30 AC 16 04 91 16 FF B7 AA 80 4A 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 AC 9B 5B 5B 77 83 0B 9B 5B 5A 1C 06 64 24 83 0B 84 04 AA 62 30
             AC 16 01 82 00 91 00 FF A6 16 01 AD 80 4A 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 AC 9B 5B 5B 77 83 02 AA 62 30 AC 16 01 82 00 91 00 FF A7 16
             01 AD 80 4A 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 AC
             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 96 54 16 03 AA B4 7F A6 09 16 05 AA 0E 0A 5C 0F
             0A 16 01 AD B5 75 00 7F A6 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 35 05 AA 6E 28 83 02 82 01 AB
             8C 96 6D 16 02 AA 80 4A 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 A7 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.) (OPEN-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.)
         (ECHO-STREAM-OUTPUT-STREAM . 12.) (ECHO-STREAM-INPUT-STREAM . 12.)
         (MAKE-ECHO-STREAM . 12.) (TWO-WAY-STREAM-OUTPUT-STREAM . 12.)
         (TWO-WAY-STREAM-INPUT-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.)
         (CONCATENATED-STREAM-STREAMS . 12.) (MAKE-CONCATENATED-STREAM . 12.)
         (BROADCAST-STREAM-STREAMS . 12.) (MAKE-BROADCAST-STREAM . 12.)
         (SYNONYM-STREAM-SYMBOL . 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-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-SIZE . 12.) (HASH-TABLE-REHASH-THRESHOLD . 12.)
         (HASH-TABLE-REHASH-SIZE . 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.) (ROW-MAJOR-AREF . 12.) (SVREF . 12.)
         (AREF . 12.) (SUBR-INFO . 12.) (DECIMAL-STRING . 9.)
         (SYMBOL-NAME . 9.) (MAKE-SYMBOL-MACRO . 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.) (LOGICAL-PATHNAME-P . 4.) (HASH-TABLE-TEST . 4.)
         (PATHNAMEP . 4.) (HASH-TABLE-P . 4.) (READTABLEP . 4.)
         (RANDOM-STATE-P . 4.) (STRING-STREAM-P . 4.) (ECHO-STREAM-P . 4.)
         (TWO-WAY-STREAM-P . 4.) (CONCATENATED-STREAM-P . 4.)
         (BROADCAST-STREAM-P . 4.) (SYNONYM-STREAM-P . 4.) (FILE-STREAM-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(00 01 00 00 00 02 D8 AC 31 35 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-132 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-UNLIST REMOVE-OLD-DEFINITIONS
   #Y(C-UNLIST
      #39Y(00 03 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-133 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CCLOSURE-CALL-CODE-PRODUCER REMOVE-OLD-DEFINITIONS
   #Y(CCLOSURE-CALL-CODE-PRODUCER
      #63Y(00 07 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 48 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-134 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
   #Y(C-GLOBAL-FUNCTION-CALL-FORM
      #17Y(00 01 00 00 00 02 9C 10 00 0E 00 77 2E 01 11 19 02) *FORM*
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-GLOBAL-FUNCTION-CALL
      #843Y(00 01 00 00 00 02 6A 00 D9 2F 02 0E 03 1C 82 F1 AB 8B 53 13 AB 6A
            04 DD 37 02 8B B7 0A AB 6A 06 DD 37 02 30 BB 0F 06 AB 24 07 13 6A
            00 71 48 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 A7 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 31 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 93 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 A6 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 67 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 A7 16 01 79 0E 16 5C 0F 16 0E
            00 78 AA 71 48 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 BE 5B 1B 09 B3 6E 6F 64 70 37 01
            31 84 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-136 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-PROCLAIM REMOVE-OLD-DEFINITIONS
   #Y(C-PROCLAIM
      #156Y(00 01 00 00 00 02 9C 20 03 00 19 02 9C 5A 25 00 78 94 01 62 AB 8B
            96 80 80 86 01 00 14 8E 08 0A AA 6A 01 DA 37 02 30 BB 0F 01 82 01
            1A 66 94 01 62 AB 8B 96 80 63 86 01 00 14 88 03 15 AA 6A 04 DD 37
            02 30 BB 0F 04 AA 6A 06 37 07 C8 F8 31 52 0F 06 82 01 1A 5B 94 01
            62 AB 8B 96 3C 86 01 00 14 88 03 15 AA 6A 06 DD 37 02 30 BB 0F 06
            AA 6A 04 37 07 C8 F8 31 52 0F 04 82 01 1A 5C 94 01 62 1A 13 86 01
            00 14 8E 08 0A AA 6A 07 DA 37 02 30 BB 0F 07 82 01 AB 8C 96 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-137 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-PROCLAIM-CONSTANT REMOVE-OLD-DEFINITIONS
   #Y(C-PROCLAIM-CONSTANT
      #39Y(00 02 00 00 00 03 0E 00 1C 0E AC 6A 01 DA 37 02 30 BB 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-138 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-DEFUN REMOVE-OLD-DEFINITIONS
   #Y(C-DEFUN
      #51Y(00 01 00 01 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 BB 0F 02 91
           01 61 00 19 03
          )
      *COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL
      *INLINE-DEFINITIONS*
  )  )
#Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-PROVIDE REMOVE-OLD-DEFINITIONS
   #Y(C-PROVIDE
      #20Y(00 01 00 00 00 02 AB 70 4E 6A 00 D9 37 02 30 BB 0F 00 19 02)
      *COMPILED-MODULES* #.#'STRING=
  )  )
#Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-REQUIRE REMOVE-OLD-DEFINITIONS
   #Y(C-REQUIRE
      #47Y(00 01 00 01 00 08 3B 01 14 3C 02 AD 70 4E 6A 00 D9 37 02 8B B7 11 91
           00 04 AD 7F E9 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
         #52Y(00 01 00 00 00 02 AB 6A 00 D9 72 02 23 6F 02 93 00 9C 1F 0B AA 37
              01 70 EE DB 37 04 8B 38 09 91 00 01 9E 14 2E 08 19 04 AA DC 62 DD
              62 DE 62 2C 07 07 19 04
             )
         *SOURCE-FILE-TYPES*
         (#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-141 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANALYZE-LETLIST REMOVE-OLD-DEFINITIONS
   #Y(ANALYZE-LETLIST
      #90Y(00 01 00 00 00 02 AB 01 02 92 02 80 43 93 02 8D 08 23 9D 5A 1F 26 9D
           5A 77 8E 08 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 4A AB 71 4A 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-142 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ANALYZE-LAMBDALIST REMOVE-OLD-DEFINITIONS
   #Y(ANALYZE-LAMBDALIST
      #776Y(00 01 00 00 00 02 AB 01 04 D8 01 08 A8 1F 2D 93 0D AA 8D 08 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 C8 93 0D
            24 09 80 C2 1A 3A 9B 25 0A 04 9B 25 0B 22 AA 83 0C 62 83 0B C3 1A
            80 6A 93 00 83 0C 62 83 0B C3 1A 80 5F 93 00 83 0C 9B 5B 77 83 0B
            C3 1A 80 52 C6 4F 80 5E DC DD DE 6D 03 07 AE 2F 03 50 16 01 82 0D
            A8 1F 80 80 93 0D AA 8D 08 FF B9 9B 1F 3A 93 00 8E 08 35 9B 5B 1C
            FF BE 9B 5B 1F 2C 9B 5B 5B 1C 40 9B 5B 5B 1F 22 9B 5B 5B 77 8E 08
            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 B6 AA 2E 08 16 01 1A FF AE 16 01 1A FF A9 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 08 4F AA 2E 08 82
            0E 16 01 A8 1F 80 76 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 11 C6 4F 80 D1 DC DD DE 6D 03 07 AE 2F 03 50 1A 80 C4 AA 71 8C
            6A 19 70 D7 83 07 AA 83 06 62 83 05 C3 1A 80 A9 9B 5A 77 83 07 9B
            5A 5B 1A 80 92 9B 5B 5B 5A 1A 80 97 9B 5B 77 83 05 9B 5B 5B 20 6F
            C3 1A 80 89 AA 23 12 05 AA 24 13 FF 92 16 01 A8 1F 80 A4 93 0D 24
            12 80 9E 82 0D 7D 07 A8 1F 80 86 93 0D AA 8D 08 FF 94 9B 1F 80 66
            93 00 8D 08 21 9B 5A 1F 80 5C 9B 5A 77 8E 8D 80 55 9B 5A 5B 1F 80
            4F 9B 5A 5B 77 8E 08 80 47 9B 5A 5B 5B 1B 80 40 9B 5B 1C 1B 9B 5B
            1F 38 9B 5B 5B 1C 12 9B 5B 5B 1F 2E 9B 5B 5B 77 8E 08 27 9B 5B 5B
            5B 1B 21 9B 5A 20 FF 6E 93 00 71 8C 6A 19 70 D7 83 07 9B 77 83 06
            9B 5B 20 FF 6D 62 83 05 C3 14 83 04 1A 03 AA 2E 08 16 01 82 0D 1A
            FF 81 AA 23 18 05 AA 24 13 FF 1B 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 08 5D 9B 1F 28 93 00 8E 08 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 4A B6 71 4A B6 71 4A
            B6 71 4A B6 B6 B6 71 4A B6 71 4A B6 71 4A B6 71 4A B6 B6 71 4A B6
            71 4A 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 . 183.) (&KEY . 183.) (&REST . 183.)) &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 . 102.) (&WHOLE . 102.) (&BODY . 102.)
         (&AUX . 102.) (&ALLOW-OTHER-KEYS . 102.) (&KEY . 102.) (&REST . 102.)
         (&OPTIONAL . 102.)
        )
      &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 . 221.) (&WHOLE . 221.) (&BODY . 221.)
         (&AUX . 221.) (&ALLOW-OTHER-KEYS . 221.) (&KEY . 221.) (&REST . 221.)
         (&OPTIONAL . 221.)
        )
      &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-143 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   LAMBDALIST-ERROR REMOVE-OLD-DEFINITIONS
   #Y(LAMBDALIST-ERROR
      #23Y(00 01 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-144 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
   #Y(INLINE-CALLABLE-FUNCTION-P
      #173Y(00 02 00 01 00 09 3C 01 AD 31 06 1E 80 9D 93 03 C3 59 1E 80 96 94
            03 31 06 1E 80 8F 9E 5B 5B 58 1E 80 88 9E 5B 77 AA 31 06 1E 80 7D
            93 00 C4 59 1E 80 76 94 00 31 06 1E 80 6F 9B 5B 77 AA 31 0D 1E 80
            64 DA AB 37 06 31 60 58 1E 80 5A DB AB 37 06 31 60 58 1E 80 50 DC
            AB 37 06 71 60 DD AC 37 06 71 60 DE AD 37 06 8D 60 03 AC 31 48 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 98 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-145 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *SPECIALS*) *SPECIALS*
  )
#Y(#:TOP-LEVEL-FORM-146 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *IGNORES*) *IGNORES*
  )
#Y(#:TOP-LEVEL-FORM-147 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *IGNORABLES*) *IGNORABLES*
  )
#Y(#:TOP-LEVEL-FORM-148 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-149 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   IGNORE-CHECK REMOVE-OLD-DEFINITIONS
   #Y(IGNORE-CHECK
      #82Y(00 01 00 00 00 02 D8 AC D9 71 31 AA 6A 02 DB 37 02 8B B7 2F AA 6A 0E
           DB 37 02 8B B7 32 D8 AD DC 8D 31 2C D8 AD E2 8D 31 26 AA 8E 8A 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 31 70 D8 AD E2 8D 31 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-150 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MAKE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(C-MAKE-CLOSURE
      #29Y(00 03 00 00 00 04 91 03 03 00 19 04 D8 94 03 94 03 7A 03 D9 AF 71 48
           7A 02 60 02 19 04
          )
      VENV MAKE-VECTOR1&PUSH
  )  )
#Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-FIXED-VAR-1 REMOVE-OLD-DEFINITIONS
   #Y(BIND-FIXED-VAR-1
      #68Y(00 01 00 00 00 02 AB 8B 61 24 AB 87 00 20 AB 6A 01 DA 37 02 8B B7 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-152 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-FIXED-VAR-2 REMOVE-OLD-DEFINITIONS
   #Y(BIND-FIXED-VAR-2
      #29Y(00 01 00 00 00 02 D8 AC D9 8E 31 06 D8 AC DA 8E 31 03 00 19 02 DB 0E
           04 5C 0F 04 19 02
          )
      VAR 2. 3. (BIND 1.) *STACKZ*
  )  )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-BIND-FIXED-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-FIXED-VAR
      #65Y(00 03 00 00 00 04 D8 AE D9 8D 31 09 D8 AE E0 8D 31 1C 00 19 04 D8 AE
           DA 8D 31 77 DB AD 6A 04 AE 7A 04 DD D8 B0 DE 71 31 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-154 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-FIXED-VAR-LIST
      #75Y(00 01 00 01 00 08 3C 01 AC AC 01 02 92 03 32 D8 0E 01 5C 0F 01 DA 37
           01 71 90 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 4A AB
           71 4A 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-155 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   UNMODIFY-UNUSED-VAR REMOVE-OLD-DEFINITIONS
   #Y(UNMODIFY-UNUSED-VAR
      #69Y(00 01 00 00 00 02 D8 AC D9 71 31 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 31 5B 1B 06 DA AB DB 62 31 32
           16 01 9B 5B 77 DA AB DB 00 14 31 32 16 01 82 01 AB 8C 96 55 00 19 04
          )
      VAR 7. ANODE 3. ((VALUES1)) 2.
  )  )
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(CHECKING-FIXED-VAR-LIST
      #80Y(00 01 00 01 00 08 3C 01 62 AD 62 1A 3A D9 AB DC 62 31 32 9F 5A 1C 0C
           D9 AB DD 71 31 DE 30 AC AE DF 30 AC AA 2E 08 1A 1B 86 01 00 14 2E 00
           D9 AB DA 8D 31 0F D9 AB DB 8E 31 53 D9 AB DC 8E 31 03 AA 83 02 82 04
           82 01 AB 8C 96 5D AC 31 4A 19 06
          )
      IGNORE-CHECK VAR 2. 6. 9. 10. 0. GONE UNMODIFY-UNUSED-VAR
  )  )
#Y(#:TOP-LEVEL-FORM-157 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BOUND-TO-VAR-P REMOVE-OLD-DEFINITIONS
   #Y(BOUND-TO-VAR-P
      #50Y(00 02 00 00 00 03 D8 AD D9 8D 31 1E DA AC DB 71 31 71 48 24 04 14 DA
           AC DB 31 31 5A F7 DA AC 8D 35 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-158 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
   #Y(BIND-MOVABLE-VAR
      #135Y(00 02 00 00 00 03 AC 8B 61 80 66 AC 87 00 80 61 AC 6A 01 DA 37 02
            8B B7 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 31 79 F4 AD F5 AD 31 32 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-159 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-BIND-MOVABLE-VAR REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-MOVABLE-VAR
      #67Y(00 01 00 00 00 02 D8 AC D9 8D 31 12 D8 AC DE 8D 31 1E D8 AC E1 31 31
           77 8E 92 25 00 19 02 D8 AC DA 8D 31 77 DB D8 AD DC 71 31 6E 05 60 02
           1A 0B DF AC 6A 08 D8 AF E1 71 31 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-160 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-MOVABLE-VAR-ANODE
      #57Y(00 02 00 00 00 03 D8 D9 AE 6E 02 6D 03 03 AD AD 6F 04 92 00 1C DD AB
           DE 71 31 62 1A 0E 86 01 00 77 A2 22 05 94 00 AE 30 AE 82 01 AB 8C 96
           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-161 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(PROCESS-MOVABLE-VAR-LIST
      #72Y(00 03 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 4A AC 71 4A AC 71 4A 3F
           03 19 09
          )
      ONE C-FORM BIND-MOVABLE-VAR *STACKZ* PUSH-*VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(CHECKING-MOVABLE-VAR-LIST
      #152Y(00 02 00 00 00 03 AC AC 62 92 02 37 93 02 92 00 27 14 2E 00 D9 AB
            DA 8D 31 1E D9 AB DB 8D 31 28 D9 AB E0 8E 31 80 47 D9 AB DC 8E 31
            0B D9 AB DD 71 31 DE 30 AC AA 83 01 16 01 94 02 82 02 69 02 91 02
            49 AA 31 4A 19 06 D9 AB DC 62 31 32 D9 AB DD 71 31 DE 30 AC 93 02
            DF AB DA 31 31 16 01 5B 1B 56 93 02 DF AB DB 62 31 32 16 01 1A 4A
            D9 AB DC 62 31 32 D9 AB DD 71 31 DE 30 AC 93 02 DF AB DA 31 31 16
            01 5B 1B 0A 93 02 DF AB DB 62 31 32 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-163 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-VAR-LIST REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-VAR-LIST
      #192Y(00 01 00 00 00 02 0E 00 1B 07 AB 71 49 62 1A 80 A7 00 19 02 86 01
            00 1C 80 9C D9 AB DA 8D 31 80 95 D9 AB DB 8D 31 80 8E D9 AB DC 71
            31 62 1A 80 7E 86 01 00 77 D9 AB DA 8D 31 80 6F D9 AB DB 8D 31 80
            68 D9 AB DD 8D 31 80 61 D9 AB DE 31 31 77 23 07 80 57 9C 5B 5B 1C
            80 51 D9 AB DE 71 31 DF 30 AC 9C 5B 77 E0 AB E1 62 31 32 16 01 9C
            5B 78 E0 AB E1 62 31 32 16 01 D9 AE E2 71 31 D9 AC E2 71 31 1A 1A
            93 00 E0 AB E1 71 31 92 00 0C 93 00 94 00 B3 30 AC 16 01 AB 83 03
            16 02 82 00 9B 20 63 16 01 D9 AF E2 AD 31 32 16 01 16 01 82 01 AB
            8C 96 FF 7D 16 02 82 01 AB 8C 96 FF 57 00 19 04
           )
      *NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
  )  )
#Y(#:TOP-LEVEL-FORM-164 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-BIND-WITH-SVARS REMOVE-OLD-DEFINITIONS
   #Y(C-BIND-WITH-SVARS
      #206Y(00 06 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 A5 00 93 06 93 06 93 05 93 04 D9 6E 02 DB AF
            DC 8D 31 80 4D DB AF E3 8D 31 80 67 DB AF E5 8E 31 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
            A5 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 4A 19 0E 00 61 03 1A 55 DD AE 6A 06 AE AE
            7A 05 AD AC DB B2 DF 8D 31 6B E0 DB B3 E1 71 31 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
            31 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-165 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(C-LAMBDABODY
      #794Y(00 02 00 03 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
            48 E7 AC E8 AD 31 32 16 02 6A 04 B6 71 48 E7 AC E9 AD 31 32 16 02
            6A 04 B3 CE 59 58 14 E7 AC EA AD 31 32 16 02 6A 04 E7 AB EB B5 31
            32 16 01 6A 04 E7 AB EC B4 31 32 16 01 6A 04 E7 AB ED B0 31 32 16
            01 92 22 09 6A 04 93 23 AB 30 AC 16 01 94 23 63 6A 16 6A 17 72 02
            00 30 62 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 AC AE AD A2 79 30 AC 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 32 16 01 92 11 19
            6A 04 E7 AB E8 71 31 64 35 BE 37 06 71 63 72 01 36 E7 AC E8 AD 31
            32 16 02 64 36 AB D8 71 31 24 37 80 50 6A 04 E7 AB E8 E3 31 32 16
            01 6A 04 E7 AB E9 E3 31 32 16 01 6A 04 E7 AB EA 63 31 32 16 01 6A
            04 E7 AB EB 62 31 32 16 01 6A 04 E7 AB EC 62 31 32 16 01 6A 04 E7
            AB ED 62 31 32 16 01 6A 04 E7 AB 64 34 80 31 00 64 36 AB 64 38 64
            39 31 32 16 01 6A 04 E7 AB 64 3A C0 31 32 16 01 6A 04 6A 04 6A 04
            6A 04 6A 04 E7 AB 64 38 31 31 16 01 1B 80 89 CE 14 E7 AC 64 3B AD
            31 32 16 01 F6 6A 04 E7 AB 64 3C 80 31 00 71 48 72 02 35 E7 AC 64
            3D AD 31 32 16 01 F6 6A 04 E7 AB 64 3E 80 31 00 71 48 72 02 35 E7
            AC 64 3F AD 31 32 16 01 F6 6A 04 E7 AB EC 80 31 00 71 48 72 02 35
            E7 AC 64 40 AD 31 32 16 02 92 12 1E 6A 04 E7 AB 64 3C 31 31 16 01
            1B 0C 6A 04 E7 AB 64 3E 31 31 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-166 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-REQ-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-REQ-VARS
      #37Y(00 01 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 96 6D 16 02 AA 31 4A 19 03
          )
      PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  )  )
#Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-OPT-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-OPT-VARS
      #129Y(00 04 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 4A AD 71 4A
            AD 71 4A AD 71 4A 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-168 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-REST-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-REST-VARS
      #22Y(00 01 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-169 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BIND-AUX-VARS REMOVE-OLD-DEFINITIONS
   #Y(BIND-AUX-VARS
      #56Y(00 02 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 4A AB 71 4A 3F 02 19 05
          )
      ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV*
  )  )
#Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FNODE-FUNCTION REMOVE-OLD-DEFINITIONS
   #Y(C-FNODE-FUNCTION
      #222Y(00 01 00 01 00 08 3A 01 02 0E 00 10 00 D9 DA DB B2 DC 71 31 8D 92
            11 DB B2 DE 8D 31 14 00 14 62 DB B4 E3 71 31 1A 80 52 DD B2 7A 02
            60 01 1A 80 A6 DF DB B3 E0 71 31 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 31 00 E5
            37 02 8B B7 69 E7 E8 AC E0 71 31 6A 11 6A 00 60 04 14 D5 79 E2 0E
            00 5C 0F 00 AD 7F A5 02 16 01 82 00 9B 20 4F 16 01 AA 7F A7 00 62
            DB B5 EB 71 31 1A 35 EC AB 60 02 1A 1D 93 00 AA 6A 0C DB AB EB 80
            31 00 E5 37 02 8B B7 69 E7 ED AC E0 71 31 6A 11 6A 00 60 04 14 03
            16 79 E2 0E 00 5C 0F 00 AD 7F A5 02 16 01 82 00 9B 20 4E 16 01 AA
            7F A7 00 EF B5 DB B7 DC 71 31 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-171 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 2F
           09 FA AA 83 03 16 02 91 00 63 E2 AD AD 71 4A 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-172 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 E2 AD D9 71 31 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-173 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-174 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 E4 B0 E5 71 31 6F 0E E4 AF E5
            71 31 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-175 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-176 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-177 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 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 4A 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 96 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-178 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 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 4A 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 96 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-179 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-180 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-181 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-182 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-LOAD-TIME-VALUE REMOVE-OLD-DEFINITIONS
   #Y(C-LOAD-TIME-VALUE
      #80Y(00 00 00 00 00 01 6A 00 D9 DA 2C 03 03 0E 00 5B 77 DC DD 0E 06 1C 32
           DF 0E 08 1B 1C E2 E3 E4 B0 70 5E D1 14 B2 2C 06 0F 14 7A 02 60 01 1A
           1B E2 E3 E4 B0 6E 0D D1 1A 6B AD 8E 08 04 AD 87 09 6F E2 E6 E6 B0 2C
           04 0F 1A 5F 00 14 2C 03 10 19 02
          )
      *FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST
      *COMPILING-FROM-FILE* C-CONSTANTP :HORIZONT :ALL :VALUE C-CONSTANT-VALUE
      :FORM MAKE-CONST MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-183 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 E2 AE
           D9 71 31 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-184 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 E1 AD E2 71
           31 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-185 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 E1 AE D9 71 31 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-186 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 5A 1B 0A AE E5 30 AC AC E5 30 AC 7C 00 E2 E3 B1 E4 71 31 E3
            B0 E4 71 31 6F 0E E3 AE E4 71 31 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-187 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-PROG1
      #123Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 03 25 04 80 67 E5 E6 E7 E8 E9
            EA EB 6D 06 14 7A 02 ED AF EE B0 03 17 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 31 E3 AD D9 71 31 6F 0C E3 AD D9 31
            31 5B 1B FF B4 AE F0 30 AC AD 60 01 14 2C 03 19 19 04 03 1A 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 . 95.) (ONE . 91.) (ALL . 24.)) MVCALLP *STACKZ*
      C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST
      :HORIZONT :ALL :VALUE #.#'VALUES :FORM #'VALUES MAKE-CONST (MVCALLP)
      (MV-TO-STACK) ((MVCALL)) 0. MK-ANODE PROG1
  )  )
#Y(#:TOP-LEVEL-FORM-188 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 92 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 4A 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-189 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 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-190 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
   #Y(SETQLIST-MACROP
      #35Y(00 01 00 00 00 02 AB 92 00 13 93 00 AA 8E 08 04 AA 87 00 0C 16 01 9B
           5B 5B F6 91 00 6D 00 19 03 02 19 04
          )
      VENV-SEARCH-MACRO
  )  )
#Y(#:TOP-LEVEL-FORM-191 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 8E 96 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 08 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 4A 2C 03 1A 19 04 2D 08 19 01 E2 70 5A 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 31 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
            31 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-192 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 8E 96 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 08 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 31 AF 89 18 80 81 EE
            AC EF 71 31 AF 89 18 80 80 F1 83 06 AB 83 06 F2 83 05 AA 83 05 6A
            11 D9 30 AC AE EE AD EF 71 31 EE AD EF 71 31 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 4A 72 02 24 2C 03 1F 19 06 2D 08 19 01 E2
            70 5A 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-193 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MULTIPLE-VALUE-SETQ REMOVE-OLD-DEFINITIONS
   #Y(C-MULTIPLE-VALUE-SETQ
      #219Y(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 57 16 02 DD 0E 00 5B 79 2E 06 19 01 D0 1A 0D E1 E2
            AF E3 71 31 AF 6A 0C 23 07 71 00 79 2C 03 0E 1A 80 9A AA E7 E8 62
            6D 03 0E 0E 0C 1C 02 9E 58 14 6D 03 11 AA 83 02 AD E2 AC E3 71 31
            2F 12 F9 16 01 1A 80 51 82 00 1A 80 69 86 01 00 14 8E 08 05 AA 87
            04 FF AB 82 01 AB 8C 96 6E 16 02 0E 00 5B 77 71 48 0E 00 5B 5B 77
            DF 6F 06 0E 08 10 08 AE 8D 92 FF 9A 0E 00 5B 77 E2 AF E3 71 31 62
            92 02 24 93 02 AA 8D 08 FF 9A D6 4F 0A EC ED EE 6D 03 17 AE 2F 13
            50 16 01 F0 83 00 F1 0E 08 5C 0F 08 82 02 91 02 5C B1 F1 8F 01 2D
            FF 98 F2 B2 7A 02 83 00 E1 AC B2 9E 79 2C 03 0E 16 03 11 19 03
           )
      *FORM* 3. TEST-LIST 0. VENV-SEARCH-MACRO 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-194 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-PARALLEL-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
   #Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE
      #192Y(00 03 00 01 00 0A 3C 01 01 02 B0 B0 AF 72 02 23 B0 1A 80 67 93 02
            DC 37 01 71 90 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 AE 16 03 AB DA 30 AC AA AD 2F
            0A 16 02 1A 27 93 02 93 02 D8 AC D9 8E 31 19 00 2A 01 D8 AD DA 31
            31 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 A5 03 82 02 82 01 82 00 9D 1F 06 9C 1F 03 9B 20 43
            16 03 AA 7F A7 00 AD 62 AD 71 4A 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 A5 02 16 01
            82 00 9B 20 5C 16 01 AA 7F A7 00 32 03 23 19 06
           )
      VAR 2. 1.
      #Y(C-PARALLEL-BIND-MOVABLE-VAR-ANODE-1
         #29Y(00 01 00 00 00 02 D9 AC DA 31 31 77 AA 02 59 1D 0A 68 00 01 AB 37
              03 30 B7 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-195 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-LET/LET* REMOVE-OLD-DEFINITIONS
   #Y(C-LET/LET*
      #216Y(00 01 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 62 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 AC B1 AD A5 79 30 AC 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-196 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-LOCALLY REMOVE-OLD-DEFINITIONS
   #Y(C-LOCALLY
      #58Y(00 00 00 01 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 62 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-197 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 F0 AD F1 71 31 6F 1A AD AD 7A 02 2C 03 1B 16
            02 1A 81 0E 86 01 00 14 8D 08 09 DC DD DE 6D 03 07 AB 2F 08 82 01
            AB 8C 96 6A 16 02 AA 71 48 E1 8F 01 2D FF 9E 0E 00 5B 5B 78 62 6A
            0C 6A 0D 72 02 00 30 62 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 4A 16 01 F6 EE 04 21
            79 6E 0B AF 6E 20 B1 64 21 65 25 71 48 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 49 AB 81 02 23 00
            94 03 94 03 82 03 69 03 69 03 91 01 63 AA 31 4A 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 31 F0
            AF F1 71 31 6F 1A B3 6F 26 AC 6D 03 1B 92 02 0A B0 E1 30 AC AF AD
            A3 79 30 AC 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-198 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-COMPILER-LET REMOVE-OLD-DEFINITIONS
   #Y(C-COMPILER-LET
      #126Y(00 00 00 01 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 08 25 9D 5A 1F 28 9D
            5A 77 8E 08 22 9D 5A 5B 1F 1D 9D 5A 5B 5B 1B 17 9D 5A 77 83 01 9D
            5A 5B 77 30 5E 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 4A AB 31 4A 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-199-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 08 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 90 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 31 1C 6A 09 64 21 30 AC E0 F4 AC D9 71 31
            AC B2 60 02 14 2C 03 20 16 01 11 16 02 11 19 02 E0 F4 AC D9 71 31
            F5 B6 8E 8A 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-199-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 08 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 35 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 31 78 E5 B2 E6 71 31 7A 04 EF
            E5 B1 D9 71 31 7A 02 60 03 1A 50 0E 00 5B 5B 77 E5 AC E6 71 31 6F
            0F E5 AC E8 71 31 0E 11 22 0B 6A 12 E5 AD DA 31 31 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 31 37 03 70 BB F2 AC E6 AD 31 32 16 01 F2 AB F3 80 31 00 AA E5
            AE E8 31 31 22 60 16 01 E5 AC F4 63 31 32 EC F5 AC E5 AF E6 8E 31
            44 00 14 EC B0 E5 B2 E8 71 31 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-200 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 08 04 91 00 80 B0 AA 8D 0A 80 AB C7 4F 0A DD DE DF 6D
            03 08 AE 2F 04 50 16 01 82 02 91 02 5A AB 71 4A AB 71 4A 3F 02 16
            03 41 02 E1 0E 0A 5C 10 0A E3 6A 0C E5 B0 E6 E7 37 01 71 90 E8 62
            E9 62 EA 6A 0A 6D 08 13 EA 6A 0A EC B7 71 48 37 07 CC F8 70 1B 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 31 2F 1C FB AA 83
            06 16 01 16 01 82 02 91 02 61 AE 80 4A 04 16 03 F5 B0 64 1E 71 31
            71 48 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 03 FF B7 82 02 93 01 82 02 83 05 1A FF AC F5
            B0 64 1E 71 31 AA 71 48 E1 62 1A 14 B7 AE AD 72 01 01 BA 37 06 03
            1F F7 71 60 71 44 83 00 84 01 AB AD 90 01 2D 66 AA 31 4A 16 01 F6
            6A 0A F5 AD 7A 02 30 AC 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(00 01 00 00 00 02 AB 31 8A 1E 03 9C 19 02 19 02))
      NEW-CONST ((TAGBODY-CLOSE-NIL)) *FOR-VALUE* ((NIL)) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-201 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 08 03 91
            00 0D AA 8D 0A 09 DB DC DD 6D 03 06 AB 2F 07 AA 2E 08 41 02 92 01
            1B E4 AC 8D 35 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 31 03 15 7B 03 EE AE E4 B1 D9 71 31 70 98 7A 02 60 02
            1A 52 E4 AC E5 71 31 0E 0E 22 0A 6A 0F E4 AD E8 71 31 89 11 50 F0
            0E 19 1B 80 55 E4 AD F2 71 31 AA 71 48 F0 1A 10 15 16 02 1A 18 AC
            AB 72 01 01 B1 8D 03 72 84 00 AA AC 90 01 2D 6F B0 AD 30 18 9C 16
            03 F6 6A 0E 1A 1E 6A 0F 60 01 1A 34 AD F3 AC F4 71 31 37 03 70 BB
            F3 AC F4 AD 31 32 16 01 F3 AB F5 80 31 00 AA E4 AF E5 31 31 22 60
            16 01 EA 64 1E 64 1F EA B0 AF E4 B3 E5 71 31 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-202 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FUNCTION REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCTION
      #263Y(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 22 6A 00 37 01 30 A0 77 9B 1F 0A 93 00 24 27 05 9B
            5B 20 80 AA 64 30 64 31 64 32 6D 03 1A AB 2F 1B 19 04 AA 2E 05 41
            03 9D 25 06 80 89 E6 E7 E8 E9 A4 5D 14 EA E3 B6 7A 02 2C 06 13 1A
            80 61 0E 07 1C 17 AD 8B 53 13 AD 6A 08 E1 37 02 8B B7 0A AD 6A 0A
            E1 37 02 30 BB 0F 0A E3 E4 AF 8C 01 04 AF 88 0D 49 E6 B0 6E 14 7A
            02 03 15 5C 1A 36 EF F0 F1 6D 03 1A AE 2F 1B 19 06 E3 F4 E6 AE 6E
            1D 7A 02 64 1E E6 AF 6E 1D 7A 02 03 1F 61 03 1A 15 E6 AC 8E 35 16
            E3 64 20 64 21 E6 AF 64 22 31 31 14 7A 02 60 01 14 2C 03 16 19 06
            64 23 AC 64 22 71 31 2E 24 19 06 64 25 2E 26 19 06 9F 1A 23 0E 28
            1B 03 0E 29 58 10 28 92 05 04 AE 87 04 6D 6A 2A 64 2B AB 64 22 80
            31 00 6A 2C 31 97 0F 2C 14 2F 2D 14 94 04 6F 2E 2E 2F 11 19 04
           )
      *FORM* 2. 3. TEST-LIST FUNCTION-NAME-P FENV-SEARCH
      #S(HASH-TABLE EQ (LOCAL . 101.) (GLOBAL . 79.) (MACRO . 68.) (NIL . 20.))
      *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS*
      FUNCTION (T) DECLARED-NOTINLINE CONST :HORIZONT :ALL :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-203 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 00 6A 07 31 97 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-204
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
   %OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS MACRO
   #Y(%OPTIMIZE-FUNCTION-LAMBDA
      #34Y(00 01 00 01 00 08 AC 71 48 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-205 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 A2 6A 05 DE AB DF 80 31 00 6A 08 31 97 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 A7 00 DF 0E 0D 5C 10 0D E6 AE
            60 02 10 00 2D 0F 12 02 14 E8 E9 AE D9 71 31 E9 AD D9 71 31 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-206-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
   C-FLET REMOVE-OLD-DEFINITIONS
   #Y(C-FLET
      #348Y(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 06 CD 4F
            0C E3 E4 E5 6D 03 0E E7 AF 2C 03 0A 50 16 01 82 02 91 02 5B AB 71
            4A AB 71 4A 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 4C 93 04 83 00 93 03 DE AB EB 71 31 8D 92 80 CB AA 6E 17
            83 02 DF 0E 10 5C 0F 10 F0 37 01 71 90 F1 62 F2 62 F3 63 F4 62 F5
            62 64 1E 6A 10 64 1F 6A 11 6D 10 20 AB 7A 01 9C 79 83 02 AA 83 04
            16 01 16 01 94 04 82 04 69 04 91 04 FF B4 AC 71 4A AC 71 4A 64 21
            6A 22 9F 79 31 4A 76 00 3F 03 16 05 41 03 9B 10 22 98 23 A1 36 00
            64 24 0E 00 5B 5B 79 6E 25 B0 B0 6F 26 E7 B1 AD 7A 01 72 02 23 6E
            27 B3 6F 28 AC B5 B7 6D 03 29 98 2A B5 B5 6D 03 2B AF 64 2C 6A 10
            65 1A 6A 2D 7A 04 7A 02 72 03 23 6D 03 2E 92 01 0A B4 DF 30 AC B3
            AC A7 79 30 AC B2 2E 2F 15 16 02 11 16 05 12 03 19 04 6A 05 DE AB
            DF 80 31 00 93 01 6F 08 94 01 6F 09 93 01 83 03 AA 83 02 16 01 1A
            FE ED AA 7A 01 EC ED ED AE 2C 04 16 79 83 01 1A FF 56
           )
      *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. :HORIZONT :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-206-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 4A AE 71 4A AE 71 4A AE 71 4A AE 71 4A
            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 4A 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 90 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 31 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 31 78
            6F 22 83 04 16 02 82 01 82 00 9C 20 63 16 02 AA 7F A7 00 64 23 0E
            00 5B 5B 79 6E 24 B3 AD 92 01 2D 93 01 93 01 EB AB 64 25 71 31 8E
            92 15 64 20 AC 64 26 63 31 32 AA 6E 27 64 20 AD 64 28 AD 31 32 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 AC B7 AC 04 10 79 30 AC 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-206-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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
            4A AC 71 4A AC 71 4A 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 90 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 4A AC 71 4A 64 1E 6A 08
            9F 79 31 4A 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 AC B3 AC A7
            79 30 AC 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-206-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 4A AD 71 4A AD 71 4A AD 71 4A 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 4A 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 90
            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 A7 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 AC B5 AC A9 79
            30 AC 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-207 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MACROLET REMOVE-OLD-DEFINITIONS
   #Y(C-MACROLET
      #75Y(00 00 00 01 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 4A 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-208 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-SYMBOL-MACROLET REMOVE-OLD-DEFINITIONS
   #Y(C-SYMBOL-MACROLET
      #239Y(00 00 00 01 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 62 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 08 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 4A AB 71 4A 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 96 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 A6 04 16 02
            82 01 82 00 9C 20 66 16 02 AA 7F A7 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-209 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-EVAL-WHEN REMOVE-OLD-DEFINITIONS
   #Y(C-EVAL-WHEN
      #116Y(00 00 00 01 00 07 3A 01 03 99 00 01 6A 01 DA 2F 03 0E 01 5B 77 DC
            2F 03 01 03 0E 01 5B 77 62 1A 34 86 01 00 25 05 0D 7D 03 1A 28 7D
            02 1A 24 7D 04 F9 1A 1F AA DE 8D 04 76 AA DF 8E 04 0C 7D 04 1A 11
            AA 2E 0E 1A 23 9C 1A 25 E0 E1 E2 6D 03 0B AB 2F 0C 82 01 AB 8C 96
            48 16 02 E5 0E 01 5B 5B 79 91 02 5E 92 01 03 AA 30 5E AF 91 04 59
            00 14 35 01 19 06
           )
      C-FORM *FORM* 2. TEST-LIST 0.
      #S(HASH-TABLE EQ (COMPILE-ONCE-ONLY . 5.) (EVAL . 45.) (COMPILE . 1.)
         (LOAD . 24.)
        )
      (NOT EVAL) (NOT COMPILE)
      "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-210 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-211 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-CASE REMOVE-OLD-DEFINITIONS
   #Y(C-CASE
      #495Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 0E 00 5B 78 01 03 AD
            1A 80 AD DB DC DD 6D 03 06 AB 2F 07 16 01 1A 80 9F 7C 00 1A 80 92
            92 02 11 CA 4F 0E E1 E2 E3 6D 03 06 E4 AF 6A 00 2C 04 07 50 7D 00
            F9 1A 80 78 9C 1A 1C 93 00 82 01 9B 1F 49 93 00 91 03 52 AA 02 21
            53 AA 23 08 4F 62 AB 8D 0D 64 AB 60 01 14 62 1A 80 48 AA 83 07 AA
            83 02 1A 3E 00 2A 01 37 01 31 90 0B 00 00 AA 6C 14 01 ED 67 02 00
            B1 7A 02 7A 01 EE 67 04 00 B1 A0 73 7A 03 7A 03 2E 17 19 07 86 01
            00 14 B2 E5 37 02 8C B7 47 E6 E7 E8 6D 03 06 E4 AC 6A 00 2C 04 11
            82 01 AB 8C 96 62 16 02 AA 80 4A 01 16 01 AA 9D 5B 79 83 05 16 02
            AA 8C 96 FF 7E 16 01 91 00 03 EA 83 02 AC 80 4A 02 AB 80 4A 01 F6
            71 48 EB 8F 01 31 FF 8E AD F0 6F 17 01 02 AE 62 1A 80 59 9B FA 16
            01 1A 80 50 EE 9C 5B 79 6E 17 9C 5A 1F 6F 93 01 62 6E 19 AC 7A 03
            83 03 16 01 1A 38 AC 6E 1C AB 62 1A 14 9B 5B 5B 5A 19 0B 86 01 00
            AC 93 01 E5 37 02 8B B7 6E 82 01 AB 8C 96 6E 9F 19 0B 03 1F 1A 33
            86 01 00 5A 1B FF BB 02 10 1A EE 9F 5B 79 62 2F 17 11 82 01 AB 8C
            96 68 16 02 AA 80 4A 00 AC 87 1B FF B7 62 6E 19 6A 1D 6E 19 98 1E
            B0 8F 00 28 4B 03 20 14 E4 B0 64 21 B0 72 00 17 B1 7A 01 32 02 23
            79 6E 22 B1 64 23 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 A7 16 01 F6 AD
            7F A5 02 16 01 82 00 9B 20 55 16 01 AA 7F A7 00 B2 64 24 B5 32 00
            17 7B 04 62 B2 1A 18 93 00 9B 5B 77 9C 5B 5B 77 64 25 B5 7A 02 7A
            03 AD 7F A5 02 16 01 82 00 9B 20 65 16 01 AA 7F A7 00 B1 B4 B2 7A
            03 32 02 23 7B 02 2C 03 26 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 "~S: the ~S clause must be the last one: ~S"
      "~S: Die ~S-Klausel muß die letzte sein: ~S"
      "~S : La clause ~S doit être la dernière: ~S" CASE #.#'EQL
      "Duplicate ~S label ~S : ~S" "Doppelt aufgeführter ~S-Fall ~S : ~S"
      "~S : Le choix ~S se répète: ~S" C-WARN (T NIL) 2.
      #Y(C-CASE-IFIFY
         #74Y(00 01 00 00 00 02 91 01 2A 00 19 02 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 A7 16
              01 5C 1A 0C 92 01 56 D9 9D 5A 77 AA 8D 0D 51 02 F6 DD 9F 5A 5B 79
              94 04 6B 6A 60 04 19 02
             )
         NIL IF OR EQL QUOTE PROGN
        )
      LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP
      ANODE-CONSTANT-VALUE *FOR-VALUE* EQL=EQ EQ EQL #.#'THIRD
      ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-212 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 90 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 96 FF 4A 16 02 92 02 FF 73
            AC 80 4A 02 AB 80 4A 01 AA 80 4A 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 2D
            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-213 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-CONSTANT-EQL REMOVE-OLD-DEFINITIONS
   #Y(C-CONSTANT-EQL
      #58Y(00 00 00 00 00 01 6A 00 D9 D9 2C 03 02 0E 00 5B 77 0E 00 5B 78 0E 03
           1C 0F AB 88 04 0B AB 6E 05 AA 8E 09 0C 16 01 1B 0F CB 14 9C 79 2E 07
           19 03 AA 31 24 16 01 1C 71 C9 1A 6F
          )
      *FORM* 4. TEST-LIST *COMPILING-FROM-FILE* C-CONSTANTP C-CONSTANT-VALUE
      LOOSE-CONSTANT-EQL C-FORM EQL
  )  )
#Y(#:TOP-LEVEL-FORM-214 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FUNCALL-NOTINLINE REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL-NOTINLINE
      #73Y(00 02 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 48 7A 02 83 00 E0 E1 AC 71 4A 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-215 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FUNCALL-INLINE REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCALL-INLINE
      #1070Y(00 05 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 48 B6 71 48 BE 71 48 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 A1 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 51 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 62 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 4A 0C B5 80 4A 0B B4 80 4A 0A B3 80 4A 09 B2 80 4A
             08 B1 80 4A 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 4F B7 B5 7A 01 72 08 23
             6E 33 AE 6F 34 AC 6D 03 35 92 02 0A B0 D8 30 AC AF AD A3 79 30 AC
             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 90
             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(00 01 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(00 05 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 48 B1 71 48 72 02 35 B1 71 48 6D 03 09 E2 E3
               AD E4 71 31 E3 AD E4 71 31 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-216 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-LOCAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-LOCAL-FUNCTION-CALL
      #65Y(00 03 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-217 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
   #Y(C-FUNCTION-CALL
      #107Y(00 02 00 00 00 03 AC AC 71 48 89 00 3F 9D 1F 1A 93 02 24 02 15 9D
            5B 1F 11 9D 5B 5B 1B 0C DA 87 03 08 DA 87 04 04 DD 88 03 2F 9D 1F
            38 93 02 24 08 33 9D 5B 1F 2F 9D 5B 77 88 09 29 AC E2 E2 2C 03 0B
            9D 5B 77 9D 5C 14 2E 07 19 03 AC AC 62 A0 5B 5A 78 63 2C 05 01 19
            03 DD DE 9F 5B 77 9F 7B 02 60 02 1A 62 AC AC 2F 0C 19 03
           )
      INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE COMPLEMENT FENV-SEARCH
      DECLARED-NOTINLINE NOT %FUNCALL C-FORM FUNCTION FUNCTION-NAME-P 2.
      TEST-LIST C-FUNCALL-NOTINLINE
  )  )
#Y(#:TOP-LEVEL-FORM-218 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-219 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-APPLY REMOVE-OLD-DEFINITIONS
   #Y(C-APPLY
      #408Y(00 00 00 00 00 01 46 00 81 8C 6A 01 DA 2F 03 00 2A 01 0E 01 5B 77
            0E 01 5B 5B 0B 01 00 14 71 48 71 98 AB AB 63 2C 03 04 1B 80 91 9C
            1F 1B 93 01 24 06 16 9C 5B 1F 12 9C 5B 5B 1B 0D DE 87 07 09 DE 87
            08 05 E1 88 07 80 8E 9C 1F 27 93 01 24 0C 22 9C 5B 1F 1E 9C 5B 77
            88 0D 18 9D 2A 01 9D 5B 5A 0B 00 00 AC E6 E6 2C 03 03 67 00 00 88
            08 81 0C 16 01 AB F4 6F 0B EA 0E 1D 5C 10 1D 67 06 00 64 1E AF 7A
            02 92 01 1D 93 01 F4 6F 0B AA 83 01 9D 5B 1C 0A EA 0E 1D 5C 0F 1D
            64 1F 83 01 16 01 82 01 91 01 63 E2 B1 7A 02 83 00 E2 64 20 AC 71
            4A 2C 03 21 16 02 11 16 04 47 19 01 AB 67 03 00 37 01 70 A8 67 04
            00 37 01 70 A0 9F 5B 5A 78 63 2C 05 05 16 03 1A 62 E1 E2 9E 5B 77
            06 05 00 7B 02 7A 02 2E 0B 16 03 1A 50 6A 10 00 79 9F 33 0E 16 1C
            80 60 1A 80 50 67 05 00 67 09 00 37 01 70 A8 67 0A 00 37 01 70 A0
            AD 62 2C 05 05 16 09 1A FF A7 67 04 00 8E 08 0E 67 04 00 8B 54 80
            72 67 04 00 8B 5A 80 6B 67 04 00 6A 10 E9 AB EA 80 31 00 8E 04 0F
            EB 67 05 00 7A 02 6A 14 ED 37 02 8B B7 FF A6 0E 16 1C 0D 67 04 00
            6A 17 ED 37 02 30 BE 5B 1B 0A 67 04 00 6E 18 F1 37 01 31 84 14 9B
            1F 0E E4 F2 9D 79 7A 02 B1 63 2C 03 04 1B FF 87 16 06 1A FE FE AA
            9F 33 16 05 1A FE F6 AA B1 6C 0F 02 67 01 00 2E 07 41 03 92 02 FF
            85 AC 23 1B 64 16 05 1A FE DD 19 01
           )
      C-APPLY *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE
      COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT APPLY C-FORM FUNCTION
      FUNCTION-NAME-P 2.
      #Y(C-APPLY-C-LOCAL-APPLY
         #87Y(00 01 00 00 00 02 AB 2E 02 41 06 91 02 1D 68 01 01 37 01 70 A8 68
              01 01 37 01 70 A0 68 00 01 B2 B2 B2 B2 B2 B2 6D 09 03 23 04 03 00
              19 08 68 01 01 37 01 70 A8 68 01 01 37 01 70 A0 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
        )
      *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL *COMPILING-FROM-FILE*
      *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION LAMBDA LOCAL ONE
      *STACKZ* (APPLYP) (PUSH) (T . T) MK-ANODE
  )  )
#Y(#:TOP-LEVEL-FORM-220 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 0A 49 AA 83 03 82 01 AB 8C 96 68 16 02 AB 71
            48 AA 23 03 FF BE AA 23 01 FF BC AC 80 4A 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-221 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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 0A 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 0A 4F AA 83 03 82 01 AB 8C 96 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 4A 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-222 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 90 37 01 71 90 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-223 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-224 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   EQL=EQ REMOVE-OLD-DEFINITIONS
   #Y(EQL=EQ
      #23Y(00 01 00 00 00 02 AB 31 08 1D 0A AB 31 0F 1D 05 AB 31 1E 19 02 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-225 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 03 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-226 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   EQUAL=EQL REMOVE-OLD-DEFINITIONS
   #Y(EQUAL=EQL
      #23Y(00 01 00 00 00 02 AB 31 08 1D 0A AB 31 0A 1D 05 AB 31 1E 19 02 19 02
  )  )    )
#Y(#:TOP-LEVEL-FORM-227 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-228 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MAP-ON-CARS-INNER REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-CARS-INNER
      #65Y(00 03 00 01 00 0A 3A 01 0D 7C 01 91 02 0B AE AC 71 4A 35 01 19 05 92
           02 75 93 02 37 01 71 90 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-229 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MAP-ON-CARS REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-CARS
      #141Y(00 03 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 9B 2A 01 37 01
            31 90 0B 00 00 37 01 71 90 62 AF 1A 0C 93 00 37 01 71 90 83 02 16
            01 82 00 9B 20 71 16 01 AA 7F A7 00 37 01 71 90 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 A5 02 16 01 82 00
            9B 20 6C 16 01 AA 30 A7 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(00 01 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-230 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-MAP-ON-LISTS REMOVE-OLD-DEFINITIONS
   #Y(C-MAP-ON-LISTS
      #160Y(00 03 00 00 00 04 37 01 71 90 37 01 71 90 62 AE 1A 0C 93 00 37 01
            71 90 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A7 00 37 01 71 90 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 A7 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 A5 02 16 01 82 00 9B
            20 6C 16 01 AA 30 A7 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-231 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 89
            03 05 E7 2E 10 19 01 37 01 71 90 AA 0E 00 5B 5B 5B 79 37 01 71 90
            62 AC 1A 0C 93 00 37 01 71 90 83 02 16 01 82 00 9B 20 71 16 01 AA
            7F A7 00 37 01 71 90 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 A5 02 16 01 82 00 9B 20 6C 16 01 AA 30 A7 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(00 01 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-232 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 89
            03 05 EA 2E 13 19 01 37 01 71 90 AA 0E 00 5B 5B 5B 79 37 01 71 90
            62 AC 1A 0C 93 00 37 01 71 90 83 02 16 01 82 00 9B 20 71 16 01 AA
            7F A7 00 37 01 71 90 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 A7 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
            A5 02 16 01 82 00 9B 20 6C 16 01 AA 30 A7 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-233 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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-234 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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-235 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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-236 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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-237 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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-238 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 48 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-239
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 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)
        (LOGICAL-PATHNAME . LOGICAL-PATHNAME-P) (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)
        (FILE-STREAM . FILE-STREAM-P) (SYNONYM-STREAM . SYNONYM-STREAM-P)
        (BROADCAST-STREAM . BROADCAST-STREAM-P)
        (CONCATENATED-STREAM . CONCATENATED-STREAM-P)
        (TWO-WAY-STREAM . TWO-WAY-STREAM-P) (ECHO-STREAM . ECHO-STREAM-P)
        (STRING-STREAM . STRING-STREAM-P) (STRING . STRINGP) (SYMBOL . SYMBOLP)
        (VECTOR . VECTORP)
      )
   (DEFCONSTANT C-TYPEP-ALIST1 '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-240
   #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
        83 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)
      )
   (DEFCONSTANT C-TYPEP-ALIST2 '#1#) CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-241 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-TYPEP-ARRAY REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-ARRAY
      #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
      #Y(C-TYPEP-ARRAY-1
         #137Y(00 01 00 02 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 0A 15 DF B0 71 48 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 A5 02 16 01 82 00 9B 20 5E 16 01 AA 30 A7
               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-242 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-TYPEP-VECTOR REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-VECTOR
      #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
      #Y(C-TYPEP-VECTOR-1
         #43Y(00 01 00 01 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-243 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-TYPEP-NUMBER REMOVE-OLD-DEFINITIONS
   #Y(C-TYPEP-NUMBER
      #23Y(00 02 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
         #175Y(00 01 00 02 01 00 3A 03 02 C4 F9 3A 02 02 C4 F8 DA 68 00 02 B0
               7A 02 AF 23 01 80 5C 68 00 02 B0 35 01 1B 80 56 A0 1F 80 57 A0
               5B 1B 80 52 68 00 02 93 06 35 01 1C 80 48 DC A1 5A 14 B2 7A 03
               60 01 14 AF 23 01 80 50 68 00 02 B0 35 01 1B 80 4A A0 1F 0D A0
               5B 1B 09 68 00 02 93 06 35 01 1B 3E E6 E7 E8 6D 03 08 E1 68 00
               01 68 00 01 68 00 01 B4 2C 06 0A CE 14 00 51 00 1A 46 DB A1 1A
               FF BB DD DE DF 6D 03 08 E1 68 00 01 68 00 01 68 00 01 B4 2C 06
               0A CE 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-244
   #149Y(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 61 0E AA 64 2B 70 51 8D 03 06 64 2B 64 2C
         2F 2D 64 2B AB 31 83 03 2B 19 02
        )
   ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
   #Y(#:TOP-LEVEL-FORM-244-1
      #73Y(00 01 00 02 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-244-2
      #70Y(00 01 00 02 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-244-3
      #47Y(00 01 00 01 01 00 3C 02 AC 8E 0E 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-244-4
      #59Y(00 01 00 01 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0E 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-244-5
      #66Y(00 01 00 01 01 00 3A 02 02 C3 F8 AC 23 00 04 AC 8E 0E 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
   (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 (LANGUAGE #2# #3# #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 (LANGUAGE #5# #6# #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 (LANGUAGE #8# #9# #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))
   )  )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-245 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 08 81 BB 9C 1F 06 93 01 8D 08 80
            D3 AB 88 15 81 F2 AB 6E 16 EC 37 01 71 84 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 8C
            6F 09 B1 7A 01 62 B0 62 2C 05 0A 11 19 05 5B F6 37 01 71 90 AB AB
            75 01 AB 7A 01 AB 7A 02 E4 9C 79 B1 60 02 10 00 E5 B2 71 8C 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 08 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 48 23 1D 4A 93 04 23 23 59 93 04 24 28 80 69 AE 71 48
            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 90 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
            A7 16 01 79 60 03 F6 2E 11 16 07 1A 80 51 93 04 24 2A 07 AE 71 48
            23 1D FF A7 93 04 23 2B FF B6 93 04 23 2C FF B0 93 04 6A 0B 37 03
            7F BE 03 1C 32 5B F9 37 01 71 90 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 8C 6F 09 B7 7A 01 62 B0
            62 2C 05 0A 11 16 0A 18 0F 19 01 50 16 02 1A 80 47 AB DD 37 03 7F
            BE 00 1B FE 6F AB DF 37 03 7F BE 00 1B FE 6F AB 6A 0B 37 03 7F BE
            00 1B FE 7E AB E6 37 01 80 84 00 1B FE 9E AB EA 37 01 8D 84 FE A2
            AB EC 37 01 80 84 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-246 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   C-FORMAT REMOVE-OLD-DEFINITIONS
   #Y(C-FORMAT
      #52Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 8D 09 05 DB 2E 05 19
           01 DB 0E 00 5B 77 DC 0E 00 5B 5B 77 7A 02 0E 00 5B 5B 5B 61 03 10 00
           DB 2E 05 11 19 01
          )
      *FORM* 3. TEST-LIST FORMAT FORMATTER C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-1-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-REMOVE-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-REMOVE-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      REMOVE-IF-NOT C-FORM REMOVE-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-1-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-REMOVE-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-REMOVE-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT REMOVE-IF C-FORM
      REMOVE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-2-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-DELETE-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-DELETE-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      DELETE-IF-NOT C-FORM DELETE-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-2-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-DELETE-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-DELETE-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT DELETE-IF C-FORM
      DELETE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-3-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBSTITUTE-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-SUBSTITUTE-IF
      #69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
           15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
           2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      SUBSTITUTE-IF-NOT C-FORM SUBSTITUTE-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-3-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBSTITUTE-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-SUBSTITUTE-IF-NOT
      #65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
           11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
           DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT SUBSTITUTE-IF C-FORM
      SUBSTITUTE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-4-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBSTITUTE-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBSTITUTE-IF
      #69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
           15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
           2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      NSUBSTITUTE-IF-NOT C-FORM NSUBSTITUTE-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-4-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBSTITUTE-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBSTITUTE-IF-NOT
      #65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
           11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
           DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT NSUBSTITUTE-IF C-FORM
      NSUBSTITUTE-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-5-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-FIND-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-FIND-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      FIND-IF-NOT C-FORM FIND-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-5-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-FIND-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-FIND-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT FIND-IF C-FORM FIND-IF-NOT
      C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-6-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-POSITION-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-POSITION-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      POSITION-IF-NOT C-FORM POSITION-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-6-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-POSITION-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-POSITION-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT POSITION-IF C-FORM
      POSITION-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-7-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-COUNT-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-COUNT-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      COUNT-IF-NOT C-FORM COUNT-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-7-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-COUNT-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-COUNT-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT COUNT-IF C-FORM
      COUNT-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-8-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBST-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-SUBST-IF
      #69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
           15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
           2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      SUBST-IF-NOT C-FORM SUBST-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-8-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-SUBST-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-SUBST-IF-NOT
      #65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
           11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
           DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT SUBST-IF C-FORM
      SUBST-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-9-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBST-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBST-IF
      #69Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 1A 93 00 24 03
           15 9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1
           2E 0A 19 02 DF 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 08 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      NSUBST-IF-NOT C-FORM NSUBST-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-9-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-NSUBST-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-NSUBST-IF-NOT
      #65Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 5B 77 9B 1F 16 93 00 24 03
           11 9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02
           DE 0E 00 5B 77 9D 5B 77 0E 00 5B 5B 5B 7B 03 2E 07 19 02
          )
      *FORM* 4. TEST-LIST COMPLEMENT FENV-SEARCH NOT NSUBST-IF C-FORM
      NSUBST-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-10-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-MEMBER-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-MEMBER-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      MEMBER-IF-NOT C-FORM MEMBER-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-10-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-MEMBER-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-MEMBER-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT MEMBER-IF C-FORM
      MEMBER-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-11-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-ASSOC-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-ASSOC-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      ASSOC-IF-NOT C-FORM ASSOC-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-11-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-ASSOC-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-ASSOC-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT ASSOC-IF C-FORM
      ASSOC-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-12-1
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01) C-RASSOC-IF
   REMOVE-OLD-DEFINITIONS
   #Y(C-RASSOC-IF
      #63Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 1A 93 00 24 03 15
           9B 5B 1F 11 9B 5B 5B 1B 0C DB 87 04 08 DB 87 05 04 DE 88 04 05 E1 2E
           0A 19 02 DF 9C 5B 77 0E 00 5B 5B 7B 02 2E 08 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH DECLARED-NOTINLINE NOT
      RASSOC-IF-NOT C-FORM RASSOC-IF C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-247-12-2
   #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01) C-RASSOC-IF-NOT
   REMOVE-OLD-DEFINITIONS
   #Y(C-RASSOC-IF-NOT
      #59Y(00 00 00 00 00 01 6A 00 D9 2F 02 0E 00 5B 77 9B 1F 16 93 00 24 03 11
           9B 5B 1F 0D 9B 5B 5B 1B 08 DB 87 04 04 DD 88 04 05 E0 2E 09 19 02 DE
           9C 5B 77 0E 00 5B 5B 7B 02 2E 07 19 02
          )
      *FORM* 3. TEST-LIST COMPLEMENT FENV-SEARCH NOT RASSOC-IF C-FORM
      RASSOC-IF-NOT C-GLOBAL-FUNCTION-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-248 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *FNODE-FIXUP-TABLE*) *FNODE-FIXUP-TABLE*
  )
#Y(#:TOP-LEVEL-FORM-249 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   PASS2 REMOVE-OLD-DEFINITIONS
   #Y(PASS2
      #95Y(00 01 00 00 00 02 9C 10 00 6A 00 D9 AB DA 80 31 00 DB AB 31 35 16 01
           1B 04 00 11 19 02 2D 04 14 6A 00 D9 AB DD 31 31 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 31 00 62
           1A 0E 86 01 00 D9 AB 8E 35 04 AA 27 FF B3 82 01 AB 8C 96 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-250 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CODE-PARTS*) *CODE-PARTS*
  )
#Y(#:TOP-LEVEL-FORM-251 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CODE-POSITIONS*) *CODE-POSITIONS*
  )
#Y(#:TOP-LEVEL-FORM-252 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   VALUE-FORM-INDEX REMOVE-OLD-DEFINITIONS
   #Y(VALUE-FORM-INDEX
      #95Y(00 03 00 01 00 0A 3A 01 03 0E 00 F7 D9 AC DA 71 31 D9 AD DB 71 31 D9
           AE DC 71 31 91 02 21 B1 7A 01 D9 B0 DA AD 31 32 16 01 B0 7A 01 D9 B0
           DB AD 31 32 16 01 1A 26 93 01 A2 1A 0B 82 02 82 01 AF 23 05 73 93 02
           A3 14 8D 03 12 84 00 9D 5B 1B 6B AC B2 7A 01 30 AE AB B1 7A 01 30 AE
           15 19 07
          )
      *FUNC* FNODE 17. 18. 16. :FORM
  )  )
#Y(#:TOP-LEVEL-FORM-253 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CONSTVALUE-INDEX REMOVE-OLD-DEFINITIONS
   #Y(CONSTVALUE-INDEX #14Y(00 01 00 00 00 02 AB 62 D8 2C 03 01 19 02) :VALUE
      VALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-254 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   KVALUE-FORM-INDEX REMOVE-OLD-DEFINITIONS
   #Y(KVALUE-FORM-INDEX
      #59Y(00 03 00 01 00 0A 3A 01 03 0E 00 F7 AC 23 01 1F AE 8E 8D 1B DA AC DB
           71 31 DA AD DC 71 31 92 00 0C 93 00 A2 21 12 82 00 84 01 91 00 74 16
           02 AE AE AE AE 2C 04 05 19 05 9C 19 07
          )
      *FUNC* :FORM FNODE 9. 14. VALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-255 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   KCONSTVALUE-INDEX REMOVE-OLD-DEFINITIONS
   #Y(KCONSTVALUE-INDEX #14Y(00 01 00 00 00 02 AB 62 D8 2C 03 01 19 02) :VALUE
      KVALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-256 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(CONST-INDEX
      #48Y(00 01 00 00 00 02 0E 00 1C 08 D9 AC DA 71 31 24 03 0D D9 AC DC 71 31
           62 C6 14 2C 03 06 19 02 D9 AC DC 71 31 D9 AD DD 71 31 D9 AE DA 31 31
           1A 69
          )
      *COMPILING-FROM-FILE* CONST 3. :VALUE 1. 2. KVALUE-FORM-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-257 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   MAKE-CONST-CODE REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONST-CODE
      #43Y(00 01 00 00 00 02 D8 AC D9 71 31 23 02 0E D8 AC DB 71 31 92 00 0F AA
           02 21 0E 16 01 D8 AC 6E 06 AD 60 03 19 02 C7 19 03 C8 19 03
          )
      CONST 3. :FORM 1. (NIL) (T) CONST-INDEX
  )  )
#Y(#:TOP-LEVEL-FORM-258 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   BCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(BCONST-INDEX
      #36Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 31 D9 AD DB 71 31 1A
           04 82 00 84 01 93 00 A0 22 77 9C 19 05
          )
      *FUNC* FNODE 5. 6.
  )  )
#Y(#:TOP-LEVEL-FORM-259 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   GCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(GCONST-INDEX
      #36Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 D9 AC DA 71 31 D9 AD DB 71 31 1A
           04 82 00 84 01 93 00 A0 22 77 9C 19 05
          )
      *FUNC* FNODE 7. 8.
  )  )
#Y(#:TOP-LEVEL-FORM-260 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   FCONST-INDEX REMOVE-OLD-DEFINITIONS
   #Y(FCONST-INDEX
      #43Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC D9 AD DA 71 31 37 03 8B B7 0F
           AC 6E 03 AC AB 7A 02 0E 04 5C 0F 04 15 19 03 AC 2E 03 19 03
          )
      *FUNC* FNODE 17. CONSTVALUE-INDEX *FNODE-FIXUP-TABLE*
  )  )
#Y(#:TOP-LEVEL-FORM-261 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CODE-PART*) *CODE-PART*
  )
#Y(#:TOP-LEVEL-FORM-262 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CODE-INDEX*) *CODE-INDEX*
  )
#Y(#:TOP-LEVEL-FORM-263 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *DEAD-CODE*) *DEAD-CODE*
  )
#Y(#:TOP-LEVEL-FORM-264 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *LABEL-SUBST*) *LABEL-SUBST*
  )
#Y(#:TOP-LEVEL-FORM-265 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CURRENT-VALUE*) *CURRENT-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-266 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *CURRENT-VARS*) *CURRENT-VARS*
  )
#Y(#:TOP-LEVEL-FORM-267 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   LABEL-SUBST REMOVE-OLD-DEFINITIONS
   #Y(LABEL-SUBST
      #66Y(00 02 00 00 00 03 AC 70 51 62 1A 1A 6A 00 AD 32 01 01 5A 1A 0A 86 01
           00 AD AF AC 8D 0E 6E 9D 78 37 03 30 B2 82 01 AB 8C 96 6B 16 02 AB AD
           70 51 AD 70 51 72 02 24 30 55 AC 62 30 55 AC D9 31 89 19 03
          )
      *CODE-PARTS* CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-268 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 1A 6A 03 31 97 0F
           03 14 6A 04 37 01 30 1A 19 01
          )
      *CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
  )  )
#Y(#:TOP-LEVEL-FORM-269 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   EMIT-JMP REMOVE-OLD-DEFINITIONS
   #Y(EMIT-JMP
      #34Y(00 01 00 00 00 02 D8 AC 6A 01 7A 03 0E 02 5C 0F 02 6A 03 AA AD 30 51
           79 AD AB 30 55 16 02 2D 04 19 02
          )
      JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-270 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   TRAVERSE-ANODE REMOVE-OLD-DEFINITIONS
   #Y(TRAVERSE-ANODE
      #1828Y(00 01 00 00 00 02 AB 62 1A 87 11 00 0F 00 1A 24 6A 01 AA AC 2F 02
             AA AC AD AD 6A 03 37 03 70 B2 30 BC 0F 03 16 01 1A 0C 0E 00 1B 5F
             6A 01 8D 08 5F AA 2E 04 9B 0F 01 6A 05 70 16 AB DE AC 31 88 16 01
             1A 86 A0 E1 AB E2 31 31 1A 82 70 AA 8D 08 57 E1 AB 8D 35 6F E3 CF
             1A 86 BC 86 01 00 1F 6D 0E 00 1B 86 B5 6A 03 94 01 37 03 30 B6 9B
             5A 25 0E 86 A1 AA 6E 11 0E 01 5C 0F 01 00 0F 07 1A 82 1C 9B 5B 77
             E7 AB E2 71 31 23 10 67 E7 AB EA 71 31 6A 08 62 1A 1A 16 04 1A 86
             7F D6 1A 24 86 01 00 E7 AB 8E 35 08 E7 AB EA 71 31 9E 21 68 82 01
             AB 8C 96 6A 16 02 AB 6E 11 0E 01 5C 0F 01 92 00 5A D7 0F 07 9C 1A
             83 68 E7 9C 5B 77 6E 15 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 86 22 E7
             9C 5B 77 6E 16 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 86 0F E7 9C 5B 77
             6E 17 7A 02 0E 01 5C 0F 01 D7 0F 07 1A 85 FC D6 1A 15 E7 AB 2E 15
             1A 80 A5 F1 AD F2 71 31 E7 AB EA 71 31 92 00 69 D7 0F 07 F3 AB 8D
             35 64 AB 2E 11 16 02 1A 80 8D F5 F1 AE EA 80 31 03 14 6E 1E 60 02
             1A 80 7E 64 21 AD AD AD 60 04 16 03 1A 80 72 91 02 71 64 22 AC 9D
             1A 11 AC AC AC 2C 03 20 41 03 91 01 6C 64 23 AD AC 31 97 14 60 03
             16 03 1A 80 50 64 26 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 B7 3C F1 AD E2 8D 31 FF 7F
             00 0F 07 F1 AD F4 8D 31 FF 92 F1 AD 64 1F 8D 31 FF AE AA F1 AE 64
             24 71 31 2F 25 41 02 91 01 FF B8 64 27 9C 14 60 02 16 02 14 0E 01
             5C 0F 01 AC 60 01 1A 80 90 16 03 1A 85 54 64 28 F1 AE EA 80 31 03
             14 6E 1E 60 02 1A 80 71 64 29 AD AD AD 60 04 16 03 1A 80 65 91 02
             71 64 2A AC 9D 1A 11 AC AC AC 2C 03 20 41 03 91 01 6C 64 2B AD AC
             31 97 14 60 03 16 03 1A 80 43 64 2C 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 B7 35 F1 AD F4
             8D 31 FF 9C F1 AD 64 1F 8D 31 FF B9 AA F1 AE 64 24 71 31 2F 25 41
             02 91 01 44 64 2D AB 60 02 16 02 14 0E 01 5C 0F 01 AC 0E 08 5C 0F
             08 16 03 1A 84 C2 16 03 1A 84 BD F5 AB 6E 1E 7A 02 0E 01 5C 0F 01
             00 0F 07 AA 60 01 1A 2D 9B 5B 77 AA 6A 08 F0 37 02 8C B7 61 16 01
             1A 84 99 9B 5B 77 AA 6A 08 F0 37 02 8B B7 17 64 28 AB 6E 1E 7A 02
             0E 01 5C 0F 01 AA 0E 08 5C 0F 08 16 01 1A 84 76 16 01 1A 84 71 03
             2E 1A 81 BB 9B 5B 77 9C 5B 5B 77 9D 5B 5B 5B 77 2C 03 30 14 27 FD
             45 1A 84 56 64 33 AB 7A 02 0E 01 5C 0F 01 16 01 1A 84 47 9B 5B 77
             9C 5B 5B 77 6F 31 AA 64 32 8F 01 30 61 16 01 1A 84 32 9B 5B 77 62
             6E 34 9D 5A 25 35 19 03 36 1A 06 03 36 1A 09 03 37 14 AC 9D 1A 05
             03 38 14 AB 9E 14 60 03 1A 01 00 14 0E 01 5C 0F 01 6A 39 9E 5B 77
             AB AB 30 51 79 AB AB 30 55 16 03 6A 39 AA AC 30 51 79 AC AB 30 55
             16 02 2D 3A 6A 05 70 16 AB DE AC 31 88 16 01 9B 0F 01 16 02 1A 83
             D5 16 01 1A 83 D0 93 00 AA 23 3B 75 AA 23 3C 71 16 01 1A 83 2F 16
             01 1A 83 BC 16 01 1A 83 39 37 05 A0 5B 5A F9 70 66 9C 5B 5B 5B 78
             9D 5B 5B 77 62 1A 14 86 01 00 77 94 01 AE 37 06 71 60 AB B0 AC 30
             68 16 02 82 01 AB 8C 96 68 16 02 64 40 AC 6E 41 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 39 AA AC
             30 51 79 AC AB 30 55 16 02 82 01 AB 8C 96 6A 16 02 2D 3A 1A 82 D9
             9B 5B 77 9C 5B 5B 77 1A 33 64 26 AC AC 60 03 16 02 1A 3C AA 9D 5A
             78 2F 25 41 02 91 01 6B 64 27 AB 60 02 16 02 1A 28 03 43 1A 24 6A
             42 F3 AB E2 31 31 16 01 1B 71 03 44 1A 15 82 01 9C 5A 1C 7A 9C 5A
             20 4F 93 01 0E 42 21 61 E3 64 45 2F 0D 14 0E 01 5C 0F 01 77 64 46
             8E 04 12 D6 0F 07 64 47 64 48 64 48 62 2C 04 49 14 60 01 1A 03 00
             0F 07 0F 08 16 02 1A 82 DB 64 4A 9C 5B 77 6E 15 9D 5B 5B 77 7A 03
             0E 01 5C 0F 01 D7 0F 07 1A 82 A6 64 4B 9C 5B 77 9D 5B 5B 77 6E 2F
             60 03 1A 82 78 9B 5A 14 9C 5B 77 6E 2F 60 02 1A 82 6B 03 4C 1A 82
             66 9B 5B 77 9C 5B 5B 5B 77 F1 AC 64 1F 8E 31 05 E3 64 4D 2F 0D AA
             F1 AD 64 24 71 31 2F 25 41 02 92 01 05 E3 64 4E 2F 0D 93 04 AB A1
             5B 5B 5B 5B 7B 02 0E 01 5C 0F 01 93 04 24 4F 11 0E 01 77 AF 70 99
             AB AB 30 51 79 AB AB 30 55 16 03 00 0F 07 0F 08 16 04 1A 82 4B 9B
             5B 5B 77 64 50 9D 5B 77 6E 2F AC 7A 03 0E 01 5C 0F 01 77 AA AC 30
             51 79 AC AB 30 55 16 03 1A 82 29 9B 5B 5B 77 9C 5B 77 64 51 AB E2
             80 31 00 2F 25 41 02 64 52 AC AC 60 03 16 02 1A 81 57 64 53 9C 5B
             77 2E 16 1A 18 9B 5B 5B 1B 55 9B 5B 77 64 51 AB 31 35 16 01 1B 66
             64 53 9C 5B 77 2E 2F 14 60 02 1A 81 30 64 54 9C 5B 77 6E 2F 9D 5B
             5B 7B 02 0E 01 5C 0F 01 9B 5B 78 62 1A 10 86 01 00 AC AB 30 51 79
             AB AB 30 55 16 01 82 01 AB 8C 96 6C 16 02 1A 81 B5 9B 5B 5B 5B 77
             9C 5B 77 64 55 AB E2 80 31 00 2F 25 41 02 64 56 AC AC A0 5B 5B 77
             60 04 16 02 1A 80 DE 64 57 9C 5B 77 2E 17 1A 19 9B 5B 5B 5B 1B 4F
             9B 5B 77 64 55 AB 31 35 16 01 1B 65 64 57 9C 5B 77 2E 2F 14 9D 5B
             5B 77 60 03 1A 80 B2 AA 0E 01 5C 0F 01 D6 0F 07 64 47 64 48 64 48
             00 1A 80 93 9B 5B 77 E7 AB EA 80 31 00 9C 5B 5B 77 6A 42 6F 31 62
             AC 64 58 71 2D 1A 0E 93 00 AA 62 7A 02 AD 7F A5 02 16 01 82 00 9B
             20 6F 16 01 AA 7F A7 00 64 59 80 2D 01 64 5A AC 9D 79 6E 41 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 51 79 AB AB 30 55 16 01 82 01 AB 8C 96 6C 16
             02 1A 80 E6 AA 0E 01 5C 0F 01 D6 0F 07 1A 80 BD AA 0E 01 5C 0F 01
             1A 80 D1 AA 0E 01 5C 0F 01 D7 0F 07 64 47 64 48 64 48 02 14 6D 04
             49 60 01 0F 08 1A 80 B6 9B 14 0E 01 5C 0F 01 2D 3A 1A 32 0E 07 1C
             FC 74 6A 07 23 13 FC D0 93 00 AA 23 3D FC D8 AA 23 3E FC D3 16 01
             93 00 AA 23 3C 05 AA 24 3E FC CB 16 01 64 3F 0E 01 5C 0F 01 9B 5B
             77 2E 04 02 0F 00 1A 80 73 AA 0E 01 5C 0F 01 9B 5B 1A 1E AA 0E 01
             5C 0F 01 9B 5B 77 AB AB 30 51 79 AB AB 30 55 16 02 1A 80 52 AA 0E
             01 5C 0F 01 9B 5B 77 AB AB 30 51 79 AB AB 30 55 16 02 1A 07 9B 14
             0E 01 5C 0F 01 00 0F 07 0F 08 1A 2E AA 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 5B 6A 08
             37 05 31 53 0F 08 1A 06 E3 03 5C 14 2F 0D 82 01 AB 8C 96 F9 3A 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 . 1681.) (UNWIND-PROTECT-CLEANUP . 1670.)
         (LIST* . 1659.) (LIST . 1659.) (CONS . 1659.) (SVSET . 1645.)
         (SVREF . 1645.) (SYMBOL-FUNCTION . 1645.) (CONSP . 1645.)
         (ATOM . 1645.) (CDR . 1645.) (CAR . 1645.) (EQ . 1645.) (NOT . 1645.)
         (MVCALL . 1645.) (LIST-TO-MV . 1645.) (MV-TO-LIST . 1645.)
         (NV-TO-STACK . 1645.) (MV-TO-STACK . 1645.) (STACK-TO-MV . 1645.)
         (UNLIST* . 1645.) (UNLIST . 1645.) (PUSH-UNBOUND . 1645.)
         (APPLY . 1645.) (FUNCALL . 1645.) (CALLCKEY . 1645.) (CALLC . 1645.)
         (CALLSR . 1645.) (CALLS2 . 1645.) (CALLS1 . 1645.)
         (MAKE-VECTOR1&PUSH . 1645.) (POP . 1645.) (PUSH . 1645.)
         (PROGV . 1645.) (PUSH-NIL . 1645.) (UNWIND-PROTECT-CLOSE . 1623.)
         (UNWIND-PROTECT-OPEN . 1600.) (CATCH-OPEN . 1600.) (JSR . 1590.)
         (JMP . 1579.) (THROW . 1523.) (BARRIER . 1523.) (RET . 1523.)
         (T . 1496.) (STORE . 1487.) (HANDLER-BEGIN . 1487.)
         (UNWIND-PROTECT-NORMAL-EXIT . 1487.) (CATCH-CLOSE . 1487.)
         (TAGBODY-CLOSE . 1487.) (BLOCK-CLOSE . 1487.) (MVCALLP . 1487.)
         (VALUES1 . 1487.) (SKIPSP . 1487.) (SKIPI . 1487.) (SKIP . 1487.)
         (VALUES0 . 1475.) (HANDLER-OPEN . 1365.) (TAGBODY-CLOSE-NIL . 1346.)
         (NIL . 1346.) (GO . 1311.) (TAGBODY-OPEN . 1220.)
         (RETURN-FROM . 1190.) (BLOCK-OPEN . 1118.) (BOUNDP . 1032.)
         (JMPIFBOUNDP . 1032.) (APPLYP . 1027.) (FUNCALLP . 1027.)
         (CALL2 . 1014.) (CALL1 . 1014.) (CALL0 . 1014.) (CALL . 998.)
         (CALLP . 1705.) (COPY-CLOSURE . 974.) (VENV . 855.) (JMPHASH . 754.)
         (JMPIFNOT1 . 1534.) (JMPIF1 . 1534.) (JMPIFNOT . 1534.)
         (JMPIF . 1534.) (UNWINDSP . 610.) (UNWIND . 573.) (BIND . 568.)
         (SETVALUE . 528.) (GETVALUE . 511.) (SET . 413.) (GET . 255.)
         (GCONST . 125.) (BCONST . 106.) (FCONST . 87.) (CONST . 16.)
        )
      CONST :FORM MAKE-CONST-CODE 1. FALSE TRUE FCONST-INDEX BCONST-INDEX
      GCONST-INDEX #.#'EQ VAR 4. FNODE 2. GETVALUE KCONSTVALUE-INDEX 9.
      ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK LOADI LOAD
      SETVALUE STOREIC STOREC STOREV STOREI STORE BIND CONST-INDEX
      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 CONSTVALUE-INDEX *FUNC*
      (VENV) (NIL) VENV (NIL) :HORIZONT :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-271-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
   NOTE-REFERENCES REMOVE-OLD-DEFINITIONS
   #Y(NOTE-REFERENCES
      #150Y(00 01 00 01 00 08 3C 01 9D 5A 25 00 80 85 9D 1A 10 9D 5B 77 AC AB
            30 51 79 AB AB 30 55 16 02 9D 5B 5B 77 9D 1A 29 9D 5B 5B 78 62 AB
            8B 96 80 60 86 01 00 AD AB 30 51 79 AB AB 30 55 16 01 82 01 1A 69
            9D 1A 07 9D 5B 1A 03 9D 5B 5B 5B 77 9E 14 AB 30 51 79 AB AB 30 55
            19 05 9D 5B 78 62 AB 8B 96 2E 86 01 00 AE AB 30 51 79 AB AB 30 55
            16 01 82 01 1A 6A 9D 5B 5B 5B 78 62 1A 10 86 01 00 AE AB 30 51 79
            AB AB 30 55 16 01 82 01 AB 8C 96 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-271-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   REMOVE-REFERENCES REMOVE-OLD-DEFINITIONS
   #Y(REMOVE-REFERENCES
      #201Y(00 01 00 01 00 08 3C 01 62 9E 5A 25 00 80 B7 9E 1A 19 9E 5B 77 AA
            AE AC 70 51 37 07 71 52 30 55 AA AC 37 03 7F BB 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 51 37 07
            71 52 30 55 AA AD 37 03 7F BB 02 82 01 AB 8C 96 65 16 02 1A 80 6E
            9E 1A 07 9E 5B 1A 03 9E 5B 5B 5B 77 AA A0 14 AC 70 51 37 07 71 52
            30 55 AA AC 37 03 7F BB 01 16 01 1A 80 4A 9E 5B 78 62 1A 17 86 01
            00 14 B0 AC 70 51 37 07 71 52 30 55 AA AD 37 03 7F BB 02 82 01 AB
            8C 96 65 16 02 1A 25 9E 5B 5B 5B 78 62 1A 17 86 01 00 14 B0 AC 70
            51 37 07 71 52 30 55 AA AD 37 03 7F BB 02 82 01 AB 8C 96 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-272
   #54Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 62 1A 0A 86 01 00 14 AD 63 30 68
        82 01 AB 8C 96 72 16 02 DA 8C 61 0B AA DA 70 51 8D 03 04 DA DB 2F 04 DA
        AB 31 83 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
   (DEFCONSTANT ONE-VALUE-OPS
     (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
       (DOLIST (OP '#1#) (SETF (GETHASH OP HT) T)) HT
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-273
   #94Y(00 00 00 00 00 01 37 05 C3 F9 70 66 D9 62 1A 0A 86 01 00 14 AD 62 30 68
        82 01 AB 8C 96 72 16 02 DA 62 1A 0A 86 01 00 14 AD DB 30 68 82 01 AB 8C
        96 72 16 02 DC 62 1A 0A 86 01 00 14 AD DD 30 68 82 01 AB 8C 96 72 16 02
        DE 8C 61 0B AA DE 70 51 8D 03 04 DE DF 2F 08 DE AB 31 83 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
   (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
   ) )
   CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-274 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SIMPLIFY REMOVE-OLD-DEFINITIONS
   #Y(SIMPLIFY
      #950Y(00 01 00 00 00 02 93 01 9B 5A 25 00 80 76 9B 5B 77 D9 37 01 31 84
            1A 80 6F C6 1A 80 6B 93 00 23 02 0B 9B 5B 77 D9 37 01 71 84 23 03
            6C 93 00 23 04 0C 9B 5B 5B 77 D9 37 01 71 84 23 03 5B C8 1A 80 46
            C8 1A 80 42 00 1A 3F C6 1A 3C 9D 5A 5A 25 09 80 48 AC E2 9F 5A 5B
            77 60 02 1A 82 A8 AC CE 1A 82 A3 9D 5A 5A 25 0C 36 AC D0 1A 82 98
            AC D1 1A 82 93 9D 5A 5B 77 AD E7 30 AC AD E2 96 02 60 02 1A 82 3B
            DE DF 2F 08 F6 62 62 AE 94 00 62 AF 9D 1F 82 A4 9D 5B F7 92 00 FF
            B1 AA 23 05 44 9C 1F 82 92 9D 5A 5A 25 10 82 8B 9C 5A 77 6A 11 62
            8C 67 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 04 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 AC AD E2 96
            02 7A 02 30 AC 1A 81 9F AA 23 19 81 0D AD E2 AC 31 98 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
            AC AC 03 22 1A 81 47 93 01 64 20 8D 04 6E 93 01 64 23 8E 04 81 67
            AC 03 24 14 30 AC AC 9D 5B 14 30 AE 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 AC AE 03 28 14 30 AC 1A 80 8C 9E 5B 1F 51 9E 5B 77 64
            26 8E 04 49 16 02 1A 81 1C 16 01 1A 81 17 AC 03 29 1A 80 E2 9C 5A
            77 6A 11 62 8B 67 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 AC 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 AE
            7D 06 16 02 1A FD F5 AD 64 2D 9D 14 60 02 14 30 AC AD 9E 5B 1A 18
            9D 5A 77 6A 11 62 8C 67 19 AD 64 2D 96 02 7A 02 30 AC AD 03 2E 14
            9F 5C 14 30 AE 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 AC AF 94 05 30 AE 7D 07 16 03 1A FD 95 9D 5A 78 64 30 8E 04
            32 AC 03 31 14 30 AC 7D 04 1A FD 82 9D 5A 77 6A 32 AC 7F 67 00 9D
            F9 9C F8 1A FD 72 AD D9 AD 31 88 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 84 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 AC 16 03 93 00 2E 36 93 04 2E 37 AE 94 01 30 AE 7C 02 16
            01 15 19 03
           )
      #S(HASH-TABLE EQ (THROW . 61.) (RET . 61.) (RETURN-FROM-I . 61.)
         (RETURN-FROM . 61.) (JMPTAIL . 58.) (GO-I . 58.) (GO . 58.)
         (BARRIER . 58.) (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 . 99.) (ATOM . 99.)
         (SYMBOL-FUNCTION . 99.) (CDR . 99.) (CAR . 99.) (NOT . 99.)
         (LIST-TO-MV . 99.) (MV-TO-LIST . 99.) (VALUES1 . 99.) (VALUES0 . 99.)
         (BOUNDP . 99.) (VENV . 99.) (GETVALUE . 99.) (LOADIC . 99.)
         (LOADV . 99.) (LOADC . 99.) (LOADI . 99.) (LOAD . 99.) (CONST . 99.)
         (T . 99.) (NIL . 99.)
        )
      SKIP (SKIP 1.)
      #S(HASH-TABLE EQ (STACK-TO-MV . 11.) (LIST-TO-MV . 6.) (VALUES0 . 1.)
         (VALUES1 . 76.)
        )
      (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-275 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-PART REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-PART
      #40Y(00 01 00 00 00 02 AB 6E 00 91 00 03 00 19 03 14 70 51 62 1A 0C 86 01
           00 14 8E 0E 03 AA 2E 01 82 01 AB 8C 96 70 00 19 05
          )
      SIMPLIFY OPTIMIZE-VALUE
  )  )
#Y(#:TOP-LEVEL-FORM-276 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-LABEL REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-LABEL
      #208Y(00 01 00 03 00 11 3A 03 07 AE D8 37 01 80 84 03 3A 02 07 6A 01 AE
            81 01 01 02 3A 01 06 AC 37 01 7F A0 01 AE 9D 5B 22 80 92 91 04 80
            95 00 19 05 62 1A 0B AA 93 05 82 06 B1 6F 04 7F A6 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 84
            6A 01 AB 72 01 01 92 00 08 AC AC AC 37 01 27 FF 9D 16 02 82 01 AB
            8C 96 5E 00 19 09 AD 6A 01 AC 32 01 01 78 30 AE 6A 01 AA AC 62 32
            01 02 16 01 AD 37 01 30 A0 78 92 00 05 14 D8 B2 31 88 16 01 B0 62
            30 55 AE 2E 06 19 07 93 00 AA 8E 0E 11 6A 01 AB 32 01 01 5A 77 24
            05 06 AF AB 8E 03 FF BC 00 19 07 DA 2E 03 92 04 FF 6B 14 70 51 92
            00 FF 67 9B 5B 1C 54 00 19 06
           )
      CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES
      JMP OPTIMIZE-PART
  )  )
#Y(#:TOP-LEVEL-FORM-277 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-SHORT REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-SHORT
      #563Y(00 01 00 01 00 08 3A 01 07 6A 00 AD 81 01 01 01 AB 37 01 70 A0 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 51 37 07 71 52 30 55 AA
            2E 03 16 01 1A 81 C6 62 AE 70 51 62 1A 80 D8 86 01 00 14 8E 0E 80
            CE 6A 00 AB 72 01 01 93 00 9B 5A 25 04 80 BE AB B2 30 AC AC B1 30
            51 79 B1 AB 30 55 16 01 AC B0 30 51 79 B0 AB 30 55 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 51 79 B5 AB 30 55 16 01 B0 83 08 93 0B 24 05 02 7D 01
            B6 9E 22 17 A4 F8 B0 B4 30 51 79 B4 AB 30 55 16 01 B0 83 08 93 0B
            24 06 02 7D 00 AD DF 37 01 71 84 23 08 02 7C 01 AC DF 37 01 71 84
            24 08 FF 93 92 01 10 92 00 0D E1 A1 5B 79 B0 AB 30 AE 16 01 7C 01
            F6 AF 91 02 FF 84 91 01 FF 84 CD 14 AF AF 7A 03 30 AC 16 06 1A 09
            E3 2E 0C 16 02 1A 02 16 02 82 01 AB 8C 96 FF 23 16 02 AE E5 B0 70
            51 37 05 71 53 30 55 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 96 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 AE AB 70 51 62 1A 80 57 EC B2 72 00 17 AA 62
            1A 09 86 01 00 14 AF 2F 15 82 01 AB 8C 96 73 16 02 6A 00 AB 94 03
            72 02 24 AB AF AC 32 01 02 16 03 AE AC B0 70 51 37 07 71 52 30 55
            AB 83 03 16 01 1A 1B 86 01 00 14 8E 0E 14 AA B2 8D 03 0F 6A 00 AB
            72 01 01 9B 5A 77 23 13 FF AD 16 01 82 01 AB 8C 96 5F 16 02 AC AC
            30 AE 92 00 26 14 62 1A 0D 86 01 00 6A 00 AB 72 01 01 2E 16 82 01
            AB 8C 96 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-278 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   GET-BOOLEAN-VALUE REMOVE-OLD-DEFINITIONS
   #Y(GET-BOOLEAN-VALUE
      #209Y(00 01 00 00 00 02 62 46 00 80 BF 1A 30 A0 5A 5A 25 01 80 B4 C5 47
            1A 80 B1 C6 47 1A 80 AC A0 5A 5B 5B 1C 0F A0 5A 5B 5B 77 DC AB DD
            80 31 00 23 06 80 95 C6 47 1A 80 92 9E 58 F9 82 05 A0 20 4D 92 05
            80 84 00 2A 01 00 0B 00 00 AA AE 6C 07 02 B1 70 51 62 1A 80 6B 6A
            08 AB 32 01 01 77 9B 5A 25 09 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 E2 2E 0B 16 01 1A 2B 16 01 1A 27 86
            01 00 14 8D 0E FF B6 9B 5A 25 0C 17 00 16 04 47 1A 1E C5 19 04 C6
            19 04 AA 23 03 76 AA 23 02 75 00 19 04 E2 2E 0B 82 01 AB 8C 96 53
            16 04 00 47 14 91 01 64 15 19 03
           )
      VALUE
      #S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 41.) (CATCH-CLOSE . 41.)
         (TAGBODY-CLOSE . 41.) (BLOCK-CLOSE . 41.) (VALUES1 . 41.)
         (SETVALUE . 41.) (STOREIC . 41.) (STOREC . 41.) (STOREV . 41.)
         (STOREI . 41.) (STORE . 41.) (SKIPSP . 41.) (SKIPI . 41.) (SKIP . 41.)
         (UNBIND1 . 41.) (NOT . 38.) (CONST . 12.) (LIST* . 7.) (LIST . 7.)
         (CONS . 7.) (T . 7.) (TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.)
         (NIL . 2.)
        )
      FALSE TRUE CONST 3. :FORM
      #Y(GET-BOOLEAN-VALUE-NEU
         #29Y(00 01 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-279 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-JMPCASE REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-JMPCASE
      #145Y(00 02 00 00 00 03 9C 5A 77 23 00 80 64 00 19 03 AD D9 AD 94 06 6E
            02 7A 03 30 AC AB AF AD 70 51 37 06 DB 71 52 30 55 AD 2E 04 AB DD
            37 01 71 84 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
            AE 84 02 9B 20 5C AC 8E 95 08 B0 D8 AF B1 7A 03 30 AC AC 8D 93 5D
            00 19 08 9C 5A 5B 77 9D 5A 5B 5B 77 AB 9C 21 FF 91 AB DF 37 01 8D
            84 08 AA DF 37 01 8E 84 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-280 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-VALUE
      #233Y(00 01 00 01 00 08 3A 01 07 6A 00 AD 81 01 01 01 93 01 9B 5A 25 01
            80 CE AB B1 AD 70 51 37 07 71 52 30 55 AF E2 AE CE 7B 02 30 AC 93
            03 24 02 0D E4 A1 5B 79 B0 AB 30 AE 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 84 24 04
            0E 93 02 24 05 15 AA DB 37 01 71 84 23 04 0C AE DE 9F 5B 79 7F AC
            02 AF AF 2F 07 94 04 6E 08 AA 23 09 FF 9C AA 24 11 31 AC B1 AE 70
            51 37 07 71 52 30 55 AF E2 AD D5 7B 02 30 AC 93 03 24 05 0D EB A1
            5B 79 B0 AB 30 AE 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 AC AB EC 37 01 71 84 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 84
            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-281 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COALESCE REMOVE-OLD-DEFINITIONS
   #Y(COALESCE
      #125Y(00 00 00 01 00 07 3A 01 1B 62 D8 6A 01 70 16 1A 05 AB 83 02 84 01
            AB AB 90 01 32 75 16 02 AA 31 4A 16 01 F7 00 2A 01 37 05 C5 F9 B1
            80 48 02 70 66 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 67 79 AB B0 AC 30 68 16 02 16 01 82 01 AB 8C 96 4A 16 02 00
            0B 01 00 AB 6C 03 01 AB 30 6A 06 01 00 19 04
           )
      0. *CODE-PARTS* #.#'EQUAL
      #Y(COALESCE-1
         #258Y(00 02 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 A7 00 62 6A
               01 70 16 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 A7 00 37 05 71 4C 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 AC 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 55 AB E4 AF 31 88 AE AC 70 A6 6A 01 37 01 30
               1A AC 6A 03 37 01 30 1A 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(00 01 00 00 00 02 93 01 68 00 01 31 04 19 02) NIL
           )
         REMOVE-REFERENCES NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART
         OPTIMIZE-PART COALESCE
  )  )  )
#Y(#:TOP-LEVEL-FORM-282 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   OPTIMIZE-ALL REMOVE-OLD-DEFINITIONS
   #Y(OPTIMIZE-ALL
      #613Y(00 00 00 00 00 01 D8 1A 80 5B 6A 01 AB 72 01 01 92 00 21 14 37 01
            70 A0 94 00 92 00 0E AD AB DA 37 01 71 84 8D 03 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 16 8E 03 FF 9C
            16 01 2D 09 1B FF 91 D8 6A 01 70 16 1A 81 39 A3 FF 16 08 1A 81 32
            B0 B0 6A 01 B0 32 01 01 5B 79 30 AE 6A 01 AA AF 62 32 01 02 16 01
            A1 FE 16 08 00 2A 01 AB 37 01 70 A0 94 00 AA 70 51 6A 0A B0 32 01
            01 0B 03 00 01 03 92 04 44 B0 6C 0B 01 AE 62 1A 80 D1 86 01 00 14
            8E 0E 80 C7 AA B6 8D 03 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 AE 6A 01 AA B0 62 32
            01 02 16 01 A4 09 0B 16 0B 1A FF 5E E8 9D 5B 1A 23 6A 01 AD 72 01
            01 93 00 9B 5B 77 E7 37 01 8D 84 09 9B 5B 5B 77 E7 37 01 31 84 14
            B2 9D 5B 5A 21 5A E9 9D 5B 77 AC 7A 03 B4 B4 AC A1 5B 7B 02 30 AE
            6A 01 AA B2 62 32 01 02 16 01 A5 09 0C 16 0C 1A FF 16 AB B0 A0 33
            1B FF 5C 16 01 82 01 AB 8C 96 FF 2A 16 02 91 03 FE E6 91 01 FF 6F
            91 02 FF 9F 16 09 1A 0C 6A 01 AB 72 01 01 91 00 FE EA 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 54 00 14 ED EE 37 02 80 68 00 62 AB 62 1A
            80 75 86 01 00 77 93 00 9B 5A 25 17 80 4C AB F0 9D 5B 77 7A 02 30
            AC 1A 80 40 F0 9C 5B 77 7A 02 E8 9D 5B 5B 77 9E 5B 77 E7 37 01 8D
            84 09 9E 5B 5B 77 E7 37 01 31 84 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 37 01 70 A0 9B 5B 1C 07 AA 94 01 7A 01 30 AE 16 01
            AA AE 7F A6 03 16 01 82 01 AB 8C 96 FF 86 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(00 02 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-283 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 1B D8 63 37 06 C4 F8 30 1B 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 31 00 E6 AB E7 80 31 00 2E 10 12 06 2D 11 14 93
           00 82 01 EA 8D 04 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-284 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CONST-TO-LOADV REMOVE-OLD-DEFINITIONS
   #Y(CONST-TO-LOADV
      #75Y(00 01 00 00 00 02 AB 92 00 3C 93 00 9B 1F 30 9B 5A 25 00 2B AB 93 01
           9D 5B 77 71 97 9E 5B 5B 61 02 1A 13 AB D9 DA 9E 5B 77 60 03 1A 09 AB
           C6 1A 05 AB DC 9D 5B 5C 14 30 AC 1A 04 DD DE 2F 07 16 01 82 00 91 00
           44 16 01 9C 19 02
          )
      #S(HASH-TABLE EQ (GO . 40.) (TAGBODY-OPEN . 40.) (RETURN-FROM . 40.)
         (BLOCK-OPEN . 40.) (CALL2 . 40.) (CALL1 . 40.) (CALL0 . 40.)
         (CALL . 40.) (COPY-CLOSURE . 40.) (BIND . 40.) (SETVALUE . 40.)
         (GETVALUE . 40.) (JMPHASH . 30.) (VENV . 26.) (CONST . 16.)
         (STOREV . 1.) (LOADV . 1.)
        )
      LOADV 0. (LOADV 0. 0.) JMPHASHV CONST-TO-LOADV "Illegal-in-GF"
      COMPILER-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-285
   #70Y(00 00 00 00 00 01 00 2A 04 D8 6A 01 37 01 70 67 2E 02 0B 00 00 DB 6A 01
        37 01 70 67 2E 02 0B 00 01 DC 6A 01 37 01 70 67 2E 02 0B 00 02 DD 6A 01
        37 01 70 67 2E 02 0B 00 03 DE 2E 07 DE AB 6C 08 01 31 82 C9 19 02
       )
   1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS
   REMOVE-OLD-DEFINITIONS
   #Y(INSERT-COMBINED-LAPS
      #985Y(00 01 00 00 00 02 AB 92 00 80 7C 93 00 9B 1F 80 6E 9B 5A 25 01 80
            68 94 00 00 1A 80 5F C8 1A 21 AB 23 04 79 C9 1A 1A C9 1A 17 16 01
            9C 5B 5A 5B 5B 5A 1B 38 AB 9D 5B 5A 77 23 02 64 AB 23 04 67 C8 14
            9E 5B 5A 5B 77 7A 02 30 AC AB 9D 5B 5B 1A 2B 07 00 03 1A 22 86 00
            00 9C 5B 5A 1F 0E 9C 5B 5A 77 AA 23 02 44 AA 23 03 40 16 01 AB DF
            30 AC AB AB 23 04 5C 07 00 04 14 9E 5B 5C 14 30 AE 16 01 82 00 91
            00 FF 84 16 01 AB 94 00 92 01 83 44 93 01 9B 1F 83 27 9C 5A 1F 80
            49 93 00 9D 5A 5A 25 08 34 CC 1A 32 CD 1A 01 CE 14 9E 5A 5B 5B 5A
            1C 02 82 00 93 03 94 00 62 30 AE 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 BE 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 04 6A 9E 5B 5A 1F 07 9E
            5B 5A 77 23 18 64 AE F2 AC 7A 02 30 AC AE 9F 1A 80 BC 16 03 1A 82
            74 03 1C 1A 0A AD 9E 5B 5A 77 23 02 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 02 05 AA 24 03 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 03 16 AE 03 23 14 9E 14
            60 02 14 30 AC AE 9F 5B 78 30 AE 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 03
            80 87 AD 64 24 96 02 60 02 14 30 AC AD 9E 1A 2B 03 26 1A 1E AD 9E
            5B 77 68 00 01 8D 04 72 03 27 1A 10 03 28 1A 0C AD 9E 5B 77 68 00
            01 8D 04 72 03 29 14 AC 7A 02 30 AC AD 9E 5B 5B 5B 1A 80 96 9D 5B
            5A 1F 35 9D 5B 77 68 00 01 8D 04 09 9D 5B 77 68 00 02 8E 04 23 9D
            5B 5B 5A 1F 1D 9D 5B 5B 77 64 25 8D 04 FF AD 9D 5B 5B 5A 77 24 18
            0B 9D 5B 5B 5A 5B 77 AB 8D 03 FF AC AD 64 2A AC 60 02 14 30 AC 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 AC AC 9D 5B 1A 80 BD 93 01 64 2D 8D 04
            68 AC 64 2F 9D 5B 1A 34 EA 1A 04 84 00 82 02 93 02 64 30 8D 04 75
            AA 23 12 14 AD 03 31 14 AC 60 02 14 30 AC AD 9E 14 30 AE 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
            AC 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 6A 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 04 80 43 AC 64 37 9D 5B 77 9F 5A 5B 77 60 03
            14 30 AC AC 9D 5B 5B 14 30 AE 16 01 1A 2B 93 01 64 2B 8E 04 22 9C
            5B 5A 1F 1D 9C 5B 5A 77 24 18 16 9C 5B 5A 5B 77 9C 5B 77 8E 03 0B
            9C 5B 5B 77 9C 5B 5B 5A 21 FE F7 16 01 93 00 64 38 8E 04 06 AB 82
            01 14 30 AE 9B F7 5B F6 91 01 FC BC 16 02 9C 19 02
           )
      NIL #S(HASH-TABLE EQ (CONSP . 65.) (ATOM . 65.) (CONST . 2.)) JMPIF
      JMPIFNOT ATOM JMPIFATOM JMPIFCONSP (PUSH)
      #S(HASH-TABLE EQ (RET . 36.) (STOREC . 33.) (STORE . 30.) (JMPIFNOT . 7.)
         (JMPIF . 4.) (PUSH . 1.)
        )
      ((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(00 01 00 00 00 02 93 01 31 06 1E 23 9C 5A 77 AA 23 00 0D 91 00 07
              9D 5B 77 D9 8D 04 09 00 19 03 9D 5A 5B 5A 19 03 AC 9E 5B 78 30 AE
              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(00 02 00 00 00 03 68 00 01 AC 68 00 02 70 98 AE AC AC 30 68 19 05
             )
         NIL
        )
      2. SKIP (RET) APPLY&SKIP&RET (BARRIER)
  )  )
#Y(#:TOP-LEVEL-FORM-286 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   NUM-OPERAND-LENGTH REMOVE-OLD-DEFINITIONS
   #Y(NUM-OPERAND-LENGTH
      #27Y(00 01 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-287 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   ASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
   #Y(ASSEMBLE-LAP
      #904Y(00 01 00 00 00 02 AB D8 92 01 81 69 93 01 9B 1F 2F 93 00 6A 01 37
            01 70 67 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 60 5E 14 8F 01 2F 0C 9C 25 0C 81 1B AA AC
            30 55 1A 81 26 E2 93 04 E1 37 06 31 60 5E 14 9F 5B 77 81 02 35 02
            CE F7 93 03 60 01 F9 1A 80 F9 AA 9F 1A 80 5B 9B 1A 20 84 04 DE 9F
            5B 5A 79 9F 1A 80 BB AA 9F 5B 77 6E 0D 32 02 35 1A 14 AA 9F 5B 77
            6E 0D 81 02 35 00 14 80 97 00 1A 80 CA AA 31 97 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 97 F6 14 9F 5B 5B 5B 77 6E 0D
            81 02 35 00 1A 80 8E AA 9F 5B 77 6E 0D 81 02 35 00 84 04 C9 1A 05
            84 00 84 04 C9 14 9F 5B 5B 5A 79 9F 5B 1A 80 44 AA 9F 5B 77 6E 0D
            81 02 35 00 14 9F 5B 5B 77 6E 0D 81 02 35 00 84 04 C9 1A 20 AA 9F
            5B 77 6E 0D 81 02 35 00 14 80 97 00 84 04 C9 1A 0D AA 9F 5B 77 6E
            0D 81 02 35 00 84 04 C9 14 9F 5B 5B 5B 5A 79 9F 5B 5B 78 AB 30 AC
            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 AC 16 01 82 00 91 00 6F 16 01 AE AB 81 02 35
            04 AF AC AC AF A2 5B 7B 03 30 AC 16 03 16 01 82 01 91 01 FE 97 16
            02 62 D8 AD 62 1A 80 9D AA AD 30 55 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 AC B1 31 97 1A 80 50 93
            01 AA 23 06 70 16 01 1A 80 4E AC ED 30 AC 03 16 1A 38 00 14 62 AB
            8B 96 80 45 86 01 00 AF 93 01 81 02 35 05 94 00 70 51 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 AC 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 96 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 6A 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 48 DE 1A 0F AC 9C
            5E 14 70 51 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 96 74 16 02 82 01 AB 8C 96 FE CB 16 05 67 00 00 31 4A
            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 . 250.) (NHL . 219.) (NBL . 200.) (NNL . 174.)
         (BL . 158.) (NL . 143.) (NBN . 114.) (NNN . 92.) (BN . 83.) (NB . 66.)
         (NN . 55.) (L . 44.) (B . 41.) (NC . 36.) (N . 36.) (K . 36.)
         (O . 285.)
        )
      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(00 01 00 00 00 02 AB 07 00 01 5C 0C 00 01 19 02) NIL
        )
      #Y(ASSEMBLE-LAP-NUM-OPERAND
         #56Y(00 01 00 00 00 02 AB D9 8F 01 2F 23 AB DA 90 01 2F 20 D9 DB DC 71
              D5 AD 71 D8 72 02 35 07 00 01 33 DC DD 71 D5 AC 31 D8 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
         #117Y(00 01 00 00 00 02 68 01 02 93 02 32 02 35 0C 01 02 94 01 70 51
               68 01 02 72 01 36 9D 5A 25 01 80 51 DA C6 1A 80 40 DC DA DD 71
               D5 AC 71 D8 72 02 35 07 00 01 33 DD C6 1A 2D DC 07 00 01 33 DB
               07 00 01 33 DD DE 71 D5 AB 71 D8 07 00 01 33 DD DF 71 D5 AB 71
               D8 07 00 01 33 DD DD 71 D5 AB 71 D8 07 00 01 33 DD C6 14 71 D5
               AB 71 D8 07 00 01 33 19 03 00 19 03
              )
         NIL #S(HASH-TABLE EQ (6. . 26.) (2. . 7.) (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(00 02 00 00 00 03 68 00 01 AC 70 51 68 02 02 72 01 36 AE AC AC 30
              68 19 05
             )
         NIL
  )  )  )
#Y(#:TOP-LEVEL-FORM-288 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   DISASSEMBLE-LAP REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-LAP
      #440Y(00 02 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 60 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 98 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 6A AD AC 37 02 06 0B 00
            73 06 05 00 61 03 16 05 1A 80 5E 9E 73 AA B7 30 98 77 AA 71 48 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 4A 61 02 16 06 1A 2C 9E 73 AA B7 70
            98 71 48 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 4A 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 AD 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 97 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 00 02 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 92 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 AE 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
            #19Y(00 01 00 00 00 02 AB D8 AD 70 8A 72 02 13 30 CE 5C 19 02) "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(00 02 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-289 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   CREATE-FUN-OBJ REMOVE-OLD-DEFINITIONS
   #Y(CREATE-FUN-OBJ
      #371Y(00 02 00 00 00 03 D8 D9 AE DA 71 31 DB C7 44 D9 B1 DD 71 31 DE 31
            B4 40 D9 66 00 05 DF 71 31 DE 31 B4 40 D9 66 00 05 E0 8D 31 80 78
            CC 14 D9 66 00 05 E2 8D 31 80 71 CC 14 D9 66 00 05 E4 8D 31 80 6D
            CC 14 32 03 35 40 D9 66 00 05 DD 71 31 D9 66 00 05 DF 71 31 D9 66
            00 05 E0 71 31 D9 66 00 05 E4 71 31 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 92 06 AD EA 8F 01 2F
            3E 91 01 80 9E 92 00 80 9A AD AD 72 02 35 EA 90 01 2F 80 8F D7 14
            9E 5E 14 AE 32 02 35 1A 80 84 C5 1A FF 85 CE 1A FF 8C D2 1A 0A E5
            D9 66 00 05 E6 8D 31 74 CC 14 32 02 35 1A FF 83 D4 1A 56 D6 1A 56
            03 15 44 D9 66 01 05 EE 71 31 71 48 DE 31 B4 40 D9 66 01 05 EF 71
            31 DE 31 B4 40 45 1A 80 50 62 D9 B6 F2 71 31 D9 B7 F3 71 31 1A 1D
            14 31 3B 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 A7 16 01 1A 3A AB AB F4
            71 2D 7A 01 32 02 23 1A 3A CC 16 03 F6 D9 66 00 05 E4 8D 31 FF 92
            3D 40 66 00 04 45 14 F0 D9 B2 EF 71 31 37 01 70 A1 AA D9 B4 EE 71
            31 0E 19 1B FF 95 D9 B5 F2 31 31 14 72 03 23 D9 B4 E2 8D 31 FF BB
            9B 16 01 F6 6D 06 1D D9 AE 64 1E AD 31 32 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-290 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   SIGNATURE REMOVE-OLD-DEFINITIONS
   #Y(SIGNATURE
      #131Y(00 01 00 00 00 02 AB 71 38 AC 71 37 D8 93 01 82 02 72 02 37 93 01
            82 02 72 02 35 D8 93 02 82 03 72 02 37 93 02 82 03 72 02 35 93 02
            82 03 D9 AB 71 D1 82 04 AD AD DA AE 71 D1 AD 91 04 13 00 14 DD B1
            71 D1 B4 B6 3F 08 19 08 93 0B DC 31 2D 1A 24 D8 93 09 82 0A 72 02
            37 93 09 82 0A 72 02 35 D8 93 0A 82 0B 72 02 37 93 0A 82 0B 72 02
            35 DB B2 8D D1 56 A6 14 AB AC AE 72 02 35 31 46 16 02 1A FF BC
           )
      256. 7. 0. 4. LIST 6.
  )  )
#Y(#:TOP-LEVEL-FORM-291 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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 31 00 9C 5B
           77 AB DA AC 72 02 35 AD DA AE 72 02 35 71 2E D9 AB DA 80 31 00 31 2F
           16 02 82 01 AB 8C 96 55 00 19 03
          )
      *FNODE-FIXUP-TABLE* FNODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-292 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILE-LAMBDABODY REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-LAMBDABODY
      #33Y(00 02 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 31 19 04 00 19 04
          )
      C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
  )  )
#Y(#:TOP-LEVEL-FORM-293 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILE-LAMBDA REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-LAMBDA
      #85Y(00 07 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
           92 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-294
   #26Y(00 00 00 00 00 01 00 2A 01 C3 0B 00 00 D9 2E 02 D9 AB 6C 03 01 31 82 C4
        19 02
       )
   0. COMPILE-FORM REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FORM
      #32Y(00 06 00 00 00 00 D9 68 00 01 31 97 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-295 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILE REMOVE-OLD-DEFINITIONS
   #Y(COMPILE
      #452Y(00 01 00 01 00 08 3B 01 14 3C 02 01 03 B0 88 00 80 4F B0 6E 06 92
            04 80 8E 92 07 0E AA DF 37 01 80 84 04 1C 05 9F 20 3F 7D 02 B0 8D
            0B 80 51 92 07 12 E9 EA EB B4 7A 02 7A 02 EB B3 7A 02 7A 03 0E 14
            5C F7 A1 1F 06 93 06 23 1E 80 EB B0 8D 0C 80 E6 D9 64 1F 64 20 03
            21 14 6D 03 05 B2 32 01 1F D9 DA DB C7 1A 72 E0 E1 E2 6D 03 05 E3
            B3 2C 03 0C B1 2E 0D 1A FF B2 AA DF B2 31 88 1A 80 51 E6 E7 E8 6D
            03 05 B1 2F 0C 92 07 80 44 91 02 68 AA B1 31 82 1A 3B ED EE B3 EF
            F0 F1 6D 03 05 B5 32 03 1F 7D 02 1A 10 AA 8C 53 6B AA DF 37 01 80
            84 06 1B 6F 9B 5D FC A1 1F 09 93 06 24 1A 04 7D 03 82 06 B0 8E 0B
            FF 7C F3 F4 F5 6D 03 05 B2 2F 0C A2 19 08 B9 64 24 31 2E 1A 80 6D
            BA 64 25 31 2E 1A 80 6C BB 64 26 31 2E 1A 80 6B BC 64 27 31 2E 1A
            80 6A BE 64 28 31 2E 1A 80 6B 65 44 64 3A 31 2E 1A 80 A8 00 1A 80
            B5 F2 83 00 92 42 1C 65 40 DF AC 31 88 92 41 1B 65 40 64 3C 65 43
            31 88 04 47 1A 80 99 91 43 61 91 42 64 65 40 AB 31 82 91 41 65 04
            47 1A 80 86 63 64 22 64 22 01 02 6A 23 01 03 B9 8D 0C FF 8C 00 14
            BA 8D 0C FF 8D 00 14 BB 8D 0C FF 8E 00 14 BC 8D 0C FF 8F 00 14 62
            BE 8D 0C FF 8F 0E 29 10 2A 00 10 2B 04 13 10 2C 04 15 10 2D 04 17
            10 2E 04 19 10 2F 04 1B 10 30 04 1D 10 31 04 1F 10 32 04 21 10 33
            04 23 10 34 04 25 10 35 04 27 10 36 04 29 10 37 04 2B 10 38 04 2D
            10 39 65 44 8D 0C FF 52 04 44 5B 14 65 46 AB 6F 3B 6A 2D 8E 92 FF
            4C 91 47 FF 68 9B 16 02 12 10 19 16
           )
      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." SETF FDEFINITION QUOTE *TOPLEVEL-ENVIRONMENT*
      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 DEFINITION
  )  )
#Y(#:TOP-LEVEL-FORM-296 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
   (SPECIAL *TOPLEVEL-FOR-VALUE*) *TOPLEVEL-FOR-VALUE*
  )
#Y(#:TOP-LEVEL-FORM-297 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILE-TOPLEVEL-FORM REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-TOPLEVEL-FORM
      #310Y(00 01 00 01 00 08 3A 01 02 0E 00 10 00 C4 4F 81 22 A3 1F 80 EE 93
            08 AA 8E 08 80 AF AA 2E 04 41 03 92 02 3A AC 24 0F 80 98 B6 6A 02
            6A 0E 72 02 00 70 5C 37 01 27 4F 16 07 18 0F 1A 80 F5 AA 37 01 27
            43 16 05 18 0F 1A 80 E9 B2 6A 02 2F 03 41 02 91 01 6A 16 02 0E 09
            1C 80 B1 1A 80 B2 9E 25 05 80 59 00 1A 0F B6 DE 2F 07 94 0C 92 00
            74 9B 5B 1B 0C 9B 5A 14 37 01 27 FF 8B 16 01 1A 35 E0 AB 92 00 1D
            93 00 82 01 0E 09 1C 02 9C 58 10 09 AD 6A 00 84 07 14 6F 0A 27 FF
            6B 11 16 01 91 00 63 16 03 1A 0F A7 10 0B B0 6A 0C 37 01 70 67 98
            0D 35 01 11 00 16 07 18 0F 1A 80 77 AD 8B 5A FF 68 16 04 0E 09 1C
            80 44 1A 80 45 16 01 0E 09 1C 3B 1A 3D 00 16 03 18 0F 1A 80 58 00
            1A 3E B5 6A 14 2F 15 0E 16 1C 80 44 14 30 8F B5 37 0C 7D 02 F6 6A
            16 30 84 0E 11 1C 37 EF 6A 11 31 4A 79 2E 18 1A 2E B2 8D 08 FF 42
            0E 09 1B 04 B2 87 10 43 00 10 11 6A 00 62 B7 0E 09 1B 40 D5 7B 02
            2F 13 09 0B 0E 14 1B FF B7 0E 16 1B FF BC 0E 11 1B 49 00 11 50 11
            19 03
           )
      *TOPLEVEL-NAME* C-ERROR *VENV* VENV-SEARCH-MACRO FENV-SEARCH
      #S(HASH-TABLE EQ (SYMBOL-MACROLET . 68.) (MACROLET . 68.)
         (COMPILER-LET . 68.) (EVAL-WHEN . 68.) (LOCALLY . 68.) (PROGN . 5.)
        )
      1. TEST-LIST 0. *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-298 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   PREPARE-COUTPUT-FILE REMOVE-OLD-DEFINITIONS
   #Y(PREPARE-COUTPUT-FILE
      #37Y(00 00 00 00 00 01 0E 00 1C 18 0E 01 1C 14 0E 02 1B 0D 6A 01 DB 37 03
           30 FB 0F 02 14 DC 2F 05 02 19 01 00 19 01
          )
      *COMPILING-FROM-FILE* *COUTPUT-FILE* *COUTPUT-STREAM* :OUTPUT
      #Y(PREPARE-COUTPUT-FILE-1
         #15Y(00 01 00 00 01 17 D8 AD 37 02 30 8D 9C 19 03)
         "#include \"clisp.h\"

"
        )
      FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-299 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   FINALIZE-COUTPUT-FILE REMOVE-OLD-DEFINITIONS
   #Y(FINALIZE-COUTPUT-FILE #9Y(00 00 00 00 00 01 00 19 01))
  )
#Y(#:TOP-LEVEL-FORM-300 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILE-FILE REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FILE
      #866Y(00 01 00 00 80 1C 00 05 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 02 00 10 08 01
            02 C0 6A 09 2F 0A 5A 1B 0A C0 E3 37 03 70 F3 37 02 30 F3 09 16 92
            15 05 14 8E 18 81 0D 92 14 12 14 8D 18 0E BE 02 21 81 24 BE 37 03
            30 F3 09 14 7D 00 C0 E8 37 03 70 FB 52 82 E8 D4 44 91 04 81 15 C2
            8D 18 81 19 00 14 52 82 B5 65 1D 65 1E 70 F7 01 02 91 0C 81 0D 65
            20 8D 18 81 11 00 14 91 0D 81 10 00 10 13 00 10 14 00 10 15 62 A9
            10 16 04 10 10 17 04 12 10 18 04 14 10 19 04 16 10 1A 52 82 36 91
            22 80 F5 0E 22 1B 19 00 0F 23 0F 24 0F 25 0F 26 0F 27 0F 28 0F 29
            0F 2A 0F 2B 0F 2C 0F 2D 7D 2D 63 63 6A 2E 6A 2F 65 26 91 27 80 EB
            0E 30 10 31 00 10 32 00 10 33 00 10 34 00 10 35 00 10 36 00 10 37
            0E 38 10 39 03 3A 10 3B 03 3A 10 3C 0E 1A 58 1C 03 04 45 58 10 3D
            02 10 3E 64 3A 04 29 10 22 04 2B 10 3F 04 2D 10 2E 04 2F 10 2F 04
            31 10 40 64 41 64 42 64 43 6D 03 1E 65 77 2F 44 0E 1A 1C 80 E3 0E
            45 10 2E 64 46 64 47 2D 46 14 7A 02 7A 02 37 0C 7D 00 6A 1A 30 84
            11 1A 80 C8 E4 C1 37 02 30 F3 1A 09 BF 02 21 74 BF 37 03 30 F3 09
            15 E5 C0 37 02 7F F3 05 E6 C0 37 02 30 F3 0F 08 7D 01 92 14 FE E8
            1A FE D3 E7 C1 37 02 30 F3 1A FE D8 C2 EA 37 03 30 FB 1A FE E8 04
            18 1A FE E3 65 20 EA 37 03 30 FB 1A FE F0 04 20 1A FE EB BB EA 37
            03 30 FB 1A FE E8 14 F3 F4 F5 6D 03 1E 65 3F 2D 1F 14 2D 20 42 14
            70 C4 70 C5 2C 07 21 0E 22 1C FE F3 1A FF 09 6A 30 65 28 32 02 2B
            1A FF 0D 64 64 64 65 64 66 6D 03 1E AC 71 4A 2F 44 92 00 80 CE 64
            67 64 68 64 69 6D 03 1E AB 71 4A 2F 44 16 02 1A 80 BD 0E 07 1C 10
            63 64 4A AC 64 4B 6A 4C 72 02 35 6F 4D 2C 03 21 AA 64 4E 84 12 14
            6F 4F 2F 50 16 01 63 65 60 62 64 48 37 01 30 7E 65 5F 2E 49 0F 18
            65 5F 62 64 48 37 01 70 78 65 60 2E 49 0F 19 AA 64 48 8E 03 FF BA
            16 01 2D 51 64 52 64 53 64 54 6D 03 1E 65 77 2F 44 64 55 64 56 64
            57 6D 03 1E 6A 3B 6A 3C 62 6A 3C 03 58 59 14 62 6D 03 1E 2C 04 44
            92 66 80 47 0E 23 1C 0F 64 59 64 5A 64 5B 6D 03 1E 6A 23 71 4A 2F
            44 6A 28 6A 27 64 5C 64 5D 2C 04 5E 0F 28 1C 0F 64 5F 64 60 64 61
            6D 03 1E 6A 28 71 4A 2F 44 6A 25 6A 24 6F 62 6A 25 6A 24 6F 63 91
            01 FF 24 91 00 FF 32 16 02 64 6A 2E 44 6A 3B 80 92 4A 12 05 16 01
            12 0C 16 05 53 05 00 26 1C 80 50 1A 1D 14 37 01 31 7D 05 00 0F 1C
            31 1A 80 41 6A 08 30 F9 05 00 0F 1C 25 1A 36 05 00 26 1C 31 6A 1A
            30 8F 6A 1A 37 01 31 7D 6A 13 37 01 31 7D 0E 14 1B 4F 6A 08 8B F8
            57 05 00 0F 1B 13 66 00 3A 30 F9 66 00 2A 30 F9 6A 08 8C F8 04 6A
            08 30 F9 54 12 05 16 01 12 03 16 05 53 05 00 05 1C 0E 1A 05 05 00
            05 1C 07 66 00 00 37 01 31 7D 54 16 01 40 05 00 02 1C 05 14 37 01
            31 7D 45 53 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 63 31 7D 54 16
            03 11 16 02 12 03 19 07
           )
      :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *COMPILE-WARNINGS*
      *COMPILE-VERBOSE* *COMPILE-PRINT* *COUTPUT-FILE* *SOURCE-FILE-TYPES*
      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 "c" :VERSION NIL
        )
      #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
         :TYPE "lis" :VERSION NIL
        )
      :INPUT-IMMUTABLE #.#'VALUES :OUTPUT *LIBOUTPUT-STREAM* *COUTPUT-STREAM*
      *FFI-MODULE* *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 Datei ~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 ..." "~%Datei ~A wird compiliert..."
      "~%Compilation du fichier ~A..." C-COMMENT *KEYWORD-PACKAGE* VERSION
      QUOTE "EOF" LINE-NUMBER
      #Y(LISP::COMPILE-FILE-1
         #19Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AC AE 30 88 9C 19 04)
         "
; "
        )
      -2. *PRIN-LINELENGTH* WRITE-TO-SHORT-STRING #:TOP-LEVEL-FORM
      SYMBOL-SUFFIX COMPILE-TOPLEVEL-FORM FINALIZE-COUTPUT-FILE
      "~&~%Compilation of file ~A is finished."
      "~&~%Compilation von Datei ~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-301 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMPILE-FILE-PATHNAME REMOVE-OLD-DEFINITIONS
   #Y(COMPILE-FILE-PATHNAME
      #60Y(00 01 00 00 80 1C 00 05 00 00 3A 05 02 7D 05 B0 6A 05 2F 06 5A 1B 0A
           B0 DF 37 03 70 F3 37 02 30 F3 FC 92 05 0E 14 8D 18 0A AF 02 21 09 AF
           37 03 7F F3 05 A0 19 07 E0 B1 37 02 1A 74
          )
      :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT *SOURCE-FILE-TYPES*
      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
  )  )  )
#Y(#:TOP-LEVEL-FORM-302 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   DISASSEMBLE-CLOSURES REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-CLOSURES
      #46Y(00 02 00 00 00 03 00 2A 01 00 0B 00 00 AA 6C 00 01 AE 9C 33 16 01 67
           00 00 71 4A 62 1A 09 86 01 00 14 AF 2F 01 82 01 AB 8C 96 73 00 19 06
          )
      #Y(DISASSEMBLE-CLOSURES-MARK
         #52Y(00 01 00 00 00 02 AB 07 00 01 5C 0C 00 01 AB 71 38 62 1A 19 86 01
              00 14 8E 0C 10 AA 8E 0B 0C AA 68 00 01 37 03 8B B7 03 AA 27 5B 82
              01 AB 8C 96 63 00 19 04
             )
         NIL
        )
      DISASSEMBLE-CLOSURE
  )  )
#Y(#:TOP-LEVEL-FORM-303 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   COMMENT-VALUES REMOVE-OLD-DEFINITIONS
   #Y(COMMENT-VALUES
      #78Y(00 02 00 00 00 03 9D 20 03 00 19 03 9D 5A 25 00 78 63 9E 5B 77 70 00
           C4 1A 2F 63 DA 9F 5B 77 72 02 35 70 00 C4 1A 22 63 6A 03 9F 5B 5B 77
           72 02 35 70 00 C7 1A 13 DD 9E 5B 5B 77 AD 70 98 C7 1A 08 DD 9E 5B 77
           AD 70 98 C4 14 3F 03 19 03
          )
      #S(HASH-TABLE EQ (HANDLER-OPEN . 49.) (TAGBODY-OPEN . 49.)
         (CONST&SYMBOL-FUNCTION&STORE . 49.) (COPY-CLOSURE . 49.)
         (COPY-CLOSURE&PUSH . 49.) (CONST&SYMBOL-FUNCTION . 49.)
         (CONST&SYMBOL-FUNCTION&PUSH . 49.) (CONST&STORE . 49.) (BIND . 49.)
         (GETVALUE&PUSH . 49.) (GETVALUE . 49.) (SETVALUE . 49.)
         (CONST&PUSH . 49.) (CONST . 49.) (JMPIFNOTEQTO . 49.)
         (JMPIFEQTO . 49.) (CALL2&JMPIF . 49.) (CALL2&JMPIFNOT . 49.)
         (CALL2&PUSH . 49.) (CALL2 . 49.) (CALL1&JMPIF . 49.)
         (CALL1&JMPIFNOT . 49.) (CALL1&PUSH . 49.) (CALL1 . 49.) (CALL0 . 49.)
         (CALL&PUSH . 38.) (CALL . 38.) (CALLSR&JMPIF . 23.)
         (CALLSR&JMPIFNOT . 23.) (CALLSR&STORE . 23.) (CALLSR&PUSH . 23.)
         (CALLSR . 23.) (CALLS2&JMPIF . 10.) (CALLS2&JMPIFNOT . 10.)
         (CALLS2&STORE . 10.) (CALLS2&PUSH . 10.) (CALLS2 . 10.)
         (CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.)
         (CALLS1&PUSH . 1.) (CALLS1 . 1.)
        )
      1. 256. FUNTABR-INDEX 2. STRING
  )  )
#Y(#:TOP-LEVEL-FORM-304 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   DISASSEMBLE-CLOSURE REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE-CLOSURE
      #451Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AB 30 8F AB 30 8F D9 DA DB 6D
            03 04 AC 37 02 30 8D AC 71 36 AC 30 85 AC 2E 05 41 08 AA DE 92 01
            1F B5 30 8F DF B6 37 02 30 8D AA B6 30 85 E0 B6 37 02 30 8D 93 01
            B6 30 85 82 01 84 00 91 01 61 16 02 B3 30 8F B1 B4 30 85 E1 E2 E3
            6D 03 04 B4 37 02 30 8D B3 30 8F B0 B4 30 85 E4 E5 E6 6D 03 04 B4
            37 02 30 8D B3 30 8F 91 05 25 EA EB D7 14 6D 03 04 B4 37 02 30 8D
            91 04 1B B3 30 8F 64 26 64 27 64 28 6D 03 04 B4 37 02 30 8D 62 AB
            1A 80 9D E7 E8 D4 1A 59 AD 71 48 B4 30 8F AA B5 30 85 ED EE EF 2C
            03 04 25 18 3E 03 19 1A 34 F4 B5 37 02 30 8D 03 1D 1A 2A F2 B5 37
            02 30 8D AA 24 1B 6C 03 1D 1A 1C 64 1F B5 37 02 30 8D 03 20 1A 11
            03 21 1A 25 64 1E B5 37 02 30 8D AA 24 1B 66 03 20 14 B5 37 02 30
            8D AE AA 8B 96 2B 93 00 82 01 B6 30 85 AA 8B 96 59 03 22 14 B6 37
            02 30 8D 1A 67 B4 30 8F 64 23 64 24 64 25 6D 03 04 B5 37 02 30 8D
            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 A7 00 AC AC 6F 2B 92 00 80
            71 9B 5A 77 9C 5A 78 B7 30 8F AB B8 30 85 DE 64 2C B9 70 94 72 01
            36 1A 07 64 2D BA 30 8C 84 01 AB AB 90 01 32 73 16 02 AA B8 30 88
            AA AE 2F 2E 41 02 92 01 35 DE F3 64 2F BC 70 94 72 01 36 72 01 33
            1A 0F AA BA 37 02 30 8D 1A 1E 64 2D BC 30 8C 84 01 AB AB 90 01 32
            73 16 02 64 30 BA 37 02 30 8D AB 23 31 5E AA BA 30 85 16 04 82 00
            91 00 FF 8F 16 02 B3 30 8F 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 COMMENT-VALUES 42. "; " STRING
  )  )
#Y(#:TOP-LEVEL-FORM-305 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
   DISASSEMBLE REMOVE-OLD-DEFINITIONS
   #Y(DISASSEMBLE
      #114Y(00 01 00 00 00 02 AB 88 00 12 AB 8C 53 80 45 AB 2E 07 F7 14 E0 37
            01 8E 84 80 46 F7 9C 1F 07 93 01 24 09 02 82 01 AB 8E 0C 3D AB 8D
            0B 20 AB E6 71 2E AC E7 71 2E AD E8 71 2E AE E9 71 2E AF EA 71 2E
            B0 EB 71 2E B1 EC 71 2E 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
  )  )