(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "COMMON-LISP" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (EXT::EVAL-ENV) "EXT")
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (CUSTOM::*PACKAGE-TASKS-TREAT-SPECIALLY*) "CUSTOM")
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 E3 19 01)
   "CUSTOM" "EXT")
#Y(#:TOP-LEVEL-FORM-5 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (COMMON-LISP::COMPILE COMMON-LISP::COMPILE-FILE COMMON-LISP::DISASSEMBLE))
#Y(#:TOP-LEVEL-FORM-6
   #21Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 38 03 31 B6 0F 01 19 01)
   :COMPILER COMMON-LISP::*FEATURES*)
#Y(#:TOP-LEVEL-FORM-7 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "COMPILER" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-8 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D7 19 01)
   (SYSTEM::FUNCTION-NAME-P SYSTEM::PARSE-BODY SYSTEM::ADD-IMPLICIT-BLOCK
    SYSTEM::MAKE-LOAD-TIME-EVAL SYSTEM::MAKE-MACRO-EXPANDER
    SYSTEM::CLOSURE-NAME SYSTEM::CLOSURE-CODEVEC SYSTEM::CLOSURE-CONSTS
    SYSTEM::FIXNUMP SYSTEM::SHORT-FLOAT-P SYSTEM::SINGLE-FLOAT-P
    SYSTEM::DOUBLE-FLOAT-P SYSTEM::LONG-FLOAT-P SYSTEM::SEARCH-FILE
    SYSTEM::DATE-FORMAT SYSTEM::LINE-NUMBER SYSTEM::%FUNTABREF
    SYSTEM::INLINABLE SYSTEM::CONSTANT-INLINABLE SYSTEM::*COMPILING*
    SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*INLINE-FUNCTIONS* SYSTEM::*VENV*
    SYSTEM::*FENV* SYSTEM::*BENV* SYSTEM::*GENV* SYSTEM::*DENV*
    SYSTEM::*TOPLEVEL-ENVIRONMENT* SYSTEM::*TOPLEVEL-DENV* SYSTEM::C-PROCLAIM
    SYSTEM::C-PROCLAIM-CONSTANT SYSTEM::EVAL-WHEN-COMPILE SYSTEM::C-DEFUN
    SYSTEM::C-PROVIDE SYSTEM::C-REQUIRE))
#Y(#:TOP-LEVEL-FORM-9 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D7 19 01)
   (SYSTEM::VERSION SYSTEM::SUBR-INFO))
#Y(#:TOP-LEVEL-FORM-10 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::INLINE SYSTEM::ENV SYSTEM::MAC-EXP))
#Y(#:TOP-LEVEL-FORM-11
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 32 86 DA DE 32 80 C5 19
        01)
   SYSTEM::ENV SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::INLINE-EXPANSION
   (COMMON-LISP::NIL (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::ENV))
    (COMMON-LISP::BLOCK SYSTEM::ENV
     (COMMON-LISP::VECTOR SYSTEM::*VENV* SYSTEM::*FENV*)))
   #Y(SYSTEM::ENV
      #19Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 33 02 00 19 01)
      SYSTEM::*VENV* SYSTEM::*FENV*))
#Y(#:TOP-LEVEL-FORM-12
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 32 86 DA DE 32 80 C5 19
        01)
   SYSTEM::MAC-EXP SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::INLINE-EXPANSION
   ((SYSTEM::MAC SYSTEM::FORM COMMON-LISP::&OPTIONAL
     (SYSTEM::ENV (SYSTEM::ENV)))
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::MAC-EXP))
    (COMMON-LISP::BLOCK SYSTEM::MAC-EXP
     (COMMON-LISP::FUNCALL COMMON-LISP::*MACROEXPAND-HOOK* SYSTEM::MAC
      SYSTEM::FORM SYSTEM::ENV)))
   #Y(SYSTEM::MAC-EXP
      #25Y(00 00 00 00 02 00 01 00 00 09 3B 01 03 2E 00 F9 6B 01 B0 B0 B0 36 03
           19 04)
      SYSTEM::ENV COMMON-LISP::*MACROEXPAND-HOOK*))
#Y(#:TOP-LEVEL-FORM-13
   #37Y(00 00 00 00 00 00 00 00 00 01 DA 71 CA DB 38 01 8D 5D 0B AC DB 71 4D 8C
        FF 04 DB DC 30 03 DB AD 32 81 C6 19 02)
   #1="KEYWORD" SYSTEM::*KEYWORD-PACKAGE*
   (COMMON-LISP::DEFCONSTANT SYSTEM::*KEYWORD-PACKAGE*
    (COMMON-LISP::FIND-PACKAGE #1#))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-14
   #37Y(00 00 00 00 00 00 00 00 00 01 DA 71 CA DB 38 01 8D 5D 0B AC DB 71 4D 8C
        FF 04 DB DC 30 03 DB AD 32 81 C6 19 02)
   #1="COMMON-LISP" SYSTEM::*LISP-PACKAGE*
   (COMMON-LISP::DEFCONSTANT SYSTEM::*LISP-PACKAGE*
    (COMMON-LISP::FIND-PACKAGE #1#))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-15
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*COMPILING*) SYSTEM::*COMPILING*)
#Y(#:TOP-LEVEL-FORM-16
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 64 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL CUSTOM::*COMPILE-WARNINGS*)
   CUSTOM::*COMPILE-WARNINGS*)
#Y(#:TOP-LEVEL-FORM-17
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 64 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL COMMON-LISP::*COMPILE-VERBOSE*)
   COMMON-LISP::*COMPILE-VERBOSE*)
#Y(#:TOP-LEVEL-FORM-18
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL COMMON-LISP::*COMPILE-PRINT*)
   COMMON-LISP::*COMPILE-PRINT*)
#Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*COMPILING-FROM-FILE*)
   SYSTEM::*COMPILING-FROM-FILE*)
#Y(#:TOP-LEVEL-FORM-20
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL COMMON-LISP::*COMPILE-FILE-PATHNAME*)
   COMMON-LISP::*COMPILE-FILE-PATHNAME*)
#Y(#:TOP-LEVEL-FORM-21
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL COMMON-LISP::*COMPILE-FILE-TRUENAME*)
   COMMON-LISP::*COMPILE-FILE-TRUENAME*)
#Y(#:TOP-LEVEL-FORM-22
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*COMPILE-FILE-LINENO1*)
   SYSTEM::*COMPILE-FILE-LINENO1*)
#Y(#:TOP-LEVEL-FORM-23
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*COMPILE-FILE-LINENO2*)
   SYSTEM::*COMPILE-FILE-LINENO2*)
#Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*C-LISTING-OUTPUT*)
   SYSTEM::*C-LISTING-OUTPUT*)
#Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*C-ERROR-OUTPUT*) SYSTEM::*C-ERROR-OUTPUT*)
#Y(#:TOP-LEVEL-FORM-26
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*KNOWN-SPECIAL-VARS*)
   SYSTEM::*KNOWN-SPECIAL-VARS*)
#Y(#:TOP-LEVEL-FORM-27
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*CONSTANT-SPECIAL-VARS*)
   SYSTEM::*CONSTANT-SPECIAL-VARS*)
#Y(#:TOP-LEVEL-FORM-28
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*FASOUTPUT-STREAM*)
   SYSTEM::*FASOUTPUT-STREAM*)
#Y(#:TOP-LEVEL-FORM-29
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*LIBOUTPUT-STREAM*)
   SYSTEM::*LIBOUTPUT-STREAM*)
#Y(#:TOP-LEVEL-FORM-30
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*COUTPUT-FILE*) SYSTEM::*COUTPUT-FILE*)
#Y(#:TOP-LEVEL-FORM-31
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*COUTPUT-STREAM*) SYSTEM::*COUTPUT-STREAM*)
#Y(#:TOP-LEVEL-FORM-32
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*FUNCTIONS-WITH-ERRORS*)
   SYSTEM::*FUNCTIONS-WITH-ERRORS*)
#Y(#:TOP-LEVEL-FORM-33
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*KNOWN-FUNCTIONS*) SYSTEM::*KNOWN-FUNCTIONS*)
#Y(#:TOP-LEVEL-FORM-34
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*UNKNOWN-FUNCTIONS*)
   SYSTEM::*UNKNOWN-FUNCTIONS*)
#Y(#:TOP-LEVEL-FORM-35
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*UNKNOWN-FREE-VARS*)
   SYSTEM::*UNKNOWN-FREE-VARS*)
#Y(#:TOP-LEVEL-FORM-36
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*DEPRECATED-FUNCTIONS*)
   SYSTEM::*DEPRECATED-FUNCTIONS*)
#Y(#:TOP-LEVEL-FORM-37
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*INLINE-FUNCTIONS*)
   SYSTEM::*INLINE-FUNCTIONS*)
#Y(#:TOP-LEVEL-FORM-38
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*NOTINLINE-FUNCTIONS*)
   SYSTEM::*NOTINLINE-FUNCTIONS*)
#Y(#:TOP-LEVEL-FORM-39
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*INLINE-DEFINITIONS*)
   SYSTEM::*INLINE-DEFINITIONS*)
#Y(#:TOP-LEVEL-FORM-40
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*INLINE-CONSTANTS*)
   SYSTEM::*INLINE-CONSTANTS*)
#Y(#:TOP-LEVEL-FORM-41
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*NOTINLINE-CONSTANTS*)
   SYSTEM::*NOTINLINE-CONSTANTS*)
#Y(#:TOP-LEVEL-FORM-42
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*USER-DECLARATION-TYPES*)
   SYSTEM::*USER-DECLARATION-TYPES*)
#Y(#:TOP-LEVEL-FORM-43
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*COMPILED-MODULES*)
   SYSTEM::*COMPILED-MODULES*)
#Y(#:TOP-LEVEL-FORM-44
   #30Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 DB DC DD
        2D 03 04 C6 19 01)
   (COMMON-LISP::SPECIAL CUSTOM::*PACKAGE-TASKS-TREAT-SPECIALLY*)
   CUSTOM::*PACKAGE-TASKS-TREAT-SPECIALLY* COMMON-LISP::VARIABLE
   "Treat package-related operations the same way at compile and load time."
   SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-45
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*PACKAGE-TASKS*) SYSTEM::*PACKAGE-TASKS*)
#Y(#:TOP-LEVEL-FORM-46
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*FFI-MODULE*) SYSTEM::*FFI-MODULE*)
#Y(#:TOP-LEVEL-FORM-47
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*LOAD-FORMS*) SYSTEM::*LOAD-FORMS*)
#Y(#:TOP-LEVEL-FORM-48-1
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 DA DC DD 32 86 DA DE 63 2D 03
        05 3E 19 01)
   SYSTEM::%RECORD-REF SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SYSTEM::%RECORD-STORE COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-48-2
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 DA DC DD DE CA 7C 02 32 86 DA
        E0 63 2D 03 07 3E 19 01)
   SYSTEM::CLOSURE-NAME SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-CLOSURE-NAME
      #21Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA AD DB B1 61 04 19 04)
      SYSTEM::%RECORD-STORE 0.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-48-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-CLOSURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-CLOSURE
      #29Y(00 00 00 00 00 00 00 00 80 1B 03 00 00 00 3D 03 3D 02 3D 01 AF AF 72
           34 AF 32 35 19 04)
      :NAME :CODEVEC :CONSTS))
#Y(#:TOP-LEVEL-FORM-49
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::INSTRUCTION-TABLE
   #1=#((COMMON-LISP::NIL SYSTEM::O) (SYSTEM::PUSH-NIL SYSTEM::N)
        (COMMON-LISP::T SYSTEM::O) (SYSTEM::CONST SYSTEM::K)
        (COMMON-LISP::LOAD SYSTEM::K) (SYSTEM::LOADI SYSTEM::NNN)
        (SYSTEM::LOADC SYSTEM::NN) (SYSTEM::LOADV SYSTEM::NN)
        (SYSTEM::LOADIC SYSTEM::NNNN) (SYSTEM::STORE SYSTEM::K)
        (SYSTEM::STOREI SYSTEM::NNN) (SYSTEM::STOREC SYSTEM::NN)
        (SYSTEM::STOREV SYSTEM::NN) (SYSTEM::STOREIC SYSTEM::NNNN)
        (SYSTEM::GETVALUE SYSTEM::N) (SYSTEM::SETVALUE SYSTEM::N)
        (SYSTEM::BIND SYSTEM::N) (SYSTEM::UNBIND1 SYSTEM::O)
        (SYSTEM::UNBIND SYSTEM::N) (COMMON-LISP::PROGV SYSTEM::O)
        (COMMON-LISP::PUSH SYSTEM::O) (COMMON-LISP::POP SYSTEM::O)
        (SYSTEM::SKIP SYSTEM::N) (SYSTEM::SKIPI SYSTEM::NNN)
        (SYSTEM::SKIPSP SYSTEM::NN) (SYSTEM::SKIP&RET SYSTEM::N)
        (SYSTEM::SKIP&RETGF SYSTEM::N) (SYSTEM::JMP SYSTEM::L)
        (SYSTEM::JMPIF SYSTEM::L) (SYSTEM::JMPIFNOT SYSTEM::L)
        (SYSTEM::JMPIF1 SYSTEM::L) (SYSTEM::JMPIFNOT1 SYSTEM::L)
        (SYSTEM::JMPIFATOM SYSTEM::L) (SYSTEM::JMPIFCONSP SYSTEM::L)
        (SYSTEM::JMPIFEQ SYSTEM::L) (SYSTEM::JMPIFNOTEQ SYSTEM::L)
        (SYSTEM::JMPIFEQTO SYSTEM::NL) (SYSTEM::JMPIFNOTEQTO SYSTEM::NL)
        (SYSTEM::JMPHASH SYSTEM::NHL) (SYSTEM::JMPHASHV SYSTEM::NHL)
        (SYSTEM::JSR SYSTEM::L) (SYSTEM::JMPTAIL SYSTEM::NNL)
        (SYSTEM::VENV SYSTEM::O) (SYSTEM::MAKE-VECTOR1&PUSH SYSTEM::N)
        (SYSTEM::COPY-CLOSURE SYSTEM::NN) (SYSTEM::CALL SYSTEM::NN)
        (SYSTEM::CALL0 SYSTEM::N) (SYSTEM::CALL1 SYSTEM::N)
        (SYSTEM::CALL2 SYSTEM::N) (SYSTEM::CALLS1 SYSTEM::B)
        (SYSTEM::CALLS2 SYSTEM::B) (SYSTEM::CALLSR SYSTEM::NB)
        (SYSTEM::CALLC SYSTEM::O) (SYSTEM::CALLCKEY SYSTEM::O)
        (COMMON-LISP::FUNCALL SYSTEM::N) (COMMON-LISP::APPLY SYSTEM::N)
        (SYSTEM::PUSH-UNBOUND SYSTEM::N) (SYSTEM::UNLIST SYSTEM::NN)
        (SYSTEM::UNLIST* SYSTEM::NN) (SYSTEM::JMPIFBOUNDP SYSTEM::NL)
        (COMMON-LISP::BOUNDP SYSTEM::N) (SYSTEM::UNBOUND->NIL SYSTEM::N)
        (SYSTEM::VALUES0 SYSTEM::O) (SYSTEM::VALUES1 SYSTEM::O)
        (SYSTEM::STACK-TO-MV SYSTEM::N) (SYSTEM::MV-TO-STACK SYSTEM::O)
        (SYSTEM::NV-TO-STACK SYSTEM::N) (SYSTEM::MV-TO-LIST SYSTEM::O)
        (SYSTEM::LIST-TO-MV SYSTEM::O) (SYSTEM::MVCALLP SYSTEM::O)
        (SYSTEM::MVCALL SYSTEM::O) (SYSTEM::BLOCK-OPEN SYSTEM::NL)
        (SYSTEM::BLOCK-CLOSE SYSTEM::O) (COMMON-LISP::RETURN-FROM SYSTEM::N)
        (SYSTEM::RETURN-FROM-I SYSTEM::NNN) (SYSTEM::TAGBODY-OPEN SYSTEM::NLX)
        (SYSTEM::TAGBODY-CLOSE-NIL SYSTEM::O) (SYSTEM::TAGBODY-CLOSE SYSTEM::O)
        (COMMON-LISP::GO SYSTEM::NN) (SYSTEM::GO-I SYSTEM::NNNN)
        (SYSTEM::CATCH-OPEN SYSTEM::L) (SYSTEM::CATCH-CLOSE SYSTEM::O)
        (COMMON-LISP::THROW SYSTEM::O) (SYSTEM::UNWIND-PROTECT-OPEN SYSTEM::L)
        (SYSTEM::UNWIND-PROTECT-NORMAL-EXIT SYSTEM::O)
        (SYSTEM::UNWIND-PROTECT-CLOSE SYSTEM::O)
        (SYSTEM::UNWIND-PROTECT-CLEANUP SYSTEM::O)
        (SYSTEM::HANDLER-OPEN SYSTEM::NC)
        (SYSTEM::HANDLER-BEGIN&PUSH SYSTEM::O) (COMMON-LISP::NOT SYSTEM::O)
        (COMMON-LISP::EQ SYSTEM::O) (COMMON-LISP::CAR SYSTEM::O)
        (COMMON-LISP::CDR SYSTEM::O) (COMMON-LISP::CONS SYSTEM::O)
        (COMMON-LISP::SYMBOL-FUNCTION SYSTEM::O) (COMMON-LISP::SVREF SYSTEM::O)
        (SYSTEM::SVSET SYSTEM::O) (COMMON-LISP::LIST SYSTEM::N)
        (COMMON-LISP::LIST* SYSTEM::N) (SYSTEM::NIL&PUSH SYSTEM::O)
        (SYSTEM::T&PUSH SYSTEM::O) (SYSTEM::CONST&PUSH SYSTEM::K)
        (SYSTEM::LOAD&PUSH SYSTEM::K) (SYSTEM::LOADI&PUSH SYSTEM::NNN)
        (SYSTEM::LOADC&PUSH SYSTEM::NN) (SYSTEM::LOADV&PUSH SYSTEM::NN)
        (SYSTEM::POP&STORE SYSTEM::N) (SYSTEM::GETVALUE&PUSH SYSTEM::N)
        (SYSTEM::JSR&PUSH SYSTEM::L) (SYSTEM::COPY-CLOSURE&PUSH SYSTEM::NN)
        (SYSTEM::CALL&PUSH SYSTEM::NN) (SYSTEM::CALL1&PUSH SYSTEM::N)
        (SYSTEM::CALL2&PUSH SYSTEM::N) (SYSTEM::CALLS1&PUSH SYSTEM::B)
        (SYSTEM::CALLS2&PUSH SYSTEM::B) (SYSTEM::CALLSR&PUSH SYSTEM::NB)
        (SYSTEM::CALLC&PUSH SYSTEM::O) (SYSTEM::CALLCKEY&PUSH SYSTEM::O)
        (SYSTEM::FUNCALL&PUSH SYSTEM::N) (SYSTEM::APPLY&PUSH SYSTEM::N)
        (SYSTEM::CAR&PUSH SYSTEM::O) (SYSTEM::CDR&PUSH SYSTEM::O)
        (SYSTEM::CONS&PUSH SYSTEM::O) (SYSTEM::LIST&PUSH SYSTEM::N)
        (SYSTEM::LIST*&PUSH SYSTEM::N) (SYSTEM::NIL&STORE SYSTEM::N)
        (SYSTEM::T&STORE SYSTEM::N) (SYSTEM::LOAD&STOREC SYSTEM::NNN)
        (SYSTEM::CALLS1&STORE SYSTEM::BN) (SYSTEM::CALLS2&STORE SYSTEM::BN)
        (SYSTEM::CALLSR&STORE SYSTEM::NBN) (SYSTEM::LOAD&CDR&STORE SYSTEM::N)
        (SYSTEM::LOAD&CONS&STORE SYSTEM::N) (SYSTEM::LOAD&INC&STORE SYSTEM::N)
        (SYSTEM::LOAD&DEC&STORE SYSTEM::N) (SYSTEM::LOAD&CAR&STORE SYSTEM::NN)
        (SYSTEM::CALL1&JMPIF SYSTEM::NL) (SYSTEM::CALL1&JMPIFNOT SYSTEM::NL)
        (SYSTEM::CALL2&JMPIF SYSTEM::NL) (SYSTEM::CALL2&JMPIFNOT SYSTEM::NL)
        (SYSTEM::CALLS1&JMPIF SYSTEM::BL) (SYSTEM::CALLS1&JMPIFNOT SYSTEM::BL)
        (SYSTEM::CALLS2&JMPIF SYSTEM::BL) (SYSTEM::CALLS2&JMPIFNOT SYSTEM::BL)
        (SYSTEM::CALLSR&JMPIF SYSTEM::NBL)
        (SYSTEM::CALLSR&JMPIFNOT SYSTEM::NBL) (SYSTEM::LOAD&JMPIF SYSTEM::NL)
        (SYSTEM::LOAD&JMPIFNOT SYSTEM::NL) (SYSTEM::LOAD&CAR&PUSH SYSTEM::N)
        (SYSTEM::LOAD&CDR&PUSH SYSTEM::N) (SYSTEM::LOAD&INC&PUSH SYSTEM::N)
        (SYSTEM::LOAD&DEC&PUSH SYSTEM::N)
        (SYSTEM::CONST&SYMBOL-FUNCTION SYSTEM::N)
        (SYSTEM::CONST&SYMBOL-FUNCTION&PUSH SYSTEM::N)
        (SYSTEM::CONST&SYMBOL-FUNCTION&STORE SYSTEM::NN)
        (SYSTEM::APPLY&SKIP&RET SYSTEM::NN)
        (SYSTEM::FUNCALL&SKIP&RETGF SYSTEM::NN))
   (COMMON-LISP::DEFCONSTANT SYSTEM::INSTRUCTION-TABLE '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-50
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB 72 45 1B 0D DB 9F 5F 78 AC DC B0 32
        86 16 01 85 01 AD AD 91 01 33 6D 00 19 03)
   0. #.SYSTEM::INSTRUCTION-TABLE SYSTEM::INSTRUCTION)
#Y(#:TOP-LEVEL-FORM-51
   #67Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 71 61 DB DC 72 45 1B 0D DC 9F
        5F 78 AC B0 B0 31 63 16 01 85 01 AD AD 91 01 33 6D 16 02 DD 38 01 8D 5D
        0B AC DD 71 4D 8C FF 04 DD DE 30 05 DD AD 32 81 C8 19 02)
   #.#'COMMON-LISP::EQ 0. #.SYSTEM::INSTRUCTION-TABLE SYSTEM::INSTRUCTION-CODES
   (COMMON-LISP::DEFCONSTANT SYSTEM::INSTRUCTION-CODES
    (COMMON-LISP::LET
     ((SYSTEM::HASHTABLE
       (COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQ)))
     (COMMON-LISP::DOTIMES
      (SYSTEM::I (COMMON-LISP::LENGTH SYSTEM::INSTRUCTION-TABLE))
      (COMMON-LISP::SETF
       (COMMON-LISP::GETHASH
        (COMMON-LISP::FIRST
         (COMMON-LISP::SVREF SYSTEM::INSTRUCTION-TABLE SYSTEM::I))
        SYSTEM::HASHTABLE)
       SYSTEM::I))
     SYSTEM::HASHTABLE))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-52
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::INSTRUCTION-TABLE-K
   #1=#(COMMON-LISP::LOAD SYSTEM::LOAD&PUSH SYSTEM::CONST SYSTEM::CONST&PUSH
        SYSTEM::STORE)
   (COMMON-LISP::DEFCONSTANT SYSTEM::INSTRUCTION-TABLE-K '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-53
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::SHORT-CODE-BASE 157.
   (COMMON-LISP::DEFCONSTANT SYSTEM::SHORT-CODE-BASE 157.)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-54
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::SHORT-CODE-OPSIZE #1=#(15. 25. 21. 30. 8.)
   (COMMON-LISP::DEFCONSTANT SYSTEM::SHORT-CODE-OPSIZE '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-55
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::SHORT-CODE-OPS #1=#(157. 172. 197. 218. 248.)
   (COMMON-LISP::DEFCONSTANT SYSTEM::SHORT-CODE-OPS '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-56
   #66Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 71 61 DB 1B 0F AC 71 00 93 00
        05 14 AF AF 31 63 16 01 85 00 AC DC 91 01 33 6B 16 01 DD 38 01 8D 5D 0B
        AC DD 71 4D 8C FF 04 DD DE 30 05 DD AD 32 81 C8 19 02)
   #.#'COMMON-LISP::EQ 0. 768. SYSTEM::FUNCTION-CODES
   (COMMON-LISP::DEFCONSTANT SYSTEM::FUNCTION-CODES
    (COMMON-LISP::LET
     ((SYSTEM::HASHTABLE
       (COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQ)))
     (COMMON-LISP::DOTIMES (SYSTEM::I (COMMON-LISP::* 3. 256.))
      (COMMON-LISP::LET ((SYSTEM::SYM (SYSTEM::%FUNTABREF SYSTEM::I)))
       (COMMON-LISP::WHEN SYSTEM::SYM
        (COMMON-LISP::SETF (COMMON-LISP::GETHASH SYSTEM::SYM SYSTEM::HASHTABLE)
         SYSTEM::I))))
     SYSTEM::HASHTABLE))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-57
   #67Y(00 00 00 00 00 00 00 00 00 01 DA 1B 14 A2 16 06 1B 18 AC 71 00 AC 31 01
        42 04 92 00 70 16 05 85 00 AC DB 91 01 33 6B 00 16 01 14 DC 38 01 8D 5D
        0B AC DC 71 4D 8C FF 04 DC DD 30 04 DC AD 32 81 C7 19 02)
   0. 768. SYSTEM::FUNTABR-INDEX
   (COMMON-LISP::DEFCONSTANT SYSTEM::FUNTABR-INDEX
    (COMMON-LISP::DOTIMES (SYSTEM::I (COMMON-LISP::* 3. 256.))
     (COMMON-LISP::LET ((SYSTEM::SYM (SYSTEM::%FUNTABREF SYSTEM::I)))
      (COMMON-LISP::MULTIPLE-VALUE-BIND
       (SYSTEM::NAME SYSTEM::REQ SYSTEM::OPT SYSTEM::REST-P)
       (SYSTEM::SUBR-INFO SYSTEM::SYM)
       (COMMON-LISP::DECLARE
        (COMMON-LISP::IGNORE SYSTEM::NAME SYSTEM::REQ SYSTEM::OPT))
       (COMMON-LISP::WHEN SYSTEM::REST-P (COMMON-LISP::RETURN SYSTEM::I))))))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CALLS-CODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CALLS-CODE
      #31Y(00 00 00 00 01 00 00 00 00 02 AD DA 90 01 30 0B DC DD AF 33 02 36 14
           61 02 19 02 DB 9F 1B 77)
      256. SYSTEM::CALLS1 SYSTEM::CALLS2 -256.))
#Y(#:TOP-LEVEL-FORM-59
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::MEMQ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MEMQ
      #60Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 1B 9F 5C 78 A0 5C
           5C 78 AC 38 01 8D 5D 06 AC 71 5A 8E 09 0D DF AE AE CB 62 03 19 05 AE
           2F 01 19 03 DC AE AE 71 5A C8 7A C9 1B 6D)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CASE (COMMON-LISP::T)
      ((COMMON-LISP::T COMMON-LISP::NIL)) COMMON-LISP::MEMBER
      (:TEST #'COMMON-LISP::EQ))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-60
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILER-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILER-ERROR
      #20Y(00 00 00 00 01 00 01 00 00 08 3D 01 DA 6F 01 AF AF 33 02 1E)
      "Compiler bug!! Occurred in ~A~@[ at ~A~]." SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*STACKZ*) SYSTEM::*STACKZ*)
#Y(#:TOP-LEVEL-FORM-62
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::SPD SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SPD
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0E 9F 5C 78 A0 5C
           5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CONS)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-63
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SPD+ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SPD+
      #27Y(00 00 00 00 02 00 00 00 00 03 94 02 94 02 73 02 36 95 03 95 03 33 02
           36 5D 19 03)))
#Y(#:TOP-LEVEL-FORM-64
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SPD- SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SPD-
      #27Y(00 00 00 00 02 00 00 00 00 03 94 02 94 02 73 01 37 95 03 95 03 33 01
           37 5D 19 03)))
#Y(#:TOP-LEVEL-FORM-65
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SPD<= SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SPD<=
      #30Y(00 00 00 00 02 00 00 00 00 03 94 02 94 02 33 01 32 1F 09 95 02 95 02
           33 01 32 19 03 19 03)))
#Y(#:TOP-LEVEL-FORM-66
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SPDMAX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SPDMAX
      #27Y(00 00 00 00 02 00 00 00 00 03 94 02 94 02 73 01 34 95 03 95 03 33 01
           34 5D 19 03)))
#Y(#:TOP-LEVEL-FORM-67
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::STACKZ-FUN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::STACKZ-FUN
      #24Y(00 00 00 00 01 00 00 00 00 02 9E 20 08 AD 38 01 31 9B 5C 19 02 9E 19
           02)))
#Y(#:TOP-LEVEL-FORM-68
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::IN-SAME-FUNCTION-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::IN-SAME-FUNCTION-P
      #19Y(00 00 00 00 02 00 00 00 00 03 AE 6F 00 AE 2F 00 5A 19 03)
      SYSTEM::STACKZ-FUN))
#Y(#:TOP-LEVEL-FORM-69
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ACCESS-IN-STACK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ACCESS-IN-STACK
      #249Y(00 00 00 00 02 00 00 00 00 03 63 DA DA C5 7A B1 A2 22 80 C7 A2 21
            04 DB DC 30 03 94 05 AC 8E 0A 26 9D 20 3D 94 00 AC 24 04 22 AC 25
            06 2A AE E1 CC 7A 30 08 FA AF E3 A0 5C 78 33 02 36 14 82 02 36 03
            16 01 1B 80 8D AE 9E 1B 80 5F AF DF A0 5C 78 73 02 38 32 95 1B 65
            DB E4 30 03 16 01 1B 80 73 9D 26 0B 80 6A 14 AE 30 08 1B 04 92 03
            77 9E FB E1 C5 5D F9 C5 FA 1B 80 5A AD DF CC 7A 30 08 F9 CE 1B 25
            AD DF CC 7A 30 08 F9 CA 1B 1B 14 AE 30 08 1B 04 92 03 77 9E FB E3
            C5 5D F9 C5 FA 1B 33 AD DF CC 7A 30 08 F9 CE 14 A0 14 82 02 36 02
            1B 22 AD E1 C5 7A 30 08 F9 85 02 1B 17 14 AE 30 08 1B 04 92 03 77
            9E FB E1 C5 5D F9 C5 FA 1B 04 DB E6 30 03 16 01 83 05 1B FF 34 A1
            20 15 94 04 24 0D 0A A1 5B 20 0C A1 5B 78 25 06 06 DF AE 82 02 36
            01 AE AE 40 02 19 06)
      0. SYSTEM::ACCESS-IN-STACK "STACKZ-END" SYSTEM::COMPILER-ERROR
      SYSTEM::BIND 2. COMMON-LISP::TAGBODY 1. SYSTEM::SPD+ 3. "STACKZ-LISTITEM"
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::ANYTHING . 95.)
         (SYSTEM::MVCALL . 95.) (SYSTEM::MVCALLP . 78.)
         (COMMON-LISP::BLOCK . 61.) (SYSTEM::CLEANUP . 48.)
         (COMMON-LISP::UNWIND-PROTECT . 32.) (COMMON-LISP::CATCH . 22.)
         (COMMON-LISP::PROGV . 8.))
      "STACKZ-ITEM" COMMON-LISP::BLOCK))
#Y(#:TOP-LEVEL-FORM-70
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAY-UNWIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAY-UNWIND
      #36Y(00 00 00 00 02 00 00 00 00 03 AE 9F 22 10 9F 21 04 DA DB 30 02 94 02
           24 03 07 83 02 1B 6C 02 19 03 00 19 03)
      SYSTEM::MAY-UNWIND "STACKZ-END" SYSTEM::COMPILER-ERROR SYSTEM::ANYTHING))
#Y(#:TOP-LEVEL-FORM-71
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::EXPAND-UNWIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EXPAND-UNWIND
      #289Y(00 00 00 00 03 00 00 00 00 04 00 2B 04 00 0B 00 00 C5 0B 00 01 14
            C5 5D 0B 00 02 00 0B 00 03 AC 6D 01 01 B1 A2 22 80 F0 A2 21 04 DC
            DD 30 04 94 05 AC 8E 0A 1D 9D 20 2E 94 00 AC 24 05 1A AC 25 07 1B
            9F 34 CD 14 06 04 03 5D 0B 03 03 16 01 1B 80 BF 68 02 01 9E 1B 35
            9F 34 CB 1B 68 DC E3 30 04 16 01 1B 80 AB 9D 26 0A 80 A2 9E 34 E5
            06 03 03 5D 0B 02 03 E6 C5 5D 0B 02 02 1B 80 93 68 02 02 E7 D1 7A
            30 0E 0B 02 02 E9 06 03 01 14 33 02 36 0B 02 01 1B 80 7A 7E 04 EA
            06 03 03 5D 0B 02 03 D6 1B 2B 9E 34 93 04 6E D6 1B 23 14 68 03 02
            30 0E 1B 08 06 02 00 1C 73 06 02 02 0B 02 00 E9 C5 5D 0B 02 02 C5
            0B 02 01 1B 80 45 9E 34 D7 14 06 03 03 5D 0B 02 03 1B 38 68 02 02
            E6 C5 7A 30 0E 0B 02 02 68 02 01 32 95 0B 02 01 1B 23 14 68 03 02
            30 0E 1B 08 06 02 00 1C 73 06 02 02 0B 02 00 E6 C5 5D 0B 02 02 C5
            0B 02 01 1B 04 DC ED 30 04 16 01 83 05 1B FF 0B 9D 34 68 01 03 32
            47 19 06)
      0.
      #Y(SYSTEM::EXPAND-UNWIND-HERE
         #153Y(00 00 00 00 00 00 00 00 00 01 07 00 01 1C 80 4A 69 00 02 DC 91
               01 31 0D E2 69 00 02 7B 02 07 00 04 5D 0C 00 04 07 00 03 78 DC
               90 01 31 09 07 00 03 79 DC 91 01 31 13 E1 07 00 03 5B 14 07 00
               03 79 7B 03 07 00 04 5D 0C 00 04 00 0C 00 01 C7 0C 00 02 14 C7
               5D 0C 00 03 19 01 DB 07 00 01 78 07 00 01 79 69 00 02 7B 04 07
               00 04 5D 0C 00 04 07 00 03 78 DC 90 01 31 04 DD DE 30 05 07 00
               03 78 E0 90 01 31 0A 07 00 03 79 DC 91 01 31 FF BB E1 07 00 03
               78 32 96 1B FF A3)
         COMMON-LISP::NIL SYSTEM::SKIPI 0. SYSTEM::EXPAND-UNWIND "SP-depth"
         SYSTEM::COMPILER-ERROR 1. SYSTEM::SKIPSP SYSTEM::SKIP)
      SYSTEM::EXPAND-UNWIND "STACKZ-END" SYSTEM::COMPILER-ERROR SYSTEM::BIND
      (SYSTEM::UNBIND1) COMMON-LISP::TAGBODY (SYSTEM::TAGBODY-CLOSE)
      "STACKZ-LISTITEM"
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::MVCALL . 141.)
         (SYSTEM::MVCALLP . 112.) (COMMON-LISP::BLOCK . 99.)
         (SYSTEM::CLEANUP . 75.) (COMMON-LISP::UNWIND-PROTECT . 59.)
         (COMMON-LISP::CATCH . 21.) (COMMON-LISP::PROGV . 2.))
      (SYSTEM::UNBIND1) 1. 2. SYSTEM::SPD+ 3. (SYSTEM::VALUES0)
      (SYSTEM::UNWIND-PROTECT-CLEANUP) (SYSTEM::BLOCK-CLOSE) "STACKZ-ITEM"))
#Y(#:TOP-LEVEL-FORM-72
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SPDEPTH-DIFFERENCE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SPDEPTH-DIFFERENCE
      #80Y(00 00 00 00 02 00 00 00 00 03 DA C5 7A 1B 3A AE DF CA 7A 30 06 FA 16
           01 1B 2B 94 00 AC 24 04 6F 16 01 1B 21 A0 21 04 DB DC 30 03 94 03 9D
           21 6A 9D 26 07 11 AD DF C5 1B 08 AD E2 CA 1B 03 AD E3 C5 7A 30 06 F9
           16 01 83 03 AF A0 23 57 15 19 03)
      0. SYSTEM::SPDEPTH-DIFFERENCE "STACKZ-END" SYSTEM::COMPILER-ERROR
      COMMON-LISP::TAGBODY 1. SYSTEM::SPD+
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::CLEANUP . 11.)
         (COMMON-LISP::BLOCK . 6.) (COMMON-LISP::UNWIND-PROTECT . 6.)
         (COMMON-LISP::CATCH . 6.) (SYSTEM::ANYTHING . 1.)
         (SYSTEM::MVCALL . 1.) (SYSTEM::MVCALLP . 1.)
         (COMMON-LISP::PROGV . 1.))
      2. 3.))
#Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FENV*) SYSTEM::*FENV*)
#Y(#:TOP-LEVEL-FORM-74
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FENV-SEARCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FENV-SEARCH
      #154Y(00 00 00 00 01 00 01 00 00 08 3B 01 16 0E 00 F9 92 01 13 00 19 03
            64 94 01 6F 05 E0 A0 5C 79 A1 5C 1B 34 93 01 6D AD 8E 22 03 DB 2F
            02 AD 72 45 72 96 DD AC AE 90 01 2E 80 53 B0 B0 9F 5F 14 8F 00 80
            41 AF AD 32 95 5F 14 9D 20 24 94 00 88 04 45 64 63 E0 95 03 A1 78
            40 05 19 06 64 AD 6F 05 63 40 03 19 06 64 AD 6F 08 E3 B3 96 05 02
            1B 0F AC 88 04 68 AC 88 07 6D 64 63 E3 B3 96 05 00 14 40 06 19 06
            E4 AD 82 02 36 00 1B FF A6 AF 9E 5F FB 16 02 93 01 FF 7C 1B FF 8C)
      SYSTEM::*FENV* SYSTEM::FENV-SEARCH SYSTEM::COMPILER-ERROR 0.
      SYSTEM::MACROP SYSTEM::MACRO-EXPANDER EXT::LOCAL SYSTEM::FUNCTION-MACRO-P
      SYSTEM::FUNCTION-MACRO-EXPANDER SYSTEM::GLOBAL 2.))
#Y(#:TOP-LEVEL-FORM-75
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GLOBAL-IN-FENV-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GLOBAL-IN-FENV-P
      #17Y(00 00 00 00 02 00 00 00 00 03 AE AE 30 00 59 19 03)
      SYSTEM::FENV-SEARCH))
#Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*BENV*) SYSTEM::*BENV*)
#Y(#:TOP-LEVEL-FORM-77
   #442Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
         EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
         F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
         65 1E 31 59 65 1F 31 59 65 20 2F 05 65 20 E5 65 21 32 86 65 20 65 22
         32 80 65 20 ED DA 32 86 65 23 31 59 65 24 31 59 65 25 2F 05 65 25 E5
         65 26 32 86 65 25 65 27 32 80 65 25 ED DA 32 86 65 28 31 59 65 29 31
         59 65 2A 2F 05 65 2A E5 65 2B 32 86 65 2A 65 2C 32 80 65 2A ED DA 32
         86 EA 65 2D 32 87 EA 65 2E 65 2F 65 30 03 31 7C 02 32 86 EA 65 32 63
         2D 03 33 EA 65 2D DA 32 86 F0 65 2D 32 87 F0 65 2E 65 2F 65 30 03 34
         7C 02 32 86 F0 65 32 63 2D 03 33 F0 65 2D DA 32 86 F5 65 2D 32 87 F5
         65 2E 65 2F 65 30 03 35 7C 02 32 86 F5 65 32 63 2D 03 33 F5 65 2D DA
         32 86 65 20 65 2D 32 87 65 20 65 2E 65 2F 65 30 03 36 7C 02 32 86 65
         20 65 32 63 2D 03 33 65 20 65 2D DA 32 86 65 25 65 2D 32 87 65 25 65
         2E 65 2F 65 30 03 37 7C 02 32 86 65 25 65 32 63 2D 03 33 65 25 65 2D
         DA 32 86 65 2A 65 2D 32 87 65 2A 65 2E 65 2F 65 30 03 38 7C 02 32 86
         65 2A 65 32 63 2D 03 33 65 2A 65 2D DA 32 86 DA 65 39 63 2D 03 33 DA
         2F 3A C5 19 01)
   COMMON-LISP::BLOCK COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0. SYSTEM::MAKE-BLOCK
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-BLOCK
      #71Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3D 06 3D 05 3D 04 3D 03 3D
           02 3D 01 69 00 01 E1 72 2E E2 AD E3 B6 32 2D E2 AD E4 B5 32 2D E2 AD
           E5 B4 32 2D E2 AD E6 B3 32 2D E2 AD E7 B2 32 2D E2 AD E8 B1 32 2D 15
           19 07)
      COMMON-LISP::NIL :FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE 7.
      COMMON-LISP::BLOCK 1. 2. 3. 4. 5. 6.)
   (#(SYSTEM::FNODE (:FNODE) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::LABEL (:LABEL) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::STACKZ (:STACKZ) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CONSVAR (:CONSVAR) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::USED-FAR (:USED-FAR) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FOR-VALUE (:FOR-VALUE) 6. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::BLOCK-P)
   SYSTEM::BLOCK-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-P))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-P
     (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP::BLOCK SYSTEM::OBJECT)))
   #Y(SYSTEM::BLOCK-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      COMMON-LISP::BLOCK)
   (COMMON-LISP::FUNCTION SYSTEM::BLOCK-FNODE (COMMON-LISP::BLOCK)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::BLOCK-FNODE) SYSTEM::BLOCK-FNODE
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-FNODE))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-FNODE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::BLOCK SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::BLOCK-FNODE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::BLOCK 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::BLOCK-LABEL (COMMON-LISP::BLOCK)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::BLOCK-LABEL) SYSTEM::BLOCK-LABEL
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-LABEL))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-LABEL
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::BLOCK SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::BLOCK-LABEL
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::BLOCK 2.)
   (COMMON-LISP::FUNCTION SYSTEM::BLOCK-STACKZ (COMMON-LISP::BLOCK)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::BLOCK-STACKZ) SYSTEM::BLOCK-STACKZ
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-STACKZ))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-STACKZ
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::BLOCK SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::BLOCK-STACKZ
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::BLOCK 3.)
   (COMMON-LISP::FUNCTION SYSTEM::BLOCK-CONSVAR (COMMON-LISP::BLOCK)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::BLOCK-CONSVAR) SYSTEM::BLOCK-CONSVAR
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-CONSVAR))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-CONSVAR
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::BLOCK SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::BLOCK-CONSVAR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::BLOCK 4.)
   (COMMON-LISP::FUNCTION SYSTEM::BLOCK-USED-FAR (COMMON-LISP::BLOCK)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::BLOCK-USED-FAR) SYSTEM::BLOCK-USED-FAR
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-USED-FAR))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-USED-FAR
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::BLOCK SYSTEM::OBJECT 5.))))
   #Y(SYSTEM::BLOCK-USED-FAR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::BLOCK 5.)
   (COMMON-LISP::FUNCTION SYSTEM::BLOCK-FOR-VALUE (COMMON-LISP::BLOCK)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::BLOCK-FOR-VALUE) SYSTEM::BLOCK-FOR-VALUE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::BLOCK-FOR-VALUE))
    (COMMON-LISP::BLOCK SYSTEM::BLOCK-FOR-VALUE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::BLOCK SYSTEM::OBJECT 6.))))
   #Y(SYSTEM::BLOCK-FOR-VALUE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::BLOCK 6.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-BLOCK-FNODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::BLOCK 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-BLOCK-LABEL
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::BLOCK 2.)
   #Y(SYSTEM::SETF-BLOCK-STACKZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::BLOCK 3.)
   #Y(SYSTEM::SETF-BLOCK-CONSVAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::BLOCK 4.)
   #Y(SYSTEM::SETF-BLOCK-USED-FAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::BLOCK 5.)
   #Y(SYSTEM::SETF-BLOCK-FOR-VALUE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::BLOCK 6.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-78 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   COMMON-LISP::BLOCK SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-79
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BENV-SEARCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BENV-SEARCH
      #47Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 9E 20 0A 9E 5B 78 A0
           22 0C 83 01 1B 73 00 19 03 9E 5B 5C 19 03 9E 5B 79 88 01 75 9E 5B 19
           03)
      SYSTEM::*BENV* SYSTEM::BLOCK-P))
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*GENV*) SYSTEM::*GENV*)
#Y(#:TOP-LEVEL-FORM-81
   #376Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
         EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
         F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
         65 1E 31 59 65 1F 31 59 65 20 2F 05 65 20 E5 65 21 32 86 65 20 65 22
         32 80 65 20 ED DA 32 86 65 23 31 59 65 24 31 59 65 25 2F 05 65 25 E5
         65 26 32 86 65 25 65 27 32 80 65 25 ED DA 32 86 EA 65 28 32 87 EA 65
         29 65 2A 65 2B 03 2C 7C 02 32 86 EA 65 2D 63 2D 03 2E EA 65 28 DA 32
         86 F0 65 28 32 87 F0 65 29 65 2A 65 2B 03 2F 7C 02 32 86 F0 65 2D 63
         2D 03 2E F0 65 28 DA 32 86 F5 65 28 32 87 F5 65 29 65 2A 65 2B 03 30
         7C 02 32 86 F5 65 2D 63 2D 03 2E F5 65 28 DA 32 86 65 20 65 28 32 87
         65 20 65 29 65 2A 65 2B 03 31 7C 02 32 86 65 20 65 2D 63 2D 03 2E 65
         20 65 28 DA 32 86 65 25 65 28 32 87 65 25 65 29 65 2A 65 2B 03 32 7C
         02 32 86 65 25 65 2D 63 2D 03 2E 65 25 65 28 DA 32 86 DA 65 33 63 2D
         03 2E DA 2F 34 C5 19 01)
   COMMON-LISP::TAGBODY COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0. SYSTEM::MAKE-TAGBODY
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-TAGBODY
      #63Y(00 00 00 00 00 00 00 00 80 1B 05 00 01 00 3D 05 3D 04 3D 03 3D 02 3D
           01 69 00 01 E0 72 2E E1 AD E2 B5 32 2D E1 AD E3 B4 32 2D E1 AD E4 B3
           32 2D E1 AD E5 B2 32 2D E1 AD E6 B1 32 2D 15 19 06)
      COMMON-LISP::NIL :FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR 6.
      COMMON-LISP::TAGBODY 1. 2. 3. 4. 5.)
   (#(SYSTEM::FNODE (:FNODE) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::LABELLIST (:LABELLIST) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::STACKZ (:STACKZ) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CONSVAR (:CONSVAR) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::USED-FAR (:USED-FAR) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::TAGBODY-P)
   SYSTEM::TAGBODY-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::TAGBODY-P))
    (COMMON-LISP::BLOCK SYSTEM::TAGBODY-P
     (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP::TAGBODY SYSTEM::OBJECT)))
   #Y(SYSTEM::TAGBODY-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      COMMON-LISP::TAGBODY)
   (COMMON-LISP::FUNCTION SYSTEM::TAGBODY-FNODE (COMMON-LISP::TAGBODY)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::TAGBODY-FNODE) SYSTEM::TAGBODY-FNODE
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::TAGBODY-FNODE))
    (COMMON-LISP::BLOCK SYSTEM::TAGBODY-FNODE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::TAGBODY SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::TAGBODY-FNODE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::TAGBODY 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::TAGBODY-LABELLIST (COMMON-LISP::TAGBODY)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::TAGBODY-LABELLIST) SYSTEM::TAGBODY-LABELLIST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::TAGBODY-LABELLIST))
    (COMMON-LISP::BLOCK SYSTEM::TAGBODY-LABELLIST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::TAGBODY SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::TAGBODY-LABELLIST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::TAGBODY 2.)
   (COMMON-LISP::FUNCTION SYSTEM::TAGBODY-STACKZ (COMMON-LISP::TAGBODY)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::TAGBODY-STACKZ) SYSTEM::TAGBODY-STACKZ
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::TAGBODY-STACKZ))
    (COMMON-LISP::BLOCK SYSTEM::TAGBODY-STACKZ
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::TAGBODY SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::TAGBODY-STACKZ
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::TAGBODY 3.)
   (COMMON-LISP::FUNCTION SYSTEM::TAGBODY-CONSVAR (COMMON-LISP::TAGBODY)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::TAGBODY-CONSVAR) SYSTEM::TAGBODY-CONSVAR
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::TAGBODY-CONSVAR))
    (COMMON-LISP::BLOCK SYSTEM::TAGBODY-CONSVAR
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::TAGBODY SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::TAGBODY-CONSVAR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::TAGBODY 4.)
   (COMMON-LISP::FUNCTION SYSTEM::TAGBODY-USED-FAR (COMMON-LISP::TAGBODY)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::TAGBODY-USED-FAR) SYSTEM::TAGBODY-USED-FAR
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::TAGBODY-USED-FAR))
    (COMMON-LISP::BLOCK SYSTEM::TAGBODY-USED-FAR
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::TAGBODY SYSTEM::OBJECT 5.))))
   #Y(SYSTEM::TAGBODY-USED-FAR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::TAGBODY 5.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-TAGBODY-FNODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::TAGBODY 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-TAGBODY-LABELLIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::TAGBODY 2.)
   #Y(SYSTEM::SETF-TAGBODY-STACKZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::TAGBODY 3.)
   #Y(SYSTEM::SETF-TAGBODY-CONSVAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::TAGBODY 4.)
   #Y(SYSTEM::SETF-TAGBODY-USED-FAR
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP::TAGBODY 5.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   COMMON-LISP::TAGBODY SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-83
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GENV-SEARCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GENV-SEARCH
      #72Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 9E 20 09 9E 5B 78 AC
           72 45 DB 1B 20 00 19 03 A1 5B 5C 1B 08 A1 5B 79 88 02 75 A1 5B 14 AD
           40 02 19 06 AE 9E 5F 14 B2 8C FF 6A 85 00 AC AE 91 01 2E 70 16 03 83
           01 1B 48)
      SYSTEM::*GENV* 0. SYSTEM::TAGBODY-P))
#Y(#:TOP-LEVEL-FORM-84
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 71 5A 31 51 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::SPECDECL) SYSTEM::SPECDECL
   (COMMON-LISP::LET
    ((CUSTOM::*EVALHOOK*
      #'(COMMON-LISP::LAMBDA (SYSTEM::FORM SYSTEM::ENV)
         (COMMON-LISP::DECLARE (COMMON-LISP::IGNORE SYSTEM::FORM))
         (COMMON-LISP::SVREF (COMMON-LISP::SVREF SYSTEM::ENV 0.) 1.))))
    0.))
#Y(#:TOP-LEVEL-FORM-85
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROCLAIMED-SPECIAL-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROCLAIMED-SPECIAL-P
      #29Y(00 00 00 00 01 00 00 00 00 02 AD 32 8D 1E 0C AD 6B 00 DB 38 02 31 B2
           59 59 19 02 19 02)
      SYSTEM::*KNOWN-SPECIAL-VARS* #.#'COMMON-LISP::EQ))
#Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*VENV*) SYSTEM::*VENV*)
#Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*VENVC*) SYSTEM::*VENVC*)
#Y(#:TOP-LEVEL-FORM-88
   #803Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
         EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
         F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
         65 1E 31 59 65 1F 31 59 65 20 2F 05 65 20 E5 65 21 32 86 65 20 65 22
         32 80 65 20 ED DA 32 86 65 23 31 59 65 24 31 59 65 25 2F 05 65 25 E5
         65 26 32 86 65 25 65 27 32 80 65 25 ED DA 32 86 65 28 31 59 65 29 31
         59 65 2A 2F 05 65 2A E5 65 2B 32 86 65 2A 65 2C 32 80 65 2A ED DA 32
         86 65 2D 31 59 65 2E 31 59 65 2F 2F 05 65 2F E5 65 30 32 86 65 2F 65
         31 32 80 65 2F ED DA 32 86 65 32 31 59 65 33 31 59 65 34 2F 05 65 34
         E5 65 35 32 86 65 34 65 36 32 80 65 34 ED DA 32 86 65 37 31 59 65 38
         31 59 65 39 2F 05 65 39 E5 65 3A 32 86 65 39 65 3B 32 80 65 39 ED DA
         32 86 65 3C 31 59 65 3D 31 59 65 3E 2F 05 65 3E E5 65 3F 32 86 65 3E
         65 40 32 80 65 3E ED DA 32 86 65 41 31 59 65 42 31 59 65 43 2F 05 65
         43 E5 65 44 32 86 65 43 65 45 32 80 65 43 ED DA 32 86 65 46 31 59 65
         47 31 59 65 48 2F 05 65 48 E5 65 49 32 86 65 48 65 4A 32 80 65 48 ED
         DA 32 86 65 4B 31 59 65 4C 31 59 65 4D 2F 05 65 4D E5 65 4E 32 86 65
         4D 65 4F 32 80 65 4D ED DA 32 86 65 50 31 59 65 51 31 59 65 52 2F 05
         65 52 E5 65 53 32 86 65 52 65 54 32 80 65 52 ED DA 32 86 F5 65 55 32
         87 F5 65 56 65 57 65 58 03 59 7C 02 32 86 F5 65 5A 63 2D 03 5B F5 65
         55 DA 32 86 65 20 65 55 32 87 65 20 65 56 65 57 65 58 03 5C 7C 02 32
         86 65 20 65 5A 63 2D 03 5B 65 20 65 55 DA 32 86 65 25 65 55 32 87 65
         25 65 56 65 57 65 58 03 5D 7C 02 32 86 65 25 65 5A 63 2D 03 5B 65 25
         65 55 DA 32 86 65 2A 65 55 32 87 65 2A 65 56 65 57 65 58 03 5E 7C 02
         32 86 65 2A 65 5A 63 2D 03 5B 65 2A 65 55 DA 32 86 65 2F 65 55 32 87
         65 2F 65 56 65 57 65 58 03 5F 7C 02 32 86 65 2F 65 5A 63 2D 03 5B 65
         2F 65 55 DA 32 86 65 34 65 55 32 87 65 34 65 56 65 57 65 58 03 60 7C
         02 32 86 65 34 65 5A 63 2D 03 5B 65 34 65 55 DA 32 86 65 39 65 55 32
         87 65 39 65 56 65 57 65 58 03 61 7C 02 32 86 65 39 65 5A 63 2D 03 5B
         65 39 65 55 DA 32 86 65 3E 65 55 32 87 65 3E 65 56 65 57 65 58 03 62
         7C 02 32 86 65 3E 65 5A 63 2D 03 5B 65 3E 65 55 DA 32 86 65 43 65 55
         32 87 65 43 65 56 65 57 65 58 03 63 7C 02 32 86 65 43 65 5A 63 2D 03
         5B 65 43 65 55 DA 32 86 DA 65 64 63 2D 03 5B DA 2F 65 C5 19 01)
   SYSTEM::VAR COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   SYSTEM::MAKE-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-VAR
      #136Y(00 00 00 00 00 00 00 00 80 1B 0E 00 01 00 3D 0E 3D 0D 3D 0C 3D 0B
            3D 0A 3D 09 3D 08 3D 07 3D 06 3D 05 3D 04 3D 03 3D 02 3D 01 69 00
            01 E9 72 2E EA AD EB BE 32 2D EA AD EC BD 32 2D EA AD ED BC 32 2D
            EA AD EE BB 32 2D EA AD EF BA 32 2D EA AD F0 B9 32 2D EA AD F1 B8
            32 2D EA AD F2 B7 32 2D EA AD F3 B6 32 2D EA AD F4 B5 32 2D EA AD
            F5 B4 32 2D EA AD F6 B3 32 2D EA AD F7 B2 32 2D EA AD 65 1E B1 32
            2D 15 19 0F)
      COMMON-LISP::NIL :NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP
      :FOR-VALUE-USEDP :REALLY-USEDP :ASSIGNEDP :MODIFIED-LIST
      :REPLACEABLE-LIST :CLOSUREP :STACKZ :VENVC :FNODE 15. SYSTEM::VAR 1. 2.
      3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14.)
   (#(SYSTEM::NAME (:NAME) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::T)
    #(SYSTEM::SPECIALP (:SPECIALP) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::T)
    #(COMMON-LISP::CONSTANTP (:CONSTANTP) 3. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CONSTANT (:CONSTANT) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::USEDP (:USEDP) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FOR-VALUE-USEDP (:FOR-VALUE-USEDP) 6. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::REALLY-USEDP (:REALLY-USEDP) 7. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::ASSIGNEDP (:ASSIGNEDP) 8. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::MODIFIED-LIST (:MODIFIED-LIST) 9. (COMMON-LISP::NIL)
      'COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::REPLACEABLE-LIST (:REPLACEABLE-LIST) 10. (COMMON-LISP::NIL)
      'COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CLOSUREP (:CLOSUREP) 11. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::STACKZ (:STACKZ) 12. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::T)
    #(SYSTEM::VENVC (:VENVC) 13. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::T)
    #(SYSTEM::FNODE (:FNODE) 14. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::T))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::VAR-P)
   SYSTEM::VAR-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-P))
    (COMMON-LISP::BLOCK SYSTEM::VAR-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::VAR SYSTEM::OBJECT)))
   #Y(SYSTEM::VAR-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::VAR)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-NAME (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-NAME) SYSTEM::VAR-NAME
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-NAME))
    (COMMON-LISP::BLOCK SYSTEM::VAR-NAME
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::VAR-NAME #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::VAR 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::VAR-SPECIALP (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-SPECIALP) SYSTEM::VAR-SPECIALP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-SPECIALP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-SPECIALP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::VAR-SPECIALP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 2.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-CONSTANTP (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-CONSTANTP) SYSTEM::VAR-CONSTANTP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-CONSTANTP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-CONSTANTP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::VAR-CONSTANTP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 3.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-CONSTANT (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-CONSTANT) SYSTEM::VAR-CONSTANT
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-CONSTANT))
    (COMMON-LISP::BLOCK SYSTEM::VAR-CONSTANT
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::VAR-CONSTANT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 4.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-USEDP (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-USEDP) SYSTEM::VAR-USEDP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-USEDP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-USEDP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 5.))))
   #Y(SYSTEM::VAR-USEDP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 5.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-FOR-VALUE-USEDP (SYSTEM::VAR)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-FOR-VALUE-USEDP)
   SYSTEM::VAR-FOR-VALUE-USEDP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-FOR-VALUE-USEDP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-FOR-VALUE-USEDP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 6.))))
   #Y(SYSTEM::VAR-FOR-VALUE-USEDP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 6.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-REALLY-USEDP (SYSTEM::VAR)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-REALLY-USEDP) SYSTEM::VAR-REALLY-USEDP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-REALLY-USEDP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-REALLY-USEDP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 7.))))
   #Y(SYSTEM::VAR-REALLY-USEDP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 7.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-ASSIGNEDP (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-ASSIGNEDP) SYSTEM::VAR-ASSIGNEDP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-ASSIGNEDP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-ASSIGNEDP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 8.))))
   #Y(SYSTEM::VAR-ASSIGNEDP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 8.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-MODIFIED-LIST (SYSTEM::VAR)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-MODIFIED-LIST) SYSTEM::VAR-MODIFIED-LIST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-MODIFIED-LIST))
    (COMMON-LISP::BLOCK SYSTEM::VAR-MODIFIED-LIST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 9.))))
   #Y(SYSTEM::VAR-MODIFIED-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 9.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-REPLACEABLE-LIST (SYSTEM::VAR)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-REPLACEABLE-LIST)
   SYSTEM::VAR-REPLACEABLE-LIST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-REPLACEABLE-LIST))
    (COMMON-LISP::BLOCK SYSTEM::VAR-REPLACEABLE-LIST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 10.))))
   #Y(SYSTEM::VAR-REPLACEABLE-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 10.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-CLOSUREP (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-CLOSUREP) SYSTEM::VAR-CLOSUREP
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-CLOSUREP))
    (COMMON-LISP::BLOCK SYSTEM::VAR-CLOSUREP
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 11.))))
   #Y(SYSTEM::VAR-CLOSUREP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 11.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-STACKZ (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-STACKZ) SYSTEM::VAR-STACKZ
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-STACKZ))
    (COMMON-LISP::BLOCK SYSTEM::VAR-STACKZ
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 12.))))
   #Y(SYSTEM::VAR-STACKZ
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 12.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-VENVC (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-VENVC) SYSTEM::VAR-VENVC
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-VENVC))
    (COMMON-LISP::BLOCK SYSTEM::VAR-VENVC
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 13.))))
   #Y(SYSTEM::VAR-VENVC
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 13.)
   (COMMON-LISP::FUNCTION SYSTEM::VAR-FNODE (SYSTEM::VAR) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::VAR-FNODE) SYSTEM::VAR-FNODE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::VAR-FNODE))
    (COMMON-LISP::BLOCK SYSTEM::VAR-FNODE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::VAR SYSTEM::OBJECT 14.))))
   #Y(SYSTEM::VAR-FNODE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::VAR 14.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-VAR-CONSTANTP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 3.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-VAR-CONSTANT
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 4.)
   #Y(SYSTEM::SETF-VAR-USEDP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 5.)
   #Y(SYSTEM::SETF-VAR-FOR-VALUE-USEDP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 6.)
   #Y(SYSTEM::SETF-VAR-REALLY-USEDP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 7.)
   #Y(SYSTEM::SETF-VAR-ASSIGNEDP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 8.)
   #Y(SYSTEM::SETF-VAR-MODIFIED-LIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 9.)
   #Y(SYSTEM::SETF-VAR-REPLACEABLE-LIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 10.)
   #Y(SYSTEM::SETF-VAR-CLOSUREP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::VAR 11.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   SYSTEM::VAR SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-90
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::VENV-SEARCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::VENV-SEARCH
      #125Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AE 38 01 8C 5D 0B
            AE 88 01 07 92 01 80 51 00 19 03 C7 19 03 AD 72 45 72 96 DD 1B 33
            C7 19 06 AC 88 05 79 64 AD 40 02 19 06 C7 19 06 AF AD 32 95 5F 14
            AC 88 04 69 AC 0E 06 22 6E E1 B1 96 03 40 03 19 06 B0 B0 9F 5F 22
            63 E2 AD 82 02 36 00 AC AE 91 01 2E 6E AF 9E 5F FB 16 02 93 01 FF
            AF AD 8E 22 FF B0 E3 2F 0A 93 01 FF A3 1B 72)
      SYSTEM::*VENV* SYSTEM::PROCLAIMED-SPECIAL-P COMMON-LISP::SPECIAL 0.
      SYSTEM::VAR-P SYSTEM::VAR-SPECIALP SYSTEM::SPECDECL EXT::LOCAL 2.
      SYSTEM::VENV-SEARCH SYSTEM::COMPILER-ERROR))
#Y(#:TOP-LEVEL-FORM-91
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::VENV-SEARCH-MACRO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::VENV-SEARCH-MACRO
      #59Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AE AE 30 01 42 03 93
           02 07 AE 24 03 08 00 19 06 B1 2F 02 19 06 AD 9E 5F 14 2F 04 1F 0C 64
           AE 9F 5F 14 DF 72 29 40 02 19 06 19 06)
      SYSTEM::*VENV* SYSTEM::VENV-SEARCH EXT::SYMBOL-MACRO-EXPAND EXT::LOCAL
      SYSTEM::SYMBOL-MACRO-P 0.))
#Y(#:TOP-LEVEL-FORM-92
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PUSH-*VENV* SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PUSH-*VENV*
      #50Y(00 00 00 00 00 00 00 00 01 16 9E 1F 23 6B 00 7B 01 AE 63 1B 0D 87 01
           00 14 6F 01 AD A1 62 02 FA 83 01 AD 8D 91 6F 16 02 DC 9E 37 00 0F 00
           19 03 19 02)
      SYSTEM::*VENV* SYSTEM::VAR-NAME #.#'COMMON-LISP::VECTOR))
#Y(#:TOP-LEVEL-FORM-93
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ACCESS-IN-CLOSURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ACCESS-IN-CLOSURE
      #85Y(00 00 00 00 03 00 00 00 00 04 01 02 1B 1A AC 8E 09 12 C6 FA 1B 0E 7D
           00 1B 23 94 04 93 02 6F 9D 20 02 85 02 16 01 83 04 B0 B2 2F 00 23 6C
           92 01 65 AF A2 5B 79 30 02 42 02 6A 01 6A 01 A1 5B 78 DB 1B 04 83 01
           85 00 94 01 A5 23 77 6A 00 AE AE AE 40 03 19 07)
      SYSTEM::VAR-VENVC 0. SYSTEM::ACCESS-IN-STACK))
#Y(#:TOP-LEVEL-FORM-94
   #244Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
         EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
         F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
         EA 65 1E 32 87 EA 65 1F 65 20 65 21 03 22 7C 02 32 86 EA 65 23 63 2D
         03 24 EA 65 1E DA 32 86 F0 65 1E 32 87 F0 65 1F 65 20 65 21 03 25 7C
         02 32 86 F0 65 23 63 2D 03 24 F0 65 1E DA 32 86 F5 65 1E 32 87 F5 65
         1F 65 20 65 21 03 26 7C 02 32 86 F5 65 23 63 2D 03 24 F5 65 1E DA 32
         86 DA 65 27 63 2D 03 24 DA 2F 28 C5 19 01)
   SYSTEM::CONST COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   SYSTEM::MAKE-CONST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-CONST
      #47Y(00 00 00 00 00 00 00 00 80 1B 03 00 01 00 3D 03 3D 02 3D 01 69 00 01
           DE 72 2E DF AD E0 B3 32 2D DF AD E1 B2 32 2D DF AD E2 B1 32 2D 15 19
           04)
      COMMON-LISP::NIL :VALUE :FORM :HORIZON 4. SYSTEM::CONST 1. 2. 3.)
   (#(SYSTEM::VALUE (:VALUE) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FORM (:FORM) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::HORIZON (:HORIZON) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::CONST-P)
   SYSTEM::CONST-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CONST-P))
    (COMMON-LISP::BLOCK SYSTEM::CONST-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::CONST SYSTEM::OBJECT)))
   #Y(SYSTEM::CONST-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::CONST)
   (COMMON-LISP::FUNCTION SYSTEM::CONST-VALUE (SYSTEM::CONST) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::CONST-VALUE) SYSTEM::CONST-VALUE
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CONST-VALUE))
    (COMMON-LISP::BLOCK SYSTEM::CONST-VALUE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONST SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::CONST-VALUE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::CONST
      1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::CONST-FORM (SYSTEM::CONST) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::CONST-FORM) SYSTEM::CONST-FORM
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CONST-FORM))
    (COMMON-LISP::BLOCK SYSTEM::CONST-FORM
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONST SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::CONST-FORM
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::CONST
      2.)
   (COMMON-LISP::FUNCTION SYSTEM::CONST-HORIZON (SYSTEM::CONST) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::CONST-HORIZON) SYSTEM::CONST-HORIZON
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CONST-HORIZON))
    (COMMON-LISP::BLOCK SYSTEM::CONST-HORIZON
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONST SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::CONST-HORIZON
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::CONST
      3.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-CONST-VALUE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONST 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-CONST-FORM
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONST 2.)
   #Y(SYSTEM::SETF-CONST-HORIZON
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONST 3.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   SYSTEM::CONST SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-96
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 31 51 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*DECLARATION-TYPES*)
   SYSTEM::*DECLARATION-TYPES*
   (COMMON-LISP::SPECIAL COMMON-LISP::TYPE COMMON-LISP::FTYPE
    COMMON-LISP::FUNCTION COMMON-LISP::INLINE COMMON-LISP::NOTINLINE
    COMMON-LISP::IGNORE COMMON-LISP::OPTIMIZE COMMON-LISP::DYNAMIC-EXTENT
    COMMON-LISP::DECLARATION COMMON-LISP::ARRAY COMMON-LISP::ATOM
    COMMON-LISP::BASE-CHAR COMMON-LISP::BASE-STRING COMMON-LISP::BIGNUM
    COMMON-LISP::BIT COMMON-LISP::BIT-VECTOR COMMON-LISP::BOOLEAN
    COMMON-LISP::CHARACTER COMMON-LISP::COMPILED-FUNCTION COMMON-LISP::COMPLEX
    COMMON-LISP::CONS COMMON-LISP::DOUBLE-FLOAT COMMON-LISP::EXTENDED-CHAR
    COMMON-LISP::FIXNUM COMMON-LISP::FLOAT COMMON-LISP::FUNCTION
    COMMON-LISP::HASH-TABLE COMMON-LISP::INTEGER COMMON-LISP::KEYWORD
    COMMON-LISP::LIST COMMON-LISP::LONG-FLOAT COMMON-LISP::NIL
    COMMON-LISP::NULL COMMON-LISP::NUMBER COMMON-LISP::PACKAGE
    COMMON-LISP::PATHNAME COMMON-LISP::RANDOM-STATE COMMON-LISP::RATIO
    COMMON-LISP::RATIONAL COMMON-LISP::READTABLE COMMON-LISP::REAL
    COMMON-LISP::SEQUENCE COMMON-LISP::SHORT-FLOAT COMMON-LISP::SIMPLE-ARRAY
    COMMON-LISP::SIMPLE-BASE-STRING COMMON-LISP::SIMPLE-BIT-VECTOR
    COMMON-LISP::SIMPLE-STRING COMMON-LISP::SIMPLE-VECTOR
    COMMON-LISP::SINGLE-FLOAT COMMON-LISP::STANDARD-CHAR COMMON-LISP::STREAM
    COMMON-LISP::STRING EXT::STRING-CHAR COMMON-LISP::SYMBOL COMMON-LISP::T
    COMMON-LISP::VECTOR COMMON-LISP::COMPILE SYSTEM::SOURCE SYSTEM::IN-DEFUN
    COMMON-LISP::IGNORABLE SYSTEM::READ-ONLY))
#Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*DENV*) SYSTEM::*DENV*)
#Y(#:TOP-LEVEL-FORM-98
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROCESS-DECLARATIONS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROCESS-DECLARATIONS
      #298Y(00 00 00 00 01 00 00 00 00 02 01 04 B1 81 47 05 14 63 1B 81 06 DA
            6F 01 AD 30 02 1B 80 FB 95 01 63 1B 14 AC 84 08 1B 0D 87 01 00 14
            8E 04 74 E4 6F 01 AD 30 02 83 01 AD 8D 91 6D 16 03 1B 80 D9 95 01
            63 1B 14 AC 84 07 1B 0D 87 01 00 14 8E 04 74 E6 6F 01 AD 30 02 83
            01 AD 8D 91 6D 16 03 1B 80 B7 95 01 63 1B 14 AC 84 06 1B 0D 87 01
            00 14 8E 04 74 E8 6F 01 AD 30 02 83 01 AD 8D 91 6D 16 03 1B 80 95
            95 01 63 1B 14 AC 84 05 1B 0D 87 01 00 14 8E 04 74 EA 6F 01 AD 30
            02 83 01 AD 8D 91 6D 16 03 1B 80 73 16 01 AC 24 09 FF 71 AC 24 0B
            FF 8E AC 24 0D FF AB AC 24 0F 49 AD 0E 05 5D 0F 05 16 01 1B 80 53
            87 01 00 20 FF 49 AC 38 01 31 9B 5C 1C FF 40 94 00 AC 8F 04 34 AC
            6B 03 DE 38 02 8C B2 44 6B 05 93 00 16 9D 5B 78 25 06 0B AD 9E 5B
            79 DE 38 02 8C B2 FF AC 83 00 92 00 6A 16 01 0E 07 1D 0A AC 6B 08
            DE 38 02 8C B2 FF 99 EB 6F 01 AD AF 2D 03 02 16 01 83 01 AD 8D 91
            FF A6 16 02 AF AF AF AF 40 04 19 06)
      "Bad declaration syntax: ~S~%Will be ignored." SYSTEM::TEXT
      SYSTEM::C-WARN SYSTEM::*DECLARATION-TYPES* #.#'COMMON-LISP::EQ
      SYSTEM::*DENV* COMMON-LISP::DECLARATION SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::*USER-DECLARATION-TYPES* COMMON-LISP::SPECIAL
      "Non-symbol ~S may not be declared SPECIAL." COMMON-LISP::IGNORE
      "Non-symbol ~S may not be declared IGNORE." COMMON-LISP::IGNORABLE
      "Non-symbol ~S may not be declared IGNORABLE." SYSTEM::READ-ONLY
      "Non-symbol ~S may not be declared READ-ONLY."
      "Unknown declaration ~S.~%The whole declaration will be ignored."))
#Y(#:TOP-LEVEL-FORM-99
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DECLARED-NOTINLINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DECLARED-NOTINLINE
      #114Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 DB AF 7B 02 6B 00
            DC 38 02 8D B2 12 1B 20 94 01 94 00 24 09 34 94 00 24 08 3B 16 01
            83 01 9E 21 6D 0E 03 1D 18 AE 6B 04 DC 38 02 8D B2 06 02 19 03 00
            19 03 AE 6B 05 DC 38 02 8C B2 74 AE 6F 06 E1 38 01 72 82 CD 5A 19
            03 AF 95 01 DC 38 02 8D B2 43 00 19 04 AF 95 01 DC 38 02 8D B2 FF
            BB 02 19 04)
      SYSTEM::*DENV* SYSTEM::INLINING #.#'COMMON-LISP::EQUAL
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*NOTINLINE-FUNCTIONS*
      SYSTEM::*INLINE-FUNCTIONS* SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::INLINABLE
      COMMON-LISP::NOTINLINE COMMON-LISP::INLINE))
#Y(#:TOP-LEVEL-FORM-100
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DECLARED-CONSTANT-NOTINLINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DECLARED-CONSTANT-NOTINLINE
      #95Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 9E 20 28 94 01 94 00
           25 06 08 AF 95 01 38 03 8C B2 37 94 00 25 05 08 AF 95 01 38 03 8C B2
           2D 16 01 83 01 1B 5B 02 19 03 00 19 03 0E 01 1D 10 AE 6B 02 38 03 8C
           B2 6E AE 6B 03 38 03 8C B2 69 AE DE 38 01 72 82 CA 5A 19 03 00 19 04
           02 19 04)
      SYSTEM::*DENV* SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::*NOTINLINE-CONSTANTS* SYSTEM::*INLINE-CONSTANTS*
      SYSTEM::CONSTANT-INLINABLE EXT::CONSTANT-NOTINLINE EXT::CONSTANT-INLINE))
#Y(#:TOP-LEVEL-FORM-101
   #1925Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
          0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
          00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
          E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
          EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
          F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
          65 1E 31 59 65 1F 31 59 65 20 2F 05 65 20 E5 65 21 32 86 65 20 65 22
          32 80 65 20 ED DA 32 86 65 23 31 59 65 24 31 59 65 25 2F 05 65 25 E5
          65 26 32 86 65 25 65 27 32 80 65 25 ED DA 32 86 65 28 31 59 65 29 31
          59 65 2A 2F 05 65 2A E5 65 2B 32 86 65 2A 65 2C 32 80 65 2A ED DA 32
          86 65 2D 31 59 65 2E 31 59 65 2F 2F 05 65 2F E5 65 30 32 86 65 2F 65
          31 32 80 65 2F ED DA 32 86 65 32 31 59 65 33 31 59 65 34 2F 05 65 34
          E5 65 35 32 86 65 34 65 36 32 80 65 34 ED DA 32 86 65 37 31 59 65 38
          31 59 65 39 2F 05 65 39 E5 65 3A 32 86 65 39 65 3B 32 80 65 39 ED DA
          32 86 65 3C 31 59 65 3D 31 59 65 3E 2F 05 65 3E E5 65 3F 32 86 65 3E
          65 40 32 80 65 3E ED DA 32 86 65 41 31 59 65 42 31 59 65 43 2F 05 65
          43 E5 65 44 32 86 65 43 65 45 32 80 65 43 ED DA 32 86 65 46 31 59 65
          47 31 59 65 48 2F 05 65 48 E5 65 49 32 86 65 48 65 4A 32 80 65 48 ED
          DA 32 86 65 4B 31 59 65 4C 31 59 65 4D 2F 05 65 4D E5 65 4E 32 86 65
          4D 65 4F 32 80 65 4D ED DA 32 86 65 50 31 59 65 51 31 59 65 52 2F 05
          65 52 E5 65 53 32 86 65 52 65 54 32 80 65 52 ED DA 32 86 65 55 31 59
          65 56 31 59 65 57 2F 05 65 57 E5 65 58 32 86 65 57 65 59 32 80 65 57
          ED DA 32 86 65 5A 31 59 65 5B 31 59 65 5C 2F 05 65 5C E5 65 5D 32 86
          65 5C 65 5E 32 80 65 5C ED DA 32 86 65 5F 31 59 65 60 31 59 65 61 2F
          05 65 61 E5 65 62 32 86 65 61 65 63 32 80 65 61 ED DA 32 86 65 64 31
          59 65 65 31 59 65 66 2F 05 65 66 E5 65 67 32 86 65 66 65 68 32 80 65
          66 ED DA 32 86 65 69 31 59 65 6A 31 59 65 6B 2F 05 65 6B E5 65 6C 32
          86 65 6B 65 6D 32 80 65 6B ED DA 32 86 65 6E 31 59 65 6F 31 59 65 70
          2F 05 65 70 E5 65 71 32 86 65 70 65 72 32 80 65 70 ED DA 32 86 65 73
          31 59 65 74 31 59 65 75 2F 05 65 75 E5 65 76 32 86 65 75 65 77 32 80
          65 75 ED DA 32 86 65 78 31 59 65 79 31 59 65 7A 2F 05 65 7A E5 65 7B
          32 86 65 7A 65 7C 32 80 65 7A ED DA 32 86 65 7D 31 59 65 7E 31 59 65
          7F 2F 05 65 7F E5 65 80 80 32 86 65 7F 65 80 81 32 80 65 7F ED DA 32
          86 65 80 82 31 59 65 80 83 31 59 65 80 84 2F 05 65 80 84 E5 65 80 85
          32 86 65 80 84 65 80 86 32 80 65 80 84 ED DA 32 86 65 80 87 31 59 65
          80 88 31 59 65 80 89 2F 05 65 80 89 E5 65 80 8A 32 86 65 80 89 65 80
          8B 32 80 65 80 89 ED DA 32 86 EA 65 80 8C 32 87 EA 65 80 8D 65 80 8E
          65 80 8F 03 80 90 7C 02 32 86 EA 65 80 91 63 2D 03 80 92 EA 65 80 8C
          DA 32 86 F0 65 80 8C 32 87 F0 65 80 8D 65 80 8E 65 80 8F 03 80 93 7C
          02 32 86 F0 65 80 91 63 2D 03 80 92 F0 65 80 8C DA 32 86 F5 65 80 8C
          32 87 F5 65 80 8D 65 80 8E 65 80 8F 03 80 94 7C 02 32 86 F5 65 80 91
          63 2D 03 80 92 F5 65 80 8C DA 32 86 65 20 65 80 8C 32 87 65 20 65 80
          8D 65 80 8E 65 80 8F 03 80 95 7C 02 32 86 65 20 65 80 91 63 2D 03 80
          92 65 20 65 80 8C DA 32 86 65 25 65 80 8C 32 87 65 25 65 80 8D 65 80
          8E 65 80 8F 03 80 96 7C 02 32 86 65 25 65 80 91 63 2D 03 80 92 65 25
          65 80 8C DA 32 86 65 2A 65 80 8C 32 87 65 2A 65 80 8D 65 80 8E 65 80
          8F 03 80 97 7C 02 32 86 65 2A 65 80 91 63 2D 03 80 92 65 2A 65 80 8C
          DA 32 86 65 2F 65 80 8C 32 87 65 2F 65 80 8D 65 80 8E 65 80 8F 03 80
          98 7C 02 32 86 65 2F 65 80 91 63 2D 03 80 92 65 2F 65 80 8C DA 32 86
          65 34 65 80 8C 32 87 65 34 65 80 8D 65 80 8E 65 80 8F 03 80 99 7C 02
          32 86 65 34 65 80 91 63 2D 03 80 92 65 34 65 80 8C DA 32 86 65 39 65
          80 8C 32 87 65 39 65 80 8D 65 80 8E 65 80 8F 03 80 9A 7C 02 32 86 65
          39 65 80 91 63 2D 03 80 92 65 39 65 80 8C DA 32 86 65 3E 65 80 8C 32
          87 65 3E 65 80 8D 65 80 8E 65 80 8F 03 80 9B 7C 02 32 86 65 3E 65 80
          91 63 2D 03 80 92 65 3E 65 80 8C DA 32 86 65 43 65 80 8C 32 87 65 43
          65 80 8D 65 80 8E 65 80 8F 03 80 9C 7C 02 32 86 65 43 65 80 91 63 2D
          03 80 92 65 43 65 80 8C DA 32 86 65 48 65 80 8C 32 87 65 48 65 80 8D
          65 80 8E 65 80 8F 03 80 9D 7C 02 32 86 65 48 65 80 91 63 2D 03 80 92
          65 48 65 80 8C DA 32 86 65 4D 65 80 8C 32 87 65 4D 65 80 8D 65 80 8E
          65 80 8F 03 80 9E 7C 02 32 86 65 4D 65 80 91 63 2D 03 80 92 65 4D 65
          80 8C DA 32 86 65 52 65 80 8C 32 87 65 52 65 80 8D 65 80 8E 65 80 8F
          03 80 9F 7C 02 32 86 65 52 65 80 91 63 2D 03 80 92 65 52 65 80 8C DA
          32 86 65 57 65 80 8C 32 87 65 57 65 80 8D 65 80 8E 65 80 8F 03 80 A0
          7C 02 32 86 65 57 65 80 91 63 2D 03 80 92 65 57 65 80 8C DA 32 86 65
          5C 65 80 8C 32 87 65 5C 65 80 8D 65 80 8E 65 80 8F 03 80 A1 7C 02 32
          86 65 5C 65 80 91 63 2D 03 80 92 65 5C 65 80 8C DA 32 86 65 61 65 80
          8C 32 87 65 61 65 80 8D 65 80 8E 65 80 8F 03 80 A2 7C 02 32 86 65 61
          65 80 91 63 2D 03 80 92 65 61 65 80 8C DA 32 86 65 66 65 80 8C 32 87
          65 66 65 80 8D 65 80 8E 65 80 8F 03 80 A3 7C 02 32 86 65 66 65 80 91
          63 2D 03 80 92 65 66 65 80 8C DA 32 86 65 6B 65 80 8C 32 87 65 6B 65
          80 8D 65 80 8E 65 80 8F 03 80 A4 7C 02 32 86 65 6B 65 80 91 63 2D 03
          80 92 65 6B 65 80 8C DA 32 86 65 70 65 80 8C 32 87 65 70 65 80 8D 65
          80 8E 65 80 8F 03 80 A5 7C 02 32 86 65 70 65 80 91 63 2D 03 80 92 65
          70 65 80 8C DA 32 86 65 75 65 80 8C 32 87 65 75 65 80 8D 65 80 8E 65
          80 8F 03 80 A6 7C 02 32 86 65 75 65 80 91 63 2D 03 80 92 65 75 65 80
          8C DA 32 86 65 7A 65 80 8C 32 87 65 7A 65 80 8D 65 80 8E 65 80 8F 03
          80 A7 7C 02 32 86 65 7A 65 80 91 63 2D 03 80 92 65 7A 65 80 8C DA 32
          86 65 7F 65 80 8C 32 87 65 7F 65 80 8D 65 80 8E 65 80 8F 03 80 A8 7C
          02 32 86 65 7F 65 80 91 63 2D 03 80 92 65 7F 65 80 8C DA 32 86 65 80
          84 65 80 8C 32 87 65 80 84 65 80 8D 65 80 8E 65 80 8F 03 80 A9 7C 02
          32 86 65 80 84 65 80 91 63 2D 03 80 92 65 80 84 65 80 8C DA 32 86 65
          80 89 65 80 8C 32 87 65 80 89 65 80 8D 65 80 8E 65 80 8F 03 80 AA 7C
          02 32 86 65 80 89 65 80 91 63 2D 03 80 92 65 80 89 65 80 8C DA 32 86
          DA 65 80 AB 63 2D 03 80 92 DA 2F 80 AC C5 19 01)
   SYSTEM::FNODE COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   SYSTEM::MAKE-FNODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-FNODE
      #262Y(00 00 00 00 00 00 00 00 80 1B 19 00 01 00 3D 19 3D 18 3D 17 3D 16
            3D 15 3D 14 3D 13 3D 12 3D 11 3D 10 3D 0F 3B 0E 04 03 1A 09 0E 3B
            0D 04 03 1A 09 0D 3D 0C 3D 0B 3D 0A 3D 09 3D 08 3D 07 3D 06 3D 05
            3D 04 3D 03 3D 02 3D 01 69 00 01 F5 72 2E F6 AD F7 66 1D 32 2D F6
            AD 65 1E 66 1C 32 2D F6 AD 65 1F 66 1B 32 2D F6 AD 65 20 66 1A 32
            2D F6 AD 65 21 66 19 32 2D F6 AD 65 22 C4 32 2D F6 AD 65 23 C3 32
            2D F6 AD 65 24 C2 32 2D F6 AD 65 25 C1 32 2D F6 AD 65 26 C0 32 2D
            F6 AD 65 27 BF 32 2D F6 AD 65 28 BE 32 2D F6 AD 65 29 BD 32 2D F6
            AD 65 2A BC 32 2D F6 AD 65 2B BB 32 2D F6 AD 65 2C BA 32 2D F6 AD
            65 2D B9 32 2D F6 AD 65 2E B8 32 2D F6 AD 65 2F B7 32 2D F6 AD 65
            30 B6 32 2D F6 AD 65 31 B5 32 2D F6 AD 65 32 B4 32 2D F6 AD 65 33
            B3 32 2D F6 AD 65 34 B2 32 2D F6 AD 65 35 B1 32 2D 15 19 1A)
      COMMON-LISP::NIL :NAME :CODE :ENCLOSING :VENVCONST :VENVC :BLOCKS-OFFSET
      :BLOCKS :TAGBODYS-OFFSET :TAGS :TAGBODYS :KEYWORD-OFFSET :REQ-ANZ
      :OPT-ANZ :REST-FLAG :KEYWORD-FLAG :KEYWORDS :ALLOW-OTHER-KEYS-FLAG
      :CONSTS-OFFSET :CONSTS :CONSTS-FORMS :GF-P :FAR-USED-VARS
      :FAR-ASSIGNED-VARS :FAR-USED-BLOCKS :FAR-USED-TAGBODYS 0. 26.
      SYSTEM::FNODE 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17.
      18. 19. 20. 21. 22. 23. 24. 25.)
   (#(SYSTEM::NAME (:NAME) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CODE (:CODE) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::ENCLOSING (:ENCLOSING) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::VENVCONST (:VENVCONST) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::VENVC (:VENVC) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::BLOCKS-OFFSET (:BLOCKS-OFFSET) 6. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::BLOCKS (:BLOCKS) 7. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::TAGBODYS-OFFSET (:TAGBODYS-OFFSET) 8. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::TAGS (:TAGS) 9. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::TAGBODYS (:TAGBODYS) 10. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::KEYWORD-OFFSET (:KEYWORD-OFFSET) 11. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::REQ-ANZ (:REQ-ANZ) 12. (COMMON-LISP::NIL . 0.) 0. COMMON-LISP::T
      COMMON-LISP::NIL)
    #(SYSTEM::OPT-ANZ (:OPT-ANZ) 13. (COMMON-LISP::NIL . 0.) 0. COMMON-LISP::T
      COMMON-LISP::NIL)
    #(SYSTEM::REST-FLAG (:REST-FLAG) 14. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::KEYWORD-FLAG (:KEYWORD-FLAG) 15. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::KEYWORDS (:KEYWORDS) 16. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::ALLOW-OTHER-KEYS-FLAG (:ALLOW-OTHER-KEYS-FLAG) 17.
      (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CONSTS-OFFSET (:CONSTS-OFFSET) 18. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CONSTS (:CONSTS) 19. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CONSTS-FORMS (:CONSTS-FORMS) 20. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::GF-P (:GF-P) 21. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FAR-USED-VARS (:FAR-USED-VARS) 22. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FAR-ASSIGNED-VARS (:FAR-ASSIGNED-VARS) 23. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FAR-USED-BLOCKS (:FAR-USED-BLOCKS) 24. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::FAR-USED-TAGBODYS (:FAR-USED-TAGBODYS) 25. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::FNODE-P)
   SYSTEM::FNODE-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-P))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::FNODE SYSTEM::OBJECT)))
   #Y(SYSTEM::FNODE-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::FNODE)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-NAME (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-NAME) SYSTEM::FNODE-NAME
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-NAME))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-NAME
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::FNODE-NAME
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-CODE (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-CODE) SYSTEM::FNODE-CODE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-CODE))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-CODE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::FNODE-CODE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      2.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-ENCLOSING (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-ENCLOSING) SYSTEM::FNODE-ENCLOSING
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-ENCLOSING))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-ENCLOSING
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::FNODE-ENCLOSING
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      3.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-VENVCONST (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-VENVCONST) SYSTEM::FNODE-VENVCONST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-VENVCONST))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-VENVCONST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::FNODE-VENVCONST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      4.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-VENVC (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-VENVC) SYSTEM::FNODE-VENVC
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-VENVC))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-VENVC
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 5.))))
   #Y(SYSTEM::FNODE-VENVC
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      5.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-BLOCKS-OFFSET (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-BLOCKS-OFFSET)
   SYSTEM::FNODE-BLOCKS-OFFSET
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-BLOCKS-OFFSET))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-BLOCKS-OFFSET
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 6.))))
   #Y(SYSTEM::FNODE-BLOCKS-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      6.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-BLOCKS (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-BLOCKS) SYSTEM::FNODE-BLOCKS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-BLOCKS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-BLOCKS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 7.))))
   #Y(SYSTEM::FNODE-BLOCKS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      7.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-TAGBODYS-OFFSET (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-TAGBODYS-OFFSET)
   SYSTEM::FNODE-TAGBODYS-OFFSET
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-TAGBODYS-OFFSET))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-TAGBODYS-OFFSET
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 8.))))
   #Y(SYSTEM::FNODE-TAGBODYS-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      8.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-TAGS (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-TAGS) SYSTEM::FNODE-TAGS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-TAGS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-TAGS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 9.))))
   #Y(SYSTEM::FNODE-TAGS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      9.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-TAGBODYS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-TAGBODYS) SYSTEM::FNODE-TAGBODYS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-TAGBODYS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-TAGBODYS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 10.))))
   #Y(SYSTEM::FNODE-TAGBODYS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      10.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-KEYWORD-OFFSET (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-KEYWORD-OFFSET)
   SYSTEM::FNODE-KEYWORD-OFFSET
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-KEYWORD-OFFSET))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-KEYWORD-OFFSET
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 11.))))
   #Y(SYSTEM::FNODE-KEYWORD-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      11.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-REQ-ANZ (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-REQ-ANZ) SYSTEM::FNODE-REQ-ANZ
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-REQ-ANZ))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-REQ-ANZ
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 12.))))
   #Y(SYSTEM::FNODE-REQ-ANZ
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      12.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-OPT-ANZ (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-OPT-ANZ) SYSTEM::FNODE-OPT-ANZ
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-OPT-ANZ))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-OPT-ANZ
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 13.))))
   #Y(SYSTEM::FNODE-OPT-ANZ
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      13.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-REST-FLAG (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-REST-FLAG) SYSTEM::FNODE-REST-FLAG
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-REST-FLAG))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-REST-FLAG
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 14.))))
   #Y(SYSTEM::FNODE-REST-FLAG
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      14.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-KEYWORD-FLAG (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-KEYWORD-FLAG) SYSTEM::FNODE-KEYWORD-FLAG
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-KEYWORD-FLAG))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-KEYWORD-FLAG
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 15.))))
   #Y(SYSTEM::FNODE-KEYWORD-FLAG
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      15.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-KEYWORDS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-KEYWORDS) SYSTEM::FNODE-KEYWORDS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-KEYWORDS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-KEYWORDS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 16.))))
   #Y(SYSTEM::FNODE-KEYWORDS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      16.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG)
   SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG
   (#1#
    (COMMON-LISP::DECLARE
     (SYSTEM::IN-DEFUN SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 17.))))
   #Y(SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      17.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-CONSTS-OFFSET (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-CONSTS-OFFSET)
   SYSTEM::FNODE-CONSTS-OFFSET
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-CONSTS-OFFSET))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-CONSTS-OFFSET
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 18.))))
   #Y(SYSTEM::FNODE-CONSTS-OFFSET
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      18.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-CONSTS (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-CONSTS) SYSTEM::FNODE-CONSTS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-CONSTS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-CONSTS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 19.))))
   #Y(SYSTEM::FNODE-CONSTS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      19.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-CONSTS-FORMS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-CONSTS-FORMS) SYSTEM::FNODE-CONSTS-FORMS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-CONSTS-FORMS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-CONSTS-FORMS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 20.))))
   #Y(SYSTEM::FNODE-CONSTS-FORMS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      20.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-GF-P (SYSTEM::FNODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-GF-P) SYSTEM::FNODE-GF-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-GF-P))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-GF-P
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 21.))))
   #Y(SYSTEM::FNODE-GF-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      21.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-FAR-USED-VARS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-FAR-USED-VARS)
   SYSTEM::FNODE-FAR-USED-VARS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-FAR-USED-VARS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-FAR-USED-VARS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 22.))))
   #Y(SYSTEM::FNODE-FAR-USED-VARS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      22.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-FAR-ASSIGNED-VARS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-FAR-ASSIGNED-VARS)
   SYSTEM::FNODE-FAR-ASSIGNED-VARS
   (#1#
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-FAR-ASSIGNED-VARS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-FAR-ASSIGNED-VARS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 23.))))
   #Y(SYSTEM::FNODE-FAR-ASSIGNED-VARS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      23.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-FAR-USED-BLOCKS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-FAR-USED-BLOCKS)
   SYSTEM::FNODE-FAR-USED-BLOCKS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-FAR-USED-BLOCKS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-FAR-USED-BLOCKS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 24.))))
   #Y(SYSTEM::FNODE-FAR-USED-BLOCKS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      24.)
   (COMMON-LISP::FUNCTION SYSTEM::FNODE-FAR-USED-TAGBODYS (SYSTEM::FNODE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::FNODE-FAR-USED-TAGBODYS)
   SYSTEM::FNODE-FAR-USED-TAGBODYS
   (#1#
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::FNODE-FAR-USED-TAGBODYS))
    (COMMON-LISP::BLOCK SYSTEM::FNODE-FAR-USED-TAGBODYS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::FNODE SYSTEM::OBJECT 25.))))
   #Y(SYSTEM::FNODE-FAR-USED-TAGBODYS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::FNODE
      25.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-FNODE-NAME
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-FNODE-CODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 2.)
   #Y(SYSTEM::SETF-FNODE-ENCLOSING
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 3.)
   #Y(SYSTEM::SETF-FNODE-VENVCONST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 4.)
   #Y(SYSTEM::SETF-FNODE-VENVC
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 5.)
   #Y(SYSTEM::SETF-FNODE-BLOCKS-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 6.)
   #Y(SYSTEM::SETF-FNODE-BLOCKS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 7.)
   #Y(SYSTEM::SETF-FNODE-TAGBODYS-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 8.)
   #Y(SYSTEM::SETF-FNODE-TAGS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 9.)
   #Y(SYSTEM::SETF-FNODE-TAGBODYS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 10.)
   #Y(SYSTEM::SETF-FNODE-KEYWORD-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 11.)
   #Y(SYSTEM::SETF-FNODE-REQ-ANZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 12.)
   #Y(SYSTEM::SETF-FNODE-OPT-ANZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 13.)
   #Y(SYSTEM::SETF-FNODE-REST-FLAG
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 14.)
   #Y(SYSTEM::SETF-FNODE-KEYWORD-FLAG
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 15.)
   #Y(SYSTEM::SETF-FNODE-KEYWORDS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 16.)
   #Y(SYSTEM::SETF-FNODE-ALLOW-OTHER-KEYS-FLAG
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 17.)
   #Y(SYSTEM::SETF-FNODE-CONSTS-OFFSET
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 18.)
   #Y(SYSTEM::SETF-FNODE-CONSTS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 19.)
   #Y(SYSTEM::SETF-FNODE-CONSTS-FORMS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 20.)
   #Y(SYSTEM::SETF-FNODE-GF-P
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 21.)
   #Y(SYSTEM::SETF-FNODE-FAR-USED-VARS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 22.)
   #Y(SYSTEM::SETF-FNODE-FAR-ASSIGNED-VARS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 23.)
   #Y(SYSTEM::SETF-FNODE-FAR-USED-BLOCKS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 24.)
   #Y(SYSTEM::SETF-FNODE-FAR-USED-TAGBODYS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::FNODE 25.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   SYSTEM::FNODE SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FUNC*) SYSTEM::*FUNC*)
#Y(#:TOP-LEVEL-FORM-104 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FUNC-START-LABEL*)
   SYSTEM::*FUNC-START-LABEL*)
#Y(#:TOP-LEVEL-FORM-105 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*ANONYMOUS-COUNT*) SYSTEM::*ANONYMOUS-COUNT*)
#Y(#:TOP-LEVEL-FORM-106 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*NO-CODE*) SYSTEM::*NO-CODE*)
#Y(#:TOP-LEVEL-FORM-107
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NOTE-FAR-USED-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NOTE-FAR-USED-VAR
      #49Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 0E 01 22 12 6B 01 AC 6F 05 E0
           AE E1 B2 B0 38 03 71 B6 32 2D 19 04 DC AE DD 64 32 2D DC AE DE 64 32
           2D 19 02)
      SYSTEM::VAR-FNODE SYSTEM::*FUNC* SYSTEM::VAR 11. 7.
      SYSTEM::FNODE-FAR-USED-VARS SYSTEM::FNODE 22.))
#Y(#:TOP-LEVEL-FORM-108
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NOTE-FAR-ASSIGNED-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NOTE-FAR-ASSIGNED-VAR
      #43Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 0E 01 22 12 6B 01 AC 6F 04 DF
           AE E0 B2 B0 38 03 71 B6 32 2D 19 04 DC AE DD 64 32 2D 19 02)
      SYSTEM::VAR-FNODE SYSTEM::*FUNC* SYSTEM::VAR 11.
      SYSTEM::FNODE-FAR-ASSIGNED-VARS SYSTEM::FNODE 23.))
#Y(#:TOP-LEVEL-FORM-109
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NOTE-FAR-USED-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NOTE-FAR-USED-BLOCK
      #50Y(00 00 00 00 01 00 00 00 00 02 6B 00 1B 14 AC 6F 02 DD AE DE B2 B0 38
           03 71 B6 32 2D 16 01 AC 2F 05 F8 AC AF 2F 01 23 66 16 01 E0 AE E1 64
           32 2D 19 02)
      SYSTEM::*FUNC* SYSTEM::BLOCK-FNODE SYSTEM::FNODE-BLOCKS SYSTEM::FNODE 7.
      SYSTEM::FNODE-ENCLOSING COMMON-LISP::BLOCK 5.))
#Y(#:TOP-LEVEL-FORM-110
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NOTE-FAR-USED-TAGBODY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NOTE-FAR-USED-TAGBODY
      #65Y(00 00 00 00 01 00 00 00 00 02 94 01 AC 6F 00 0E 01 22 21 6B 01 AC 6F
           05 E0 AE E1 B3 A1 7A 32 2D 16 02 6B 01 AC 6F 08 E0 AE E3 B1 B0 38 03
           71 B6 32 2D 19 05 AC 6F 02 DD AE DE B2 A1 7A 32 2D 19 04)
      SYSTEM::TAGBODY-FNODE SYSTEM::*FUNC* SYSTEM::TAGBODY-USED-FAR
      COMMON-LISP::TAGBODY 5. SYSTEM::FNODE-TAGS SYSTEM::FNODE 9.
      SYSTEM::FNODE-TAGBODYS 10.))
#Y(#:TOP-LEVEL-FORM-111
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROPAGATE-FAR-USED SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROPAGATE-FAR-USED
      #68Y(00 00 00 00 01 00 00 00 00 02 99 00 AE 6F 01 33 00 19 99 02 AE 6F 03
           33 00 19 99 04 AE 6F 05 33 00 19 99 06 AE 6F 07 33 00 19 E2 AE E3 63
           32 2D E2 AE E4 63 32 2D E2 AE E5 63 32 2D E2 AE E6 63 32 2D 19 02)
      SYSTEM::NOTE-FAR-USED-VAR SYSTEM::FNODE-FAR-USED-VARS
      SYSTEM::NOTE-FAR-ASSIGNED-VAR SYSTEM::FNODE-FAR-ASSIGNED-VARS
      SYSTEM::NOTE-FAR-USED-BLOCK SYSTEM::FNODE-FAR-USED-BLOCKS
      SYSTEM::NOTE-FAR-USED-TAGBODY SYSTEM::FNODE-FAR-USED-TAGBODYS
      SYSTEM::FNODE 22. 23. 24. 25.))
#Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORM*) SYSTEM::*FORM*)
#Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FOR-VALUE*) SYSTEM::*FOR-VALUE*)
#Y(#:TOP-LEVEL-FORM-114
   #244Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 63 E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
         EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
         F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
         EA 65 1E 32 87 EA 65 1F 65 20 65 21 03 22 7C 02 32 86 EA 65 23 63 2D
         03 24 EA 65 1E DA 32 86 F0 65 1E 32 87 F0 65 1F 65 20 65 21 03 25 7C
         02 32 86 F0 65 23 63 2D 03 24 F0 65 1E DA 32 86 F5 65 1E 32 87 F5 65
         1F 65 20 65 21 03 26 7C 02 32 86 F5 65 23 63 2D 03 24 F5 65 1E DA 32
         86 DA 65 27 63 2D 03 24 DA 2F 28 C5 19 01)
   SYSTEM::ANODE COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   SYSTEM::MK-ANODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MK-ANODE
      #37Y(00 00 00 00 03 00 00 00 00 04 69 00 01 DB 72 2E DC AD DD B3 32 2D DC
           AD DE B2 32 2D DC AD DF B1 32 2D 15 19 04)
      COMMON-LISP::NIL 4. SYSTEM::ANODE 1. 2. 3.)
   (#(COMMON-LISP::TYPE (:TYPE) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::SECLASS (:SECLASS) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CODE (:CODE) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::ANODE-P)
   SYSTEM::ANODE-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::ANODE-P))
    (COMMON-LISP::BLOCK SYSTEM::ANODE-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::ANODE SYSTEM::OBJECT)))
   #Y(SYSTEM::ANODE-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::ANODE)
   (COMMON-LISP::FUNCTION SYSTEM::ANODE-TYPE (SYSTEM::ANODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::ANODE-TYPE) SYSTEM::ANODE-TYPE
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::ANODE-TYPE))
    (COMMON-LISP::BLOCK SYSTEM::ANODE-TYPE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::ANODE SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::ANODE-TYPE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::ANODE
      1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::ANODE-SECLASS (SYSTEM::ANODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::ANODE-SECLASS) SYSTEM::ANODE-SECLASS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::ANODE-SECLASS))
    (COMMON-LISP::BLOCK SYSTEM::ANODE-SECLASS
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::ANODE SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::ANODE-SECLASS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::ANODE
      2.)
   (COMMON-LISP::FUNCTION SYSTEM::ANODE-CODE (SYSTEM::ANODE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::ANODE-CODE) SYSTEM::ANODE-CODE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::ANODE-CODE))
    (COMMON-LISP::BLOCK SYSTEM::ANODE-CODE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::ANODE SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::ANODE-CODE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) SYSTEM::ANODE
      3.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-ANODE-TYPE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::ANODE 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-ANODE-SECLASS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::ANODE 2.)
   #Y(SYSTEM::SETF-ANODE-CODE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::ANODE 3.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   SYSTEM::ANODE SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-116 #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-117
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SECLASS-OR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SECLASS-OR
      #25Y(00 00 00 00 00 00 00 00 01 16 93 01 09 99 01 AE 38 05 32 49 19 02 C5
           19 02)
      (COMMON-LISP::NIL) SYSTEM::SECLASS-OR-2))
#Y(#:TOP-LEVEL-FORM-118
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SECLASS-OR-2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SECLASS-OR-2
      #52Y(00 00 00 00 02 00 00 00 00 03 94 02 02 22 1F 94 01 02 22 1A 94 02 94
           02 30 00 14 95 03 02 22 11 95 02 02 22 0C 95 03 95 03 30 00 5D 19 03
           02 1B 69 02 1B 77)
      COMMON-LISP::UNION))
#Y(#:TOP-LEVEL-FORM-119 #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-120
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANODELIST-SECLASS-OR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANODELIST-SECLASS-OR
      #40Y(00 00 00 00 01 00 00 00 00 02 99 00 63 AF 1B 0B 94 00 AC 6F 01 84 02
           16 01 83 00 9D 21 72 16 01 AC 31 A2 16 01 9B 00 02)
      SYSTEM::SECLASS-OR SYSTEM::ANODE-SECLASS))
#Y(#:TOP-LEVEL-FORM-121
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SECLASS-WITHOUT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SECLASS-WITHOUT
      #55Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 02 00 00 AC 6D 00 01 94 04
           02 22 17 AC 94 05 38 05 32 4D 14 95 05 02 22 0D AD 95 06 38 05 32 4D
           5D 19 05 02 1B 6D 02 1B 77)
      #Y(SYSTEM::SECLASS-WITHOUT-BOUND
         #20Y(00 00 00 00 01 00 00 00 00 02 AD 69 00 01 38 03 31 B2 19 02)
         COMMON-LISP::NIL)))
#Y(#:TOP-LEVEL-FORM-122
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANODES-COMMUTE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANODES-COMMUTE
      #20Y(00 00 00 00 02 00 00 00 00 03 AE 6F 00 AE 6F 00 30 01 19 03)
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASSES-COMMUTE))
#Y(#:TOP-LEVEL-FORM-123
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SECLASSES-COMMUTE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SECLASSES-COMMUTE
      #28Y(00 00 00 00 02 00 00 00 00 03 94 02 95 02 C5 34 1F 08 94 01 95 03 C5
           34 19 03 19 03)
      #Y(SYSTEM::SECLASSES-COMMUTE-DISJOINT-P
         #39Y(00 00 00 00 02 00 00 00 00 03 9F 59 1E 17 9E 59 1E 13 AE 02 5A 59
              1F 0D AD 02 5A 59 1F 07 AE AE 30 00 59 19 03 19 03)
         COMMON-LISP::INTERSECTION)))
#Y(#:TOP-LEVEL-FORM-124
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GET-FUNNAME-STRING+PACK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GET-FUNNAME-STRING+PACK
      #45Y(00 00 00 00 01 00 00 00 00 02 9E 20 1A DA DB 94 03 72 8A DC A2 5C 78
           72 8A DD 73 05 26 9F 5C 5B 14 72 88 40 02 19 02 AD 72 8A 9F 1B 73)
      COMMON-LISP::STRING "(" " " ")"))
#Y(#:TOP-LEVEL-FORM-125
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SYMBOL-SUFFIX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SYMBOL-SUFFIX
      #92Y(00 00 00 00 02 00 00 00 00 03 AE 8F 04 0B 93 02 04 14 8E 88 04 AD 88
           00 2D AD 8E 04 2C AD 8E 05 33 AD 38 10 7D 0B C6 09 09 7D 0A FC 31 84
           F9 93 02 25 14 2F 02 42 02 DD AE DE B2 73 03 26 92 01 0D AC 31 C9 19
           06 9E 19 03 AD 32 8A 1B 60 AC AE 31 D2 19 06 92 02 5B AD 31 C9 19
           03)
      SYSTEM::FUNCTION-NAME-P 10. SYSTEM::GET-FUNNAME-STRING+PACK
      COMMON-LISP::STRING "-"))
#Y(#:TOP-LEVEL-FORM-126
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-COMMENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-COMMENT
      #34Y(00 00 00 00 01 00 00 00 01 17 0E 00 1C 0E 0E 02 14 9D 1F 0C 99 03 AD
           B1 A2 9B 02 04 0E 01 1B 70 19 04)
      COMMON-LISP::*COMPILE-VERBOSE* SYSTEM::*C-ERROR-OUTPUT*
      SYSTEM::*C-LISTING-OUTPUT* COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-127
   #361Y(00 00 00 00 00 00 00 00 00 01 00 2B 04 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 C9 0B 00 01 CA 0B 00 02 CB 0B 00 03 E1 2F 08 E1 AD 6D 09 01
         32 80 DA DC 68 02 00 64 E1 E4 E5 E6 68 08 01 7B 01 E7 64 63 73 07 00
         E8 E9 EA 68 09 02 7B 01 EB 64 63 73 07 00 EC ED EE 68 0A 03 7B 01 EF
         64 63 73 07 00 7B 03 68 06 01 68 07 02 68 08 03 73 07 00 32 86 16 01
         DA 2F 16 F1 31 59 F2 2F 08 F2 F3 F4 32 86 F2 F5 32 80 F6 31 59 F7 2F
         08 F7 F3 65 1E 32 86 F7 65 1F 32 80 65 20 31 59 65 21 31 59 65 22 2F
         08 65 22 F3 65 23 32 86 65 22 65 24 32 80 65 22 65 25 DA 32 86 65 26
         31 59 65 27 31 59 65 28 2F 08 65 28 F3 65 29 32 86 65 28 65 2A 32 80
         65 28 65 25 DA 32 86 65 2B 31 59 65 2C 31 59 65 2D 2F 08 65 2D F3 65
         2E 32 86 65 2D 65 2F 32 80 65 2D 65 25 DA 32 86 65 22 65 30 32 87 65
         22 65 31 65 32 E6 03 33 7C 02 32 86 65 22 65 34 63 2D 03 35 65 22 65
         30 DA 32 86 65 28 65 30 32 87 65 28 65 31 65 32 E6 03 36 7C 02 32 86
         65 28 65 34 63 2D 03 35 65 28 65 30 DA 32 86 65 2D 65 30 32 87 65 2D
         65 31 65 32 E6 03 37 7C 02 32 86 65 2D 65 34 63 2D 03 35 65 2D 65 30
         DA 32 86 DA 65 38 63 2D 03 35 DA 2F 39 C5 19 01)
   SYSTEM::C-SOURCE-POINT COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   #Y(SYSTEM::DEFAULT-LINENO1 #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      SYSTEM::*COMPILE-FILE-LINENO1*)
   #Y(SYSTEM::DEFAULT-LINENO2 #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      SYSTEM::*COMPILE-FILE-LINENO2*)
   #Y(SYSTEM::DEFAULT-FILE #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      COMMON-LISP::*COMPILE-FILE-TRUENAME*)
   SYSTEM::MAKE-C-SOURCE-POINT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-C-SOURCE-POINT
      #68Y(00 00 00 00 00 00 00 00 80 1B 03 00 01 00 3B 03 06 69 00 02 36 00 FB
           3B 02 06 69 00 03 36 00 FA 3B 01 06 69 00 04 36 00 F9 69 00 01 DE 72
           2E DF AD E0 B3 32 2D DF AD E1 B2 32 2D DF AD E2 B1 32 2D 15 19 04)
      COMMON-LISP::NIL :LINENO1 :LINENO2 :FILE 4. SYSTEM::C-SOURCE-POINT 1. 2.
      3.)
   SYSTEM::LINENO1 (:LINENO1) 1.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'SYSTEM::C-SOURCE-POINT 'SYSTEM::DEFSTRUCT-DESCRIPTION)
    4.)
   SYSTEM::LINENO2 (:LINENO2) 2.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'SYSTEM::C-SOURCE-POINT 'SYSTEM::DEFSTRUCT-DESCRIPTION)
    5.)
   SYSTEM::FILE (:FILE) 3.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'SYSTEM::C-SOURCE-POINT 'SYSTEM::DEFSTRUCT-DESCRIPTION)
    6.)
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::C-SOURCE-POINT-P)
   SYSTEM::C-SOURCE-POINT-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::C-SOURCE-POINT-P))
    (COMMON-LISP::BLOCK SYSTEM::C-SOURCE-POINT-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::C-SOURCE-POINT SYSTEM::OBJECT)))
   #Y(SYSTEM::C-SOURCE-POINT-P
      #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::C-SOURCE-POINT)
   (COMMON-LISP::INLINE SYSTEM::COPY-C-SOURCE-POINT)
   SYSTEM::COPY-C-SOURCE-POINT
   ((COMMON-LISP::STRUCTURE)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::COPY-C-SOURCE-POINT))
    (COMMON-LISP::BLOCK SYSTEM::COPY-C-SOURCE-POINT
     (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)))
   #Y(SYSTEM::COPY-C-SOURCE-POINT
      #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (COMMON-LISP::FUNCTION SYSTEM::C-SOURCE-POINT-LINENO1
    (SYSTEM::C-SOURCE-POINT) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::C-SOURCE-POINT-LINENO1)
   SYSTEM::C-SOURCE-POINT-LINENO1
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::C-SOURCE-POINT-LINENO1))
    (COMMON-LISP::BLOCK SYSTEM::C-SOURCE-POINT-LINENO1
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::C-SOURCE-POINT SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::C-SOURCE-POINT-LINENO1
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::C-SOURCE-POINT 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::C-SOURCE-POINT-LINENO2
    (SYSTEM::C-SOURCE-POINT) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::C-SOURCE-POINT-LINENO2)
   SYSTEM::C-SOURCE-POINT-LINENO2
   (#1#
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::C-SOURCE-POINT-LINENO2))
    (COMMON-LISP::BLOCK SYSTEM::C-SOURCE-POINT-LINENO2
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::C-SOURCE-POINT SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::C-SOURCE-POINT-LINENO2
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::C-SOURCE-POINT 2.)
   (COMMON-LISP::FUNCTION SYSTEM::C-SOURCE-POINT-FILE (SYSTEM::C-SOURCE-POINT)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::C-SOURCE-POINT-FILE)
   SYSTEM::C-SOURCE-POINT-FILE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::C-SOURCE-POINT-FILE))
    (COMMON-LISP::BLOCK SYSTEM::C-SOURCE-POINT-FILE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::C-SOURCE-POINT SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::C-SOURCE-POINT-FILE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::C-SOURCE-POINT 3.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1.
   #Y(SYSTEM::SETF-C-SOURCE-POINT-LINENO1
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::C-SOURCE-POINT 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-C-SOURCE-POINT-LINENO2
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::C-SOURCE-POINT 2.)
   #Y(SYSTEM::SETF-C-SOURCE-POINT-FILE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::C-SOURCE-POINT 3.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   SYSTEM::C-SOURCE-POINT SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-129
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-SOURCE-LOCATION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SOURCE-LOCATION
      #94Y(00 00 00 00 00 00 03 00 00 10 3B 03 03 0E 00 FB 3B 02 03 0E 01 FA 3B
           01 39 0E 02 F9 93 01 3C 1B 34 C9 1B 16 CD 1B 1E 63 0E 03 1D 06 AE 6B
           02 8E 01 6F 63 DF 6F 06 B0 2D 03 07 14 70 07 63 B1 B1 90 01 2E 60 CE
           14 6F 06 B2 B2 6E 04 07 33 02 13 19 04 93 01 06 93 03 03 92 02 4C CF
           19 04)
      SYSTEM::*COMPILE-FILE-LINENO1* SYSTEM::*COMPILE-FILE-LINENO2*
      COMMON-LISP::*COMPILE-FILE-TRUENAME* COMMON-LISP::*COMPILE-FILE-PATHNAME*
      "" " in file ~S" SYSTEM::TEXT COMMON-LISP::FORMAT " in line ~D"
      " in lines ~D..~D" ""))
#Y(#:TOP-LEVEL-FORM-130
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-SOURCE-POINT-LOCATION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SOURCE-POINT-LOCATION
      #24Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AE 6F 01 AF 6F 02 2D 03 03 19
           02)
      SYSTEM::C-SOURCE-POINT-LINENO1 SYSTEM::C-SOURCE-POINT-LINENO2
      SYSTEM::C-SOURCE-POINT-FILE SYSTEM::C-SOURCE-LOCATION))
#Y(#:TOP-LEVEL-FORM-131
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CURRENT-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CURRENT-FUNCTION
      #29Y(00 00 00 00 00 00 00 00 00 01 DA 31 4E 1F 0C 6B 00 2F 01 1F 06 6B 00
           2F 02 19 01 19 01)
      SYSTEM::*FUNC* SYSTEM::FNODE-P SYSTEM::FNODE-NAME))
#Y(#:TOP-LEVEL-FORM-132
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::IN-DEFUN-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::IN-DEFUN-P
      #33Y(00 00 00 00 01 00 00 00 00 02 AD 2E 00 14 32 00 1F 0D DB AE 7B 02 6B
           02 DD 38 02 31 B2 19 02 19 02)
      SYSTEM::CURRENT-FUNCTION SYSTEM::IN-DEFUN SYSTEM::*DENV*
      #.#'COMMON-LISP::EQUAL))
#Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*WARNING-COUNT*) SYSTEM::*WARNING-COUNT*)
#Y(#:TOP-LEVEL-FORM-134
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-WARN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-WARN
      #36Y(00 00 00 00 01 00 00 00 01 17 6B 00 32 95 0F 00 99 01 DC DD 6F 04 B1
           73 02 26 2E 05 14 2E 06 14 A2 9B 03 03)
      SYSTEM::*WARNING-COUNT* SYSTEM::C-COMMENT COMMON-LISP::STRING
      "~%WARNING~@[ in function ~S~]~A :~%" SYSTEM::TEXT
      SYSTEM::CURRENT-FUNCTION SYSTEM::C-SOURCE-LOCATION))
#Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*STYLE-WARNING-COUNT*)
   SYSTEM::*STYLE-WARNING-COUNT*)
#Y(#:TOP-LEVEL-FORM-136
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-STYLE-WARN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-STYLE-WARN
      #23Y(00 00 00 00 01 00 00 00 01 17 6B 00 32 95 0F 00 99 01 AF A0 9B 01
           03)
      SYSTEM::*STYLE-WARNING-COUNT* SYSTEM::C-WARN))
#Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*ERROR-COUNT*) SYSTEM::*ERROR-COUNT*)
#Y(#:TOP-LEVEL-FORM-138
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-ERROR
      #59Y(00 00 00 00 01 00 00 00 01 17 6B 00 32 95 0F 00 2E 01 14 93 00 0D 0E
           02 1D 09 AC 6B 03 38 03 31 B6 0F 03 6B 04 DF 6F 06 AE 2E 07 14 B3 B3
           2D 06 08 16 01 E3 E4 E5 E6 2D 03 0D 52)
      SYSTEM::*ERROR-COUNT* SYSTEM::CURRENT-FUNCTION
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*FUNCTIONS-WITH-ERRORS*
      SYSTEM::*C-ERROR-OUTPUT* "~%ERROR~@[ in function ~S~]~A :~%~?"
      SYSTEM::TEXT SYSTEM::C-SOURCE-LOCATION COMMON-LISP::FORMAT
      SYSTEM::C-ERROR COMMON-LISP::ERROR (COMMON-LISP::NIL)
      ((COMMON-LISP::NIL)) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-139
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-WARNINGS-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-WARNINGS-P
      #27Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 73 02 36 AC 8E 90 03 15 19
           01 00 19 02)
      SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*))
#Y(#:TOP-LEVEL-FORM-140
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-FAILURE-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-FAILURE-P
      #32Y(00 00 00 00 00 00 00 00 00 01 6B 00 6B 01 6B 02 73 01 37 73 02 36 AC
           8E 90 03 15 19 01 00 19 02)
      SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*
      SYSTEM::*STYLE-WARNING-COUNT*))
#Y(#:TOP-LEVEL-FORM-141
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::C-ERROR-C SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-ERROR-C
      #21Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC A0 7A 61 03 19 04)
      COMMON-LISP::CATCH 'SYSTEM::C-ERROR SYSTEM::C-ERROR)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-142
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-WRITE-LIB SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-WRITE-LIB
      #42Y(00 00 00 00 01 00 00 00 00 02 0E 00 1F 1A 0E 01 1F 16 02 10 02 B0 38
           10 7E 06 FC C8 F8 6B 01 31 7F 6B 01 31 8A 11 19 02 19 02)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*LIBOUTPUT-STREAM*
      CUSTOM::*PRINT-SYMBOLS-LONG* 79.))
#Y(#:TOP-LEVEL-FORM-143
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-EVAL-AND-WRITE-LIB SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-EVAL-AND-WRITE-LIB
      #18Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 AD 31 5A 19 02)
      SYSTEM::C-WRITE-LIB))
#Y(#:TOP-LEVEL-FORM-144
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::EVAL-WHEN-COMPILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EVAL-WHEN-COMPILE
      #27Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC DD DE A2 7A 7B 02 7B 02
           61 03 19 04)
      COMMON-LISP::EVAL-WHEN (COMMON-LISP::COMPILE)
      SYSTEM::C-EVAL-AND-WRITE-LIB COMMON-LISP::QUOTE COMMON-LISP::PROGN)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-145
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::L-CONSTANTP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::L-CONSTANTP
      #84Y(00 00 00 00 01 00 00 00 00 02 9E 20 1C 94 01 C7 5A 1F 3F 95 01 32 02
           1F 39 9E 5C 5C 59 19 02 02 19 02 AD 38 01 31 5D 19 02 AD 32 06 1E 24
           AD 32 1A 1E 1F AD 32 1E 1E 1A AD 32 04 1F 15 AD 8E 8B 5E AD 72 88 0E
           00 22 5A AD 6B 01 38 03 31 B9 59 1B 4A 19 02)
      SYSTEM::*LISP-PACKAGE* SYSTEM::*CONSTANT-SPECIAL-VARS*
      COMMON-LISP::QUOTE))
#Y(#:TOP-LEVEL-FORM-146
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CONSTANTP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CONSTANTP
      #98Y(00 00 00 00 01 00 00 00 00 02 9E 20 21 94 01 C9 5A 1F 80 4C 95 01 32
           02 1F 80 45 9E 5C 5C 59 19 02 02 19 02 00 19 02 AD 38 01 31 5D 19 02
           AD 32 06 1E 2D AD 32 1A 1E 28 AD 32 1E 1E 23 AD 32 04 1F 1E AD 8E 8B
           5B 0E 00 1D 04 AD 88 01 56 AD 72 88 0E 02 22 52 AD 6B 03 38 03 31 B9
           59 1B FF BE 19 02)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::DECLARED-CONSTANT-NOTINLINE
      SYSTEM::*LISP-PACKAGE* SYSTEM::*CONSTANT-SPECIAL-VARS*
      COMMON-LISP::QUOTE))
#Y(#:TOP-LEVEL-FORM-147
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CONSTANT-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CONSTANT-VALUE
      #66Y(00 00 00 00 01 00 00 00 00 02 9E 21 30 AD 8E 06 10 AD 8E 1A 0C AD 8E
           1E 08 AD 8F 04 1D AD 8F 8B 08 9E 19 02 AD 31 4D 19 02 AD 72 88 0E 00
           22 74 AD 6B 01 38 03 31 B9 5C 19 02 00 19 02 9E 5C 5B 19 02)
      SYSTEM::*LISP-PACKAGE* SYSTEM::*CONSTANT-SPECIAL-VARS*))
#Y(#:TOP-LEVEL-FORM-148
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANODE-CONSTANTP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANODE-CONSTANTP
      #60Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AC 32 02 1F 28 9D 5C 59 1F 23
           94 00 9D 21 07 AC 88 04 13 00 19 04 94 00 C6 5A 1F 0F 9D 5C 78 6F 02
           C8 5A 59 19 04 AC 29 01 05 52 19 04 19 03)
      SYSTEM::ANODE-CODE SYSTEM::CONST SYSTEM::CONST-HORIZON :FORM
      SYSTEM::ANODE-P))
#Y(#:TOP-LEVEL-FORM-149
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANODE-CONSTANT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANODE-CONSTANT
      #27Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 78 9D 21 05 AC 29 01 04 74 9D
           5C 5B 19 03)
      SYSTEM::ANODE-CODE))
#Y(#:TOP-LEVEL-FORM-150
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANODE-CONSTANT-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANODE-CONSTANT-VALUE
      #17Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 2F 01 19 02)
      SYSTEM::ANODE-CONSTANT SYSTEM::CONST-VALUE))
#Y(#:TOP-LEVEL-FORM-151
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NEW-CONST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NEW-CONST
      #19Y(00 00 00 00 01 00 00 00 00 02 DA DB DB B0 2D 04 02 19 02) :HORIZON
      :VALUE SYSTEM::MAKE-CONST))
#Y(#:TOP-LEVEL-FORM-152
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-LABEL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-LABEL
      #26Y(00 00 00 00 01 00 00 00 00 02 38 01 72 8E AC 63 31 51 AC DA B0 32 86
           15 19 02)
      SYSTEM::FOR-VALUE))
#Y(#:TOP-LEVEL-FORM-153
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-SPECIAL-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-SPECIAL-VAR
      #53Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 64 DC B2 6F 03 DE B4 89 03 0B
           B4 88 05 0D E0 E4 E4 B7 2D 04 0B 14 2D 08 0C 19 02 E0 E1 E2 B7 6F 09
           E4 B9 2D 06 0B 1B 6D)
      :NAME :SPECIALP :CONSTANTP SYSTEM::L-CONSTANTP :CONSTANT
      SYSTEM::C-CONSTANTP :HORIZON :ALL :VALUE SYSTEM::C-CONSTANT-VALUE :FORM
      SYSTEM::MAKE-CONST SYSTEM::MAKE-VAR))
#Y(#:TOP-LEVEL-FORM-154
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TEST-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TEST-LIST
      #78Y(00 00 00 00 01 00 02 00 00 0D 3B 02 02 C5 FA 3D 01 AF 8F 09 08 AF 38
           01 31 9B 5C 1D 06 DB 6F 02 B0 30 03 AF 72 45 AF 91 01 33 13 9E 1F 1E
           AF 72 45 AE 90 01 32 13 DF 6F 02 B0 30 03 19 04 DE 6F 02 B0 30 03 9E
           1F 05 1B 65 00 19 04 19 04)
      0. "Code contains dotted list ~S" SYSTEM::TEXT SYSTEM::C-ERROR
      "Form too short, too few arguments: ~S"
      "Form too long, too many arguments: ~S"))
#Y(#:TOP-LEVEL-FORM-155
   #74Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 71 61 DB DC DD C9 7A DF CB 7A
        CC 7C 04 AC 1B 0F 94 00 94 00 95 01 AD B2 AE 31 63 16 03 83 00 9D 21 6E
        16 02 E2 38 01 8D 5D 0B AC E2 71 4D 8C FF 04 E2 E3 30 0A E2 AD 32 81 CD
        19 02)
   #.#'COMMON-LISP::EQ #1=(COMMON-LISP::QUOTE . SYSTEM::C-QUOTE)
   #2=(COMMON-LISP::PROGN . SYSTEM::C-PROGN) COMMON-LISP::LET
   #Y(#:TOP-LEVEL-FORM-155-1 #15Y(00 00 00 00 00 00 00 00 00 01 63 2F 00 19 01)
      SYSTEM::C-LET/LET*)
   COMMON-LISP::LET*
   #Y(#:TOP-LEVEL-FORM-155-2 #15Y(00 00 00 00 00 00 00 00 00 01 64 2F 00 19 01)
      SYSTEM::C-LET/LET*)
   #3=((COMMON-LISP::IF . SYSTEM::C-IF) (COMMON-LISP::SETQ . SYSTEM::C-SETQ)
       (COMMON-LISP::BLOCK . SYSTEM::C-BLOCK)
       (COMMON-LISP::RETURN-FROM . SYSTEM::C-RETURN-FROM)
       (COMMON-LISP::TAGBODY . SYSTEM::C-TAGBODY)
       (COMMON-LISP::GO . SYSTEM::C-GO)
       (COMMON-LISP::FUNCTION . SYSTEM::C-FUNCTION)
       (COMMON-LISP::MULTIPLE-VALUE-BIND . SYSTEM::C-MULTIPLE-VALUE-BIND)
       (COMMON-LISP::MULTIPLE-VALUE-SETQ . SYSTEM::C-MULTIPLE-VALUE-SETQ)
       (COMMON-LISP::AND . SYSTEM::C-AND) (COMMON-LISP::OR . SYSTEM::C-OR)
       (COMMON-LISP::WHEN . SYSTEM::C-WHEN)
       (COMMON-LISP::UNLESS . SYSTEM::C-UNLESS)
       (COMMON-LISP::COND . SYSTEM::C-COND)
       (COMMON-LISP::CASE . SYSTEM::C-CASE)
       (COMMON-LISP::PSETQ . SYSTEM::C-PSETQ)
       (COMMON-LISP::MULTIPLE-VALUE-CALL . SYSTEM::C-MULTIPLE-VALUE-CALL)
       (COMMON-LISP::PROG1 . SYSTEM::C-PROG1)
       (COMMON-LISP::PROG2 . SYSTEM::C-PROG2)
       (COMMON-LISP::THE . SYSTEM::C-THE)
       (COMMON-LISP::CATCH . SYSTEM::C-CATCH)
       (COMMON-LISP::THROW . SYSTEM::C-THROW)
       (COMMON-LISP::UNWIND-PROTECT . SYSTEM::C-UNWIND-PROTECT)
       (COMMON-LISP::PROGV . SYSTEM::C-PROGV)
       (COMMON-LISP::MULTIPLE-VALUE-LIST . SYSTEM::C-MULTIPLE-VALUE-LIST)
       (COMMON-LISP::MULTIPLE-VALUE-PROG1 . SYSTEM::C-MULTIPLE-VALUE-PROG1)
       (COMMON-LISP::FLET . SYSTEM::C-FLET)
       (COMMON-LISP::LABELS . SYSTEM::C-LABELS)
       (COMMON-LISP::MACROLET . SYSTEM::C-MACROLET)
       (SYSTEM::FUNCTION-MACRO-LET . SYSTEM::C-FUNCTION-MACRO-LET)
       (COMMON-LISP::SYMBOL-MACROLET . SYSTEM::C-SYMBOL-MACROLET)
       (EXT::COMPILER-LET . SYSTEM::C-COMPILER-LET)
       (COMMON-LISP::EVAL-WHEN . SYSTEM::C-EVAL-WHEN)
       (COMMON-LISP::DECLARE . SYSTEM::C-DECLARE)
       (COMMON-LISP::LOAD-TIME-VALUE . SYSTEM::C-LOAD-TIME-VALUE)
       (COMMON-LISP::LOCALLY . SYSTEM::C-LOCALLY)
       (SYSTEM::%GENERIC-FUNCTION-LAMBDA . SYSTEM::C-%GENERIC-FUNCTION-LAMBDA)
       (SYSTEM::%OPTIMIZE-FUNCTION-LAMBDA .
        SYSTEM::C-%OPTIMIZE-FUNCTION-LAMBDA)
       (CLOS::GENERIC-FLET . SYSTEM::C-GENERIC-FLET)
       (CLOS::GENERIC-LABELS . SYSTEM::C-GENERIC-LABELS)
       (COMMON-LISP::HANDLER-BIND . SYSTEM::C-HANDLER-BIND)
       (SYSTEM::%HANDLER-BIND . SYSTEM::C-HANDLER-BIND)
       (SYSTEM::CONSTANT-EQL . SYSTEM::C-CONSTANT-EQL)
       (COMMON-LISP::FUNCALL . SYSTEM::C-FUNCALL)
       (SYSTEM::%FUNCALL . SYSTEM::C-FUNCALL)
       (COMMON-LISP::APPLY . SYSTEM::C-APPLY) (COMMON-LISP::+ . SYSTEM::C-PLUS)
       (COMMON-LISP::* . SYSTEM::C-STAR) (COMMON-LISP::- . SYSTEM::C-MINUS)
       (COMMON-LISP::/ . SYSTEM::C-SLASH) (SYSTEM::SVSTORE . SYSTEM::C-SVSTORE)
       (COMMON-LISP::EQ . SYSTEM::C-EQ) (COMMON-LISP::EQL . SYSTEM::C-EQL)
       (COMMON-LISP::EQUAL . SYSTEM::C-EQUAL)
       (COMMON-LISP::MAPCAR . SYSTEM::C-MAPCAR)
       (COMMON-LISP::MAPLIST . SYSTEM::C-MAPLIST)
       (COMMON-LISP::MAPC . SYSTEM::C-MAPC)
       (COMMON-LISP::MAPL . SYSTEM::C-MAPL)
       (COMMON-LISP::MAPCAN . SYSTEM::C-MAPCAN)
       (COMMON-LISP::MAPCON . SYSTEM::C-MAPCON)
       (EXT::MAPCAP . SYSTEM::C-MAPCAP) (EXT::MAPLAP . SYSTEM::C-MAPLAP)
       (COMMON-LISP::TYPEP . SYSTEM::C-TYPEP)
       (COMMON-LISP::FORMAT . SYSTEM::C-FORMAT)
       (COMMON-LISP::REMOVE-IF . SYSTEM::C-REMOVE-IF)
       (COMMON-LISP::REMOVE-IF-NOT . SYSTEM::C-REMOVE-IF-NOT)
       (COMMON-LISP::DELETE-IF . SYSTEM::C-DELETE-IF)
       (COMMON-LISP::DELETE-IF-NOT . SYSTEM::C-DELETE-IF-NOT)
       (COMMON-LISP::SUBSTITUTE-IF . SYSTEM::C-SUBSTITUTE-IF)
       (COMMON-LISP::SUBSTITUTE-IF-NOT . SYSTEM::C-SUBSTITUTE-IF-NOT)
       (COMMON-LISP::NSUBSTITUTE-IF . SYSTEM::C-NSUBSTITUTE-IF)
       (COMMON-LISP::NSUBSTITUTE-IF-NOT . SYSTEM::C-NSUBSTITUTE-IF-NOT)
       (COMMON-LISP::FIND-IF . SYSTEM::C-FIND-IF)
       (COMMON-LISP::FIND-IF-NOT . SYSTEM::C-FIND-IF-NOT)
       (COMMON-LISP::POSITION-IF . SYSTEM::C-POSITION-IF)
       (COMMON-LISP::POSITION-IF-NOT . SYSTEM::C-POSITION-IF-NOT)
       (COMMON-LISP::COUNT-IF . SYSTEM::C-COUNT-IF)
       (COMMON-LISP::COUNT-IF-NOT . SYSTEM::C-COUNT-IF-NOT)
       (COMMON-LISP::SUBST-IF . SYSTEM::C-SUBST-IF)
       (COMMON-LISP::SUBST-IF-NOT . SYSTEM::C-SUBST-IF-NOT)
       (COMMON-LISP::NSUBST-IF . SYSTEM::C-NSUBST-IF)
       (COMMON-LISP::NSUBST-IF-NOT . SYSTEM::C-NSUBST-IF-NOT)
       (COMMON-LISP::MEMBER-IF . SYSTEM::C-MEMBER-IF)
       (COMMON-LISP::MEMBER-IF-NOT . SYSTEM::C-MEMBER-IF-NOT)
       (COMMON-LISP::ASSOC-IF . SYSTEM::C-ASSOC-IF)
       (COMMON-LISP::ASSOC-IF-NOT . SYSTEM::C-ASSOC-IF-NOT)
       (COMMON-LISP::RASSOC-IF . SYSTEM::C-RASSOC-IF)
       (COMMON-LISP::RASSOC-IF-NOT . SYSTEM::C-RASSOC-IF-NOT)
       (COMMON-LISP::ADJOIN . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NSET-DIFFERENCE . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SEARCH . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::ASSOC . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NSET-EXCLUSIVE-OR . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SET-DIFFERENCE . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::COUNT . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NSUBLIS . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SET-EXCLUSIVE-OR . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::DELETE . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NSUBST . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SUBLIS . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::DELETE-DUPLICATES . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NSUBSTITUTE . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SUBSETP . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::FIND . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NUNION . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SUBST . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::INTERSECTION . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::POSITION . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::SUBSTITUTE . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::MEMBER . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::RASSOC . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::TREE-EQUAL . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::MISMATCH . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::REMOVE . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::UNION . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::NINTERSECTION . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::REMOVE-DUPLICATES . SYSTEM::C-TEST/TEST-NOT)
       (COMMON-LISP::LDB . SYSTEM::C-LDB)
       (COMMON-LISP::LDB-TEST . SYSTEM::C-LDB-TEST)
       (COMMON-LISP::MASK-FIELD . SYSTEM::C-MASK-FIELD)
       (COMMON-LISP::DPB . SYSTEM::C-DPB)
       (COMMON-LISP::DEPOSIT-FIELD . SYSTEM::C-DEPOSIT-FIELD))
   SYSTEM::C-FORM-TABLE
   (COMMON-LISP::DEFCONSTANT SYSTEM::C-FORM-TABLE
    (COMMON-LISP::LET
     ((SYSTEM::HASHTABLE
       (COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQ)))
     (COMMON-LISP::MAPC
      #'(COMMON-LISP::LAMBDA (COMMON-LISP::ACONS)
         (COMMON-LISP::SETF
          (COMMON-LISP::GETHASH (COMMON-LISP::CAR COMMON-LISP::ACONS)
           SYSTEM::HASHTABLE)
          (COMMON-LISP::CDR COMMON-LISP::ACONS)))
      `((COMMON-LISP::QUOTE . SYSTEM::C-QUOTE)
        (COMMON-LISP::PROGN . SYSTEM::C-PROGN)
        (COMMON-LISP::LET .
         ,#'(COMMON-LISP::LAMBDA COMMON-LISP::NIL
             (SYSTEM::C-LET/LET* COMMON-LISP::NIL)))
        (COMMON-LISP::LET* .
         ,#'(COMMON-LISP::LAMBDA COMMON-LISP::NIL
             (SYSTEM::C-LET/LET* COMMON-LISP::T)))
        (COMMON-LISP::IF . SYSTEM::C-IF) (COMMON-LISP::SETQ . SYSTEM::C-SETQ)
        (COMMON-LISP::BLOCK . SYSTEM::C-BLOCK)
        (COMMON-LISP::RETURN-FROM . SYSTEM::C-RETURN-FROM)
        (COMMON-LISP::TAGBODY . SYSTEM::C-TAGBODY)
        (COMMON-LISP::GO . SYSTEM::C-GO)
        (COMMON-LISP::FUNCTION . SYSTEM::C-FUNCTION)
        (COMMON-LISP::MULTIPLE-VALUE-BIND . SYSTEM::C-MULTIPLE-VALUE-BIND)
        (COMMON-LISP::MULTIPLE-VALUE-SETQ . SYSTEM::C-MULTIPLE-VALUE-SETQ)
        (COMMON-LISP::AND . SYSTEM::C-AND) (COMMON-LISP::OR . SYSTEM::C-OR)
        (COMMON-LISP::WHEN . SYSTEM::C-WHEN)
        (COMMON-LISP::UNLESS . SYSTEM::C-UNLESS)
        (COMMON-LISP::COND . SYSTEM::C-COND)
        (COMMON-LISP::CASE . SYSTEM::C-CASE)
        (COMMON-LISP::PSETQ . SYSTEM::C-PSETQ)
        (COMMON-LISP::MULTIPLE-VALUE-CALL . SYSTEM::C-MULTIPLE-VALUE-CALL)
        (COMMON-LISP::PROG1 . SYSTEM::C-PROG1)
        (COMMON-LISP::PROG2 . SYSTEM::C-PROG2)
        (COMMON-LISP::THE . SYSTEM::C-THE)
        (COMMON-LISP::CATCH . SYSTEM::C-CATCH)
        (COMMON-LISP::THROW . SYSTEM::C-THROW)
        (COMMON-LISP::UNWIND-PROTECT . SYSTEM::C-UNWIND-PROTECT)
        (COMMON-LISP::PROGV . SYSTEM::C-PROGV)
        (COMMON-LISP::MULTIPLE-VALUE-LIST . SYSTEM::C-MULTIPLE-VALUE-LIST)
        (COMMON-LISP::MULTIPLE-VALUE-PROG1 . SYSTEM::C-MULTIPLE-VALUE-PROG1)
        (COMMON-LISP::FLET . SYSTEM::C-FLET)
        (COMMON-LISP::LABELS . SYSTEM::C-LABELS)
        (COMMON-LISP::MACROLET . SYSTEM::C-MACROLET)
        (SYSTEM::FUNCTION-MACRO-LET . SYSTEM::C-FUNCTION-MACRO-LET)
        (COMMON-LISP::SYMBOL-MACROLET . SYSTEM::C-SYMBOL-MACROLET)
        (EXT::COMPILER-LET . SYSTEM::C-COMPILER-LET)
        (COMMON-LISP::EVAL-WHEN . SYSTEM::C-EVAL-WHEN)
        (COMMON-LISP::DECLARE . SYSTEM::C-DECLARE)
        (COMMON-LISP::LOAD-TIME-VALUE . SYSTEM::C-LOAD-TIME-VALUE)
        (COMMON-LISP::LOCALLY . SYSTEM::C-LOCALLY)
        (SYSTEM::%GENERIC-FUNCTION-LAMBDA . SYSTEM::C-%GENERIC-FUNCTION-LAMBDA)
        (SYSTEM::%OPTIMIZE-FUNCTION-LAMBDA .
         SYSTEM::C-%OPTIMIZE-FUNCTION-LAMBDA)
        (CLOS::GENERIC-FLET . SYSTEM::C-GENERIC-FLET)
        (CLOS::GENERIC-LABELS . SYSTEM::C-GENERIC-LABELS)
        (COMMON-LISP::HANDLER-BIND . SYSTEM::C-HANDLER-BIND)
        (SYSTEM::%HANDLER-BIND . SYSTEM::C-HANDLER-BIND)
        (SYSTEM::CONSTANT-EQL . SYSTEM::C-CONSTANT-EQL)
        (COMMON-LISP::FUNCALL . SYSTEM::C-FUNCALL)
        (SYSTEM::%FUNCALL . SYSTEM::C-FUNCALL)
        (COMMON-LISP::APPLY . SYSTEM::C-APPLY)
        (COMMON-LISP::+ . SYSTEM::C-PLUS) (COMMON-LISP::* . SYSTEM::C-STAR)
        (COMMON-LISP::- . SYSTEM::C-MINUS) (COMMON-LISP::/ . SYSTEM::C-SLASH)
        (SYSTEM::SVSTORE . SYSTEM::C-SVSTORE) (COMMON-LISP::EQ . SYSTEM::C-EQ)
        (COMMON-LISP::EQL . SYSTEM::C-EQL)
        (COMMON-LISP::EQUAL . SYSTEM::C-EQUAL)
        (COMMON-LISP::MAPCAR . SYSTEM::C-MAPCAR)
        (COMMON-LISP::MAPLIST . SYSTEM::C-MAPLIST)
        (COMMON-LISP::MAPC . SYSTEM::C-MAPC)
        (COMMON-LISP::MAPL . SYSTEM::C-MAPL)
        (COMMON-LISP::MAPCAN . SYSTEM::C-MAPCAN)
        (COMMON-LISP::MAPCON . SYSTEM::C-MAPCON)
        (EXT::MAPCAP . SYSTEM::C-MAPCAP) (EXT::MAPLAP . SYSTEM::C-MAPLAP)
        (COMMON-LISP::TYPEP . SYSTEM::C-TYPEP)
        (COMMON-LISP::FORMAT . SYSTEM::C-FORMAT)
        (COMMON-LISP::REMOVE-IF . SYSTEM::C-REMOVE-IF)
        (COMMON-LISP::REMOVE-IF-NOT . SYSTEM::C-REMOVE-IF-NOT)
        (COMMON-LISP::DELETE-IF . SYSTEM::C-DELETE-IF)
        (COMMON-LISP::DELETE-IF-NOT . SYSTEM::C-DELETE-IF-NOT)
        (COMMON-LISP::SUBSTITUTE-IF . SYSTEM::C-SUBSTITUTE-IF)
        (COMMON-LISP::SUBSTITUTE-IF-NOT . SYSTEM::C-SUBSTITUTE-IF-NOT)
        (COMMON-LISP::NSUBSTITUTE-IF . SYSTEM::C-NSUBSTITUTE-IF)
        (COMMON-LISP::NSUBSTITUTE-IF-NOT . SYSTEM::C-NSUBSTITUTE-IF-NOT)
        (COMMON-LISP::FIND-IF . SYSTEM::C-FIND-IF)
        (COMMON-LISP::FIND-IF-NOT . SYSTEM::C-FIND-IF-NOT)
        (COMMON-LISP::POSITION-IF . SYSTEM::C-POSITION-IF)
        (COMMON-LISP::POSITION-IF-NOT . SYSTEM::C-POSITION-IF-NOT)
        (COMMON-LISP::COUNT-IF . SYSTEM::C-COUNT-IF)
        (COMMON-LISP::COUNT-IF-NOT . SYSTEM::C-COUNT-IF-NOT)
        (COMMON-LISP::SUBST-IF . SYSTEM::C-SUBST-IF)
        (COMMON-LISP::SUBST-IF-NOT . SYSTEM::C-SUBST-IF-NOT)
        (COMMON-LISP::NSUBST-IF . SYSTEM::C-NSUBST-IF)
        (COMMON-LISP::NSUBST-IF-NOT . SYSTEM::C-NSUBST-IF-NOT)
        (COMMON-LISP::MEMBER-IF . SYSTEM::C-MEMBER-IF)
        (COMMON-LISP::MEMBER-IF-NOT . SYSTEM::C-MEMBER-IF-NOT)
        (COMMON-LISP::ASSOC-IF . SYSTEM::C-ASSOC-IF)
        (COMMON-LISP::ASSOC-IF-NOT . SYSTEM::C-ASSOC-IF-NOT)
        (COMMON-LISP::RASSOC-IF . SYSTEM::C-RASSOC-IF)
        (COMMON-LISP::RASSOC-IF-NOT . SYSTEM::C-RASSOC-IF-NOT)
        (COMMON-LISP::ADJOIN . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NSET-DIFFERENCE . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SEARCH . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::ASSOC . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NSET-EXCLUSIVE-OR . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SET-DIFFERENCE . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::COUNT . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NSUBLIS . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SET-EXCLUSIVE-OR . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::DELETE . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NSUBST . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SUBLIS . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::DELETE-DUPLICATES . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NSUBSTITUTE . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SUBSETP . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::FIND . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NUNION . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SUBST . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::INTERSECTION . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::POSITION . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::SUBSTITUTE . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::MEMBER . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::RASSOC . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::TREE-EQUAL . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::MISMATCH . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::REMOVE . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::UNION . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::NINTERSECTION . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::REMOVE-DUPLICATES . SYSTEM::C-TEST/TEST-NOT)
        (COMMON-LISP::LDB . SYSTEM::C-LDB)
        (COMMON-LISP::LDB-TEST . SYSTEM::C-LDB-TEST)
        (COMMON-LISP::MASK-FIELD . SYSTEM::C-MASK-FIELD)
        (COMMON-LISP::DPB . SYSTEM::C-DPB)
        (COMMON-LISP::DEPOSIT-FIELD . SYSTEM::C-DEPOSIT-FIELD)))
     SYSTEM::HASHTABLE))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 E1 00 19 01)
   #Y(#:TOP-LEVEL-FORM-156-1
      #32Y(00 00 00 00 01 00 00 00 00 02 AD 31 50 1F 0F AD 6B 00 38 01 31 62 59
           1F 05 DA 2F 01 19 02 19 02)
      SYSTEM::C-FORM-TABLE SYSTEM::COMPILER-ERROR))
#Y(#:TOP-LEVEL-FORM-157
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::EXPAND-COMPILER-MACRO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EXPAND-COMPILER-MACRO
      #60Y(00 00 00 00 01 00 00 00 00 02 63 1B 14 16 03 1B 25 14 B1 AF 6E 03 03
           B1 9E 22 72 9D FD 7E 03 16 03 9F 20 12 94 02 89 00 0D 2E 01 14 94 03
           AD 70 02 92 00 5D 16 02 AE AD 40 02 19 03)
      SYSTEM::FUNCTION-NAME-P SYSTEM::ENV COMMON-LISP::COMPILER-MACRO-FUNCTION
      SYSTEM::MAC-EXP))
#Y(#:TOP-LEVEL-FORM-158 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::INLINE SYSTEM::LAMBDA-FORM-P))
#Y(#:TOP-LEVEL-FORM-159
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 32 86 DA DE 32 80 C5 19
        01)
   SYSTEM::LAMBDA-FORM-P SYSTEM::REMOVE-OLD-DEFINITIONS
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::FORM)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::LAMBDA-FORM-P))
    (COMMON-LISP::BLOCK SYSTEM::LAMBDA-FORM-P
     (COMMON-LISP::AND (COMMON-LISP::CONSP SYSTEM::FORM)
      (COMMON-LISP::EQ (COMMON-LISP::CAR SYSTEM::FORM) 'COMMON-LISP::LAMBDA)
      (COMMON-LISP::CONSP (COMMON-LISP::CDR SYSTEM::FORM)))))
   #Y(SYSTEM::LAMBDA-FORM-P
      #29Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 0C 94 01 C5 5A 1F 06 95 01
           32 02 19 02 19 02)
      COMMON-LISP::LAMBDA))
#Y(#:TOP-LEVEL-FORM-160
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FORM
      #327Y(02 00 01 00 01 00 01 00 00 08 9F 10 00 3B 04 02 0E 01 10 01 C7 50
            81 1F 0E 00 21 80 66 6B 00 8F 04 1C 6B 00 6B 03 30 04 42 02 92 01
            0A 6B 00 2F 05 16 02 51 1B 81 00 AC 38 01 28 4E 1B 73 2E 06 51 1B
            80 F3 AC 36 00 1B 80 7D 0E 00 1B 1E B3 8D 50 06 B3 38 01 8D 56 6C
            B3 89 0B 68 B3 38 01 8D 56 80 61 B3 38 01 71 56 6B 00 30 0C 14 38
            01 28 FF 98 1B 80 52 B3 6B 0F 00 7A 0E 00 79 2D 03 10 1B 80 44 0E
            00 78 AC 89 07 80 9F AC 2F 08 42 06 92 05 80 5A 6B 00 2F 09 0F 00
            5B FE 14 6B 0A 38 01 71 62 92 00 FF A7 0E 00 20 FF 9E 0E 00 5B FF
            14 8F 04 07 B3 38 01 8C 56 FF A8 B3 89 0E 05 B3 89 0B FF B1 B3 2F
            0D 16 08 51 1B 80 6A B0 6B 00 70 0C 38 01 28 FF 33 1B 2A EC B3 7B
            02 0E 00 79 30 13 1B 1F B2 AE 0E 00 79 2D 03 10 1B 15 93 04 07 93
            03 59 B2 89 0B 55 AF 24 11 5D AF 24 14 64 EF 2F 16 16 07 51 1B 2F
            F2 EC AE 7B 02 0E 00 5C 7C 02 38 01 28 FE F3 1B 1B F6 AD F7 63 32
            2D F6 AD 65 1E 65 1F 32 2D 15 1B 19 AC 88 17 5A F3 6F 1A AD 30 02
            16 01 51 14 0E 01 1C 06 AC 2F 1B 5C 1D 57 15 12 02 19 03)
      SYSTEM::*FORM* SYSTEM::*FOR-VALUE* SYSTEM::C-ERROR SYSTEM::*VENV*
      SYSTEM::VENV-SEARCH-MACRO SYSTEM::C-VAR SYSTEM::C-CONST
      SYSTEM::FUNCTION-NAME-P SYSTEM::FENV-SEARCH SYSTEM::EXPAND-COMPILER-MACRO
      SYSTEM::C-FORM-TABLE SYSTEM::DECLARED-NOTINLINE SYSTEM::MAC-EXP
      SYSTEM::C-GLOBAL-FUNCTION-CALL SYSTEM::IN-DEFUN-P SYSTEM::*FUNC*
      SYSTEM::C-LOCAL-FUNCTION-CALL SYSTEM::GLOBAL COMMON-LISP::FUNCTION
      SYSTEM::C-FUNCALL-NOTINLINE EXT::LOCAL SYSTEM::C-FORM
      SYSTEM::COMPILER-ERROR SYSTEM::LAMBDA-FORM-P SYSTEM::%FUNCALL
      "Not the name of a function: ~S" SYSTEM::TEXT SYSTEM::ANODE-SECLASS
      SYSTEM::ANODE 3. 2. (COMMON-LISP::NIL)))
#Y(#:TOP-LEVEL-FORM-161
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MACROEXPAND-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MACROEXPAND-FORM
      #114Y(00 00 00 00 01 00 00 00 00 02 1B 80 53 9D FB 16 02 1B 80 4C AD 8F
            04 80 56 AD 6B 01 30 02 42 02 92 01 6A 16 02 1B 80 47 93 03 2A 00
            1B 05 B2 38 01 31 56 FC 92 04 21 16 07 1B 34 AC 2F 04 42 06 92 05
            65 B2 8F 04 0E B2 38 01 8D 56 08 B2 6B 05 38 01 8D 62 59 93 04 5F
            14 B5 30 06 09 08 16 07 AD 2F 00 F9 20 FF AD 94 01 AC 88 03 4E 16
            01 9E 19 02)
      SYSTEM::EXPAND-COMPILER-MACRO SYSTEM::*VENV* SYSTEM::VENV-SEARCH-MACRO
      SYSTEM::FUNCTION-NAME-P SYSTEM::FENV-SEARCH SYSTEM::C-FORM-TABLE
      SYSTEM::MAC-EXP))
#Y(#:TOP-LEVEL-FORM-162
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-NIL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-NIL #18Y(00 00 00 00 00 00 00 00 00 01 63 DA DB 2D 03 02 19 01)
      (COMMON-LISP::NIL) ((COMMON-LISP::NIL)) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-163
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CONST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CONST
      #26Y(00 00 00 00 00 00 00 00 00 01 DA DB DA 6B 02 6F 03 7B 02 7B 01 2D 03
           04 19 01)
      SYSTEM::CONST (COMMON-LISP::NIL) SYSTEM::*FORM* SYSTEM::NEW-CONST
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-164
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-VAR
      #264Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 42 03 92 02 16 DB 6F 02 B1
            30 03 0E 04 1D 0A B0 6B 05 E0 38 02 31 B6 0F 05 CC FA 9F 26 08 80
            D4 B2 61 01 1B 23 D4 1B 07 E7 E8 B5 8E 8B 77 D5 14 E9 B7 6F 11 EC
            B9 2D 06 13 1B 1A B0 6F 09 E4 0E 0B 1D 04 AD 89 0C 59 00 14 00 7A
            0E 0B 1D 0D AE 88 0C 55 EE A5 14 7B 02 61 01 1B 01 00 14 2D 03 15
            19 06 02 1B 19 E7 B0 6F 16 7B 02 F1 E7 B1 6F 16 7B 02 03 18 62 03
            1B 0E E4 0E 0B 1C 65 00 14 00 7A 0E 0B 1C 60 00 14 2D 03 15 19 05
            AE 61 01 1B 1C F3 B0 6B 1A 6B 1B 7B 04 61 01 1B 18 E4 AF 65 27 64
            32 2D 1B 80 49 E4 0E 0B 1C 60 00 14 00 7A 0E 0B 1C 5D 00 14 6E 03
            15 AE 6F 1C E4 B0 F7 B0 A1 7A 32 2D 16 01 0E 0B 1D 26 E4 AF 65 1E
            64 32 2D 0E 1F 1C 1B AE 6F 20 6F 21 AF 2F 22 22 06 65 23 65 24 30
            25 AE 6F 22 0E 26 22 FF B0 AE 2F 28 15 19 05 65 23 DA 30 25 19 05)
      SYSTEM::VENV-SEARCH
      "~S is neither declared nor bound,~@
                     it will be treated as if it were declared SPECIAL."
      SYSTEM::TEXT SYSTEM::C-WARN SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::*UNKNOWN-FREE-VARS* #.#'COMMON-LISP::EQ COMMON-LISP::SPECIAL
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::T . 138.)
         (EXT::LOCAL . 91.) (COMMON-LISP::SPECIAL . 29.))
      SYSTEM::MAKE-SPECIAL-VAR SYSTEM::VAR SYSTEM::*FOR-VALUE*
      SYSTEM::VAR-CONSTANTP SYSTEM::CONST :HORIZON :VALUE :ALL
      SYSTEM::C-CONSTANT-VALUE :FORM SYSTEM::MAKE-CONST SYSTEM::GETVALUE
      SYSTEM::MK-ANODE SYSTEM::NEW-CONST (COMMON-LISP::PUSH)
      ((COMMON-LISP::SVREF)) COMMON-LISP::GET SYSTEM::*VENVC* SYSTEM::*STACKZ*
      SYSTEM::VAR-USEDP 5. 6. SYSTEM::*NO-CODE* SYSTEM::VAR-STACKZ
      SYSTEM::STACKZ-FUN SYSTEM::VAR-FNODE SYSTEM::C-VAR "VAR-FNODE"
      SYSTEM::COMPILER-ERROR SYSTEM::*FUNC* 7. SYSTEM::NOTE-FAR-USED-VAR))
#Y(#:TOP-LEVEL-FORM-165
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-VARSET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-VARSET
      #216Y(00 00 00 00 03 00 00 00 00 04 AF 2F 00 42 03 92 02 08 DB 6F 02 B3
            30 03 C9 FA 9F 26 05 80 B2 00 1B 15 E3 6F 02 B6 30 03 CF 1B 17 B2
            6F 06 E1 63 AE 88 08 6B B5 61 01 7A AE 88 08 66 E5 B6 7B 02 61 01
            14 2D 03 0C 19 08 E1 63 02 7A E7 E8 B1 6F 0F 7B 02 EA E8 B2 6F 0F
            7B 02 D6 7C 04 2D 03 0C 19 07 E1 63 AF 61 01 7A EC B0 6B 13 6B 14
            7B 04 7B 01 6E 03 0C AE 88 15 06 F0 AF F1 64 32 2D F0 AF F2 64 32
            2D 0E 19 1C 80 44 F0 AF F4 63 32 2D B2 AD A4 7C 02 AF 6F 1B F0 B1
            F6 B0 A1 7A 32 2D 16 02 AE 6F 1D 6F 1E AF 2F 1F 22 06 65 20 65 21
            30 22 AE 6F 1F 0E 23 22 03 AE 2F 24 65 25 AF 6F 26 38 05 72 50 F0
            B0 65 27 AF 32 2D 16 01 15 19 07 65 20 DA 30 22 19 07)
      SYSTEM::VENV-SEARCH
      "~S is neither declared nor bound,~@
                     it will be treated as if it were declared SPECIAL."
      SYSTEM::TEXT SYSTEM::C-WARN COMMON-LISP::SPECIAL
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::T . 69.)
         (EXT::LOCAL . 43.) (COMMON-LISP::SPECIAL . 14.))
      SYSTEM::MAKE-SPECIAL-VAR SYSTEM::VARSET SYSTEM::VAR-CONSTANTP
      "The constant ~S may not be assigned to.~@
                                        The assignment will be ignored."
      ((SYSTEM::VALUES1)) SYSTEM::SETVALUE SYSTEM::MK-ANODE (COMMON-LISP::PUSH)
      SYSTEM::CONST SYSTEM::NEW-CONST (COMMON-LISP::PUSH) ((SYSTEM::SVSET))
      COMMON-LISP::SET SYSTEM::*VENVC* SYSTEM::*STACKZ* SYSTEM::VAR-USEDP
      SYSTEM::VAR 5. 8. SYSTEM::*NO-CODE* 3. SYSTEM::VAR-MODIFIED-LIST 9.
      SYSTEM::VAR-STACKZ SYSTEM::STACKZ-FUN SYSTEM::VAR-FNODE SYSTEM::C-VARSET
      "VAR-FNODE" SYSTEM::COMPILER-ERROR SYSTEM::*FUNC*
      SYSTEM::NOTE-FAR-ASSIGNED-VAR
      #Y(SYSTEM::C-VARSET-1
         #21Y(00 00 00 00 01 00 00 00 00 02 94 01 AC 6F 00 6B 01 31 B5 19 03)
         SYSTEM::VAR-STACKZ SYSTEM::*STACKZ*)
      SYSTEM::VAR-REPLACEABLE-LIST 10.))
#Y(#:TOP-LEVEL-FORM-166
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-FUNNAME-CONST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-FUNNAME-CONST
      #40Y(00 00 00 00 01 00 00 00 00 02 9E 20 16 9E 5C 78 DB DC DD AF 6F 04 DF
           DE E0 B3 7B 02 7B 02 2D 06 07 19 03 AD 2F 00 19 02)
      SYSTEM::NEW-CONST :HORIZON :ALL :VALUE SYSTEM::GET-SETF-SYMBOL :FORM
      COMMON-LISP::QUOTE SYSTEM::MAKE-CONST))
#Y(#:TOP-LEVEL-FORM-167
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-NORMAL-FUNCTION-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-NORMAL-FUNCTION-CALL
      #99Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB 30 02 0E 00 79 72 45 0E 03 10
           03 0E 00 79 DE 7B 01 93 01 19 94 01 83 02 AC DF 70 06 AC 84 02 E1 84
           02 DB 0E 03 5D 0F 03 16 02 92 01 67 A2 26 08 09 CE 1B 0A CF 1B 07 D0
           1B 04 E6 B2 61 02 14 B4 6F 0D 7B 01 73 02 23 84 00 E6 E8 AE 72 47 2D
           03 0F 16 02 11 19 03)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::*STACKZ* (SYSTEM::CALLP)
      SYSTEM::ONE SYSTEM::C-FORM (COMMON-LISP::PUSH)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (2. . 7.) (1. . 4.) (0. . 1.))
      (SYSTEM::CALL0) (SYSTEM::CALL1) (SYSTEM::CALL2) SYSTEM::CALL
      SYSTEM::MAKE-FUNNAME-CONST (COMMON-LISP::T . COMMON-LISP::T)
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-168
   #468Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 2F 05 E9 E5 EA 32 86 E9 EB 32 80 EC 31 59 ED 31 59 EE 2F
         05 EE E5 EF 32 86 EE F0 32 80 EE F1 DA 32 86 F2 31 59 F3 31 59 F4 2F
         05 F4 E5 F5 32 86 F4 F6 32 80 F4 F1 DA 32 86 F7 31 59 65 1E 31 59 65
         1F 2F 05 65 1F E5 65 20 32 86 65 1F 65 21 32 80 65 1F F1 DA 32 86 65
         22 31 59 65 23 31 59 65 24 2F 05 65 24 E5 65 25 32 86 65 24 65 26 32
         80 65 24 F1 DA 32 86 65 27 31 59 65 28 31 59 65 29 2F 05 65 29 E5 65
         2A 32 86 65 29 65 2B 32 80 65 29 F1 DA 32 86 65 2C 31 59 65 2D 31 59
         65 2E 2F 05 65 2E E5 65 2F 32 86 65 2E 65 30 32 80 65 2E F1 DA 32 86
         EE 65 31 32 87 EE 65 32 65 33 65 34 03 35 7C 02 32 86 EE 65 36 63 2D
         03 37 EE 65 31 DA 32 86 F4 65 31 32 87 F4 65 32 65 33 65 34 03 38 7C
         02 32 86 F4 65 36 63 2D 03 37 F4 65 31 DA 32 86 65 1F 65 31 32 87 65
         1F 65 32 65 33 65 34 03 39 7C 02 32 86 65 1F 65 36 63 2D 03 37 65 1F
         65 31 DA 32 86 65 24 65 31 32 87 65 24 65 32 65 33 65 34 03 3A 7C 02
         32 86 65 24 65 36 63 2D 03 37 65 24 65 31 DA 32 86 65 29 65 31 32 87
         65 29 65 32 65 33 65 34 03 3B 7C 02 32 86 65 29 65 36 63 2D 03 37 65
         29 65 31 DA 32 86 65 2E 65 31 32 87 65 2E 65 32 65 33 65 34 03 3C 7C
         02 32 86 65 2E 65 36 63 2D 03 37 65 2E 65 31 DA 32 86 DA 65 3D 63 2D
         03 37 DA 2F 3E C5 19 01)
   SYSTEM::SIGNATURE COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0. SYSTEM::MAKE-SIGNATURE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-SIGNATURE
      #77Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3B 06 02 CC FE 3B 05 02 CC
           FD 3D 04 3D 03 3D 02 3D 01 69 00 01 E2 72 2E E3 AD E4 B6 32 2D E3 AD
           E5 B5 32 2D E3 AD E6 B4 32 2D E3 AD E7 B3 32 2D E3 AD E8 B2 32 2D E3
           AD E9 B1 32 2D 15 19 07)
      COMMON-LISP::NIL :REQ-NUM :OPT-NUM :REST-P :KEYS-P :KEYWORDS :ALLOW-P 0.
      7. SYSTEM::SIGNATURE 1. 2. 3. 4. 5. 6.)
   (#(SYSTEM::REQ-NUM (:REQ-NUM) 1. (COMMON-LISP::NIL . 0.) 0.
      COMMON-LISP::FIXNUM COMMON-LISP::NIL)
    #(SYSTEM::OPT-NUM (:OPT-NUM) 2. (COMMON-LISP::NIL . 0.) 0.
      COMMON-LISP::FIXNUM COMMON-LISP::NIL)
    #(SYSTEM::REST-P (:REST-P) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::BOOLEAN COMMON-LISP::NIL)
    #(SYSTEM::KEYS-P (:KEYS-P) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::BOOLEAN COMMON-LISP::NIL)
    #(SYSTEM::KEYWORDS (:KEYWORDS) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::LIST COMMON-LISP::NIL)
    #(SYSTEM::ALLOW-P (:ALLOW-P) 6. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::BOOLEAN COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::SIGNATURE-P)
   SYSTEM::SIGNATURE-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIGNATURE-P))
    (COMMON-LISP::BLOCK SYSTEM::SIGNATURE-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::SIGNATURE SYSTEM::OBJECT)))
   #Y(SYSTEM::SIGNATURE-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::SIGNATURE)
   (COMMON-LISP::INLINE SYSTEM::COPY-SIGNATURE) SYSTEM::COPY-SIGNATURE
   ((COMMON-LISP::STRUCTURE)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::COPY-SIGNATURE))
    (COMMON-LISP::BLOCK SYSTEM::COPY-SIGNATURE
     (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)))
   #Y(SYSTEM::COPY-SIGNATURE
      #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (COMMON-LISP::FUNCTION SYSTEM::SIG-REQ-NUM (SYSTEM::SIGNATURE)
    COMMON-LISP::FIXNUM)
   (COMMON-LISP::INLINE SYSTEM::SIG-REQ-NUM) SYSTEM::SIG-REQ-NUM
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIG-REQ-NUM))
    (COMMON-LISP::BLOCK SYSTEM::SIG-REQ-NUM
     (COMMON-LISP::THE COMMON-LISP::FIXNUM
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::SIGNATURE SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::SIG-REQ-NUM
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::SIGNATURE 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::SIG-OPT-NUM (SYSTEM::SIGNATURE)
    COMMON-LISP::FIXNUM)
   (COMMON-LISP::INLINE SYSTEM::SIG-OPT-NUM) SYSTEM::SIG-OPT-NUM
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIG-OPT-NUM))
    (COMMON-LISP::BLOCK SYSTEM::SIG-OPT-NUM
     (COMMON-LISP::THE COMMON-LISP::FIXNUM
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::SIGNATURE SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::SIG-OPT-NUM
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::SIGNATURE 2.)
   (COMMON-LISP::FUNCTION SYSTEM::SIG-REST-P (SYSTEM::SIGNATURE)
    COMMON-LISP::BOOLEAN)
   (COMMON-LISP::INLINE SYSTEM::SIG-REST-P) SYSTEM::SIG-REST-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIG-REST-P))
    (COMMON-LISP::BLOCK SYSTEM::SIG-REST-P
     (COMMON-LISP::THE COMMON-LISP::BOOLEAN
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::SIGNATURE SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::SIG-REST-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::SIGNATURE 3.)
   (COMMON-LISP::FUNCTION SYSTEM::SIG-KEYS-P (SYSTEM::SIGNATURE)
    COMMON-LISP::BOOLEAN)
   (COMMON-LISP::INLINE SYSTEM::SIG-KEYS-P) SYSTEM::SIG-KEYS-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIG-KEYS-P))
    (COMMON-LISP::BLOCK SYSTEM::SIG-KEYS-P
     (COMMON-LISP::THE COMMON-LISP::BOOLEAN
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::SIGNATURE SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::SIG-KEYS-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::SIGNATURE 4.)
   (COMMON-LISP::FUNCTION SYSTEM::SIG-KEYWORDS (SYSTEM::SIGNATURE)
    COMMON-LISP::LIST)
   (COMMON-LISP::INLINE SYSTEM::SIG-KEYWORDS) SYSTEM::SIG-KEYWORDS
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIG-KEYWORDS))
    (COMMON-LISP::BLOCK SYSTEM::SIG-KEYWORDS
     (COMMON-LISP::THE COMMON-LISP::LIST
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::SIGNATURE SYSTEM::OBJECT 5.))))
   #Y(SYSTEM::SIG-KEYWORDS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::SIGNATURE 5.)
   (COMMON-LISP::FUNCTION SYSTEM::SIG-ALLOW-P (SYSTEM::SIGNATURE)
    COMMON-LISP::BOOLEAN)
   (COMMON-LISP::INLINE SYSTEM::SIG-ALLOW-P) SYSTEM::SIG-ALLOW-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SIG-ALLOW-P))
    (COMMON-LISP::BLOCK SYSTEM::SIG-ALLOW-P
     (COMMON-LISP::THE COMMON-LISP::BOOLEAN
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::SIGNATURE SYSTEM::OBJECT 6.))))
   #Y(SYSTEM::SIG-ALLOW-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::SIGNATURE 6.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-SIG-REQ-NUM
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::SIGNATURE 1. COMMON-LISP::THE
      COMMON-LISP::FIXNUM)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-SIG-OPT-NUM
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::SIGNATURE 2. COMMON-LISP::THE
      COMMON-LISP::FIXNUM)
   #Y(SYSTEM::SETF-SIG-REST-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::SIGNATURE 3. COMMON-LISP::THE
      COMMON-LISP::BOOLEAN)
   #Y(SYSTEM::SETF-SIG-KEYS-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::SIGNATURE 4. COMMON-LISP::THE
      COMMON-LISP::BOOLEAN)
   #Y(SYSTEM::SETF-SIG-KEYWORDS
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::SIGNATURE 5. COMMON-LISP::THE
      COMMON-LISP::LIST)
   #Y(SYSTEM::SETF-SIG-ALLOW-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::SIGNATURE 6. COMMON-LISP::THE
      COMMON-LISP::BOOLEAN)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-169
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FUNCTION-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FUNCTION-SIGNATURE
      #137Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 89 00 08 AE 8D 4F 04 AE 2F
            01 FA AE 8E 08 28 AE 72 25 24 08 80 4D AE 31 01 42 06 93 05 80 52
            14 B1 B1 B1 A2 14 B2 B2 40 07 19 09 AE 2F 02 42 06 B4 B2 B2 B2 A3
            1B 6D AE 8E 07 70 AE DD 72 29 AF B0 DE 72 29 B1 DF 72 29 B2 E0 72
            29 B0 32 06 59 14 B1 32 06 59 1D 03 B1 31 9D 14 B5 E1 72 29 40 07
            19 04 AE AF 6F 09 E4 01 04 40 07 19 03 3E 19 09 92 07 7A E5 6F 0C
            E7 B6 33 02 1E)
      SYSTEM::FUNCTION-NAME-P COMMON-LISP::FDEFINITION SYSTEM::SIGNATURE 16.
      12. 13. 19. 18. FFI::FOREIGN-FUNCTION
      SYSTEM::FOREIGN-FUNCTION-IN-ARG-COUNT 0. "~S: ~S is not a function."
      SYSTEM::TEXT SYSTEM::FUNCTION-SIGNATURE))
#Y(#:TOP-LEVEL-FORM-170
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GET-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GET-SIGNATURE
      #32Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 42 07 DB B2 DC B3 DD B4 DE B5
           DF B6 E0 B7 2D 0C 07 19 09)
      SYSTEM::FUNCTION-SIGNATURE :REQ-NUM :OPT-NUM :REST-P :KEYS-P :KEYWORDS
      :ALLOW-P SYSTEM::MAKE-SIGNATURE))
#Y(#:TOP-LEVEL-FORM-171
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SIGNATURE-TO-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SIGNATURE-TO-LIST
      #122Y(00 00 00 00 06 00 00 00 00 00 63 DA DB 1B 38 DE 84 01 DB 1B 0E 63
            DF 85 03 14 6E 03 03 71 C9 84 02 85 00 AC B5 91 01 33 6C 16 01 93
            06 29 E0 84 01 E1 84 01 93 05 3E 1B 21 63 DC 85 03 14 6E 03 03 71
            C9 84 02 85 00 AC B6 91 01 33 6C 16 01 B3 8E 91 FF BB 92 06 57 93
            05 1B E2 84 01 B0 63 1B 08 87 01 00 14 84 03 83 01 AD 8D 91 74 16
            02 93 03 03 E3 84 01 AD 32 47 19 09)
      -1. 0.
      #Y(SYSTEM::SIGNATURE-TO-LIST-1
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 9E 19 04)
         "ARG" SYSTEM::DO-FORMAT-DECIMAL)
      COMMON-LISP::FORMAT COMMON-LISP::&OPTIONAL
      #Y(SYSTEM::SIGNATURE-TO-LIST-2
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 9E 19 04)
         "ARG" SYSTEM::DO-FORMAT-DECIMAL)
      COMMON-LISP::&REST SYSTEM::OTHER-ARGS COMMON-LISP::&KEY
      COMMON-LISP::&ALLOW-OTHER-KEYS))
#Y(#:TOP-LEVEL-FORM-172
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SIG-TO-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SIG-TO-LIST
      #33Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AE 6F 01 AF 6F 02 B0 6F 03 B1
           6F 04 B2 6F 05 2D 06 06 19 02)
      SYSTEM::SIG-REQ-NUM SYSTEM::SIG-OPT-NUM SYSTEM::SIG-REST-P
      SYSTEM::SIG-KEYS-P SYSTEM::SIG-KEYWORDS SYSTEM::SIG-ALLOW-P
      SYSTEM::SIGNATURE-TO-LIST))
#Y(#:TOP-LEVEL-FORM-173
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FDESCR-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FDESCR-SIGNATURE
      #74Y(00 00 00 00 01 00 00 00 00 02 9E 5C 1C 30 94 01 AC 6F 02 AD 6F 03 AE
           6F 04 AF 6F 05 B0 6F 06 B1 6F 07 40 06 19 03 9E 5C 5C 44 42 0D B8 72
           45 B8 72 45 B6 C6 5A 59 14 B6 B6 B3 40 06 19 0F 9E 5C 78 24 00 62 9E
           5C 5C 44 19 02)
      COMMON-LISP::LABELS 0. SYSTEM::FNODE-REQ-ANZ SYSTEM::FNODE-OPT-ANZ
      SYSTEM::FNODE-REST-FLAG SYSTEM::FNODE-KEYWORD-FLAG SYSTEM::FNODE-KEYWORDS
      SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG))
#Y(#:TOP-LEVEL-FORM-174
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TEST-ARGUMENT-SYNTAX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TEST-ARGUMENT-SYNTAX
      #238Y(00 00 00 00 09 00 00 00 00 00 B5 8F 09 08 B5 38 01 31 9B 5C 1D 08
            DA 6F 01 B4 B7 2D 03 02 B5 72 45 B3 B3 73 02 36 92 0A 06 B4 AE 91
            01 32 33 92 06 09 92 05 06 AD AD 91 01 32 27 93 05 3A AD AD 90 01
            32 37 92 06 37 AD AD 82 01 37 01 AC B8 80 9A 0B AD 8E 94 80 56 E2
            6F 01 B6 B9 2D 03 04 00 19 0C DD 6F 01 B6 AF B9 92 0A 01 A6 14 B9
            B2 71 FF BA B3 2D 08 04 1B 67 CA 19 0C CB 19 0C CC 19 0C CC 19 10
            E5 6F 01 94 04 BB 2D 03 04 CC 19 10 CC 19 10 7E 02 93 02 3C 1B 80
            43 E8 6F 01 AD BA B6 72 45 D4 5A 14 B7 2D 05 04 00 19 0F B7 B0 63
            93 02 34 94 02 AC 89 09 48 AC 2F 0A F8 14 8F 04 43 AC 25 0C 0C A0
            5C 78 89 09 45 A0 5C 78 88 0A 42 92 02 0A AC B5 E7 38 02 8C B2 02
            9D F9 16 01 9F 5C 5C FA 92 02 4C 92 00 FF B0 CB 19 0F)
      "argument list to function ~S is dotted: ~S" SYSTEM::TEXT SYSTEM::C-ERROR
      "~S was called with ~S~:[~; or more~] arguments, ~
                     but it requires ~:[~:[from ~S to ~S~;~S~]~;~
                     at least ~*~S~] argument~:p."
      SYSTEM::C-WARN SYSTEM::NO-KEYS SYSTEM::STATIC-KEYS SYSTEM::DYNAMIC-KEYS
      "keyword arguments to function ~S should occur pairwise: ~S"
      SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE
      "argument ~S to function ~S is not a symbol" :ALLOW-OTHER-KEYS
      #.#'COMMON-LISP::EQ
      "keyword ~S is not allowed for function ~S.~
                             ~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
      1.))
#Y(#:TOP-LEVEL-FORM-175
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-DIRECT-FUNCTION-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DIRECT-FUNCTION-CALL
      #949Y(02 00 01 00 0A 00 00 00 00 00 63 93 03 04 A6 26 01 24 C5 1B 22 7E
            00 C7 1B 1D C8 1B 1A C9 1B 17 02 10 07 00 10 06 B5 36 00 12 02 E2
            B9 B9 33 02 23 7A 2F 09 19 0D CA 14 0E 06 1C 04 9D 5C 1D 60 B8 72
            45 B6 B6 73 02 36 AE 63 0E 0A 10 0A E5 B3 B3 73 01 35 1B 80 EF EB
            EC 30 13 93 0D 80 4E 1B 80 47 AD 32 95 1B 0E B1 B3 73 01 37 94 13
            E6 70 09 92 10 6E 9E 14 0E 0A 5D 0F 0A BC AE BF B0 73 01 35 6E 03
            15 B3 AE 6F 0D 30 0E FF AD 84 06 B3 AD 6F 0D 30 0E FF AC 84 06 16
            03 93 0D 82 A1 1B 81 30 92 0B FF B1 93 0D 04 EB EE 30 13 B1 B3 90
            01 33 FF B3 0E 0A 10 0A C2 93 00 20 94 00 83 01 E6 70 09 B5 AD 6F
            0D 30 0E 09 09 AC 84 08 16 01 F0 84 07 EA 0E 0A 5D 0F 0A 92 00 60
            94 16 E6 70 09 B5 AD 6F 0D 30 0E 09 09 AC 84 08 16 01 F1 B7 B7 73
            01 37 7B 02 84 07 16 01 11 F2 84 03 D5 1B 80 9E B1 B3 73 01 37 F3
            AD 7B 02 84 04 AC 0E 0A 5D 0F 0A 16 01 93 0E 80 B5 1B 80 41 F5 84
            03 F6 84 03 D5 1B 80 7A 94 15 83 16 AC E6 70 09 B4 AD 6F 0D 30 0E
            09 08 AC 84 07 16 02 E9 84 05 EA 0E 0A 5D 0F 0A 85 01 AD AD 91 01
            33 5A 16 02 92 12 FF 50 B1 B3 90 01 31 FF A9 93 0E 80 71 92 0B 80
            4B 93 13 FF B7 0E 0A 10 0A C2 93 00 20 94 00 83 01 E6 70 09 B5 AD
            6F 0D 30 0E 09 09 AC 84 08 16 01 F7 84 07 EA 0E 0A 5D 0F 0A 92 00
            60 65 1E B7 B7 73 01 37 7B 02 84 07 16 01 11 65 1F 84 03 D5 14 0E
            0A 5D 0F 0A 93 0D 81 96 1B 26 93 13 1F 94 13 83 14 E6 70 09 B1 AD
            6F 0D 30 0E FD AC 84 04 16 01 F4 84 03 EA 0E 0A 5D 0F 0A 92 13 61
            93 0D 81 6E B8 72 45 AC 63 BB 1B 13 D1 1B 80 41 94 00 AC 86 04 14
            64 7B 03 84 02 16 01 83 00 9D 21 6E 16 01 AC 31 A2 16 01 F8 63 93
            16 80 47 94 16 83 17 6F 20 AC AF 65 21 38 02 71 B9 9D 5C 5C 78 94
            19 83 1A E5 0E 0A 5D 10 0A AF 92 05 FF BC 00 14 70 09 BB AD 6F 0D
            30 0E 09 0F 64 A4 5C 78 AE 6B 0A 7B 04 84 08 16 01 11 9F 5C 79 63
            31 A7 16 04 92 16 FF B9 AC 81 47 00 E5 E5 63 AF 93 00 80 45 94 00
            9D 5B 1D 37 9D 5C 5B 1D 0D 9D 5C 78 B4 EA B3 73 02 37 91 01 2E 25
            AC B2 AF 03 22 34 1D 1D 9D 5C 5C 5C 78 B1 31 A7 9D 5C 5C 78 84 0B
            9D 5C 5B 1D 06 65 23 84 0B 85 04 AC 63 31 A7 16 01 83 00 92 00 FF
            BB 16 01 AF 81 47 03 14 93 00 80 44 94 00 9D 5B 1D 36 9D 5C 5B 1D
            08 9D 5C 78 B0 91 01 2E 29 AC B2 AF 03 22 34 1D 21 9D 5C 5B 1D 06
            65 24 84 02 85 03 9D 5C 5C 5C 78 B4 B1 73 01 37 31 A7 9D 5C 5C 78
            84 02 AC 63 31 A7 16 01 83 00 92 00 FF BC 16 01 AF 81 47 03 B1 AE
            73 01 37 AC B0 91 01 31 0A F3 AD B1 73 01 37 7B 02 84 0A B0 63 1B
            28 87 01 00 5B 1D 20 9D 5C 5C 5C 78 AF 31 A7 9D 5C 5C 78 84 0C 9D
            5C 5B 1D 0D 65 25 9E 5C 78 B2 73 01 37 7B 02 84 0C 83 01 AD 8D 91
            54 16 03 AC B6 80 A1 09 16 05 AC 0E 0A 5D 0F 0A 16 01 AF B7 76 00
            80 A1 03 11 93 05 80 5D 65 26 AD 91 00 29 80 55 63 AD 63 1B 0E 87
            01 00 14 89 27 05 AC 6F 28 84 02 83 01 AD 8D 91 6E 16 02 AC 81 47
            00 63 47 29 30 AE 2C 2A 01 10 2B C2 A5 37 00 43 11 FB 48 65 2C 63
            AE 1B 0D 94 00 65 2D AD 7B 02 84 02 16 01 83 00 9D 21 70 16 01 AC
            31 A2 16 01 7A 2F 2E 19 13 1C 5C 16 02 65 2F BB 7B 02 AE AE 2D 03
            30 19 11)
      (COMMON-LISP::T . COMMON-LISP::T)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (CLOS::%ALLOCATE-INSTANCE . 12.) (SYSTEM::LOG10 . 12.)
         (SYSTEM::LOG2 . 12.) (COMMON-LISP::BYTE-POSITION . 12.)
         (COMMON-LISP::BYTE-SIZE . 12.) (COMMON-LISP::BYTE . 12.)
         (COMMON-LISP::FLOAT . 12.) (COMMON-LISP::ATANH . 12.)
         (COMMON-LISP::ACOSH . 12.) (COMMON-LISP::ASINH . 12.)
         (COMMON-LISP::TANH . 12.) (COMMON-LISP::COSH . 12.)
         (COMMON-LISP::SINH . 12.) (COMMON-LISP::ATAN . 12.)
         (COMMON-LISP::ACOS . 12.) (COMMON-LISP::ASIN . 12.)
         (COMMON-LISP::CIS . 12.) (COMMON-LISP::TAN . 12.)
         (COMMON-LISP::COS . 12.) (COMMON-LISP::SIN . 12.)
         (COMMON-LISP::SIGNUM . 12.) (COMMON-LISP::PHASE . 12.)
         (COMMON-LISP::ABS . 12.) (COMMON-LISP::SQRT . 12.)
         (COMMON-LISP::LOG . 12.) (COMMON-LISP::EXPT . 12.)
         (COMMON-LISP::EXP . 12.) (COMMON-LISP::FROUND . 12.)
         (COMMON-LISP::FTRUNCATE . 12.) (COMMON-LISP::FCEILING . 12.)
         (COMMON-LISP::FFLOOR . 12.) (COMMON-LISP::GENSYM . 12.)
         (EXT::SPECIAL-VARIABLE-P . 12.) (COMMON-LISP::KEYWORDP . 12.)
         (COMMON-LISP::SYMBOL-PLIST . 12.) (COMMON-LISP::SYMBOL-PACKAGE . 12.)
         (COMMON-LISP::GET-PROPERTIES . 12.) (COMMON-LISP::GETF . 12.)
         (COMMON-LISP::GET . 12.) (SYSTEM::BUILT-IN-STREAM-ELEMENT-TYPE . 12.)
         (COMMON-LISP::FILE-LENGTH . 12.) (COMMON-LISP::OUTPUT-STREAM-P . 12.)
         (COMMON-LISP::INPUT-STREAM-P . 12.)
         (SYSTEM::BUILT-IN-STREAM-OPEN-P . 12.)
         (EXT::MAKE-BUFFERED-OUTPUT-STREAM . 12.)
         (EXT::MAKE-BUFFERED-INPUT-STREAM . 12.)
         (SYSTEM::MAKE-STRING-PUSH-STREAM . 12.)
         (COMMON-LISP::MAKE-STRING-OUTPUT-STREAM . 12.)
         (SYSTEM::STRING-INPUT-STREAM-INDEX . 12.)
         (COMMON-LISP::MAKE-STRING-INPUT-STREAM . 12.)
         (COMMON-LISP::ECHO-STREAM-OUTPUT-STREAM . 12.)
         (COMMON-LISP::ECHO-STREAM-INPUT-STREAM . 12.)
         (COMMON-LISP::MAKE-ECHO-STREAM . 12.)
         (COMMON-LISP::TWO-WAY-STREAM-OUTPUT-STREAM . 12.)
         (COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM . 12.)
         (COMMON-LISP::MAKE-TWO-WAY-STREAM . 12.)
         (COMMON-LISP::CONCATENATED-STREAM-STREAMS . 12.)
         (COMMON-LISP::MAKE-CONCATENATED-STREAM . 12.)
         (COMMON-LISP::BROADCAST-STREAM-STREAMS . 12.)
         (COMMON-LISP::MAKE-BROADCAST-STREAM . 12.)
         (COMMON-LISP::SYNONYM-STREAM-SYMBOL . 12.)
         (COMMON-LISP::MAKE-SYNONYM-STREAM . 12.)
         (COMMON-LISP::CONCATENATE . 12.) (COMMON-LISP::REVERSE . 12.)
         (COMMON-LISP::LENGTH . 12.) (COMMON-LISP::COPY-SEQ . 12.)
         (COMMON-LISP::SUBSEQ . 12.) (COMMON-LISP::ELT . 12.)
         (SYSTEM::SEQUENCEP . 12.) (CLOS::SLOT-EXISTS-P . 12.)
         (SYSTEM::%MAKE-CLOSURE . 12.) (SYSTEM::MAKE-CODE-VECTOR . 12.)
         (SYSTEM::CLOSURE-CONSTS . 12.) (SYSTEM::CLOSURE-CODEVEC . 12.)
         (SYSTEM::CLOSURE-NAME . 12.) (SYSTEM::%STRUCTURE-TYPE-P . 12.)
         (COMMON-LISP::COPY-STRUCTURE . 12.) (SYSTEM::%MAKE-STRUCTURE . 12.)
         (SYSTEM::%STRUCTURE-REF . 12.) (SYSTEM::%RECORD-LENGTH . 12.)
         (SYSTEM::%RECORD-REF . 12.) (COMMON-LISP::COERCE . 12.)
         (CLOS::CLASS-OF . 12.) (CLOS::CLASS-P . 12.)
         (COMMON-LISP::TYPE-OF . 12.) (CLOS::GENERIC-FUNCTION-P . 12.)
         (COMMON-LISP::COMPILED-FUNCTION-P . 12.) (COMMON-LISP::EQUALP . 12.)
         (COMMON-LISP::EQUAL . 12.) (COMMON-LISP::FILE-AUTHOR . 12.)
         (COMMON-LISP::FILE-WRITE-DATE . 12.) (COMMON-LISP::DIRECTORY . 12.)
         (COMMON-LISP::PROBE-FILE . 12.) (COMMON-LISP::TRUENAME . 12.)
         (COMMON-LISP::NAMESTRING . 12.) (COMMON-LISP::MAKE-PATHNAME . 12.)
         (COMMON-LISP::ENOUGH-NAMESTRING . 12.)
         (COMMON-LISP::MERGE-PATHNAMES . 12.)
         (COMMON-LISP::HOST-NAMESTRING . 12.)
         (COMMON-LISP::DIRECTORY-NAMESTRING . 12.)
         (COMMON-LISP::FILE-NAMESTRING . 12.)
         (COMMON-LISP::PATHNAME-VERSION . 12.)
         (COMMON-LISP::PATHNAME-TYPE . 12.) (COMMON-LISP::PATHNAME-NAME . 12.)
         (COMMON-LISP::PATHNAME-DIRECTORY . 12.)
         (COMMON-LISP::PATHNAME-DEVICE . 12.)
         (COMMON-LISP::PATHNAME-HOST . 12.) (COMMON-LISP::PATHNAME . 12.)
         (COMMON-LISP::PARSE-NAMESTRING . 12.)
         (COMMON-LISP::FIND-ALL-SYMBOLS . 12.) (COMMON-LISP::FIND-SYMBOL . 12.)
         (COMMON-LISP::LIST-ALL-PACKAGES . 12.)
         (COMMON-LISP::PACKAGE-SHADOWING-SYMBOLS . 12.)
         (COMMON-LISP::PACKAGE-USED-BY-LIST . 12.)
         (COMMON-LISP::PACKAGE-USE-LIST . 12.)
         (COMMON-LISP::PACKAGE-NICKNAMES . 12.)
         (COMMON-LISP::PACKAGE-NAME . 12.) (COMMON-LISP::FIND-PACKAGE . 12.)
         (SYSTEM::%%TIME . 12.) (COMMON-LISP::GET-INTERNAL-REAL-TIME . 12.)
         (COMMON-LISP::GET-INTERNAL-RUN-TIME . 12.)
         (COMMON-LISP::GET-UNIVERSAL-TIME . 12.) (COMMON-LISP::PAIRLIS . 12.)
         (COMMON-LISP::TAILP . 12.) (COMMON-LISP::LDIFF . 12.)
         (COMMON-LISP::BUTLAST . 12.) (COMMON-LISP::REVAPPEND . 12.)
         (COMMON-LISP::COPY-TREE . 12.) (COMMON-LISP::COPY-ALIST . 12.)
         (COMMON-LISP::COPY-LIST . 12.) (COMMON-LISP::APPEND . 12.)
         (COMMON-LISP::LAST . 12.) (COMMON-LISP::NTHCDR . 12.)
         (COMMON-LISP::REST . 12.) (COMMON-LISP::TENTH . 12.)
         (COMMON-LISP::NINTH . 12.) (COMMON-LISP::EIGHTH . 12.)
         (COMMON-LISP::SEVENTH . 12.) (COMMON-LISP::SIXTH . 12.)
         (COMMON-LISP::FIFTH . 12.) (COMMON-LISP::FOURTH . 12.)
         (COMMON-LISP::THIRD . 12.) (COMMON-LISP::SECOND . 12.)
         (COMMON-LISP::FIRST . 12.) (COMMON-LISP::NTH . 12.)
         (COMMON-LISP::LIST-LENGTH . 12.) (COMMON-LISP::CDDDDR . 12.)
         (COMMON-LISP::CDDDAR . 12.) (COMMON-LISP::CDDADR . 12.)
         (COMMON-LISP::CDDAAR . 12.) (COMMON-LISP::CDADDR . 12.)
         (COMMON-LISP::CDADAR . 12.) (COMMON-LISP::CDAADR . 12.)
         (COMMON-LISP::CDAAAR . 12.) (COMMON-LISP::CADDDR . 12.)
         (COMMON-LISP::CADDAR . 12.) (COMMON-LISP::CADADR . 12.)
         (COMMON-LISP::CADAAR . 12.) (COMMON-LISP::CAADDR . 12.)
         (COMMON-LISP::CAADAR . 12.) (COMMON-LISP::CAAADR . 12.)
         (COMMON-LISP::CAAAAR . 12.) (COMMON-LISP::CDDDR . 12.)
         (COMMON-LISP::CDDAR . 12.) (COMMON-LISP::CDADR . 12.)
         (COMMON-LISP::CDAAR . 12.) (COMMON-LISP::CADDR . 12.)
         (COMMON-LISP::CADAR . 12.) (COMMON-LISP::CAADR . 12.)
         (COMMON-LISP::CAAAR . 12.) (COMMON-LISP::CDDR . 12.)
         (COMMON-LISP::CDAR . 12.) (COMMON-LISP::CADR . 12.)
         (COMMON-LISP::CAAR . 12.) (COMMON-LISP::CDR . 12.)
         (COMMON-LISP::CAR . 12.)
         (COMMON-LISP::GET-DISPATCH-MACRO-CHARACTER . 12.)
         (COMMON-LISP::GET-MACRO-CHARACTER . 12.) (COMMON-LISP::SXHASH . 12.)
         (SYSTEM::HASH-TABLE-ITERATOR . 12.)
         (COMMON-LISP::HASH-TABLE-SIZE . 12.)
         (COMMON-LISP::HASH-TABLE-REHASH-THRESHOLD . 12.)
         (COMMON-LISP::HASH-TABLE-REHASH-SIZE . 12.)
         (COMMON-LISP::HASH-TABLE-COUNT . 12.) (COMMON-LISP::GETHASH . 12.)
         (COMMON-LISP::MAKE-HASH-TABLE . 12.) (COMMON-LISP::CONSTANTP . 12.)
         (COMMON-LISP::MACRO-FUNCTION . 12.) (COMMON-LISP::VALUES-LIST . 12.)
         (COMMON-LISP::FBOUNDP . 12.) (COMMON-LISP::BOUNDP . 12.)
         (COMMON-LISP::SYMBOL-FUNCTION . 12.) (COMMON-LISP::SYMBOL-VALUE . 12.)
         (COMMON-LISP::MAKE-SYMBOL . 12.) (EXT::STRING-CONCAT . 12.)
         (EXT::SUBSTRING . 12.) (COMMON-LISP::NAME-CHAR . 12.)
         (COMMON-LISP::STRING . 12.) (COMMON-LISP::STRING-CAPITALIZE . 12.)
         (COMMON-LISP::STRING-DOWNCASE . 12.)
         (COMMON-LISP::STRING-UPCASE . 12.) (SYSTEM::STRING-BOTH-TRIM . 12.)
         (SYSTEM::SEARCH-STRING-EQUAL . 12.) (SYSTEM::SEARCH-STRING= . 12.)
         (COMMON-LISP::STRING-NOT-LESSP . 12.)
         (COMMON-LISP::STRING-NOT-GREATERP . 12.)
         (COMMON-LISP::STRING-GREATERP . 12.) (COMMON-LISP::STRING-LESSP . 12.)
         (COMMON-LISP::STRING-NOT-EQUAL . 12.)
         (COMMON-LISP::STRING-EQUAL . 12.) (COMMON-LISP::STRING>= . 12.)
         (COMMON-LISP::STRING<= . 12.) (COMMON-LISP::STRING> . 12.)
         (COMMON-LISP::STRING< . 12.) (COMMON-LISP::STRING/= . 12.)
         (COMMON-LISP::STRING= . 12.) (COMMON-LISP::SCHAR . 12.)
         (COMMON-LISP::CHAR . 12.) (COMMON-LISP::CHARACTER . 12.)
         (COMMON-LISP::MAKE-ARRAY . 12.) (COMMON-LISP::FILL-POINTER . 12.)
         (COMMON-LISP::ARRAY-HAS-FILL-POINTER-P . 12.)
         (COMMON-LISP::SBIT . 12.) (COMMON-LISP::BIT . 12.)
         (COMMON-LISP::ARRAY-ROW-MAJOR-INDEX . 12.)
         (COMMON-LISP::ARRAY-IN-BOUNDS-P . 12.)
         (COMMON-LISP::ARRAY-TOTAL-SIZE . 12.)
         (COMMON-LISP::ARRAY-DIMENSIONS . 12.)
         (COMMON-LISP::ARRAY-DIMENSION . 12.)
         (COMMON-LISP::ROW-MAJOR-AREF . 12.) (COMMON-LISP::SVREF . 12.)
         (COMMON-LISP::AREF . 12.) (SYSTEM::%COPY-SIMPLE-VECTOR . 12.)
         (SYSTEM::SUBR-INFO . 12.) (SYSTEM::DECIMAL-STRING . 9.)
         (COMMON-LISP::SYMBOL-NAME . 9.) (SYSTEM::MAKE-SYMBOL-MACRO . 9.)
         (SYSTEM::MAKE-LOAD-TIME-EVAL . 9.)
         (COMMON-LISP::SOFTWARE-VERSION . 9.) (COMMON-LISP::SOFTWARE-TYPE . 9.)
         (COMMON-LISP::LISP-IMPLEMENTATION-VERSION . 9.)
         (COMMON-LISP::LISP-IMPLEMENTATION-TYPE . 9.) (COMMON-LISP::ACONS . 9.)
         (COMMON-LISP::MAKE-LIST . 9.) (COMMON-LISP::LIST* . 9.)
         (COMMON-LISP::LIST . 9.) (COMMON-LISP::CONS . 9.)
         (COMMON-LISP::VALUES . 9.) (COMMON-LISP::MAKE-STRING . 9.)
         (COMMON-LISP::VECTOR . 9.) (POSIX::YN . 4.) (POSIX::Y1 . 4.)
         (POSIX::Y0 . 4.) (POSIX::JN . 4.) (POSIX::J1 . 4.) (POSIX::J0 . 4.)
         (POSIX::ERFC . 4.) (POSIX::ERF . 4.) (POSIX::LGAMMA . 4.)
         (POSIX::GAMMA . 4.) (EXT::EXQUO . 4.) (EXT::! . 4.)
         (COMMON-LISP::DEPOSIT-FIELD . 4.) (COMMON-LISP::DPB . 4.)
         (COMMON-LISP::MASK-FIELD . 4.) (COMMON-LISP::LDB-TEST . 4.)
         (COMMON-LISP::LDB . 4.) (COMMON-LISP::INTEGER-LENGTH . 4.)
         (COMMON-LISP::LOGCOUNT . 4.) (COMMON-LISP::ASH . 4.)
         (COMMON-LISP::LOGBITP . 4.) (COMMON-LISP::LOGTEST . 4.)
         (COMMON-LISP::LOGNOT . 4.) (COMMON-LISP::BOOLE . 4.)
         (COMMON-LISP::LOGORC2 . 4.) (COMMON-LISP::LOGORC1 . 4.)
         (COMMON-LISP::LOGANDC2 . 4.) (COMMON-LISP::LOGANDC1 . 4.)
         (COMMON-LISP::LOGNOR . 4.) (COMMON-LISP::LOGNAND . 4.)
         (COMMON-LISP::LOGEQV . 4.) (COMMON-LISP::LOGAND . 4.)
         (COMMON-LISP::LOGXOR . 4.) (COMMON-LISP::LOGIOR . 4.)
         (COMMON-LISP::IMAGPART . 4.) (COMMON-LISP::REALPART . 4.)
         (COMMON-LISP::COMPLEX . 4.) (COMMON-LISP::INTEGER-DECODE-FLOAT . 4.)
         (COMMON-LISP::FLOAT-PRECISION . 4.) (COMMON-LISP::FLOAT-DIGITS . 4.)
         (COMMON-LISP::FLOAT-SIGN . 4.) (COMMON-LISP::FLOAT-RADIX . 4.)
         (COMMON-LISP::SCALE-FLOAT . 4.) (COMMON-LISP::DECODE-FLOAT . 4.)
         (COMMON-LISP::REM . 4.) (COMMON-LISP::MOD . 4.)
         (COMMON-LISP::ROUND . 4.) (COMMON-LISP::TRUNCATE . 4.)
         (COMMON-LISP::CEILING . 4.) (COMMON-LISP::FLOOR . 4.)
         (COMMON-LISP::DENOMINATOR . 4.) (COMMON-LISP::NUMERATOR . 4.)
         (COMMON-LISP::RATIONALIZE . 4.) (COMMON-LISP::RATIONAL . 4.)
         (COMMON-LISP::ISQRT . 4.) (COMMON-LISP::LCM . 4.)
         (COMMON-LISP::GCD . 4.) (COMMON-LISP::CONJUGATE . 4.)
         (COMMON-LISP::1- . 4.) (COMMON-LISP::1+ . 4.) (COMMON-LISP::/ . 4.)
         (COMMON-LISP::* . 4.) (COMMON-LISP::- . 4.) (COMMON-LISP::+ . 4.)
         (COMMON-LISP::MIN . 4.) (COMMON-LISP::MAX . 4.) (COMMON-LISP::>= . 4.)
         (COMMON-LISP::<= . 4.) (COMMON-LISP::> . 4.) (COMMON-LISP::< . 4.)
         (COMMON-LISP::/= . 4.) (COMMON-LISP::= . 4.) (COMMON-LISP::EVENP . 4.)
         (COMMON-LISP::ODDP . 4.) (COMMON-LISP::MINUSP . 4.)
         (COMMON-LISP::PLUSP . 4.) (COMMON-LISP::ZEROP . 4.)
         (CLOS::STD-INSTANCE-P . 4.) (CLOS::STRUCTURE-OBJECT-P . 4.)
         (SYSTEM::SYMBOL-MACRO-P . 4.) (COMMON-LISP::SIMPLE-BIT-VECTOR-P . 4.)
         (COMMON-LISP::SIMPLE-STRING-P . 4.)
         (COMMON-LISP::SIMPLE-VECTOR-P . 4.) (COMMON-LISP::VECTORP . 4.)
         (COMMON-LISP::BIT-VECTOR-P . 4.) (SYSTEM::SIMPLE-ARRAY-P . 4.)
         (COMMON-LISP::ARRAYP . 4.) (COMMON-LISP::PACKAGEP . 4.)
         (COMMON-LISP::FUNCTIONP . 4.) (COMMON-LISP::CHARACTERP . 4.)
         (SYSTEM::LOGICAL-PATHNAME-P . 4.) (COMMON-LISP::HASH-TABLE-TEST . 4.)
         (COMMON-LISP::PATHNAMEP . 4.) (COMMON-LISP::HASH-TABLE-P . 4.)
         (COMMON-LISP::READTABLEP . 4.) (COMMON-LISP::RANDOM-STATE-P . 4.)
         (SYSTEM::STRING-STREAM-P . 4.) (SYSTEM::ECHO-STREAM-P . 4.)
         (SYSTEM::TWO-WAY-STREAM-P . 4.) (SYSTEM::CONCATENATED-STREAM-P . 4.)
         (SYSTEM::BROADCAST-STREAM-P . 4.) (SYSTEM::SYNONYM-STREAM-P . 4.)
         (SYSTEM::FILE-STREAM-P . 4.) (COMMON-LISP::STREAMP . 4.)
         (COMMON-LISP::COMPLEXP . 4.) (COMMON-LISP::REALP . 4.)
         (SYSTEM::LONG-FLOAT-P . 4.) (SYSTEM::DOUBLE-FLOAT-P . 4.)
         (SYSTEM::SINGLE-FLOAT-P . 4.) (SYSTEM::SHORT-FLOAT-P . 4.)
         (COMMON-LISP::FLOATP . 4.) (COMMON-LISP::RATIONALP . 4.)
         (SYSTEM::FIXNUMP . 4.) (COMMON-LISP::INTEGERP . 4.)
         (COMMON-LISP::LISTP . 4.) (SYSTEM::CLOSUREP . 4.)
         (COMMON-LISP::NOT . 4.) (COMMON-LISP::NULL . 4.)
         (COMMON-LISP::NUMBERP . 4.) (COMMON-LISP::STRINGP . 4.)
         (COMMON-LISP::SYMBOLP . 4.) (COMMON-LISP::ATOM . 4.)
         (COMMON-LISP::CONSP . 4.) (COMMON-LISP::EQL . 4.)
         (COMMON-LISP::EQ . 4.) (COMMON-LISP::IDENTITY . 4.)
         (COMMON-LISP::ENDP . 4.) (COMMON-LISP::SPECIAL-OPERATOR-P . 4.)
         (COMMON-LISP::CHAR-NAME . 4.) (EXT::INT-CHAR . 4.)
         (COMMON-LISP::CHAR-INT . 4.) (COMMON-LISP::DIGIT-CHAR . 4.)
         (COMMON-LISP::CHAR-DOWNCASE . 4.) (COMMON-LISP::CHAR-UPCASE . 4.)
         (COMMON-LISP::CODE-CHAR . 4.) (COMMON-LISP::CHAR-CODE . 4.)
         (COMMON-LISP::CHAR-NOT-LESSP . 4.)
         (COMMON-LISP::CHAR-NOT-GREATERP . 4.)
         (COMMON-LISP::CHAR-GREATERP . 4.) (COMMON-LISP::CHAR-LESSP . 4.)
         (COMMON-LISP::CHAR-NOT-EQUAL . 4.) (COMMON-LISP::CHAR-EQUAL . 4.)
         (COMMON-LISP::CHAR>= . 4.) (COMMON-LISP::CHAR<= . 4.)
         (COMMON-LISP::CHAR> . 4.) (COMMON-LISP::CHAR< . 4.)
         (COMMON-LISP::CHAR/= . 4.) (COMMON-LISP::CHAR= . 4.)
         (COMMON-LISP::ALPHANUMERICP . 4.) (COMMON-LISP::DIGIT-CHAR-P . 4.)
         (COMMON-LISP::BOTH-CASE-P . 4.) (COMMON-LISP::LOWER-CASE-P . 4.)
         (COMMON-LISP::UPPER-CASE-P . 4.) (COMMON-LISP::ALPHA-CHAR-P . 4.)
         (EXT::STRING-CHAR-P . 4.) (COMMON-LISP::GRAPHIC-CHAR-P . 4.)
         (COMMON-LISP::STANDARD-CHAR-P . 4.)
         (COMMON-LISP::ADJUSTABLE-ARRAY-P . 4.) (COMMON-LISP::ARRAY-RANK . 4.)
         (COMMON-LISP::ARRAY-ELEMENT-TYPE . 4.) (SYSTEM::%FUNTABREF . 4.))
      (COMMON-LISP::NIL) (COMMON-LISP::NIL) (COMMON-LISP::T)
      (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::*FOR-VALUE* SYSTEM::*NO-CODE*
      COMMON-LISP::PROGN SYSTEM::C-FORM SYSTEM::*STACKZ* 0. SYSTEM::ONE
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2 (COMMON-LISP::PUSH) 1.
      SYSTEM::C-DIRECT-FUNCTION-CALL "APPLY-SUBR" SYSTEM::COMPILER-ERROR
      "APPLY-KEY" SYSTEM::C-UNLIST (COMMON-LISP::PUSH) COMMON-LISP::LIST*
      (COMMON-LISP::PUSH) SYSTEM::PUSH-UNBOUND (COMMON-LISP::PUSH)
      (COMMON-LISP::NIL) (COMMON-LISP::PUSH) (COMMON-LISP::PUSH)
      COMMON-LISP::LIST (COMMON-LISP::PUSH) SYSTEM::C-CONSTANT-VALUE
      #.#'COMMON-LISP::EQ
      #Y(SYSTEM::C-DIRECT-FUNCTION-CALL-COMMUTE-WITH-REST-P
         #38Y(00 00 00 00 03 00 00 00 00 04 A0 5C 5C 78 AF 1B 0E 00 19 06 AD 9E
              5B 5C 5C 78 8B 00 74 83 00 AC A1 23 71 02 19 06)
         SYSTEM::ANODES-COMMUTE)
      (COMMON-LISP::PUSH) (COMMON-LISP::PUSH) SYSTEM::STORE
      #Y(SYSTEM::C-DIRECT-FUNCTION-CALL-1
         #23Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 59 1E 05 AD 2F 01 19 02 19
              02)
         SYSTEM::ANODE-P SYSTEM::ANODE-CONSTANTP)
      SYSTEM::ANODE-P SYSTEM::ANODE-CONSTANT-VALUE SYSTEM::TRY-EVAL
      #Y(SYSTEM::C-DIRECT-FUNCTION-CALL-2
         #13Y(00 00 00 00 00 00 00 00 01 16 00 49 00) COMMON-LISP::NIL)
      CUSTOM::*ERROR-HANDLER* COMMON-LISP::VALUES COMMON-LISP::QUOTE
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM SYSTEM::DIRECT-CALL
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-176
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-UNLIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-UNLIST
      #43Y(00 00 00 00 03 00 00 00 00 04 92 03 15 E0 E1 CB 14 B1 B1 7B 03 61 01
           14 2D 03 04 19 04 DB DC C8 1B 75 AE 24 00 77 DB DF C6 1B 65)
      0. SYSTEM::UNLIST* (COMMON-LISP::NIL) ((COMMON-LISP::PUSH))
      SYSTEM::MK-ANODE (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::UNLIST
      (COMMON-LISP::T . COMMON-LISP::T)))
#Y(#:TOP-LEVEL-FORM-177
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CCLOSURE-CALL-CODE-PRODUCER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CCLOSURE-CALL-CODE-PRODUCER
      #67Y(00 00 00 00 07 00 00 00 00 00 00 2B 02 7F 08 00 00 7F 03 00 01 B3 0E
           00 22 09 AC 2C 06 01 19 09 C7 1B 0A 9D 2B 01 DB B4 B4 92 08 74 C8 14
           B3 72 45 73 04 36 6B 04 7B 03 61 01 0B 00 00 AC 2C 05 01 19 0A)
      SYSTEM::*FUNC* SYSTEM::JSR 1. 0. SYSTEM::*FUNC-START-LABEL*
      #Y(SYSTEM::CCLOSURE-CALL-CODE-PRODUCER-1
         #15Y(00 00 00 00 00 00 00 00 00 01 07 00 01 19 01) COMMON-LISP::NIL)
      #Y(SYSTEM::CCLOSURE-CALL-CODE-PRODUCER-2
         #33Y(00 00 00 00 00 00 00 00 00 01 DB 69 00 01 7B 02 DC 70 03 07 00 02
              1C 06 CA 14 61 02 19 01 C9 1B 78)
         COMMON-LISP::NIL COMMON-LISP::FUNCTION SYSTEM::ONE SYSTEM::C-FORM
         (SYSTEM::CALLCKEY) (SYSTEM::CALLC))))
#Y(#:TOP-LEVEL-FORM-178
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM
      #21Y(00 00 00 00 01 00 00 00 00 02 9E 10 00 0E 00 78 2F 01 11 19 02)
      SYSTEM::*FORM* SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-179
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-GLOBAL-FUNCTION-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-GLOBAL-FUNCTION-CALL
      #791Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB 30 02 AD 0E 00 79 63 2D 03
            03 0E 04 1D 80 C8 AD 25 05 13 6B 00 72 45 E0 91 01 2E 0A 0E 00 5C
            78 AC 88 07 1D 16 01 AD 24 0D 04 AD 25 0E 09 99 07 0E 00 79 90 00
            29 22 0E 11 1D 80 9B 9E 26 12 80 96 E2 E3 E4 AF 6F 0B 7B 02 7B 02
            7B 02 2F 0C 16 01 1B 53 D4 1B 0D D5 1B 0A E2 AE 24 0D 75 AE 24 0E
            74 00 14 63 0E 00 79 1B 0E 94 00 E4 AD 6F 0B 7B 02 84 02 16 01 83
            00 9D 21 6F 16 01 AC 31 A2 16 01 7A 7B 02 2F 0C 0E 11 1D 80 4B 1B
            FF AD 99 07 0E 00 79 91 00 29 3F AD 63 0E 00 79 1B 28 9D 1B 1E AF
            2F 15 19 04 94 00 AC 6F 0B AC 8E 06 6F AC 8E 1A 6B AC 8E 1E 67 AC
            8E 8B 63 E4 AD 61 02 F8 84 02 16 01 83 00 9D 21 5D 16 01 AC 31 A2
            16 01 7A 0E 13 5D 0F 13 0E 00 79 AC 72 45 AF 8D 4F 41 AF 88 14 FF
            BC AF 64 30 16 42 08 93 07 0C B5 63 B9 B5 B5 B5 B5 B5 B5 2D 09 17
            F8 93 07 82 05 B7 A5 23 82 00 A8 26 18 81 E0 A8 26 19 10 03 1A 1B
            0E 03 1B 1B 0A 03 1E 1B 21 2E 22 19 0D 03 1C 14 0E 1D 1C 04 9D 5C
            1D 6D B8 25 1F 15 6B 1D 25 20 10 B5 65 21 90 01 2E 61 03 23 14 A8
            7A 2F 0C 19 0D AC 63 0E 24 10 24 93 0F 29 1B 0D 65 27 84 03 DB 0E
            24 5D 0F 24 93 0F 1A 94 0F 83 10 65 20 70 0C B1 AD 6F 25 30 26 FD
            AC 84 04 16 01 92 0F 5C 92 0F 66 AF 04 12 26 28 80 FF 03 29 1B 80
            FE 03 2A 1B 80 F9 03 2B 1B 80 F4 03 2C 1B 80 EF 03 2D 1B 80 EA 03
            2E 1B 80 E5 03 2F 1B 80 E0 03 30 1B 80 DB 03 31 1B 80 D6 03 32 1B
            80 D1 03 33 1B 80 CC 03 34 1B 80 C7 03 35 1B 80 C2 03 36 1B 80 BD
            03 37 1B 80 B8 03 38 1B 80 B3 03 39 1B 80 AE 03 3A 1B 80 A9 03 3B
            1B 80 A4 03 3C 1B 80 9F 03 3D 1B 80 9A 03 3E 1B 80 95 03 3F 1B 80
            90 03 40 1B 80 8B 03 41 1B 80 86 03 42 1B 80 81 03 43 1B 80 7C 03
            44 1B 80 77 03 45 1B 80 72 03 46 1B 80 6D 03 47 1B 80 68 03 48 1B
            80 63 03 49 1B 80 5E 03 4A 1B 80 59 03 4B 1B 80 54 03 4C 1B 80 4F
            03 4D 1B 80 4A 03 4E 1B 80 45 03 4F 1B 80 40 BB 24 21 72 BB 24 01
            73 65 50 03 51 1B 10 03 52 1B 2E 03 53 1B 2A BB 8F 91 0C 65 54 03
            55 14 BD 7B 02 61 02 1B 1A 03 56 1B 16 03 57 1B 12 BB 24 01 78 65
            58 97 10 7B 02 61 01 1B 04 65 59 2F 5A 14 80 A1 03 11 65 5B BB 7B
            02 AE AE 2D 03 5C 19 0F B6 2F 60 1B 24 B6 63 BA B6 B6 B6 B5 B6 64
            00 2B 01 93 0F 6C 65 61 65 21 C1 C0 C0 73 02 37 73 01 34 B8 6B 62
            73 01 37 61 03 14 04 17 26 63 04 03 64 1B 01 00 5D 0B 00 00 AC 2C
            65 01 F8 2D 0A 66 19 0D AD 24 5E FF BE AD 24 5F FF B9 B8 2F 15 19
            0D B9 B8 63 AF 63 2D 05 69 19 0E B7 6B 5D 38 01 71 62 92 00 5D B8
            6F 67 AC B7 8A 68 64 B9 2F 15 19 0E 92 00 FE 05 B7 2F 15 19 0C)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::NOTE-FUNCTION-USED
      SYSTEM::*COMPILING-FROM-FILE* COMMON-LISP::PROCLAIM 2.
      SYSTEM::C-CONSTANTP SYSTEM::EVAL-WHEN-COMPILE SYSTEM::C-PROCLAIM
      COMMON-LISP::QUOTE SYSTEM::C-CONSTANT-VALUE SYSTEM::C-FORM
      COMMON-LISP::PROVIDE COMMON-LISP::REQUIRE SYSTEM::C-PROVIDE
      SYSTEM::C-REQUIRE CUSTOM::*PACKAGE-TASKS-TREAT-SPECIALLY*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::IMPORT . 80.)
         (COMMON-LISP::UNUSE-PACKAGE . 80.) (COMMON-LISP::USE-PACKAGE . 80.)
         (COMMON-LISP::UNEXPORT . 80.) (COMMON-LISP::EXPORT . 80.)
         (COMMON-LISP::SHADOWING-IMPORT . 80.) (COMMON-LISP::SHADOW . 80.)
         (SYSTEM::%IN-PACKAGE . 80.) (COMMON-LISP::MAKE-PACKAGE . 80.))
      SYSTEM::*PACKAGE-TASKS* SYSTEM::DECLARED-NOTINLINE
      SYSTEM::C-NORMAL-FUNCTION-CALL SYSTEM::FUNCTION-SIGNATURE
      SYSTEM::TEST-ARGUMENT-SYNTAX
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::LIST* . 505.)
         (COMMON-LISP::LIST . 505.) (COMMON-LISP::SYMBOL-FUNCTION . 505.)
         (COMMON-LISP::EQ . 505.) (SYSTEM::%SVSTORE . 505.)
         (COMMON-LISP::VALUES-LIST . 505.) (COMMON-LISP::CONSP . 505.)
         (COMMON-LISP::ATOM . 505.) (COMMON-LISP::CDDDDR . 505.)
         (COMMON-LISP::CDDDAR . 505.) (COMMON-LISP::CDDADR . 505.)
         (COMMON-LISP::CDDAAR . 505.) (COMMON-LISP::CDADDR . 505.)
         (COMMON-LISP::CDADAR . 505.) (COMMON-LISP::CDAADR . 505.)
         (COMMON-LISP::CDAAAR . 505.) (COMMON-LISP::CADDDR . 505.)
         (COMMON-LISP::CADDAR . 505.) (COMMON-LISP::CADADR . 505.)
         (COMMON-LISP::CADAAR . 505.) (COMMON-LISP::CAADDR . 505.)
         (COMMON-LISP::CAADAR . 505.) (COMMON-LISP::CAAADR . 505.)
         (COMMON-LISP::CAAAAR . 505.) (COMMON-LISP::FOURTH . 505.)
         (COMMON-LISP::THIRD . 505.) (COMMON-LISP::SECOND . 505.)
         (COMMON-LISP::CDDDR . 505.) (COMMON-LISP::CDDAR . 505.)
         (COMMON-LISP::CDADR . 505.) (COMMON-LISP::CDAAR . 505.)
         (COMMON-LISP::CADDR . 505.) (COMMON-LISP::CADAR . 505.)
         (COMMON-LISP::CAADR . 505.) (COMMON-LISP::CAAAR . 505.)
         (COMMON-LISP::CDDR . 505.) (COMMON-LISP::CDAR . 505.)
         (COMMON-LISP::CADR . 505.) (COMMON-LISP::CAAR . 505.)
         (COMMON-LISP::VALUES . 505.) (COMMON-LISP::SVREF . 505.)
         (COMMON-LISP::CONS . 505.) (COMMON-LISP::NULL . 505.)
         (COMMON-LISP::NOT . 505.) (COMMON-LISP::REST . 505.)
         (COMMON-LISP::FIRST . 505.) (COMMON-LISP::CDR . 505.)
         (COMMON-LISP::CAR . 505.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::SYMBOL-FUNCTION . 5.) (COMMON-LISP::SVREF . 5.)
         (COMMON-LISP::VALUES-LIST . 5.) (COMMON-LISP::CDDDDR . 5.)
         (COMMON-LISP::CDDDAR . 5.) (COMMON-LISP::CDDADR . 5.)
         (COMMON-LISP::CDDAAR . 5.) (COMMON-LISP::CDADDR . 5.)
         (COMMON-LISP::CDADAR . 5.) (COMMON-LISP::CDAADR . 5.)
         (COMMON-LISP::CDAAAR . 5.) (COMMON-LISP::CADDDR . 5.)
         (COMMON-LISP::CADDAR . 5.) (COMMON-LISP::CADADR . 5.)
         (COMMON-LISP::CADAAR . 5.) (COMMON-LISP::CAADDR . 5.)
         (COMMON-LISP::CAADAR . 5.) (COMMON-LISP::CAAADR . 5.)
         (COMMON-LISP::CAAAAR . 5.) (COMMON-LISP::FOURTH . 5.)
         (COMMON-LISP::THIRD . 5.) (COMMON-LISP::SECOND . 5.)
         (COMMON-LISP::CDDDR . 5.) (COMMON-LISP::CDDAR . 5.)
         (COMMON-LISP::CDADR . 5.) (COMMON-LISP::CDAAR . 5.)
         (COMMON-LISP::CADDR . 5.) (COMMON-LISP::CADAR . 5.)
         (COMMON-LISP::CAADR . 5.) (COMMON-LISP::CAAAR . 5.)
         (COMMON-LISP::CDDR . 5.) (COMMON-LISP::CDAR . 5.)
         (COMMON-LISP::CADR . 5.) (COMMON-LISP::CAAR . 5.)
         (COMMON-LISP::REST . 5.) (COMMON-LISP::FIRST . 5.)
         (COMMON-LISP::CDR . 5.) (COMMON-LISP::CAR . 5.)
         (COMMON-LISP::LIST* . 1.) (COMMON-LISP::LIST . 1.)
         (COMMON-LISP::EQ . 1.) (COMMON-LISP::CONSP . 1.)
         (COMMON-LISP::ATOM . 1.) (COMMON-LISP::VALUES . 1.)
         (COMMON-LISP::CONS . 1.) (COMMON-LISP::NULL . 1.)
         (COMMON-LISP::NOT . 1.))
      (COMMON-LISP::NIL) (COMMON-LISP::T) (COMMON-LISP::T . COMMON-LISP::T)
      SYSTEM::*FOR-VALUE* COMMON-LISP::PROGN COMMON-LISP::VALUES SYSTEM::ONE 0.
      SYSTEM::C-NIL COMMON-LISP::PROG1 SYSTEM::*STACKZ* SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 (COMMON-LISP::PUSH)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::LIST* . 243.)
         (COMMON-LISP::LIST . 219.) (COMMON-LISP::SYMBOL-FUNCTION . 215.)
         (COMMON-LISP::VALUES-LIST . 211.) (COMMON-LISP::VALUES . 197.)
         (COMMON-LISP::EQ . 182.) (SYSTEM::%SVSTORE . 177.)
         (COMMON-LISP::SVREF . 172.) (COMMON-LISP::CONS . 167.)
         (COMMON-LISP::NULL . 162.) (COMMON-LISP::NOT . 162.)
         (COMMON-LISP::CONSP . 157.) (COMMON-LISP::ATOM . 152.)
         (COMMON-LISP::CDDDDR . 147.) (COMMON-LISP::CDDDAR . 142.)
         (COMMON-LISP::CDDADR . 137.) (COMMON-LISP::CDDAAR . 132.)
         (COMMON-LISP::CDADDR . 127.) (COMMON-LISP::CDADAR . 122.)
         (COMMON-LISP::CDAADR . 117.) (COMMON-LISP::CDAAAR . 112.)
         (COMMON-LISP::FOURTH . 107.) (COMMON-LISP::CADDDR . 107.)
         (COMMON-LISP::CADDAR . 102.) (COMMON-LISP::CADADR . 97.)
         (COMMON-LISP::CADAAR . 92.) (COMMON-LISP::CAADDR . 87.)
         (COMMON-LISP::CAADAR . 82.) (COMMON-LISP::CAAADR . 77.)
         (COMMON-LISP::CAAAAR . 72.) (COMMON-LISP::CDDDR . 67.)
         (COMMON-LISP::CDDAR . 62.) (COMMON-LISP::CDADR . 57.)
         (COMMON-LISP::CDAAR . 52.) (COMMON-LISP::THIRD . 47.)
         (COMMON-LISP::CADDR . 47.) (COMMON-LISP::CADAR . 42.)
         (COMMON-LISP::CAADR . 37.) (COMMON-LISP::CAAAR . 32.)
         (COMMON-LISP::CDDR . 27.) (COMMON-LISP::CDAR . 22.)
         (COMMON-LISP::SECOND . 17.) (COMMON-LISP::CADR . 17.)
         (COMMON-LISP::CAAR . 12.) (COMMON-LISP::REST . 7.)
         (COMMON-LISP::CDR . 7.) (COMMON-LISP::FIRST . 2.)
         (COMMON-LISP::CAR . 2.))
      ((COMMON-LISP::CAR)) ((COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR) (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR) (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR) (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR) (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR) (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR) (COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR) (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR) (COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR) (COMMON-LISP::CAR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR) (COMMON-LISP::CAR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR) (COMMON-LISP::CAR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR) (COMMON-LISP::CAR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR) (COMMON-LISP::CDR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR) (COMMON-LISP::CDR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR) (COMMON-LISP::CDR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR) (COMMON-LISP::CDR)
       (COMMON-LISP::CAR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR) (COMMON-LISP::CAR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR) (COMMON-LISP::CAR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR) (COMMON-LISP::CAR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR) (COMMON-LISP::CAR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CAR) (COMMON-LISP::CDR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CAR) (COMMON-LISP::CDR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CAR) (COMMON-LISP::CDR) (COMMON-LISP::CDR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::CDR) (COMMON-LISP::CDR) (COMMON-LISP::CDR)
       (COMMON-LISP::CDR))
      ((COMMON-LISP::ATOM)) ((COMMON-LISP::CONSP)) ((COMMON-LISP::NOT))
      ((COMMON-LISP::CONS)) ((COMMON-LISP::SVREF)) ((SYSTEM::SVSET))
      ((COMMON-LISP::EQ)) ((SYSTEM::VALUES0)) ((SYSTEM::VALUES1))
      (COMMON-LISP::PUSH) SYSTEM::STACK-TO-MV ((SYSTEM::LIST-TO-MV))
      ((COMMON-LISP::SYMBOL-FUNCTION)) (COMMON-LISP::PUSH) COMMON-LISP::LIST
      ((COMMON-LISP::NIL)) ((SYSTEM::VALUES1)) COMMON-LISP::LIST*
      SYSTEM::C-GLOBAL-FUNCTION-CALL SYSTEM::COMPILER-ERROR SYSTEM::PRIMOP
      SYSTEM::MK-ANODE SYSTEM::FUNCTION-CODES SYSTEM::NO-KEYS
      SYSTEM::STATIC-KEYS SYSTEM::CALLS-CODE SYSTEM::CALLSR
      SYSTEM::FUNTABR-INDEX
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::INVOKE-DEBUGGER . 1.) (SYSTEM::ERROR-OF-TYPE . 1.)
         (COMMON-LISP::ERROR . 1.) (SYSTEM::UNWIND-TO-DRIVER . 1.)
         (SYSTEM::DRIVER . 1.))
      ((SYSTEM::BARRIER))
      #Y(SYSTEM::C-GLOBAL-FUNCTION-CALL-1
         #15Y(00 00 00 00 00 00 00 00 00 01 07 00 01 19 01) COMMON-LISP::NIL)
      SYSTEM::C-DIRECT-FUNCTION-CALL SYSTEM::INLINE-LAMBDABODY
      SYSTEM::INLINE-CALLABLE-LAMBDABODY-P SYSTEM::C-FUNCALL-INLINE))
#Y(#:TOP-LEVEL-FORM-180
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*DEPRECATED-FUNCTIONS-LIST*)
   SYSTEM::*DEPRECATED-FUNCTIONS-LIST* (COMMON-LISP::GENTEMP COMMON-LISP::SET))
#Y(#:TOP-LEVEL-FORM-181
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NOTE-FUNCTION-USED SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NOTE-FUNCTION-USED
      #124Y(00 00 00 00 03 00 00 00 00 04 AF 8C 4F 0E 0E 00 1C 3B AF 88 06 06
            E1 6F 08 B0 30 09 AF 6B 0A E5 38 02 31 B2 1F 80 53 0E 00 1C 80 42
            E7 6F 08 B0 B1 E8 38 01 72 82 2D 03 09 19 04 B0 2E 03 14 B1 A2 62
            03 1B 1A AC AE 30 04 16 02 1B 4F AF 6B 01 DC 38 02 71 B9 AF 8E 09
            62 B0 2E 03 14 61 02 14 92 01 62 AC 0E 05 5D 0F 05 16 02 1B FF AE
            AF 6B 0C E5 38 02 31 B6 0F 0C 19 04 19 04)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*KNOWN-FUNCTIONS*
      #.#'COMMON-LISP::EQUAL SYSTEM::MAKE-C-SOURCE-POINT
      SYSTEM::MATCH-KNOWN-UNKNOWN-FUNCTIONS SYSTEM::*UNKNOWN-FUNCTIONS*
      SYSTEM::IN-DEFUN-P "Function ~s is not defined" SYSTEM::TEXT
      SYSTEM::C-WARN SYSTEM::*DEPRECATED-FUNCTIONS-LIST* #.#'COMMON-LISP::EQ
      SYSTEM::*DEPRECATED-FUNCTIONS*
      "Function ~s is deprecated~@[, use ~s instead~]" SYSTEM::DEPRECATED))
#Y(#:TOP-LEVEL-FORM-182
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROCLAIM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROCLAIM
      #240Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 80 DE 9E 5B 26 00 80 D5
            95 01 63 AD 8C 91 80 CA 87 01 00 14 8F 04 0A AC 6B 01 DC 38 02 31
            B6 0F 01 83 01 1B 66 95 01 63 AD 8C 91 80 AD 87 01 00 14 89 03 15
            AC 6B 04 DF 38 02 31 B6 0F 04 AC 6B 06 38 07 CA FA 32 4F 0F 06 83
            01 1B 5B 95 01 63 AD 8C 91 80 85 87 01 00 14 89 03 15 AC 6B 06 DF
            38 02 31 B6 0F 06 AC 6B 04 38 07 CA FA 32 4F 0F 04 83 01 1B 5B 95
            01 63 AD 8C 91 80 5D 87 01 00 14 8F 04 12 AC 6B 07 38 03 31 B6 0F
            07 AC 6B 08 38 07 32 4F 0F 08 83 01 1B 5E 95 01 63 AD 8C 91 39 87
            01 00 14 8F 04 12 AC 6B 08 38 03 31 B6 0F 08 AC 6B 07 38 07 32 4F
            0F 07 83 01 1B 5F 95 01 63 1B 13 87 01 00 14 8F 04 0A AC 6B 09 DC
            38 02 31 B6 0F 09 83 01 AD 8D 91 69 00 19 04 00 19 02 19 02)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::DECLARATION . 184.) (EXT::CONSTANT-NOTINLINE . 148.)
         (EXT::CONSTANT-INLINE . 111.) (COMMON-LISP::NOTINLINE . 71.)
         (COMMON-LISP::INLINE . 31.) (COMMON-LISP::SPECIAL . 2.))
      SYSTEM::*KNOWN-SPECIAL-VARS* #.#'COMMON-LISP::EQ SYSTEM::FUNCTION-NAME-P
      SYSTEM::*INLINE-FUNCTIONS* #.#'COMMON-LISP::EQUAL
      SYSTEM::*NOTINLINE-FUNCTIONS* SYSTEM::*INLINE-CONSTANTS*
      SYSTEM::*NOTINLINE-CONSTANTS* SYSTEM::*USER-DECLARATION-TYPES*))
#Y(#:TOP-LEVEL-FORM-183
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROCLAIM-CONSTANT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROCLAIM-CONSTANT
      #43Y(00 00 00 00 02 00 00 00 00 03 0E 00 1F 1B AE 6B 01 DC 38 02 31 B6 0F
           01 AD 2F 03 1F 0C AE AE 2F 04 7A 0E 05 5D 0F 05 19 03 19 03)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*KNOWN-SPECIAL-VARS*
      #.#'COMMON-LISP::EQ SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE
      SYSTEM::*CONSTANT-SPECIAL-VARS*))
#Y(#:TOP-LEVEL-FORM-184
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-DEFUN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DEFUN
      #109Y(00 00 00 00 02 00 02 00 00 0E 3D 02 3B 01 09 C5 F9 0E 01 1F 80 55
            1B 05 0E 01 1F 80 4E 0E 02 1F 80 49 B0 6B 03 DE 38 02 71 B9 93 00
            1E AE 25 00 1A DF 6F 06 B2 9F 5C 78 6F 07 B3 A1 5C 79 72 01 A1 5C
            79 6F 08 B5 6F 08 2D 06 09 16 01 B0 2E 0A 14 A2 7C 02 6B 03 DE 38
            01 E5 31 B6 0F 03 9F 1F 0A B0 A0 7A 0E 0C 5D 0F 0C 19 05 19 05)
      COMMON-LISP::DEFUN SYSTEM::*COMPILING* SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::*KNOWN-FUNCTIONS* #.#'COMMON-LISP::EQUAL
      "Function ~s~% was already defined~a~:[~% with the signature~%~a~% it is being re-defined with a new signature~%~a~;~2*~]"
      SYSTEM::TEXT SYSTEM::C-SOURCE-POINT-LOCATION SYSTEM::SIG-TO-LIST
      SYSTEM::C-WARN SYSTEM::MAKE-C-SOURCE-POINT #.#'COMMON-LISP::CAR
      SYSTEM::*INLINE-DEFINITIONS*))
#Y(#:TOP-LEVEL-FORM-185
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROVIDE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROVIDE
      #24Y(00 00 00 00 01 00 00 00 00 02 AD 71 4A 6B 00 DB 38 02 31 B6 0F 00 19
           02)
      SYSTEM::*COMPILED-MODULES* #.#'COMMON-LISP::STRING=))
#Y(#:TOP-LEVEL-FORM-186
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-REQUIRE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-REQUIRE
      #51Y(00 00 00 00 01 00 01 00 00 08 3C 01 14 3D 02 AF 71 4A 6B 00 DB 38 02
           8C B2 11 92 00 04 AF 80 E5 02 9F 20 0A DC AF 33 00 17 19 04 00 19 04
           AE C7 34 19 04)
      SYSTEM::*COMPILED-MODULES* #.#'COMMON-LISP::STRING-EQUAL
      #Y(SYSTEM::C-REQUIRE-LOAD-LIB
         #73Y(00 00 00 00 01 00 00 00 00 02 6B 00 38 07 7D 02 F9 71 F1 0E 01 5D
              10 01 B0 6B 02 DD 73 02 23 70 04 94 00 9E 20 0B AC 38 01 71 EA DF
              38 04 8C 34 0C 92 00 01 A3 14 2F 0A 16 02 11 19 02 AC E0 63 E1 63
              E2 63 2D 07 09 1B 6F)
         COMMON-LISP::*COMPILE-FILE-TRUENAME* CUSTOM::*LOAD-PATHS*
         CUSTOM::*SOURCE-FILE-TYPES*
         (#-CLISP #P".lib"
          #+CLISP
          #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL
             :DEVICE COMMON-LISP::NIL :DIRECTORY (:RELATIVE)
             :NAME COMMON-LISP::NIL :TYPE "lib" :VERSION COMMON-LISP::NIL))
         SYSTEM::SEARCH-FILE
         #.(COMMON-LISP::PATHNAME-TYPE
            '#-CLISP #P".lib"
             #+CLISP
             #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL
                :DEVICE COMMON-LISP::NIL :DIRECTORY (:RELATIVE)
                :NAME COMMON-LISP::NIL :TYPE "lib" :VERSION COMMON-LISP::NIL))
         :VERBOSE :PRINT :ECHO COMMON-LISP::LOAD COMMON-LISP::COMPILE-FILE)))
#Y(#:TOP-LEVEL-FORM-187
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANALYZE-LETLIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANALYZE-LETLIST
      #96Y(02 00 01 00 01 00 00 00 00 02 AD 01 02 93 02 80 45 94 02 8E 04 28 9F
           5B 20 2B 9F 5B 78 8F 04 25 9F 5B 5C 1D 0B 9F 5B 5C 20 1B 9F 5B 5C 5C
           1C 15 9F 5B 78 84 01 9F 5B 5C 5B 14 84 00 1B 12 94 02 84 01 00 1B 74
           C5 50 08 DB 6F 02 94 06 30 00 51 83 02 92 02 FF BB AD 72 47 AD 72 47
           40 02 19 05)
      SYSTEM::C-ERROR "Illegal syntax in LET/LET*: ~S" SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-188
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ANALYZE-LAMBDALIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ANALYZE-LAMBDALIST
      #745Y(02 00 01 00 01 00 00 00 00 02 AD 01 04 DA 01 08 AA 20 2A 94 0D AC
            8E 04 09 AC 2F 06 16 01 83 0D 1B 6E 9D 26 01 10 9D 26 02 00 C8 50
            6F DE 6F 05 B0 30 03 51 1B 66 AC 84 0D 1B 61 16 01 AA 20 80 BE 94
            0D 25 07 80 B8 1B 37 9D 26 08 04 9D 26 09 22 AC 84 0C 63 84 0B C5
            1B 80 66 94 00 84 0C 63 84 0B C5 1B 80 5B 94 00 84 0C 9D 5C 78 84
            0B C5 1B 80 4E C8 50 80 5A DE 6F 05 B0 30 03 51 16 01 83 0D AA 20
            80 79 94 0D AC 8E 04 FF BC 9D 20 39 94 00 8F 04 34 9D 5C 1D 42 9D
            5C 20 2C 9D 5C 5C 1D 44 9D 5C 5C 20 22 9D 5C 5C 78 8F 04 1B 9D 5C
            5C 5C 1C 15 94 00 84 0C 9D 5C 78 84 0B 9D 5C 5C 5B 14 84 0A 16 01
            1B FF B7 AC 2F 06 16 01 1B FF AF 16 01 1B FF AA C8 50 3F E5 6F 05
            BF 30 03 51 1B 36 9D 26 0C 12 C8 50 0B E5 6F 05 C0 30 03 51 16 01
            1B 24 16 01 1B 20 9D 09 09 1B 17 16 01 AA 20 16 94 0D 25 0A 11 83
            0D 20 4B 94 0D AC 8E 04 51 AC 2F 06 83 0E 16 01 AA 20 80 6D 94 0D
            9D 26 0D 06 C8 50 0E C9 1B 04 C8 50 08 D5 14 6F 05 B0 30 03 51 16
            01 83 0D 1B 5F 9D 26 11 0E C8 50 80 CE DE 6F 05 B0 30 03 51 1B 80
            C4 AC 72 8A 6B 13 71 D2 84 07 AC 84 06 63 84 05 C5 1B 80 A9 9D 5B
            78 84 07 9D 5B 5C 1B 80 92 9D 5C 5C 5B 1B 80 97 9D 5C 78 84 05 9D
            5C 5C 21 6F C5 1B 80 89 AC 24 0E 05 AC 25 0F FF 9B 16 01 AA 20 80
            A4 94 0D 25 0E 80 9E 83 0D 7E 07 AA 20 80 86 94 0D AC 8E 04 FF 97
            9D 20 80 66 94 00 8E 04 21 9D 5B 20 80 5C 9D 5B 78 8F 04 80 55 9D
            5B 5C 20 80 4F 9D 5B 5C 78 8F 04 80 47 9D 5B 5C 5C 1C 80 40 9D 5C
            1D 1B 9D 5C 20 38 9D 5C 5C 1D 12 9D 5C 5C 20 2E 9D 5C 5C 78 8F 04
            27 9D 5C 5C 5C 1C 21 9D 5B 21 FF 6E 94 00 72 8A 6B 13 71 D2 84 07
            9D 78 84 06 9D 5C 21 FF 6D 63 84 05 C5 14 84 04 1B 03 AC 2F 06 16
            01 83 0D 1B FF 81 AC 24 12 05 AC 25 0F FF 1E 16 01 AA 20 0D 94 0D
            25 12 08 7E 02 1B 02 16 01 83 0D AA 20 80 79 94 0D 9D 26 14 06 C8
            50 6F C9 1B 04 C8 50 69 D5 14 6F 05 B0 30 03 51 16 01 1B 5F 9D 26
            15 00 9D 1B 27 C8 50 80 47 DE 6F 05 B0 30 03 51 16 01 83 0D AA 20
            80 4D 94 0D AC 8E 04 60 9D 20 28 94 00 8F 04 23 9D 5C 1C 08 9D 5B
            14 84 02 00 1B 10 9D 5C 20 13 9D 5C 5C 1C 0E 94 00 84 02 9D 5C 5B
            14 84 01 16 01 1B 49 AC 2F 06 16 01 1B 42 16 01 1B FF BD AC 25 0F
            FF 8F 16 01 AA 20 06 94 0D 24 0F FF AD 93 0D 0A C8 50 07 F0 6F 05
            BF 30 03 51 B8 72 47 B8 72 47 B8 72 47 B8 72 47 B8 B8 B8 72 47 B8
            72 47 B8 72 47 B8 72 47 B8 B8 72 47 B8 72 47 40 0D 19 10)
      0.
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 1.) (COMMON-LISP::&WHOLE . 1.)
         (COMMON-LISP::&BODY . 1.) (COMMON-LISP::&AUX . 1.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 1.) (COMMON-LISP::&KEY . 1.)
         (COMMON-LISP::&REST . 1.) (COMMON-LISP::&OPTIONAL . 1.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::&AUX . 18.)
         (COMMON-LISP::&KEY . 18.) (COMMON-LISP::&REST . 18.)
         (COMMON-LISP::&OPTIONAL . 18.))
      SYSTEM::C-ERROR "Lambda list marker ~S not allowed here." SYSTEM::TEXT
      SYSTEM::LAMBDALIST-ERROR COMMON-LISP::&OPTIONAL
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 1.) (COMMON-LISP::&WHOLE . 1.)
         (COMMON-LISP::&BODY . 1.) (COMMON-LISP::&AUX . 1.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 1.) (COMMON-LISP::&KEY . 1.)
         (COMMON-LISP::&REST . 1.) (COMMON-LISP::&OPTIONAL . 1.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::&AUX . 173.)
         (COMMON-LISP::&KEY . 173.) (COMMON-LISP::&REST . 173.))
      COMMON-LISP::&REST "Missing &REST parameter in lambda list ~S"
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 1.) (COMMON-LISP::&WHOLE . 1.)
         (COMMON-LISP::&BODY . 1.) (COMMON-LISP::&AUX . 1.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 1.) (COMMON-LISP::&KEY . 1.)
         (COMMON-LISP::&REST . 1.) (COMMON-LISP::&OPTIONAL . 1.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 93.) (COMMON-LISP::&WHOLE . 93.)
         (COMMON-LISP::&BODY . 93.) (COMMON-LISP::&AUX . 93.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 93.) (COMMON-LISP::&KEY . 93.)
         (COMMON-LISP::&REST . 93.) (COMMON-LISP::&OPTIONAL . 93.))
      COMMON-LISP::&KEY COMMON-LISP::&AUX
      "Lambda list element ~S is superfluous."
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 218.) (COMMON-LISP::&WHOLE . 218.)
         (COMMON-LISP::&BODY . 218.) (COMMON-LISP::&AUX . 218.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 218.) (COMMON-LISP::&KEY . 218.)
         (COMMON-LISP::&REST . 218.) (COMMON-LISP::&OPTIONAL . 218.))
      COMMON-LISP::&ALLOW-OTHER-KEYS SYSTEM::*KEYWORD-PACKAGE*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 109.) (COMMON-LISP::&WHOLE . 109.)
         (COMMON-LISP::&BODY . 109.) (COMMON-LISP::&AUX . 109.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 109.) (COMMON-LISP::&KEY . 109.)
         (COMMON-LISP::&REST . 109.) (COMMON-LISP::&OPTIONAL . 109.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::&ENVIRONMENT . 4.) (COMMON-LISP::&WHOLE . 4.)
         (COMMON-LISP::&BODY . 4.) (COMMON-LISP::&AUX . 4.)
         (COMMON-LISP::&ALLOW-OTHER-KEYS . 4.) (COMMON-LISP::&KEY . 4.)
         (COMMON-LISP::&REST . 4.) (COMMON-LISP::&OPTIONAL . 4.))
      "Lambda lists with dots are only allowed in macros, not here: ~S"))
#Y(#:TOP-LEVEL-FORM-189
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::LAMBDALIST-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LAMBDALIST-ERROR
      #24Y(02 00 01 00 01 00 00 00 00 02 C5 50 09 DB 6F 02 B1 30 00 51 19 02 19
           02)
      SYSTEM::C-ERROR "Illegal lambda list element ~S" SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-190
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::LAMBDA-LIST-TO-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LAMBDA-LIST-TO-SIGNATURE
      #40Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 42 0B DB B7 72 45 DC B8 72 45
           DD B7 C9 5A 59 14 DF B8 E0 B9 E1 B7 2D 0C 08 19 0D)
      SYSTEM::ANALYZE-LAMBDALIST :REQ-NUM :OPT-NUM :REST-P 0. :KEYS-P :KEYWORDS
      :ALLOW-P SYSTEM::MAKE-SIGNATURE))
#Y(#:TOP-LEVEL-FORM-191
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::INLINE-LAMBDABODY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INLINE-LAMBDABODY
      #37Y(00 00 00 00 01 00 00 00 00 02 0E 00 1D 0B AD 6B 01 DC 38 02 31 B9 5C
           1E 0A AD 6F 03 DE 38 01 32 82 19 02 19 02)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*INLINE-DEFINITIONS*
      #.#'COMMON-LISP::EQUAL SYSTEM::GET-FUNNAME-SYMBOL
      SYSTEM::INLINE-EXPANSION))
#Y(#:TOP-LEVEL-FORM-192
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::INLINE-CALLABLE-FUNCTION-LAMBDA-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INLINE-CALLABLE-FUNCTION-LAMBDA-P
      #134Y(00 00 00 00 02 00 01 00 00 09 3D 01 AF 6F 00 AC 2F 01 1F 80 6F 9D
            5C 78 AC 32 09 1F 80 64 DC AD 38 06 32 5D 59 1F 80 5A DD AD 38 06
            32 5D 59 1F 80 50 DE AD 38 06 72 5D DF AE 38 06 72 5D E0 AF 38 06
            8E 5D 03 AE 32 45 14 92 01 0D 92 06 1D 92 02 25 B3 AD 33 01 2E 19
            09 A3 1E 24 B3 92 03 01 9F 14 33 01 33 19 09 AD 32 96 1B 05 B3 92
            03 77 9E 14 33 01 32 19 09 14 B4 97 02 33 02 32 19 09 19 09 19 06
            19 05)
      SYSTEM::FUNCTION-FORM-FUNFORM SYSTEM::LAMBDA-FORM-P COMMON-LISP::&KEY
      COMMON-LISP::&ALLOW-OTHER-KEYS COMMON-LISP::&OPTIONAL COMMON-LISP::&REST
      COMMON-LISP::&AUX))
#Y(#:TOP-LEVEL-FORM-193
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::INLINE-CALLABLE-LAMBDABODY-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INLINE-CALLABLE-LAMBDABODY-P
      #32Y(00 00 00 00 02 00 01 00 00 09 3D 01 AF 32 02 1F 0D DA DB A2 7A 7B 02
           AF AF 2D 03 02 19 04 19 04)
      COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA
      SYSTEM::INLINE-CALLABLE-FUNCTION-LAMBDA-P))
#Y(#:TOP-LEVEL-FORM-194
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::INLINE-CALLABLE-FUNCTION-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INLINE-CALLABLE-FUNCTION-P
      #72Y(00 00 00 00 02 00 00 00 00 03 AE AE 30 00 1E 36 AE 6F 01 9D 1F 2E 14
           2F 02 1F 29 AC 2F 03 59 1F 23 AC 8F 04 04 AC 8D 50 11 59 1F 18 AC 2F
           04 59 1F 12 AC 6F 05 AF 30 06 19 04 AC 38 01 31 56 59 1F 02 1B 68 19
           04 19 03)
      SYSTEM::INLINE-CALLABLE-FUNCTION-LAMBDA-P SYSTEM::FUNCTION-FORM-FUNFORM
      SYSTEM::FUNCTION-NAME-P SYSTEM::FENV-SEARCH SYSTEM::DECLARED-NOTINLINE
      SYSTEM::INLINE-LAMBDABODY SYSTEM::INLINE-CALLABLE-LAMBDABODY-P))
#Y(#:TOP-LEVEL-FORM-195 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*SPECIALS*) SYSTEM::*SPECIALS*)
#Y(#:TOP-LEVEL-FORM-196 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*IGNORES*) SYSTEM::*IGNORES*)
#Y(#:TOP-LEVEL-FORM-197 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*IGNORABLES*) SYSTEM::*IGNORABLES*)
#Y(#:TOP-LEVEL-FORM-198 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*READONLYS*) SYSTEM::*READONLYS*)
#Y(#:TOP-LEVEL-FORM-199
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PUSH-SPECIALS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PUSH-SPECIALS
      #22Y(00 00 00 00 00 00 00 00 00 01 99 00 99 01 6B 02 33 00 17 9B 00 01)
      SYSTEM::PUSH-*VENV* SYSTEM::MAKE-SPECIAL-VAR SYSTEM::*SPECIALS*))
#Y(#:TOP-LEVEL-FORM-200
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::IGNORE-CHECK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::IGNORE-CHECK
      #101Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AC 6B 01 DC 38 02 8C B2 3F
            AC 6B 0A DC 38 02 8C B2 13 AE 88 03 0F AE 88 0B 0B AC 8F 88 07 D1
            14 6F 05 AD 30 09 AC 6B 0D DC 38 02 31 B2 1F 27 AE 88 03 20 AE 2F
            0E 1F 1E E9 6F 05 AD 30 06 19 03 DE 6F 05 AD 30 06 1B 5D AE 88 03
            74 AE 89 07 55 CD 1B 4C 00 19 03 19 03)
      SYSTEM::VAR-NAME SYSTEM::*IGNORES* #.#'COMMON-LISP::EQ
      SYSTEM::VAR-SPECIALP
      "Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
      SYSTEM::TEXT SYSTEM::C-WARN SYSTEM::VAR-FOR-VALUE-USEDP
      "variable ~S is used despite of IGNORE declaration." SYSTEM::C-STYLE-WARN
      SYSTEM::*IGNORABLES* SYSTEM::VAR-USEDP
      "variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
      SYSTEM::*READONLYS* SYSTEM::VAR-ASSIGNEDP
      "The variable ~S is assigned to, despite of READ-ONLY declaration."))
#Y(#:TOP-LEVEL-FORM-201
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAKE-CLOSURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAKE-CLOSURE
      #33Y(00 00 00 00 03 00 00 00 00 04 92 03 03 00 19 04 DA 95 03 95 03 7B 03
           DB B1 72 45 7B 02 61 02 19 04)
      SYSTEM::VENV SYSTEM::MAKE-VECTOR1&PUSH))
#Y(#:TOP-LEVEL-FORM-202
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-FIXED-VAR-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-FIXED-VAR-1
      #76Y(02 00 01 00 01 00 00 00 00 02 AD 38 01 8C 5D 29 AD 88 00 25 AD 6B 01
           DC 38 02 8C B2 1C E2 AE E3 63 E4 63 E5 63 E6 63 E7 63 E8 63 E9 6B 10
           EB 6B 12 ED 6B 14 2D 14 15 19 02 AD 89 03 0A C9 50 07 DF 6F 06 B1 30
           04 51 AD 2F 07 19 02)
      SYSTEM::PROCLAIMED-SPECIAL-P SYSTEM::*SPECIALS* #.#'COMMON-LISP::EQ
      SYSTEM::L-CONSTANTP SYSTEM::C-ERROR "Constant ~S cannot be bound."
      SYSTEM::TEXT SYSTEM::MAKE-SPECIAL-VAR :NAME :SPECIALP :CONSTANTP :USEDP
      :FOR-VALUE-USEDP :REALLY-USEDP :CLOSUREP :STACKZ SYSTEM::*STACKZ* :VENVC
      SYSTEM::*VENVC* :FNODE SYSTEM::*FUNC* SYSTEM::MAKE-VAR))
#Y(#:TOP-LEVEL-FORM-203
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-FIXED-VAR-2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-FIXED-VAR-2
      #31Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 1F 0E AD 2F 01 59 1F 08 DC 0E
           03 5D 0F 03 19 02 19 02)
      SYSTEM::VAR-SPECIALP SYSTEM::VAR-CONSTANTP (SYSTEM::BIND 1.)
      SYSTEM::*STACKZ*))
#Y(#:TOP-LEVEL-FORM-204
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-BIND-FIXED-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-BIND-FIXED-VAR
      #61Y(00 00 00 00 03 00 00 00 00 04 AF 88 00 07 AF 88 07 18 00 19 04 AF 88
           01 79 DC AF 6B 03 B0 7B 04 DE B1 6F 05 6F 06 61 02 1B 0E DC AF 6B 03
           B0 7B 04 E2 B1 6B 03 B1 61 04 14 61 02 19 04)
      SYSTEM::VAR-SPECIALP SYSTEM::VAR-CONSTANTP COMMON-LISP::GET
      SYSTEM::*VENVC* SYSTEM::BIND SYSTEM::VAR-NAME SYSTEM::NEW-CONST
      SYSTEM::VAR-CLOSUREP COMMON-LISP::SET))
#Y(#:TOP-LEVEL-FORM-205
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROCESS-FIXED-VAR-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROCESS-FIXED-VAR-LIST
      #84Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE AE 01 02 93 03 37 DA 0E 01 5D
           0F 01 DC 38 01 72 8E DD 63 DE 63 DF 63 E0 63 E1 AA 5B 59 14 E2 63 E3
           6B 01 E4 6B 0B E6 6B 0D 6E 14 0E 84 00 94 03 6F 0F 84 01 95 03 83 03
           6A 03 92 03 49 AD 72 47 AD 72 47 40 02 19 07)
      1. SYSTEM::*STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :FOR-VALUE-USEDP
      :REALLY-USEDP :CLOSUREP :STACKZ :VENVC SYSTEM::*VENVC* :FNODE
      SYSTEM::*FUNC* SYSTEM::MAKE-VAR SYSTEM::BIND-FIXED-VAR-1))
#Y(#:TOP-LEVEL-FORM-206
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::UNMODIFY-UNUSED-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::UNMODIFY-UNUSED-VAR
      #69Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 63 1B 2E 9D 5C 78 DB AD DC C8
           1B 1E 87 01 00 5C 5C 1C 70 94 00 AC 2F 04 5C 1C 06 DB AD DC 63 32 2D
           16 01 9D 5C 78 DB AD DC 00 14 32 2D 16 01 83 01 AD 8D 91 57 00 19
           04)
      SYSTEM::VAR-MODIFIED-LIST SYSTEM::ANODE 3. ((SYSTEM::VALUES1))
      SYSTEM::ANODE-SECLASS))
#Y(#:TOP-LEVEL-FORM-207
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CHECKING-FIXED-VAR-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CHECKING-FIXED-VAR-LIST
      #76Y(00 00 00 00 01 00 01 00 00 08 3D 01 63 AF 63 1B 32 DD AD DE 63 32 2D
           A1 5B 1D 0A AC 6F 05 E0 31 A7 B0 E1 31 A7 AC 2F 08 1B 15 87 01 00 14
           2F 00 AC 88 01 0B AC 89 02 59 AC 89 09 03 AC 84 02 83 04 83 01 AD 8D
           91 63 AE 32 47 19 06)
      SYSTEM::IGNORE-CHECK SYSTEM::VAR-SPECIALP SYSTEM::VAR-REALLY-USEDP
      SYSTEM::VAR 11. SYSTEM::VAR-STACKZ 0. SYSTEM::GONE
      SYSTEM::UNMODIFY-UNUSED-VAR SYSTEM::VAR-CLOSUREP))
#Y(#:TOP-LEVEL-FORM-208
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BOUND-TO-VAR-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BOUND-TO-VAR-P
      #47Y(00 00 00 00 02 00 00 00 00 03 AE 88 00 19 AD 6F 01 72 45 25 02 11 AD
           2F 01 5B F9 14 88 03 6F 9E 20 05 94 01 24 04 03 00 19 03 9E 5C 5B 19
           03)
      SYSTEM::VAR-SPECIALP SYSTEM::ANODE-CODE 1. SYSTEM::ANODE-P
      COMMON-LISP::GET))
#Y(#:TOP-LEVEL-FORM-209
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-MOVABLE-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-MOVABLE-VAR
      #138Y(02 00 01 00 02 00 00 00 00 03 AE 38 01 8C 5D 80 69 AE 88 00 80 64
            AE 6B 01 DC 38 02 8C B2 80 5A E5 0E 08 5D 0F 08 E6 AF E7 63 E8 B2
            6F 0F EA B4 89 0F 03 B4 2F 11 14 EC 63 ED 63 EE 63 EF 63 F0 6B 08
            F1 6B 18 F3 6B 1A 6E 16 1B AC AF 70 1C 93 00 13 AD B0 7B 02 AD 6F
            1D 65 1E AF 65 1F B0 A1 7A 32 2D 16 02 16 01 15 19 03 C9 50 0A DF
            6F 06 B2 30 04 51 CC 1B 08 CC 1B 05 AE 88 03 6C CE 14 0E 08 5D 0F
            08 AE 2F 0A 19 03)
      SYSTEM::PROCLAIMED-SPECIAL-P SYSTEM::*SPECIALS* #.#'COMMON-LISP::EQ
      SYSTEM::L-CONSTANTP SYSTEM::C-ERROR "Constant ~S cannot be bound."
      SYSTEM::TEXT 0. SYSTEM::*STACKZ* (SYSTEM::BIND 1.)
      SYSTEM::MAKE-SPECIAL-VAR 1. :NAME :SPECIALP :CONSTANTP
      SYSTEM::ANODE-CONSTANTP :CONSTANT SYSTEM::ANODE-CONSTANT :USEDP
      :FOR-VALUE-USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC SYSTEM::*VENVC*
      :FNODE SYSTEM::*FUNC* SYSTEM::MAKE-VAR SYSTEM::BOUND-TO-VAR-P
      SYSTEM::VAR-REPLACEABLE-LIST SYSTEM::VAR 10.))
#Y(#:TOP-LEVEL-FORM-210
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-BIND-MOVABLE-VAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-BIND-MOVABLE-VAR
      #59Y(00 00 00 00 01 00 00 00 00 02 AD 88 00 0E AD 88 05 18 AD 2F 08 78 8F
           90 1F 00 19 02 AD 88 01 79 DC AE 6F 03 6F 04 61 02 1B 09 E0 AE 6B 07
           B0 6F 08 61 04 14 61 01 19 02 CE 19 02)
      SYSTEM::VAR-SPECIALP SYSTEM::VAR-CONSTANTP SYSTEM::BIND SYSTEM::VAR-NAME
      SYSTEM::NEW-CONST SYSTEM::VAR-CLOSUREP COMMON-LISP::SET SYSTEM::*VENVC*
      SYSTEM::VAR-STACKZ ((COMMON-LISP::PUSH))))
#Y(#:TOP-LEVEL-FORM-211
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-BIND-MOVABLE-VAR-ANODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-BIND-MOVABLE-VAR-ANODE
      #59Y(00 00 00 00 02 00 00 00 00 03 DA DB B0 6F 02 6E 03 03 AF AF 70 04 93
           00 1A 14 6F 05 63 1B 0E 87 01 00 78 A4 23 05 95 00 B0 31 A9 83 01 AD
           8D 91 6E 16 02 16 01 AE AD 61 02 19 04)
      SYSTEM::BIND-MOVABLE (COMMON-LISP::NIL) SYSTEM::C-BIND-MOVABLE-VAR
      SYSTEM::MK-ANODE SYSTEM::BOUND-TO-VAR-P SYSTEM::VAR-REPLACEABLE-LIST))
#Y(#:TOP-LEVEL-FORM-212
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROCESS-MOVABLE-VAR-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROCESS-MOVABLE-VAR-LIST
      #76Y(00 00 00 00 03 00 00 00 00 04 AF AF 01 03 93 04 26 94 03 AC DA 70 01
           94 06 AD 70 02 AD 84 04 AC 84 05 6B 03 84 03 93 09 03 AC 2F 04 16 03
           95 04 83 04 6A 04 92 04 5A 92 06 05 99 04 A0 37 00 AE 72 47 AE 72 47
           AE 72 47 40 03 19 09)
      SYSTEM::ONE SYSTEM::C-FORM SYSTEM::BIND-MOVABLE-VAR SYSTEM::*STACKZ*
      SYSTEM::PUSH-*VENV*))
#Y(#:TOP-LEVEL-FORM-213
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CHECKING-MOVABLE-VAR-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CHECKING-MOVABLE-VAR-LIST
      #131Y(00 00 00 00 02 00 00 00 00 03 AE AE 63 93 02 2C 94 02 93 00 1C 14
            2F 00 AC 88 01 15 AC 88 02 21 AC 89 0A 3C AC 89 0C 09 AC 6F 05 E0
            31 A7 AC 84 01 16 01 95 02 83 02 6A 02 92 02 54 AC 32 47 19 06 DD
            AD DE 63 32 2D AC 6F 05 E0 31 A7 94 02 2F 07 5C 1C 5D 94 02 E2 AD
            E3 63 32 2D 16 01 1B 51 DD AD DE 63 32 2D AC 6F 05 E0 31 A7 94 02
            2F 07 5C 1C 0A 94 02 E2 AD E3 63 32 2D 16 01 AC 2F 0B 1B FF AE)
      SYSTEM::IGNORE-CHECK SYSTEM::VAR-SPECIALP SYSTEM::VAR-CONSTANTP
      SYSTEM::VAR 11. SYSTEM::VAR-STACKZ 0. SYSTEM::ANODE-SECLASS SYSTEM::ANODE
      3. SYSTEM::VAR-REALLY-USEDP SYSTEM::UNMODIFY-UNUSED-VAR
      SYSTEM::VAR-CLOSUREP))
#Y(#:TOP-LEVEL-FORM-214
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-VAR-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-VAR-LIST
      #174Y(00 00 00 00 01 00 00 00 00 02 0E 00 1C 07 AD 72 46 63 1B 80 91 00
            19 02 87 01 00 1D 80 86 14 88 01 80 81 AC 88 02 80 7C AC 6F 03 63
            1B 80 6E 87 01 00 78 AC 88 01 80 61 AC 88 02 80 5C AC 88 04 80 57
            AC 2F 05 78 24 06 80 4F 9E 5C 5C 1D 80 49 AC 6F 05 E0 31 A7 9E 5C
            78 E1 AD E2 63 32 2D 16 01 9E 5C 79 E1 AD E2 63 32 2D 16 01 AF 6F
            09 AD 6F 09 1B 18 94 00 AC 6F 0A 93 00 0C 94 00 95 00 B5 31 A7 16
            01 AD 84 03 16 02 83 00 9D 21 65 16 01 E5 B1 E6 AF 32 2D 16 01 16
            01 83 01 AD 8D 91 FF 8D 16 02 83 01 AD 8D 91 FF 6D 00 19 04)
      SYSTEM::*NO-CODE* SYSTEM::VAR-SPECIALP SYSTEM::VAR-CLOSUREP
      SYSTEM::VAR-REPLACEABLE-LIST SYSTEM::VAR-MODIFIED-LIST SYSTEM::VAR-STACKZ
      0. SYSTEM::ANODE 3. SYSTEM::VAR-USEDP SYSTEM::ANODE-CODE SYSTEM::VAR 5.))
#Y(#:TOP-LEVEL-FORM-215
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-BIND-WITH-SVARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-BIND-WITH-SVARS
      #198Y(00 00 00 00 06 00 00 00 00 00 B2 B2 B2 B2 B2 B2 63 93 06 80 5D A1
            5B 1D 0A 94 04 94 03 70 00 AD 80 A0 00 94 06 94 06 94 05 94 04 DB
            6F 02 B0 88 03 80 49 B0 88 0A 80 61 B0 89 0C 80 7F DE B0 6B 05 B0
            B0 7B 05 AF E5 B3 6B 05 B2 7B 04 A0 14 61 04 16 04 F8 AD 80 A0 00
            95 06 95 06 95 06 95 06 95 06 83 06 6A 06 6A 06 6A 06 6A 06 6A 06
            92 06 FF A3 AC 32 47 19 0E 00 62 03 1B 55 DE B0 6B 05 B0 B0 7B 05
            AF AE B3 88 06 6D E1 B4 6F 08 6F 09 7B 02 61 01 62 03 1B FF B8 DE
            B0 6B 05 B0 B0 7B 05 AF AE E5 B4 6B 05 B3 61 04 1B FF A1 DE B0 6B
            05 B0 B0 7B 05 AF AE 61 03 1B FF 95 AE 2F 0D 5C 1C 6B 00 1B FF 8B)
      SYSTEM::C-BIND-MOVABLE-VAR-ANODE SYSTEM::ONE SYSTEM::MAKE-LABEL
      SYSTEM::VAR-SPECIALP SYSTEM::JMPIFBOUNDP SYSTEM::*VENVC*
      SYSTEM::VAR-CONSTANTP SYSTEM::BIND SYSTEM::VAR-NAME SYSTEM::NEW-CONST
      SYSTEM::VAR-CLOSUREP COMMON-LISP::SET SYSTEM::VAR-REALLY-USEDP
      SYSTEM::ANODE-SECLASS))
#Y(#:TOP-LEVEL-FORM-216 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::INLINE SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT))
#Y(#:TOP-LEVEL-FORM-217
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 32 86 DA DE 32 80 C5 19
        01)
   SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::REMOVE-OLD-DEFINITIONS
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::CLOSUREVARS SYSTEM::CLOSUREDUMMY-STACKZ
     SYSTEM::CLOSUREDUMMY-VENVC)
    (COMMON-LISP::DECLARE
     (SYSTEM::IN-DEFUN SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT))
    (COMMON-LISP::BLOCK SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT
     (COMMON-LISP::WHEN SYSTEM::CLOSUREVARS
      (COMMON-LISP::SETF (COMMON-LISP::FIRST SYSTEM::CLOSUREDUMMY-VENVC)
       (COMMON-LISP::CONS SYSTEM::CLOSUREVARS SYSTEM::CLOSUREDUMMY-STACKZ)
       (COMMON-LISP::FIRST SYSTEM::CLOSUREDUMMY-STACKZ) 1.))))
   #Y(SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT
      #27Y(00 00 00 00 03 00 00 00 00 04 A0 1F 0C AD B0 A1 7A 31 A7 AE DA 31 A7
           19 04 19 04)
      1.))
#Y(#:TOP-LEVEL-FORM-218
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LAMBDABODY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LAMBDABODY
      #835Y(02 00 01 00 02 00 03 00 00 12 3D 03 3D 02 3D 01 B0 DA 30 01 DC B2
            DD 6B 04 DF 6B 06 2D 06 07 10 04 0E 04 10 08 6B 04 0E 06 5D 10 06
            63 2F 09 10 0A D0 10 0C D2 50 81 BC 92 15 82 EB 94 16 2F 0E 42 0D
            6B 04 B9 72 45 E9 AE EA AF 32 2D 16 02 6B 04 B8 72 45 E9 AE EB AF
            32 2D 16 02 6B 04 B5 D0 5A 59 14 E9 AE EC AF 32 2D 16 02 6B 04 E9
            AD ED B7 32 2D 16 01 6B 04 E9 AD EE B6 32 2D 16 01 6B 04 E9 AD EF
            B2 32 2D 16 01 93 22 09 6B 04 94 23 AD 31 A7 16 01 95 23 64 2E 16
            14 31 5E 42 02 6B 08 0E 08 10 08 0E 17 10 17 0E 18 10 18 0E 06 10
            06 00 10 19 00 10 1A 00 10 1B 00 10 1C 01 16 66 2F 2F 1D 42 04 15
            0F 1C 15 0F 1B 15 0F 1A 15 0F 19 2E 1E 63 0E 06 5D 0F 06 F8 66 3D
            66 52 30 1F 42 02 6A 15 6A 15 66 3C 2F 1F 42 02 6A 12 6A 12 66 39
            24 0B 82 38 66 39 7B 01 2F 1F 42 02 6A 0C 6A 0C 66 36 2F 1F 42 02
            6A 09 6A 09 DA 0E 08 5D 0F 08 E5 0E 08 5D 0F 08 F9 C1 2F 20 09 13
            BE BE 66 3D 66 3D 2D 04 21 42 04 6A 11 6A 11 6A 0E 6A 10 66 39 24
            0B 05 B8 2F 22 09 0A B5 B5 66 37 66 37 2D 04 21 42 04 6A 08 6A 08
            6A 05 6A 07 66 32 66 32 30 23 42 02 6A 03 6A 03 65 24 04 31 7A 92
            53 81 D2 03 26 14 70 27 C2 66 53 70 28 C0 6F 28 BE BE 70 29 BC 6F
            28 BA 6F 28 B8 B8 70 29 B6 B6 70 29 73 07 23 6B 0A AD B0 B2 6E 03
            2A 99 2B 66 1A 66 1A 66 1A 6E 04 2C C3 C3 C2 C4 C3 C3 6E 06 2D 99
            2B BF BF BF 6E 04 2C BC BC BB BD BC BC 6E 06 2D 99 2E B8 B8 6E 03
            2C B4 65 2F 6B 08 66 3A 03 30 7C 03 92 5D 81 72 03 32 14 7B 03 33
            07 23 7A 65 33 65 34 AE 6E 03 35 AE B2 B2 2D 03 36 66 19 C3 C1 BF
            BD BB B9 73 07 23 2F 37 15 16 19 12 08 16 10 51 14 6B 04 E9 AD 65
            38 B0 32 2D 16 01 93 11 17 6B 04 AC 6F 39 65 3A C0 38 06 72 60 73
            01 37 E9 AE EA AF 32 2D 16 02 AC 6F 3B 25 3C 80 4B 6B 04 E9 AD EA
            E5 32 2D 16 01 6B 04 E9 AD EB E5 32 2D 16 01 6B 04 E9 AD EC 64 32
            2D 16 01 6B 04 E9 AD ED 63 32 2D 16 01 6B 04 E9 AD EE 63 32 2D 16
            01 6B 04 E9 AD EF 63 32 2D 16 01 6B 04 6F 3D 65 3E AD 65 3F 65 40
            32 2D 16 01 6B 04 E9 AD 65 41 C2 32 2D 16 01 6B 04 6B 04 2F 42 59
            1D 05 6B 04 2F 43 59 59 14 E9 AE 65 44 AF 32 2D 16 02 6B 04 6B 04
            6B 04 6B 04 6B 04 88 45 80 A1 D0 14 E9 AE 65 46 AF 32 2D 16 01 F8
            6B 04 6F 47 72 45 73 02 36 E9 AE 65 48 AF 32 2D 16 01 F8 6B 04 6F
            49 72 45 73 02 36 E9 AE 65 4A AF 32 2D 16 01 F8 6B 04 6F 4B 72 45
            73 02 36 E9 AE 65 4C AF 32 2D 16 02 93 12 10 6B 04 88 47 05 6B 04
            89 49 06 65 4D 65 4E 30 4F 6B 04 65 50 6B 04 6F 47 38 05 72 4D E9
            AE 65 51 AF 32 2D 16 02 6B 04 65 52 6B 04 6F 53 38 05 72 4D E9 AE
            65 54 AF 32 2D 16 02 0E 04 16 01 12 05 19 06 5B 5C 5C 44 1B FD 12
            01 02 40 02 1B FD C7 03 25 1B FE 2B 03 31 1B FE 8B C5 1B FF 5C)
      1. SYSTEM::TEST-LIST :NAME :ENCLOSING SYSTEM::*FUNC* :VENVC
      SYSTEM::*VENVC* SYSTEM::MAKE-FNODE SYSTEM::*STACKZ* SYSTEM::MAKE-LABEL
      SYSTEM::*FUNC-START-LABEL* 0. SYSTEM::*ANONYMOUS-COUNT* SYSTEM::C-ERROR
      SYSTEM::ANALYZE-LAMBDALIST SYSTEM::FNODE 12. 13. 14. 15. 16. 17.
      SYSTEM::ENV SYSTEM::*DENV* SYSTEM::*VENV* SYSTEM::*SPECIALS*
      SYSTEM::*IGNORES* SYSTEM::*IGNORABLES* SYSTEM::*READONLYS*
      SYSTEM::PROCESS-DECLARATIONS SYSTEM::PUSH-SPECIALS
      SYSTEM::PROCESS-FIXED-VAR-LIST SYSTEM::BIND-REQ-VARS
      SYSTEM::BIND-OPT-VARS SYSTEM::BIND-REST-VARS SYSTEM::BIND-AUX-VARS
      COMMON-LISP::PROGN SYSTEM::ONE SYSTEM::ALL SYSTEM::C-FORM
      SYSTEM::CHECKING-FIXED-VAR-LIST SYSTEM::CHECKING-MOVABLE-VAR-LIST
      SYSTEM::C-MAKE-CLOSURE SYSTEM::C-BIND-FIXED-VAR EXT::MAPCAP
      SYSTEM::C-BIND-WITH-SVARS SYSTEM::C-BIND-MOVABLE-VAR-ANODE SYSTEM::UNWIND
      (COMMON-LISP::T) (SYSTEM::RETGF) (SYSTEM::RET) SYSTEM::LAMBDABODY
      (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::MK-ANODE
      SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::OPTIMIZE-VAR-LIST 2.
      SYSTEM::FNODE-REQ-ANZ SYSTEM::GONE SYSTEM::ANODE-TYPE COMMON-LISP::ERROR
      SYSTEM::FNODE-CODE SYSTEM::ANODE 3.
      ((COMMON-LISP::NIL) (SYSTEM::SKIP 2.) (SYSTEM::RET)) 21.
      SYSTEM::FNODE-FAR-USED-VARS SYSTEM::FNODE-FAR-ASSIGNED-VARS 4.
      SYSTEM::FNODE-VENVCONST 6. SYSTEM::FNODE-BLOCKS 8. SYSTEM::FNODE-TAGBODYS
      11. SYSTEM::FNODE-KEYWORDS 18. SYSTEM::C-LAMBDABODY "GF"
      SYSTEM::COMPILER-ERROR
      #Y(SYSTEM::C-LAMBDABODY-1
         #18Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 0E 01 5A 19 02)
         SYSTEM::BLOCK-FNODE SYSTEM::*FUNC*)
      24.
      #Y(SYSTEM::C-LAMBDABODY-2
         #19Y(00 00 00 00 01 00 00 00 00 02 94 01 6F 00 0E 01 5A 19 02)
         SYSTEM::TAGBODY-FNODE SYSTEM::*FUNC*)
      SYSTEM::FNODE-TAGS 25.))
#Y(#:TOP-LEVEL-FORM-219
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-REQ-VARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-REQ-VARS
      #41Y(00 00 00 00 01 00 00 00 00 02 63 AE 63 1B 0F 87 01 00 14 2F 00 6B 01
           84 02 AC 2F 02 83 01 AD 8D 91 6D 16 02 AC 32 47 19 03)
      SYSTEM::PUSH-*VENV* SYSTEM::*STACKZ* SYSTEM::BIND-FIXED-VAR-2))
#Y(#:TOP-LEVEL-FORM-220
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-OPT-VARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-OPT-VARS
      #133Y(00 00 00 00 04 00 00 00 00 05 01 04 B4 B4 B4 B4 93 03 80 56 94 00
            24 00 80 62 DB 94 03 7B 01 00 7A DC 94 05 6B 03 6B 04 7B 04 7B 01
            6E 03 05 94 01 AD 70 06 AD 84 06 AC 84 07 16 02 94 01 E1 70 08 84
            07 94 03 2F 09 6B 04 84 06 94 03 2F 0A 94 00 24 00 04 94 05 2F 09
            95 03 95 03 95 03 83 03 6A 03 6A 03 6A 03 92 03 FF AA 16 04 AF 72
            47 AF 72 47 AF 72 47 AF 72 47 40 04 19 09 63 84 05 63 84 04 1B FF
            B7)
      0. SYSTEM::OPTIONAL-SVAR COMMON-LISP::BOUNDP SYSTEM::*VENVC*
      SYSTEM::*STACKZ* SYSTEM::MK-ANODE SYSTEM::BIND-MOVABLE-VAR SYSTEM::ONE
      SYSTEM::C-FORM SYSTEM::PUSH-*VENV* SYSTEM::BIND-FIXED-VAR-2))
#Y(#:TOP-LEVEL-FORM-221
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-REST-VARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-REST-VARS
      #26Y(00 00 00 00 01 00 00 00 00 02 63 94 02 2F 00 6B 01 84 00 94 02 2F 02
           15 19 02)
      SYSTEM::PUSH-*VENV* SYSTEM::*STACKZ* SYSTEM::BIND-FIXED-VAR-2))
#Y(#:TOP-LEVEL-FORM-222
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BIND-AUX-VARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BIND-AUX-VARS
      #60Y(00 00 00 00 02 00 00 00 00 03 01 02 B0 B0 93 01 1F 94 00 AC DA 70 01
           94 03 AD 70 02 AD 84 05 AC 84 06 AC 2F 03 16 03 95 01 83 01 6A 01 92
           01 61 16 02 AD 72 47 AD 72 47 40 02 19 05)
      SYSTEM::ONE SYSTEM::C-FORM SYSTEM::BIND-MOVABLE-VAR SYSTEM::PUSH-*VENV*))
#Y(#:TOP-LEVEL-FORM-223
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FNODE-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FNODE-FUNCTION
      #288Y(01 00 01 00 01 00 01 00 00 08 3B 01 02 0E 00 10 00 DB DC B3 6F 03
            8E 90 1C B3 89 05 11 E0 B4 6F 07 6B 00 7B 03 CD 7A E3 0E 00 5D 0F
            00 15 14 63 B5 6F 0A 1B 37 DE B4 7B 02 61 01 1B 80 DB E7 AD 61 02
            1B 17 94 00 AC 6B 0B 6F 0A E6 38 02 8C B2 6D E8 AD 6F 0F 6B 10 6B
            00 61 04 14 D6 7A E3 0E 00 5D 0F 00 AF 80 A0 02 16 01 83 00 9D 21
            55 16 01 AC 80 A2 00 63 B6 6F 12 1B 80 81 ED AD 61 02 1B 80 68 00
            2B 01 00 0B 00 00 4B 17 20 F2 F3 F4 B3 B2 6D 1B 02 F6 99 1D 65 1E
            65 1F 6E 08 20 0E 21 5D 10 21 65 22 65 23 6F 24 33 01 1E 06 04 00
            39 00 00 4D 16 01 B6 6F 03 E3 91 01 2E 45 DE B7 7B 02 65 25 65 26
            6B 27 38 01 71 62 6F 28 61 03 1B 80 42 94 00 AC 6B 0B 6F 12 E6 38
            02 8C B2 FF 9B E8 AD 6F 14 6B 10 6B 00 61 04 14 03 15 7A E3 0E 00
            5D 0F 00 AF 80 A0 02 16 01 83 00 9D 21 53 16 01 AC 80 A2 00 B6 88
            16 FF AB 65 29 B7 B8 6F 03 7B 03 61 01 14 33 04 23 14 2D 03 2A 11
            19 03)
      SYSTEM::*STACKZ* COMMON-LISP::FUNCTION (COMMON-LISP::NIL)
      SYSTEM::FNODE-KEYWORD-OFFSET SYSTEM::FCONST SYSTEM::FNODE-VENVCONST
      SYSTEM::VENV SYSTEM::FNODE-VENVC ((COMMON-LISP::PUSH)) 1.
      SYSTEM::FNODE-BLOCKS SYSTEM::*FUNC* #.#'COMMON-LISP::EQ SYSTEM::BCONST
      COMMON-LISP::GET SYSTEM::BLOCK-CONSVAR SYSTEM::*VENVC*
      ((COMMON-LISP::PUSH)) SYSTEM::FNODE-TAGBODYS SYSTEM::GCONST
      SYSTEM::TAGBODY-CONSVAR ((COMMON-LISP::PUSH)) SYSTEM::FNODE-GF-P
      #(COMMON-LISP::NIL) :NAME COMMON-LISP::CONTINUE :INVOKE-FUNCTION
      #Y(SYSTEM::C-FNODE-FUNCTION-1
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      :REPORT SYSTEM::REPORT-NO-NEW-VALUE :INTERACTIVE
      #Y(SYSTEM::C-FNODE-FUNCTION-2
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~A"
      (COMMON-LISP::= (SYSTEM::FNODE-KEYWORD-OFFSET SYSTEM::FNODE) 1.)
      SYSTEM::ASSERT-ERROR-STRING (COMMON-LISP::PUSH)
      SYSTEM::%COPY-GENERIC-FUNCTION SYSTEM::FUNCTION-CODES SYSTEM::CALLS-CODE
      SYSTEM::COPY-CLOSURE SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-224
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROGN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROGN
      #82Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 79 93 00 2F 9D 5C
           1D 2F DF 63 AE 93 00 1B 94 00 83 01 AC 93 02 27 00 14 70 04 B0 AD 6F
           07 30 08 FC AC 84 03 16 02 92 00 65 E3 AF AF 72 47 2D 03 0A 19 05 2E
           03 19 02 94 00 2F 04 19 02 0E 06 1B 56)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::C-NIL SYSTEM::C-FORM
      (COMMON-LISP::NIL) SYSTEM::*FOR-VALUE* SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 COMMON-LISP::PROGN SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-225
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROG1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROG1
      #83Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1D 37 6B 03 25 04
           06 0E 00 5C 5C 1D 2C 0E 00 5C 78 DE 70 06 E1 0E 08 5D 10 08 DF 0E 00
           5C 5C 7A 63 30 06 11 14 E3 AE 6F 0A AE 6F 0A 70 0B AF E6 B0 D2 7C 03
           2D 03 0E 19 03 DF 0E 00 5C 7A 2F 06 19 01)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE* SYSTEM::ONE
      COMMON-LISP::PROGN SYSTEM::C-FORM 1. SYSTEM::*STACKZ* COMMON-LISP::PROG1
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2 (COMMON-LISP::PUSH)
      ((COMMON-LISP::POP)) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-226
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROG2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROG2
      #39Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 DD 0E 00 5C 78 DE 0E 00
           5C 5C 78 0E 00 5C 5C 5C 7C 02 7B 03 2F 05 19 01)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST COMMON-LISP::PROGN COMMON-LISP::PROG1
      SYSTEM::C-FORM))
#Y(#:TOP-LEVEL-FORM-227
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-IF
      #155Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DC 2D 03 03 0E 00 5C 78 0E
            00 5C 5C 78 0E 00 5C 5C 5C 78 AE DE 70 05 AC 88 06 35 AE 6F 05 6B
            09 6F 0A 92 03 3D E5 AF 6F 0C AF 6F 0C 70 0D B0 0E 09 1C 80 56 D3
            14 B0 7B 02 B1 B1 7B 04 2D 03 10 19 07 AE 6F 05 02 10 08 B1 63 30
            05 11 15 19 05 AC 88 07 6E 02 10 08 B1 63 30 05 11 AD 2F 05 3F 19
            05 14 6F 05 63 6F 0A E5 B1 6F 0C B1 6F 0C 70 0D AF 6F 0C 70 0D B2
            E8 B0 7B 02 B3 E9 B4 7B 02 B2 B4 B6 7B 07 2D 03 10 19 09 D6 1B FF
            A7)
      SYSTEM::*FORM* 3. 4. SYSTEM::TEST-LIST SYSTEM::ONE SYSTEM::C-FORM
      SYSTEM::ANODE-CONSTANTP SYSTEM::ANODE-CONSTANT-VALUE SYSTEM::*NO-CODE*
      SYSTEM::*FOR-VALUE* SYSTEM::MAKE-LABEL COMMON-LISP::IF
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2 SYSTEM::JMPIFNOT SYSTEM::JMP
      SYSTEM::MK-ANODE SYSTEM::JMPIFNOT1))
#Y(#:TOP-LEVEL-FORM-228
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-WHEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-WHEN
      #32Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 DD 0E 00 5C 78 DE 0E 00
           5C 5C 7A 7B 03 2F 05 19 01)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST COMMON-LISP::IF COMMON-LISP::PROGN
      SYSTEM::C-FORM))
#Y(#:TOP-LEVEL-FORM-229
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-UNLESS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-UNLESS
      #33Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 DD 0E 00 5C 78 63 DE 0E
           00 5C 5C 7A 7B 04 2F 05 19 01)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST COMMON-LISP::IF COMMON-LISP::PROGN
      SYSTEM::C-FORM))
#Y(#:TOP-LEVEL-FORM-230
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-AND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-AND
      #168Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 1D 80 50 0E
            00 5C 5C 1D 80 51 E2 63 0E 00 79 6B 09 6F 0A 93 01 30 94 01 83 02
            AC 93 03 80 44 D0 14 70 07 B1 AD 6F 0C 30 0D FD 93 03 3B AC 88 0E
            3A AC 84 04 0E 09 1C 80 59 D8 14 AF 61 02 14 84 04 16 02 92 01 50
            AC 84 02 DD B0 B0 72 47 2D 03 06 19 05 DD DE DF 2D 03 06 19 01 0E
            00 5C 78 2F 07 19 01 0E 09 1B FF B8 9D 1B 53 AC 88 0F 52 0E 09 1D
            03 EA 84 04 02 10 11 B2 63 1B 09 87 01 00 14 63 30 07 83 01 AD 8D
            91 73 16 02 11 7D 03 1B FF AF D7 1B FF A4)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST COMMON-LISP::AND (COMMON-LISP::NIL)
      ((COMMON-LISP::T)) SYSTEM::MK-ANODE SYSTEM::C-FORM (COMMON-LISP::NIL)
      SYSTEM::*FOR-VALUE* SYSTEM::MAKE-LABEL SYSTEM::ONE SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 SYSTEM::ANODE-CONSTANTP SYSTEM::ANODE-CONSTANT-VALUE
      (COMMON-LISP::NIL) SYSTEM::*NO-CODE* SYSTEM::JMPIFNOT1 SYSTEM::JMPIFNOT))
#Y(#:TOP-LEVEL-FORM-231
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-OR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-OR
      #168Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 1D 80 50 0E
            00 5C 5C 1D 80 51 E2 63 0E 00 79 6B 09 6F 0A 93 01 30 94 01 83 02
            AC 93 03 80 44 D0 14 70 07 B1 AD 6F 0C 30 0D FD 93 03 3B AC 88 0E
            3A AC 84 04 0E 09 1C 80 59 D7 14 AF 61 02 14 84 04 16 02 92 01 50
            AC 84 02 DD B0 B0 72 47 2D 03 06 19 05 DD DE DF 2D 03 06 19 01 0E
            00 5C 78 2F 07 19 01 0E 09 1B FF B8 9D 1B 53 AC 89 0F 52 0E 09 1D
            03 AC 84 04 02 10 10 B2 63 1B 09 87 01 00 14 63 30 07 83 01 AD 8D
            91 73 16 02 11 7D 03 1B FF AF D6 1B FF A4)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST COMMON-LISP::OR (COMMON-LISP::NIL)
      ((COMMON-LISP::NIL)) SYSTEM::MK-ANODE SYSTEM::C-FORM (COMMON-LISP::NIL)
      SYSTEM::*FOR-VALUE* SYSTEM::MAKE-LABEL SYSTEM::ONE SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 SYSTEM::ANODE-CONSTANTP SYSTEM::ANODE-CONSTANT-VALUE
      SYSTEM::*NO-CODE* SYSTEM::JMPIF1 SYSTEM::JMPIF))
#Y(#:TOP-LEVEL-FORM-232
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-QUOTE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-QUOTE
      #44Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 DD DE
           0E 05 1C 07 00 14 2D 03 08 19 02 E0 AF 6F 07 7B 02 61 01 1B 70)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST COMMON-LISP::QUOTE (COMMON-LISP::NIL)
      SYSTEM::*FOR-VALUE* SYSTEM::CONST SYSTEM::NEW-CONST SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-233
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-THE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-THE
      #26Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 5C 78 2F
           03 19 01)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::C-FORM))
#Y(#:TOP-LEVEL-FORM-234
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-DECLARE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DECLARE
      #24Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 DD 6F 04 6B 00 30 05 19
           01)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST "Misplaced declaration: ~S"
      SYSTEM::TEXT SYSTEM::C-ERROR))
#Y(#:TOP-LEVEL-FORM-235
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LOAD-TIME-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LOAD-TIME-VALUE
      #85Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DC 2D 03 03 0E 00 5C 78 DE DF
           0E 06 1D 33 E1 0E 08 1C 1D E4 E5 E7 B2 71 5A E6 A5 14 2D 06 0F 14 7B
           02 61 01 1B 1C E4 E5 E6 B2 E7 B4 2F 0E 1B 6B AF 8F 04 04 AF 88 09 6E
           E4 E6 E6 B2 2D 04 0F 1B 5E 00 14 2D 03 10 19 02)
      SYSTEM::*FORM* 2. 3. SYSTEM::TEST-LIST COMMON-LISP::LOAD-TIME-VALUE
      (COMMON-LISP::NIL) SYSTEM::*FOR-VALUE* SYSTEM::CONST
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::C-CONSTANTP :HORIZON :ALL :FORM
      :VALUE SYSTEM::C-CONSTANT-VALUE SYSTEM::MAKE-CONST SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-236
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CATCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CATCH
      #66Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 70 04 DF
           0E 06 5D 10 06 E1 0E 00 5C 5C 7A 2F 04 11 14 6B 08 6F 09 DF AF 6F 0A
           AF 6F 0A 70 0B B0 E6 B0 7B 02 B1 E7 B2 7B 05 2D 03 0E 19 04)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::ONE SYSTEM::C-FORM
      COMMON-LISP::CATCH SYSTEM::*STACKZ* COMMON-LISP::PROGN
      SYSTEM::*FOR-VALUE* SYSTEM::MAKE-LABEL SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 SYSTEM::CATCH-OPEN (SYSTEM::CATCH-CLOSE)
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-237
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-THROW SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-THROW
      #63Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 DD 70
           04 DF 0E 06 5D 10 06 0E 00 5C 5C 78 E1 30 04 11 14 E2 AE 6F 09 AE 6F
           09 30 0A 78 02 7A AF E5 B0 D1 7C 03 2D 03 0D 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::ONE SYSTEM::C-FORM 1.
      SYSTEM::*STACKZ* SYSTEM::ALL COMMON-LISP::THROW SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 (COMMON-LISP::PUSH) ((COMMON-LISP::THROW))
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-238
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-UNWIND-PROTECT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-UNWIND-PROTECT
      #98Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 DD 0E 04 5D 10 04 0E 00
           5C 78 2F 05 11 14 E0 0E 04 5D 10 04 E1 0E 00 5C 5C 7A 63 30 05 11 14
           63 6F 08 DD AF 6F 09 AF 6F 09 70 0A E5 AF 7B 02 B1 0E 0C 26 0D 09 D3
           1B 07 D4 1B 04 00 1B 01 00 14 EA B2 B4 EB B5 7B 02 7B 04 33 02 23 7C
           02 2D 03 12 19 04)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST COMMON-LISP::UNWIND-PROTECT
      SYSTEM::*STACKZ* SYSTEM::C-FORM SYSTEM::CLEANUP COMMON-LISP::PROGN
      SYSTEM::MAKE-LABEL SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2
      SYSTEM::UNWIND-PROTECT-OPEN SYSTEM::*FOR-VALUE*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::T . 7.)
         (SYSTEM::ONE . 4.) (COMMON-LISP::NIL . 1.))
      ((SYSTEM::VALUES0)) ((SYSTEM::VALUES1))
      (SYSTEM::UNWIND-PROTECT-NORMAL-EXIT) SYSTEM::UNWIND-PROTECT-CLOSE
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-239
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PROGV SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PROGV
      #156Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 70 04
            AC 89 05 05 AC 89 06 80 6A E2 0E 09 7A 9D 10 09 0E 00 5C 5C 78 DD
            30 04 11 14 E4 0E 09 7A 9D 10 09 E1 0E 00 5C 5C 5C 7A 2F 04 11 14
            64 AD 2F 0B 5B 1C 0A B0 E6 31 A7 AE E6 31 A7 7D 00 E4 B2 6F 0B B1
            6F 0B 70 0D AF 6F 0B 70 0D B3 93 03 01 D3 14 B3 93 05 01 D4 14 B3
            93 07 0A EA B6 6B 09 6B 11 7B 04 61 01 7A 33 02 23 7A 33 02 23 7A
            2D 03 12 19 07 E1 0E 00 5C 5C 78 E1 0E 00 5C 5C 5C 7A 7B 03 2F 04
            19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::ONE SYSTEM::C-FORM
      SYSTEM::ANODE-CONSTANTP SYSTEM::ANODE-CONSTANT-VALUE COMMON-LISP::PROGN
      1. SYSTEM::*STACKZ* COMMON-LISP::PROGV SYSTEM::ANODE-SECLASS 0.
      SYSTEM::SECLASS-OR-2 ((COMMON-LISP::PUSH)) ((COMMON-LISP::PROGV))
      SYSTEM::UNWIND SYSTEM::*FOR-VALUE* SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-240
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MULTIPLE-VALUE-PROG1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MULTIPLE-VALUE-PROG1
      #121Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 26 04 80 61 E7
            E8 E9 EA EB EC ED 6E 06 14 7B 02 EF B1 F0 B2 03 17 62 05 1B 37 DF
            0E 06 7A 9D 10 06 0E 00 5C 78 2F 07 11 14 E2 0E 06 5D 10 06 E3 0E
            00 5C 5C 7A 63 30 07 11 14 E4 AE 6F 0B AE 6F 0B 70 0C AE 2F 0B 5C
            1C FF BA B0 F2 31 A7 AF 61 01 14 2D 03 19 19 04 03 1A 1B 01 CE 14
            0E 00 5C 7A 2F 07 19 01 00 19 01)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::NIL . 89.)
         (SYSTEM::ONE . 85.) (SYSTEM::ALL . 24.))
      SYSTEM::MVCALLP SYSTEM::*STACKZ* SYSTEM::C-FORM SYSTEM::MVCALL
      COMMON-LISP::PROGN COMMON-LISP::MULTIPLE-VALUE-PROG1
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2 SYSTEM::CONST :HORIZON :ALL
      :VALUE #.#'COMMON-LISP::VALUES :FORM #'COMMON-LISP::VALUES
      SYSTEM::MAKE-CONST (SYSTEM::MVCALLP) (SYSTEM::MV-TO-STACK)
      ((SYSTEM::MVCALL)) 0. SYSTEM::MK-ANODE COMMON-LISP::PROG1))
#Y(#:TOP-LEVEL-FORM-241
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MULTIPLE-VALUE-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MULTIPLE-VALUE-CALL
      #105Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 1D 80 47
            0E 00 5C 78 DE 70 05 63 AD 84 00 E0 84 00 0E 00 5C 79 E1 93 01 22
            94 01 83 02 AD 8E 90 32 CE 14 0E 0A 5D 10 0A AF E5 30 05 11 14 AC
            84 04 E6 84 04 16 02 85 00 92 01 5E 16 02 E7 84 00 E8 E9 AE 72 47
            2D 03 10 19 03 0E 00 5C 78 63 30 03 19 01 CD 1B 4C)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::C-FUNCTION-CALL SYSTEM::ONE
      SYSTEM::C-FORM (SYSTEM::MVCALLP) 0. SYSTEM::MVCALLP SYSTEM::MVCALL
      SYSTEM::*STACKZ* SYSTEM::ALL (SYSTEM::MV-TO-STACK) (SYSTEM::MVCALL)
      COMMON-LISP::MULTIPLE-VALUE-CALL (COMMON-LISP::T . COMMON-LISP::T)
      SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-242
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MULTIPLE-VALUE-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MULTIPLE-VALUE-LIST
      #48Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 03 1C 08 0E 00
           5C 78 2F 05 19 01 0E 00 5C 78 DE 70 05 E0 AD 6F 07 AE CD 7A 2D 03 09
           19 02)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE* SYSTEM::ALL
      SYSTEM::C-FORM COMMON-LISP::MULTIPLE-VALUE-LIST SYSTEM::ANODE-SECLASS
      ((SYSTEM::MV-TO-LIST)) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-243
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SETQLIST-MACROP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SETQLIST-MACROP
      #39Y(00 00 00 00 01 00 00 00 00 02 AD 93 00 13 94 00 AC 8F 04 04 AC 88 00
           0C 16 01 9D 5C 5C F8 92 00 6D 00 19 03 02 19 04)
      SYSTEM::VENV-SEARCH-MACRO))
#Y(#:TOP-LEVEL-FORM-244
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-SETQ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SETQ
      #155Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 6B 00 72 45 8F 94 07
            DD 6F 04 6B 00 30 05 0E 00 5C 1D 3B 0E 00 79 88 07 39 0E 00 79 E5
            63 93 02 23 94 02 A0 5C 78 AC E6 70 0A AE 8E 04 37 CA 50 07 EB 6F
            04 B2 30 05 51 EC 84 03 16 03 9F 5C 5C FA 92 02 5D ED AE AE 72 47
            2D 03 14 19 04 2E 06 19 01 E2 38 01 71 56 E2 0E 00 5C 7A 2E 09 14
            76 02 2F 0A 19 01 AC 84 03 B0 AD 6F 0D 30 0E FC AE AD 0E 0F 1D 04
            A4 5C 5C 59 14 6E 03 10 AC 84 04 B1 AD 6F 0D 30 0E FD 16 01 1B FF
            AF)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST "Odd number of arguments to SETQ: ~S"
      SYSTEM::TEXT SYSTEM::C-ERROR SYSTEM::C-NIL SYSTEM::SETQLIST-MACROP
      COMMON-LISP::SETF SYSTEM::ENV SYSTEM::C-FORM (COMMON-LISP::NIL)
      SYSTEM::ONE SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2
      SYSTEM::*FOR-VALUE* SYSTEM::C-VARSET "Cannot assign to non-symbol ~S."
      (SYSTEM::VALUES1) COMMON-LISP::SETQ SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-245
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PSETQ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PSETQ
      #243Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 6B 00 72 45 8F 94 07
            DD 6F 04 6B 00 30 05 0E 00 5C 1D 80 93 0E 00 79 88 07 80 90 01 02
            0E 00 79 93 00 20 94 00 83 01 94 01 83 02 AC E5 70 0A AE 8E 04 80
            8A CA 50 07 E9 6F 04 B2 30 05 51 16 03 92 00 60 16 01 01 02 EA B0
            B0 93 01 80 42 94 01 94 01 AC 6F 11 B1 8A 12 80 78 AD 6F 11 B1 8A
            12 80 79 ED 84 06 AD 84 06 EE 84 05 AC 84 05 6B 0E DB 31 A7 B0 AE
            6F 11 AE 6F 11 70 15 30 15 FC 0E 0E 5C 0F 0E 16 02 95 01 83 01 6A
            01 92 01 FF BE 16 02 0E 16 1D 03 F1 84 01 F2 AD B0 B0 72 47 73 02
            24 2D 03 19 19 06 2E 06 19 01 E2 38 01 71 56 E2 0E 00 5C 7A 2E 09
            14 76 02 2F 0A 19 01 AC 84 05 AE AD 63 6E 03 0C 84 04 E7 0E 0E 5D
            0F 0E 1B FF 6C AC 84 06 AD 84 06 1B FF 98 AD 84 05 AC 84 05 1B FF
            8F)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST
      "Odd number of arguments to PSETQ: ~S" SYSTEM::TEXT SYSTEM::C-ERROR
      SYSTEM::C-NIL SYSTEM::SETQLIST-MACROP COMMON-LISP::PSETF SYSTEM::ENV
      SYSTEM::C-FORM SYSTEM::ONE SYSTEM::C-VARSET 0. SYSTEM::*STACKZ*
      "Cannot assign to non-symbol ~S." (COMMON-LISP::NIL)
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASSES-COMMUTE (COMMON-LISP::PUSH)
      (COMMON-LISP::POP) SYSTEM::SECLASS-OR-2 SYSTEM::*FOR-VALUE*
      (COMMON-LISP::NIL) COMMON-LISP::PSETQ SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-246
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MULTIPLE-VALUE-SETQ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MULTIPLE-VALUE-SETQ
      #214Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 DD
            30 02 0E 00 5C 78 63 1B 80 53 16 02 DF 0E 00 5C 7A 2F 06 19 01 D1
            1B 0B E3 B0 6F 0A B1 6B 0B 24 07 73 00 7A 2D 03 0D 1B 80 93 AC E8
            E9 63 6E 03 0D 0E 0B 1D 02 A0 59 14 6E 03 10 AC 84 02 AF AD 6F 0A
            30 11 FB 16 01 1B 80 4C 83 00 1B 80 64 87 01 00 14 8F 04 05 AC 88
            04 FF AF 83 01 AD 8D 91 6E 16 02 0E 00 5C 78 72 45 0E 00 5C 5C 78
            E1 70 06 0E 08 10 08 B0 8E 90 FF 9E 0E 00 5C 78 B0 6F 0A 63 93 02
            21 94 02 AC 8E 04 FF 9E D7 50 07 ED 6F 14 B0 30 12 51 16 01 EF 84
            00 F0 0E 08 5D 0F 08 83 02 92 02 5F B3 F0 90 01 2E FF 9D F1 B4 7B
            02 84 00 E3 AE B4 A0 7A 2D 03 0D 16 03 11 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST 0. SYSTEM::VENV-SEARCH-MACRO
      SYSTEM::MULTIPLE-VALUE-SETF SYSTEM::C-FORM SYSTEM::ALL SYSTEM::*STACKZ*
      COMMON-LISP::MULTIPLE-VALUE-SETQ SYSTEM::ANODE-SECLASS
      SYSTEM::*FOR-VALUE* ((SYSTEM::VALUES1)) SYSTEM::MK-ANODE SYSTEM::NOP
      (COMMON-LISP::NIL) SYSTEM::C-VARSET SYSTEM::SECLASS-OR-2 SYSTEM::C-ERROR
      "Cannot assign to non-symbol ~S." SYSTEM::TEXT (COMMON-LISP::POP) 1.
      SYSTEM::NV-TO-STACK))
#Y(#:TOP-LEVEL-FORM-247
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PARALLEL-BIND-MOVABLE-VAR-ANODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PARALLEL-BIND-MOVABLE-VAR-ANODE
      #192Y(00 00 00 00 03 00 01 00 00 0A 3D 01 01 02 B2 B2 B1 73 02 23 B2 1B
            80 63 94 02 DD 38 01 72 8E DE 63 DF 63 E0 B3 6E 08 07 AC B0 0E 08
            79 7B 03 84 08 94 01 6B 08 95 00 AD AF 9F 7A 31 A9 16 03 AD E3 31
            A7 AC AF 30 0A 16 02 1B 23 94 02 94 02 AD 89 00 17 00 2B 01 AE 2F
            01 0B 00 00 AC 6D 02 01 95 05 33 00 28 16 01 1C FF AE AD AD 30 0A
            16 01 F8 B0 80 A0 03 83 02 83 01 83 00 9F 20 06 9E 20 03 9D 21 47
            16 03 AC 80 A2 00 AF 63 AF 72 47 1B 21 94 00 94 00 9E 5C 78 9F 5C
            5C 78 E5 AF 6B 0C AF 7B 04 AE 2F 0D 5D 16 02 F8 AF 80 A0 02 16 01
            83 00 9D 21 5C 16 01 AC 80 A2 00 33 03 23 19 06)
      SYSTEM::VAR-SPECIALP SYSTEM::VAR-NAME
      #Y(SYSTEM::C-PARALLEL-BIND-MOVABLE-VAR-ANODE-1
         #31Y(00 00 00 00 01 00 00 00 00 02 AD 2F 01 78 AC 02 5A 1E 0A 69 00 01
              AD 38 03 31 B2 19 03 19 03)
         COMMON-LISP::NIL SYSTEM::ANODE-SECLASS)
      :NAME :SPECIALP :CLOSUREP :STACKZ SYSTEM::MAKE-VAR SYSTEM::*STACKZ* 1.
      SYSTEM::C-BIND-MOVABLE-VAR-ANODE COMMON-LISP::GET SYSTEM::*VENVC*
      SYSTEM::C-BIND-MOVABLE-VAR))
#Y(#:TOP-LEVEL-FORM-248
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LET/LET* SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LET/LET*
      #211Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            0E 00 5C 79 63 2E 04 14 31 5E 42 02 6B 05 0E 05 10 05 0E 06 10 06
            0E 07 10 07 0E 08 10 08 B9 2F 09 42 04 A0 10 0A A2 10 0B A4 10 0C
            A6 10 0D 2E 0E 0E 00 5C 78 2F 0F 42 02 DD 0E 05 5D 0F 05 63 0E 08
            5D 0F 08 6B 05 6B 08 AF AF 66 26 2D 03 10 42 03 92 27 06 DD 0E 05
            5D 0F 05 EB 04 26 7A 6F 12 AF AF 70 13 AC B2 B4 6E 03 14 92 2A 80
            40 B1 B1 B1 2D 03 17 14 AF F2 6B 05 66 2A 6B 19 7B 04 7B 02 73 03
            23 92 2A 31 03 1B 14 B1 B0 7B 01 73 02 23 6F 1C B3 70 1D AE 6E 03
            1E AE B5 B5 2D 03 1F B2 2F 20 15 16 0A 12 04 16 04 12 04 19 05 99
            15 B2 B2 2D 03 16 1B FF BC 03 1A 1B 4D)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::ENV SYSTEM::*STACKZ*
      SYSTEM::*DENV* SYSTEM::*VENV* SYSTEM::*VENVC*
      SYSTEM::PROCESS-DECLARATIONS SYSTEM::*SPECIALS* SYSTEM::*IGNORES*
      SYSTEM::*IGNORABLES* SYSTEM::*READONLYS* SYSTEM::PUSH-SPECIALS
      SYSTEM::ANALYZE-LETLIST SYSTEM::PROCESS-MOVABLE-VAR-LIST
      COMMON-LISP::PROGN SYSTEM::C-FORM SYSTEM::CHECKING-MOVABLE-VAR-LIST
      SYSTEM::C-MAKE-CLOSURE SYSTEM::C-BIND-MOVABLE-VAR-ANODE EXT::MAPCAP
      SYSTEM::C-PARALLEL-BIND-MOVABLE-VAR-ANODE SYSTEM::UNWIND
      SYSTEM::*FOR-VALUE* COMMON-LISP::LET* COMMON-LISP::LET
      SYSTEM::ANODELIST-SECLASS-OR SYSTEM::SECLASS-WITHOUT SYSTEM::MK-ANODE
      SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-249
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LOCALLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LOCALLY
      #58Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 9A 00 01 6B 01 DC 30 03 0E 01
           79 63 2E 04 14 31 5E 42 02 0E 05 10 05 AF 2F 06 42 04 A0 10 07 2E 08
           B9 E3 AA 7A 36 01 11 16 04 11 19 04)
      SYSTEM::C-FORM SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::ENV
      SYSTEM::*VENV* SYSTEM::PROCESS-DECLARATIONS SYSTEM::*SPECIALS*
      SYSTEM::PUSH-SPECIALS COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-250
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MULTIPLE-VALUE-BIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MULTIPLE-VALUE-BIND
      #355Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            0E 00 5C 78 AC 63 1B 80 4C E2 94 01 0E 00 5C 5C 78 7B 02 7B 01 0E
            00 5C 5C 5C 7C 02 2F 09 19 02 0E 00 5C 5C 78 63 70 09 EF 0E 00 5C
            5C 5C 7A 6F 09 F0 AE 6F 17 AE 6F 17 70 18 AF AF 7B 02 2D 03 19 16
            02 1B 80 FF 87 01 00 14 8E 04 06 DE 6F 05 AD 30 06 83 01 AD 8D 91
            6D 16 02 AC 72 45 E1 90 01 2E FF A5 0E 00 5C 5C 79 63 2E 0A 14 31
            5E 42 02 6B 0B 0E 0B 10 0B 0E 0C 10 0C 0E 0D 10 0D 0E 0E 10 0E B9
            2F 0F 42 04 A0 10 10 A2 10 11 A4 10 12 A6 10 13 2E 14 93 1F FF 86
            0E 00 5C 5C 78 F4 70 09 63 0E 0E 5D 0F 0E 66 20 2F 1B 42 02 DD 0E
            0B 5D 0F 0B 14 6B 0E AF 63 93 01 13 94 01 AC 2F 1C 6B 0B 84 01 AC
            2F 1D 16 01 83 01 92 01 6D AC 32 47 16 01 F8 EF 04 25 7A 6F 09 B1
            6F 1E B3 65 1F 66 29 72 45 7B 02 AE B2 B4 6E 03 20 B4 B2 B7 63 93
            01 1D 94 01 94 04 94 04 6E 03 21 72 46 AD 82 02 23 00 95 03 95 03
            83 03 6A 03 6A 03 92 01 63 AC 32 47 16 03 F8 B1 65 22 6B 0B 66 2B
            6B 23 7B 04 7B 02 33 03 23 7C 02 F0 B5 6F 17 B0 6F 17 70 18 B5 70
            24 AE 6E 03 19 AE B3 B3 2D 03 25 B4 2F 26 15 16 09 12 04 16 04 12
            04 19 05)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST 0.
      "Only symbols may be used as variables, not ~S" SYSTEM::TEXT
      SYSTEM::C-ERROR 1. COMMON-LISP::LET SYSTEM::C-FORM SYSTEM::ENV
      SYSTEM::*STACKZ* SYSTEM::*DENV* SYSTEM::*VENV* SYSTEM::*VENVC*
      SYSTEM::PROCESS-DECLARATIONS SYSTEM::*SPECIALS* SYSTEM::*IGNORES*
      SYSTEM::*IGNORABLES* SYSTEM::*READONLYS* SYSTEM::PUSH-SPECIALS
      COMMON-LISP::PROGN COMMON-LISP::MULTIPLE-VALUE-BIND SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 SYSTEM::MK-ANODE SYSTEM::ALL
      SYSTEM::PROCESS-FIXED-VAR-LIST SYSTEM::PUSH-*VENV*
      SYSTEM::BIND-FIXED-VAR-2 SYSTEM::CHECKING-FIXED-VAR-LIST
      SYSTEM::NV-TO-STACK SYSTEM::C-MAKE-CLOSURE SYSTEM::C-BIND-FIXED-VAR
      SYSTEM::UNWIND SYSTEM::*FOR-VALUE* SYSTEM::SECLASS-WITHOUT
      SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-251
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-COMPILER-LET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-COMPILER-LET
      #134Y(02 00 01 00 00 00 01 00 00 07 3B 01 03 9A 00 01 6B 01 DC 30 03 0E
            01 5C 78 DE 30 03 0E 01 5C 78 01 02 93 02 80 47 94 02 8E 04 2A 9F
            5B 20 2D 9F 5B 78 8F 04 27 9F 5B 5C 1D 0B 9F 5B 5C 20 1D 9F 5B 5C
            5C 1C 17 9F 5B 78 84 01 9F 5B 5C 78 31 5A 14 84 00 1B 12 94 02 84
            01 00 1B 74 CA 50 08 E0 6F 07 94 06 30 05 51 83 02 92 02 FF B9 AD
            72 47 AD 32 47 13 67 00 00 04 E2 0E 01 5C 5C 7A 36 01 11 18 01 00
            19 05)
      SYSTEM::C-FORM SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::C-ERROR
      "Illegal syntax in COMPILER-LET: ~S" SYSTEM::TEXT COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-252-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-BLOCK
      #146Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 AC 8E 04
            0C C8 50 07 DE 6F 05 B0 30 03 51 7D 00 E0 0E 07 5D 10 07 6B 08 6F
            09 E4 6B 0B E6 AF E7 E8 38 01 72 8E E9 63 EA 63 EB 6B 07 6E 08 12
            EB 6B 07 ED 63 EE 6B 08 6E 0C 15 B1 9E 7A 0E 16 5D 10 16 F1 0E 00
            5C 5C 7A 6F 18 B0 88 19 1A 6B 07 65 1F 31 A7 E0 AD 6F 1A AE B4 61
            02 14 2D 03 1E 16 01 11 16 02 11 19 02 E0 AD 6F 1A F5 B8 8F 88 01
            A9 14 6F 1C B5 7B 03 AF F7 B6 61 04 1B 5D)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::C-ERROR
      "Block name must be a symbol, not ~S" SYSTEM::TEXT COMMON-LISP::BLOCK
      SYSTEM::*STACKZ* SYSTEM::*FOR-VALUE* SYSTEM::MAKE-LABEL :FNODE
      SYSTEM::*FUNC* :LABEL :CONSVAR :NAME :SPECIALP :CLOSUREP :STACKZ
      SYSTEM::MAKE-VAR :USED-FAR :FOR-VALUE SYSTEM::MAKE-BLOCK SYSTEM::*BENV*
      COMMON-LISP::PROGN SYSTEM::C-FORM SYSTEM::BLOCK-USED-FAR
      SYSTEM::ANODE-SECLASS SYSTEM::BLOCK-OPEN SYSTEM::NEW-CONST
      (SYSTEM::BLOCK-CLOSE) SYSTEM::MK-ANODE 0.))
#Y(#:TOP-LEVEL-FORM-252-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-RETURN-FROM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-RETURN-FROM
      #188Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB DC 2D 03 03 0E 00 5C 78 AC
            8E 04 0C C9 50 07 DF 6F 06 B0 30 04 51 7D 00 AC 6F 07 93 00 22 AC
            88 09 80 44 9D 20 80 82 0E 00 5C 5C 78 F5 70 0B EB F6 AE EB B1 6F
            1D 7B 02 61 02 14 2D 03 16 19 04 E2 6F 06 AE 30 04 19 03 EB EC AE
            ED 6B 0E B2 2F 0F 79 B3 6F 0A 7B 04 EE B2 6F 15 7B 02 61 03 1B 59
            6B 0E 61 01 1B 37 0E 00 5C 5C 78 AD 6F 0A 70 0B AD 6F 0C 0E 0D 23
            09 6B 0E AE 2F 0F 79 8A 10 47 0E 17 1C 03 AD 2F 18 EB F3 AE B0 2F
            0A 59 1D 02 03 1A 14 EB B2 B3 6F 0C 0E 0D 22 44 00 7C 02 7B 01 33
            02 23 5D 1B FF 91 65 1E 2F 1F 19 03)
      SYSTEM::*FORM* 2. 3. SYSTEM::TEST-LIST SYSTEM::C-ERROR
      "Block name must be a symbol, not ~S" SYSTEM::TEXT SYSTEM::BENV-SEARCH
      "RETURN-FROM block ~S is impossible from here." SYSTEM::BLOCK-P
      SYSTEM::BLOCK-FOR-VALUE SYSTEM::C-FORM SYSTEM::BLOCK-FNODE SYSTEM::*FUNC*
      SYSTEM::*STACKZ* SYSTEM::BLOCK-STACKZ SYSTEM::MAY-UNWIND
      COMMON-LISP::RETURN-FROM (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::UNWIND
      SYSTEM::JMP SYSTEM::BLOCK-LABEL SYSTEM::MK-ANODE SYSTEM::*NO-CODE*
      SYSTEM::NOTE-FAR-USED-BLOCK (COMMON-LISP::T . COMMON-LISP::T)
      ((SYSTEM::VALUES0)) SYSTEM::ALL (COMMON-LISP::T . COMMON-LISP::T)
      SYSTEM::NEW-CONST SYSTEM::C-RETURN-FROM SYSTEM::COMPILER-ERROR))
#Y(#:TOP-LEVEL-FORM-253
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-TAGBODY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-TAGBODY
      #354Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 79 01 02 93 02
            20 94 02 9D 21 14 AC 8E 04 80 A0 AC 8E 06 80 9B C9 50 07 DF 6F 06
            B0 30 04 51 16 01 83 02 92 02 60 AD 72 47 AD 72 47 40 02 16 03 42
            02 E1 0E 08 5D 10 08 E3 6B 0A E5 B2 E6 E7 38 01 72 8E E8 63 E9 63
            EA 6B 08 6E 08 11 EA 6B 08 EC 63 6E 0A 13 EE A3 77 00 9E 7A 0E 15
            5D 10 15 63 F0 0E 00 79 B7 B7 93 02 1D 94 02 9D 20 80 4B AC 63 70
            17 B1 AD 6F 18 30 19 FD AC 84 06 16 01 16 01 83 02 92 02 63 B0 81
            47 04 16 03 B1 6F 1A 72 45 E1 90 01 31 39 0E 23 1D 07 AD 65 24 82
            02 23 01 F6 AD AF 2D 03 25 16 02 11 16 01 11 19 03 AC 84 02 63 6F
            03 84 01 1B FF 64 9F 20 42 AC 94 03 8D FF FF BB 83 02 94 01 83 02
            84 05 1B FF B0 B6 72 45 38 07 CC FA 71 1C B2 6F 1A 63 1B 1B 87 01
            00 79 AC B0 38 06 03 1B F9 8E 5D 04 AC B0 31 19 14 AE AD 31 A9 16
            02 83 01 AD 8D 91 61 16 02 F6 B3 F7 63 32 2D AC 72 45 E1 63 1B 14
            B9 B0 AF 73 01 01 BC 38 06 03 1B F9 72 5D 72 41 84 00 85 01 AD AF
            91 01 2E 66 AC 32 47 16 01 F8 6B 08 F6 AF 7B 02 31 A7 65 1E 65 1F
            65 20 B1 73 00 27 6F 21 9F 7C 02 B1 65 22 33 02 23 5D FC 16 03 1B
            FF 51)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::MAKE-LABEL SYSTEM::C-ERROR
      "Only numbers and symbols are valid tags, not ~S" SYSTEM::TEXT 0.
      SYSTEM::*STACKZ* :FNODE SYSTEM::*FUNC* :LABELLIST :CONSVAR :NAME
      :SPECIALP :CLOSUREP :STACKZ SYSTEM::MAKE-VAR :USED-FAR
      SYSTEM::MAKE-TAGBODY #.#'COMMON-LISP::VECTOR SYSTEM::*GENV*
      (COMMON-LISP::NIL) SYSTEM::C-FORM SYSTEM::ANODE-SECLASS
      SYSTEM::SECLASS-OR-2 SYSTEM::TAGBODY-USED-FAR #.#'COMMON-LISP::EQL
      COMMON-LISP::TAGBODY 5. SYSTEM::TAGBODY-OPEN COMMON-LISP::SIMPLE-VECTOR
      #Y(SYSTEM::C-TAGBODY-1
         #20Y(00 00 00 00 01 00 00 00 00 02 AD 32 88 1F 03 9E 19 02 19 02))
      SYSTEM::NEW-CONST ((SYSTEM::TAGBODY-CLOSE-NIL)) SYSTEM::*FOR-VALUE*
      ((COMMON-LISP::NIL)) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-254
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-GO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-GO
      #159Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 AC
            8E 04 0A AC 8E 06 06 DD 6F 04 AD 30 05 AC 2F 06 42 02 93 01 19 AD
            88 08 3B 9E 20 80 67 E8 F3 E8 B0 6F 1A B0 7B 03 61 01 14 2D 03 14
            19 04 E1 6F 04 AF 30 05 19 04 E8 E9 EA 6B 0B B1 6F 0C D6 7C 03 EC
            B0 B2 6F 13 71 93 7B 02 61 02 1B 5A 6B 0B 61 01 1B 27 AD 6F 09 0E
            0A 23 08 6B 0B AE 6F 0C 8A 0D 53 AD A0 7A 0E 15 1C 03 AC 2F 16 E8
            F1 F2 E8 B2 B1 B4 6F 09 0E 0A 22 54 00 7C 03 7B 02 2D 03 14 19 05
            F5 2F 1C 19 04)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST
      "Tag must be a symbol or a number, not ~S" SYSTEM::TEXT SYSTEM::C-ERROR
      SYSTEM::GENV-SEARCH "GO to tag ~S is impossible from here."
      SYSTEM::TAGBODY-P SYSTEM::TAGBODY-FNODE SYSTEM::*FUNC* SYSTEM::*STACKZ*
      SYSTEM::TAGBODY-STACKZ SYSTEM::MAY-UNWIND COMMON-LISP::GO
      (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::UNWIND (COMMON-LISP::NIL)
      SYSTEM::JMP SYSTEM::TAGBODY-LABELLIST SYSTEM::MK-ANODE SYSTEM::*NO-CODE*
      SYSTEM::NOTE-FAR-USED-TAGBODY (COMMON-LISP::T . COMMON-LISP::T)
      (SYSTEM::VALUES0) (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::NEW-CONST
      SYSTEM::C-GO SYSTEM::COMPILER-ERROR))
#Y(#:TOP-LEVEL-FORM-255
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FUNCTION
      #261Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DC 2D 03 03 0E 00 5C 79 0E
            00 5C 78 92 01 80 D4 AC 89 04 80 CF AC 2F 05 42 06 93 05 33 AF 24
            14 80 59 AF 25 1D 80 7D AE 89 1E 80 68 E2 65 1F 65 20 B1 2F 21 14
            7B 02 61 01 14 2D 03 13 19 09 E5 E6 E7 E8 A9 5E 14 E9 E2 BB 7B 02
            2D 06 10 1B 64 B2 E0 63 2D 03 07 E2 E3 B4 8D 01 04 B4 89 0A 5F E5
            B5 6F 11 7B 02 D7 5D 1B 4F F3 F4 6B 1B 38 01 71 62 6F 1C 61 02 62
            04 1B FF BE E2 EF E5 B1 6F 16 7B 02 F1 E5 B2 6F 16 7B 02 F2 92 06
            5C 00 62 04 1B FF A5 AE 6F 22 2F 23 19 09 65 24 6F 25 B3 30 26 19
            09 92 03 03 92 04 71 65 27 2F 28 19 09 A1 1B 1D 0E 2A 1C 03 0E 2B
            59 10 2A 93 05 04 B0 88 04 6D 6B 2C 6F 2D 6B 2E 32 95 0F 2E 14 30
            2F 14 95 04 70 30 0E 2A 1C 03 AC 2F 31 AC 2F 32 16 01 11 19 04 6B
            00 38 01 31 9B 78 AC 88 29 44 65 33 6F 25 AD 30 26 19 04)
      SYSTEM::*FORM* 2. 3. SYSTEM::TEST-LIST SYSTEM::FUNCTION-NAME-P
      SYSTEM::FENV-SEARCH 0. SYSTEM::NOTE-FUNCTION-USED COMMON-LISP::FUNCTION
      (COMMON-LISP::T) SYSTEM::DECLARED-NOTINLINE SYSTEM::CONST :HORIZON :ALL
      :VALUE :FORM SYSTEM::MAKE-CONST SYSTEM::MAKE-FUNNAME-CONST
      ((COMMON-LISP::SYMBOL-FUNCTION)) SYSTEM::MK-ANODE SYSTEM::GLOBAL
      (COMMON-LISP::T) SYSTEM::NEW-CONST (COMMON-LISP::PUSH)
      (COMMON-LISP::SVREF) (COMMON-LISP::PUSH) SYSTEM::FUNCTION-MACRO-FUNCTION
      SYSTEM::FUNCTION-CODES SYSTEM::CALLS-CODE EXT::LOCAL SYSTEM::CONST-P
      (COMMON-LISP::NIL) SYSTEM::FCONST SYSTEM::CONST-VALUE SYSTEM::VAR-NAME
      SYSTEM::C-VAR "~S is not a function. It is a locally defined macro."
      SYSTEM::TEXT SYSTEM::C-ERROR SYSTEM::C-FUNCTION SYSTEM::COMPILER-ERROR
      SYSTEM::LAMBDA-FORM-P SYSTEM::*NO-CODE* SYSTEM::*FOR-VALUE*
      SYSTEM::*FUNC* SYSTEM::FNODE-NAME SYSTEM::*ANONYMOUS-COUNT*
      SYSTEM::SYMBOL-SUFFIX SYSTEM::C-LAMBDABODY SYSTEM::PROPAGATE-FAR-USED
      SYSTEM::C-FNODE-FUNCTION
      "Only symbols and lambda expressions are function names, not ~S"))
#Y(#:TOP-LEVEL-FORM-256
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-%GENERIC-FUNCTION-LAMBDA SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-%GENERIC-FUNCTION-LAMBDA
      #60Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1C 03 0E 04 59 10
           03 6B 05 6F 06 6B 07 32 95 0F 07 14 70 08 0E 00 79 63 64 6E 04 09 0E
           03 1C 03 AC 2F 0A AC 2F 0B 16 01 11 19 01)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::*NO-CODE* SYSTEM::*FOR-VALUE*
      SYSTEM::*FUNC* SYSTEM::FNODE-NAME SYSTEM::*ANONYMOUS-COUNT*
      SYSTEM::SYMBOL-SUFFIX SYSTEM::C-LAMBDABODY SYSTEM::PROPAGATE-FAR-USED
      SYSTEM::C-FNODE-FUNCTION))
#Y(#:TOP-LEVEL-FORM-257
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::%OPTIMIZE-FUNCTION-LAMBDA SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::%OPTIMIZE-FUNCTION-LAMBDA
      #38Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0F 9F 5C 79 DC DD
           DE A0 7A 7B 02 CA 62 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CONS COMMON-LISP::FUNCTION
      COMMON-LISP::LAMBDA (COMMON-LISP::NIL))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-258
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-%OPTIMIZE-FUNCTION-LAMBDA SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-%OPTIMIZE-FUNCTION-LAMBDA
      #129Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1C 03 0E 04 59
            10 03 0E 00 5C 78 71 9D 6B 05 6F 06 6B 07 32 95 0F 07 14 70 08 0E
            00 5C 79 01 02 B0 6E 05 09 0E 03 1C 03 AC 2F 0A AC 6F 0B 63 AF 1B
            0C 94 00 AC D1 5A 14 84 02 16 01 83 00 9D 21 71 16 01 AC 80 A2 00
            E7 0E 0E 5D 10 0E E9 B0 61 02 10 00 2E 10 12 02 14 EB AF 6F 12 AE
            6F 12 70 13 B0 EE B0 03 15 7C 03 2D 03 16 16 05 11 19 01)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::*NO-CODE* SYSTEM::*FOR-VALUE*
      SYSTEM::*FUNC* SYSTEM::FNODE-NAME SYSTEM::*ANONYMOUS-COUNT*
      SYSTEM::SYMBOL-SUFFIX SYSTEM::C-LAMBDABODY SYSTEM::PROPAGATE-FAR-USED
      SYSTEM::C-FNODE-FUNCTION SYSTEM::GONE 1. SYSTEM::*STACKZ*
      COMMON-LISP::QUOTE SYSTEM::C-QUOTE SYSTEM::%OPTIMIZE-FUNCTION-LAMBDA
      SYSTEM::ANODE-SECLASS SYSTEM::SECLASS-OR-2 (COMMON-LISP::PUSH)
      ((COMMON-LISP::CONS)) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-259
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SKIP-DECLARATIONS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SKIP-DECLARATIONS
      #31Y(00 00 00 00 01 00 00 00 00 02 AD 1B 02 83 00 9D 20 0A 9D 5B 20 06 9D
           5B 78 24 00 71 15 19 02)
      COMMON-LISP::DECLARE))
#Y(#:TOP-LEVEL-FORM-260-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-FLET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FLET
      #395Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            0E 00 5C 78 01 02 93 02 22 94 02 9D 20 0A 94 00 89 04 05 9D 5C 21
            80 CC CF 50 09 E5 6F 0C E7 B1 2D 03 0A 51 16 01 83 02 92 02 5E AD
            72 47 AD 72 47 40 02 16 03 42 02 6B 0E 0E 0E 10 0E 0E 0F 10 0F 0E
            10 10 10 DD 0E 0E 5D 0F 0E 63 0E 0F 5D 0F 0F 6B 0E 6B 0F B9 B9 01
            04 93 05 80 51 94 05 84 00 94 04 AC 6F 11 8E 90 80 9A AC 84 04 AC
            6F 13 84 02 EE 0E 0E 5D 0F 0E EF 38 01 72 8E F0 63 F1 63 F2 64 F3
            64 F4 63 F5 63 F6 6B 0E F7 6B 0F 65 1E 6B 05 6E 14 1F AD 7B 01 9E
            7A 84 02 AC 84 04 16 01 16 01 95 05 83 05 6A 05 92 05 FF AF AF 72
            47 AF 72 47 AF 72 47 65 20 6B 21 A2 7A 32 47 77 00 40 04 16 06 42
            04 9D 10 21 99 22 A3 37 00 65 23 0E 00 5C 79 2F 24 7A 6F 25 0E 26
            1C 80 52 B2 B4 1B 80 48 94 00 6B 05 6F 06 AD 70 07 9F 5C 78 AE A1
            5C 79 30 08 7A 70 09 AD 84 04 AC 84 03 16 02 1B FF 20 AC 7B 01 AD
            2F 12 7A 84 01 1B FF 92 AC 2F 28 16 02 1B 11 16 03 1B 16 94 01 9E
            20 77 94 01 AD 88 27 6A 16 02 83 01 83 00 9E 21 6C 16 02 B2 B2 70
            29 E7 B3 AF 7B 01 73 02 23 6F 2A B5 70 2B AE B8 BA 6E 03 2C 99 2D
            B7 B7 6E 03 2E B1 65 2F 6B 0E 66 1B 6B 30 7B 04 7B 02 73 03 23 6E
            03 31 AD B8 B8 2D 03 32 B4 2F 33 15 16 02 11 16 06 12 03 19 04)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::FUNCTION-NAME-P
      SYSTEM::*FUNC* SYSTEM::FNODE-NAME SYSTEM::SYMBOL-SUFFIX
      SYSTEM::ADD-IMPLICIT-BLOCK SYSTEM::C-LAMBDABODY SYSTEM::C-ERROR
      "Illegal function definition syntax in ~S: ~S" SYSTEM::TEXT
      COMMON-LISP::FLET SYSTEM::*STACKZ* SYSTEM::*VENVC* SYSTEM::*VENV*
      SYSTEM::FNODE-KEYWORD-OFFSET SYSTEM::NEW-CONST SYSTEM::C-FNODE-FUNCTION
      1. :NAME :SPECIALP :CONSTANTP :USEDP :FOR-VALUE-USEDP :REALLY-USEDP
      :CLOSUREP :STACKZ :VENVC :FNODE SYSTEM::MAKE-VAR #.#'COMMON-LISP::VECTOR
      SYSTEM::*FENV* SYSTEM::PUSH-*VENV* COMMON-LISP::PROGN
      SYSTEM::SKIP-DECLARATIONS SYSTEM::C-FORM SYSTEM::*NO-CODE*
      SYSTEM::VAR-REALLY-USEDP SYSTEM::PROPAGATE-FAR-USED
      SYSTEM::CHECKING-MOVABLE-VAR-LIST SYSTEM::ANODELIST-SECLASS-OR
      SYSTEM::SECLASS-WITHOUT SYSTEM::C-MAKE-CLOSURE
      SYSTEM::C-BIND-MOVABLE-VAR-ANODE EXT::MAPCAP SYSTEM::UNWIND
      SYSTEM::*FOR-VALUE* SYSTEM::MK-ANODE SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT
      SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-260-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-LABELS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LABELS
      #530Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            6B 04 0E 04 10 04 0E 05 10 05 0E 06 10 06 DD 0E 04 5D 0F 04 63 0E
            05 5D 0F 05 6B 04 6B 05 0E 00 5C 78 01 05 93 05 23 94 05 9D 20 0A
            94 00 89 07 05 9D 5C 21 80 5B 03 19 50 09 F4 6F 1B F1 B1 2D 03 19
            51 16 01 83 05 92 05 5D B0 72 47 B0 72 47 B0 72 47 B0 72 47 B0 72
            47 40 05 16 06 42 05 B0 AD 63 93 02 11 94 02 84 00 94 01 84 00 95
            02 83 02 6A 02 92 02 6F 6B 1C 84 00 F7 AD 32 47 37 00 16 03 10 1C
            99 1E A4 37 00 63 B4 B3 B3 B3 1B 80 81 94 00 AC 84 06 E2 0E 04 5D
            0F 04 E3 38 01 72 8E E4 63 E5 63 E6 64 E7 64 E8 63 E9 63 EA 6B 04
            EB 6B 05 EC 6B 13 6E 14 14 84 05 6B 13 6F 15 AD 70 16 84 04 95 01
            84 03 63 F1 A0 5C 78 2F 18 43 5D 7A A3 5B 7A 84 02 16 01 1B FF 67
            16 07 1B 37 16 06 1B 33 16 05 1B 2F 94 03 A0 20 77 94 03 A0 20 6E
            94 03 A0 20 65 94 03 AE 94 02 B1 95 04 30 1F 7A AE 6E 03 20 84 08
            16 04 83 03 83 02 83 01 83 00 A0 21 53 16 04 AC 80 A2 00 63 AD B5
            1B 1A 16 03 1B 1B 94 01 9E 20 77 94 01 AD AD 2F 21 79 70 22 84 04
            16 02 83 01 83 00 9E 21 67 16 02 AC 80 A2 00 65 23 0E 00 5C 79 2F
            24 7A 6F 25 B5 AF 93 01 2A 94 01 94 01 AC 6F 26 8F 90 15 65 27 AE
            65 28 64 32 2D AC 6F 29 65 27 AF 65 2A AF 32 2D 16 01 16 02 95 01
            83 01 6A 01 92 01 56 16 02 0E 2B 1C 35 DD 1B 23 B6 B0 93 01 1C 94
            01 94 01 AC 6F 26 8E 90 07 AD 89 2C 03 AC 2F 2D 16 02 95 01 83 01
            6A 01 92 01 64 16 02 AC 99 2C B8 38 04 81 61 01 14 8D FF 50 16 01
            B5 AE 70 2E F1 AF AF 7B 01 73 02 23 6F 2F B8 70 30 AE BB BD 6E 03
            31 99 32 BA B3 6E 03 33 B1 65 34 6B 04 66 1E 6B 35 7B 04 7B 02 73
            03 23 6E 03 36 AD BB BB 2D 03 37 B7 2F 38 15 16 04 11 16 07 12 03
            19 02)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::*STACKZ* SYSTEM::*VENVC*
      SYSTEM::*VENV* SYSTEM::FUNCTION-NAME-P 1. :NAME :SPECIALP :CONSTANTP
      :USEDP :FOR-VALUE-USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC :FNODE
      SYSTEM::*FUNC* SYSTEM::MAKE-VAR SYSTEM::FNODE-NAME SYSTEM::SYMBOL-SUFFIX
      COMMON-LISP::LABELS SYSTEM::ANALYZE-LAMBDALIST SYSTEM::C-ERROR
      "Illegal function definition syntax in ~S: ~S" SYSTEM::TEXT
      SYSTEM::*FENV* #.#'COMMON-LISP::VECTOR SYSTEM::PUSH-*VENV*
      SYSTEM::ADD-IMPLICIT-BLOCK SYSTEM::C-LAMBDABODY SYSTEM::VAR-STACKZ
      SYSTEM::C-FNODE-FUNCTION COMMON-LISP::PROGN SYSTEM::SKIP-DECLARATIONS
      SYSTEM::C-FORM SYSTEM::FNODE-KEYWORD-OFFSET SYSTEM::VAR 3.
      SYSTEM::NEW-CONST 4. SYSTEM::*NO-CODE* SYSTEM::VAR-REALLY-USEDP
      SYSTEM::PROPAGATE-FAR-USED SYSTEM::CHECKING-MOVABLE-VAR-LIST
      SYSTEM::ANODELIST-SECLASS-OR SYSTEM::SECLASS-WITHOUT
      SYSTEM::C-MAKE-CLOSURE SYSTEM::C-BIND-MOVABLE-VAR-ANODE EXT::MAPCAP
      SYSTEM::UNWIND SYSTEM::*FOR-VALUE* SYSTEM::MK-ANODE
      SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-260-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-FUNCTION-MACRO-LET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FUNCTION-MACRO-LET
      #432Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            0E 00 5C 78 01 03 93 03 38 94 03 9D 20 20 94 00 8F 04 1B 9D 5C 20
            17 9D 5C 5B 20 12 9D 5C 5C 20 0D 9D 5C 5C 5B 20 07 9D 5C 5C 5C 1D
            80 D5 CE 50 09 E4 6F 0B E6 B1 2D 03 09 51 16 01 83 03 92 03 48 AE
            72 47 AE 72 47 AE 72 47 40 03 16 04 42 03 6B 0D 0E 0D 10 0D 0E 0E
            10 0E 0E 0F 10 0F DD 0E 0D 5D 0F 0D 63 0E 0E 5D 0F 0E 6B 0D 6B 0E
            BA BA BA 01 04 93 06 80 58 94 06 84 00 94 05 94 05 AD 6F 10 8E 90
            80 A1 AD 84 05 AD 6F 12 84 03 ED 0E 0D 5D 0F 0D EE 38 01 72 8E EF
            63 F0 63 F1 64 F2 64 F3 63 F4 63 F5 6B 0D F6 6B 0E F7 6B 04 6E 14
            1E AD AF 7B 01 9F 5D 7A 84 03 AC 84 05 16 01 16 02 95 06 95 06 83
            06 6A 06 6A 06 92 06 FF A8 AF 72 47 AF 72 47 AF 72 47 65 1F 6B 20
            A2 7A 32 47 77 00 40 04 16 07 42 04 9D 10 20 99 21 A3 37 00 65 22
            0E 00 5C 5C 7A 6F 23 0E 24 1C 80 58 B2 B4 1B 80 4E 94 00 6B 04 6F
            05 AD 70 06 9F 5C 78 70 07 AD A0 5C 5C 5B 7A 6F 08 AE 84 06 AD 84
            05 AC 84 04 16 03 1B FF 13 AC AE 7B 01 AF 2F 11 7C 02 84 02 1B FF
            8A AC 2F 26 16 02 1B 11 16 03 1B 16 94 01 9E 20 77 94 01 AD 88 25
            6A 16 02 83 01 83 00 9E 21 6C 16 02 B2 B2 70 27 E6 B3 AF 7B 01 73
            02 23 6F 28 B5 70 29 AE B8 BA 6E 03 2A 99 2B B7 B7 6E 03 2C B1 65
            2D 6B 0D 66 1B 6B 2E 7B 04 7B 02 73 03 23 6E 03 2F AD B8 B8 2D 03
            30 B4 2F 31 15 16 02 11 16 06 12 03 19 05)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::*FUNC* SYSTEM::FNODE-NAME
      SYSTEM::SYMBOL-SUFFIX SYSTEM::C-LAMBDABODY SYSTEM::MAKE-MACRO-EXPANDER
      SYSTEM::C-ERROR "Illegal function definition syntax in ~S: ~S"
      SYSTEM::TEXT SYSTEM::FUNCTION-MACRO-LET SYSTEM::*STACKZ* SYSTEM::*VENVC*
      SYSTEM::*VENV* SYSTEM::FNODE-KEYWORD-OFFSET SYSTEM::NEW-CONST
      SYSTEM::C-FNODE-FUNCTION 1. :NAME :SPECIALP :CONSTANTP :USEDP
      :FOR-VALUE-USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC :FNODE
      SYSTEM::MAKE-VAR #.#'COMMON-LISP::VECTOR SYSTEM::*FENV*
      SYSTEM::PUSH-*VENV* COMMON-LISP::PROGN SYSTEM::C-FORM SYSTEM::*NO-CODE*
      SYSTEM::VAR-REALLY-USEDP SYSTEM::PROPAGATE-FAR-USED
      SYSTEM::CHECKING-MOVABLE-VAR-LIST SYSTEM::ANODELIST-SECLASS-OR
      SYSTEM::SECLASS-WITHOUT SYSTEM::C-MAKE-CLOSURE
      SYSTEM::C-BIND-MOVABLE-VAR-ANODE EXT::MAPCAP SYSTEM::UNWIND
      SYSTEM::*FOR-VALUE* SYSTEM::MK-ANODE SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT
      SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-260-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-GENERIC-FLET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-GENERIC-FLET
      #338Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            0E 00 5C 78 01 03 93 03 22 94 03 9D 20 0A 94 00 89 04 05 9D 5C 21
            81 00 CE 50 09 E4 6F 0B DF B1 2D 03 09 51 16 01 83 03 92 03 5E AE
            72 47 AE 72 47 AE 72 47 40 03 16 04 42 03 6B 0C 0E 0C 10 0C 0E 0D
            10 0D 0E 0E 10 0E DD 0E 0C 5D 0F 0C 63 0E 0D 5D 0F 0D 6B 0C 6B 0D
            BA BA BA 01 03 93 05 80 4C 94 05 84 00 94 03 E9 70 10 84 01 EB 0E
            0C 5D 0F 0C EC 38 01 72 8E ED 63 EE 63 EF 64 F0 64 F1 63 F2 63 F3
            6B 0C F4 6B 0D F5 6B 1C 6E 14 1D 63 65 1E A4 5B 7C 02 9E 7A 84 01
            AC 84 03 16 01 95 05 95 05 83 05 6A 05 6A 05 92 05 FF B4 AE 72 47
            AE 72 47 65 1F 6B 20 A1 7A 32 47 77 00 40 03 16 06 42 03 9D 10 20
            99 21 A3 37 00 65 22 0E 00 5C 5C 7A 6F 10 B2 B2 70 23 DF B3 AF 7B
            01 73 02 23 6F 24 B5 70 25 AE B7 B9 6E 03 26 99 27 B7 B7 6E 03 28
            B1 65 29 6B 0C 66 1A 6B 2A 7B 04 7B 02 73 03 23 6E 03 2B AD B7 B7
            2D 03 2C B4 2F 2D 15 16 02 11 16 05 12 03 19 05 94 00 AC 84 04 DF
            AD A0 5C 78 6E 03 06 84 03 DF AD A0 5C 78 A1 5C 79 2E 07 14 6E 05
            08 84 02 16 01 1B FE E8)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::FUNCTION-NAME-P
      CLOS::GENERIC-FLET CLOS::DEFGENERIC-LAMBDALIST-CALLINFO SYSTEM::ENV
      CLOS::MAKE-GENERIC-FUNCTION-FORM SYSTEM::C-ERROR
      "Illegal function definition syntax in ~S: ~S" SYSTEM::TEXT
      SYSTEM::*STACKZ* SYSTEM::*VENVC* SYSTEM::*VENV* SYSTEM::ONE
      SYSTEM::C-FORM 1. :NAME :SPECIALP :CONSTANTP :USEDP :FOR-VALUE-USEDP
      :REALLY-USEDP :CLOSUREP :STACKZ :VENVC :FNODE SYSTEM::*FUNC*
      SYSTEM::MAKE-VAR SYSTEM::GENERIC #.#'COMMON-LISP::VECTOR SYSTEM::*FENV*
      SYSTEM::PUSH-*VENV* COMMON-LISP::PROGN SYSTEM::CHECKING-MOVABLE-VAR-LIST
      SYSTEM::ANODELIST-SECLASS-OR SYSTEM::SECLASS-WITHOUT
      SYSTEM::C-MAKE-CLOSURE SYSTEM::C-BIND-MOVABLE-VAR-ANODE EXT::MAPCAP
      SYSTEM::UNWIND SYSTEM::*FOR-VALUE* SYSTEM::MK-ANODE
      SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-260-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-GENERIC-LABELS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-GENERIC-LABELS
      #341Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            6B 04 0E 04 10 04 0E 05 10 05 0E 06 10 06 DD 0E 04 5D 0F 04 63 0E
            05 5D 0F 05 6B 04 6B 05 0E 00 5C 78 01 04 93 04 23 94 04 9D 20 0A
            94 00 89 07 05 9D 5C 21 80 56 03 1A 50 09 F5 6F 1C F0 B1 2D 03 1A
            51 16 01 83 04 92 04 5D AF 72 47 AF 72 47 AF 72 47 AF 72 47 40 04
            16 05 42 04 AF AE 63 93 02 11 94 02 84 00 94 01 84 00 95 02 83 02
            6A 02 92 02 6F 6B 1D 84 00 65 1E AD 32 47 37 00 16 03 10 1D 99 1F
            A3 37 00 63 B0 1B 80 5D 94 00 AC 84 05 E2 0E 04 5D 0F 04 E3 38 01
            72 8E E4 63 E5 63 E6 64 E7 64 E8 63 E9 63 EA 6B 04 EB 6B 05 EC 6B
            13 6E 14 14 84 04 63 EF F0 AF A2 5C 78 2D 03 17 7C 02 A2 5B 7A 84
            03 F0 AD A0 5C 78 A1 5C 79 2E 18 14 6E 05 19 84 02 16 01 1B FF 67
            94 00 AC 65 20 70 21 84 02 16 01 83 00 9D 21 70 16 01 AC 80 A2 00
            65 22 0E 00 5C 5C 7A 6F 21 B3 AE 70 23 F0 AF AF 7B 01 73 02 23 6F
            24 B6 70 25 AE B9 BB 6E 03 26 99 27 B8 B3 6E 03 28 B1 65 29 6B 04
            66 1C 6B 2A 7B 04 7B 02 73 03 23 6E 03 2B AD B9 B9 2D 03 2C B5 2F
            2D 15 16 03 11 16 06 12 03 19 02)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::*STACKZ* SYSTEM::*VENVC*
      SYSTEM::*VENV* SYSTEM::FUNCTION-NAME-P 1. :NAME :SPECIALP :CONSTANTP
      :USEDP :FOR-VALUE-USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC :FNODE
      SYSTEM::*FUNC* SYSTEM::MAKE-VAR SYSTEM::GENERIC CLOS::GENERIC-LABELS
      CLOS::DEFGENERIC-LAMBDALIST-CALLINFO SYSTEM::ENV
      CLOS::MAKE-GENERIC-FUNCTION-FORM SYSTEM::C-ERROR
      "Illegal function definition syntax in ~S: ~S" SYSTEM::TEXT
      SYSTEM::*FENV* #.#'COMMON-LISP::VECTOR SYSTEM::PUSH-*VENV* SYSTEM::ONE
      SYSTEM::C-FORM COMMON-LISP::PROGN SYSTEM::CHECKING-MOVABLE-VAR-LIST
      SYSTEM::ANODELIST-SECLASS-OR SYSTEM::SECLASS-WITHOUT
      SYSTEM::C-MAKE-CLOSURE SYSTEM::C-BIND-MOVABLE-VAR-ANODE EXT::MAPCAP
      SYSTEM::UNWIND SYSTEM::*FOR-VALUE* SYSTEM::MK-ANODE
      SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-261
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MACROLET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MACROLET
      #81Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 9A 00 01 6B 01 DC 30 03 0E 01
           5C 78 DE 30 03 0E 01 5C 78 63 93 01 13 94 01 94 00 AC 84 02 AD 6F 05
           84 02 16 02 83 01 92 01 6D 6B 06 84 00 E1 AD 32 47 37 00 10 06 B2 E2
           0E 01 5C 79 2F 09 7A 36 01 11 19 04)
      SYSTEM::C-FORM SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0.
      SYSTEM::MAKE-MACRO-EXPANDER SYSTEM::*FENV* #.#'COMMON-LISP::VECTOR
      COMMON-LISP::PROGN SYSTEM::SKIP-DECLARATIONS))
#Y(#:TOP-LEVEL-FORM-262
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-SYMBOL-MACROLET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SYMBOL-MACROLET
      #264Y(02 00 01 00 00 00 01 00 00 07 3B 01 03 9A 00 01 6B 01 DC 30 03 0E
            01 5C 78 DE 30 03 0E 01 5C 78 01 02 93 02 26 94 02 9D 20 0E 94 00
            8F 04 09 9D 5C 20 05 9D 5C 5C 1D 27 CA 50 09 E0 6F 07 E2 B1 2D 03
            05 51 16 01 83 02 92 02 5A AD 72 47 AD 72 47 40 02 16 03 42 02 6B
            09 E4 63 B0 B0 1B 31 94 00 84 02 9D 5C 78 84 01 1B 5A 16 03 1B 27
            CA 50 80 80 EF 6F 07 CD 1B 80 73 94 01 9E 20 6C 94 01 AD AD 6F 0B
            7B 02 B1 80 A1 04 16 02 83 01 83 00 9E 21 66 16 02 AC 80 A2 00 6B
            0C 7B 01 33 02 24 37 00 10 0C A0 10 09 0E 01 5C 79 63 2E 0D 14 31
            5E 42 02 AC 2F 0E 42 04 A0 10 0F A2 10 10 A4 10 11 A6 10 12 2E 13
            66 1A 63 AD 8C 91 29 87 01 00 14 38 01 8C 5D FF 97 AC 88 14 FF 92
            AC 6B 0F F0 38 02 8D B2 0D CA 50 0A F1 6F 07 CD 14 B1 2D 03 05 51
            83 01 1B 53 16 02 66 1C F2 04 13 7A 36 01 12 04 16 06 12 02 19 05)
      SYSTEM::C-FORM SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::C-ERROR
      "~S: Illegal syntax: ~S" SYSTEM::TEXT COMMON-LISP::SYMBOL-MACROLET
      SYSTEM::*DENV* #.#'COMMON-LISP::VECTOR SYSTEM::MAKE-SYMBOL-MACRO
      SYSTEM::*VENV* SYSTEM::ENV SYSTEM::PROCESS-DECLARATIONS
      SYSTEM::*SPECIALS* SYSTEM::*IGNORES* SYSTEM::*IGNORABLES*
      SYSTEM::*READONLYS* SYSTEM::PUSH-SPECIALS SYSTEM::PROCLAIMED-SPECIAL-P
      "~S: symbol ~S is declared special and must not be declared a macro"
      #.#'COMMON-LISP::EQ
      "~S: symbol ~S must not be declared SPECIAL and a macro at the same time"
      COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-263
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-EVAL-WHEN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-EVAL-WHEN
      #146Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 9A 00 01 6B 01 DC 30 03 0E
            01 5C 78 DE 30 03 63 AE 98 05 5A 14 63 0E 01 5C 78 63 1B 80 44 87
            01 00 26 06 11 93 03 39 1B 20 93 03 34 7E 02 1B 30 7E 04 FA 1B 2B
            AC E1 8E 00 76 AC E2 8E 00 71 AC E3 8E 00 05 AC E4 8F 00 0C 7E 04
            1B 13 AC 2F 13 93 01 28 1B 23 E5 6F 0C E7 E8 E9 EA B1 2D 06 11 83
            01 AD 8D 91 FF B7 16 02 EC 0E 01 5C 5C 7A 93 01 03 92 03 58 93 01
            03 AC 31 5A B1 93 04 01 9E 14 36 01 19 06)
      SYSTEM::C-FORM SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0.
      SYSTEM::COMPILE-TOPLEVEL-FORM
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:EXECUTE . 61.)
         (COMMON-LISP::EVAL . 61.) (:COMPILE-TOPLEVEL . 6.)
         (COMMON-LISP::COMPILE . 9.) (:LOAD-TOPLEVEL . 1.)
         (COMMON-LISP::LOAD . 38.))
      (COMMON-LISP::NOT COMMON-LISP::EVAL) (COMMON-LISP::NOT :EXECUTE)
      (COMMON-LISP::NOT COMMON-LISP::COMPILE)
      (COMMON-LISP::NOT :COMPILE-TOPLEVEL)
      "~s situation must be ~s, ~s or ~s, but not ~s" SYSTEM::TEXT
      COMMON-LISP::EVAL-WHEN :LOAD-TOPLEVEL :COMPILE-TOPLEVEL :EXECUTE
      SYSTEM::C-ERROR COMMON-LISP::PROGN SYSTEM::C-WRITE-LIB))
#Y(#:TOP-LEVEL-FORM-264
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-COND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-COND
      #76Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 79 93 00 1A 94 00
           9D 20 18 94 00 9E 5C 1C 1C E3 AD E2 A2 5C 7A 61 03 16 02 F8 2F 0A 19
           01 00 1B 78 DD 6F 04 AD 30 05 16 01 1B 6E E0 AD E1 A1 5C 7A E2 A3 5C
           7A 61 04 16 02 1B 5E)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST "COND clause without test: ~S"
      SYSTEM::TEXT SYSTEM::C-ERROR COMMON-LISP::IF COMMON-LISP::PROGN
      COMMON-LISP::COND COMMON-LISP::OR SYSTEM::C-FORM))
#Y(#:TOP-LEVEL-FORM-265
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CASE
      #488Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 0E 00 5C
            79 01 03 AF 1B 80 A4 DD 6F 04 AD 30 05 16 01 1B 80 99 7D 00 1B 80
            8C 93 02 0E CA 50 0B E1 6F 04 E2 B1 6B 00 2D 04 05 51 7E 00 FB 1B
            80 75 9E 1B 1C 94 00 83 01 9D 20 4F 94 00 92 03 55 AC 02 22 56 AC
            24 06 52 63 AD 8E 09 64 AD 61 01 14 63 1B 80 45 AC 84 07 AC 84 02
            1B 3B 00 2B 01 38 01 32 8E 0B 00 00 AC 6D 0E 01 E9 68 02 00 B3 7B
            02 7B 01 EA 68 04 00 B3 A2 74 7B 03 7B 03 2F 11 19 07 87 01 00 14
            B4 E3 38 02 8D B2 47 E4 6F 04 E2 AE 6B 00 2D 04 0B 83 01 AD 8D 91
            65 16 02 AC 81 47 01 16 01 AC 9F 5C 7A 84 05 16 02 AC 8D 91 FF 81
            16 01 92 00 03 E6 84 02 AE 81 47 02 AD 81 47 01 F8 72 45 E7 90 01
            32 FF 91 AF EC 70 11 01 02 B0 63 1B 80 59 9D FC 16 01 1B 80 50 EA
            9E 5C 7A 6F 11 9E 5B 20 6F 94 01 63 6F 13 AE 7B 03 84 03 16 01 1B
            38 AE 6F 16 AD 63 1B 14 9D 5C 5C 5B 19 0B 87 01 00 AE 94 01 E3 38
            02 8C B2 6E 83 01 AD 8D 91 6E A1 19 0B 03 19 1B 33 87 01 00 5B 1C
            FF BB 02 10 14 EA A1 5C 7A 63 30 11 11 83 01 AD 8D 91 68 16 02 AC
            81 47 00 AE 88 15 FF B7 63 6F 13 6B 17 6F 13 99 18 B2 90 00 29 4B
            03 1A 14 E2 B2 F5 B2 73 00 17 B3 7B 01 33 02 23 7A 6F 1C B3 F7 B0
            63 B5 1B 28 94 00 9D 5C 78 63 94 02 1B 0B 94 00 AC A1 7A 84 02 16
            01 83 00 9D 21 72 16 01 AC 31 A2 16 01 F8 AF 80 A0 02 16 01 83 00
            9D 21 55 16 01 AC 80 A2 00 B4 65 1E B7 33 00 17 7C 04 63 B4 1B 18
            94 00 9D 5C 78 9E 5C 5C 78 65 1F B7 7B 02 7B 03 AF 80 A0 02 16 01
            83 00 9D 21 65 16 01 AC 80 A2 00 B3 B6 B4 7B 03 33 02 23 7C 02 2D
            03 20 19 0B)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST "CASE clause without objects: ~S"
      SYSTEM::TEXT SYSTEM::C-ERROR COMMON-LISP::OTHERWISE
      "~S: the ~S clause must be the last one: ~S" COMMON-LISP::CASE
      #.#'COMMON-LISP::EQL "Duplicate ~S label ~S : ~S" SYSTEM::C-STYLE-WARN
      (COMMON-LISP::T COMMON-LISP::NIL) 2.
      #Y(SYSTEM::C-CASE-IFIFY
         #78Y(00 00 00 00 01 00 00 00 00 02 92 01 2A 00 19 02 DC 63 AE 1B 12 94
              00 DD 69 00 01 DE AF 7B 02 7B 03 84 02 16 01 83 00 9D 21 6B 16 01
              AC 31 A2 16 01 5D 1B 0C 93 01 56 DB 9F 5B 78 AC 8E 09 51 02 F8 DF
              A1 5B 5C 7A 95 04 6C 6A 61 04 19 02)
         COMMON-LISP::NIL COMMON-LISP::IF COMMON-LISP::OR COMMON-LISP::EQL
         COMMON-LISP::QUOTE COMMON-LISP::PROGN)
      COMMON-LISP::LET COMMON-LISP::PROGN SYSTEM::C-FORM SYSTEM::ONE
      SYSTEM::MAKE-LABEL SYSTEM::*NO-CODE* SYSTEM::ANODE-CONSTANTP
      SYSTEM::ANODE-CONSTANT-VALUE SYSTEM::*FOR-VALUE* SYSTEM::EQL=EQ
      COMMON-LISP::EQ COMMON-LISP::EQL #.#'COMMON-LISP::THIRD
      SYSTEM::ANODELIST-SECLASS-OR SYSTEM::JMPHASH #.#'COMMON-LISP::SECOND
      SYSTEM::JMP SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-266
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-HANDLER-BIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-HANDLER-BIND
      #264Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 DD 30 02
            0E 00 5C 79 01 03 0E 00 5C 78 63 1B 80 89 F6 A1 7A 2F 10 19 05 87
            01 00 14 DB DB 2D 03 02 94 00 9E 5C 78 DE 6F 05 AE 84 07 AC 84 06
            E0 0E 07 5D 10 07 6B 07 0E 08 10 08 E3 0E 07 5D 0F 07 38 01 72 8E
            E4 E5 63 6E 03 0C AD AD 70 0D AC 2F 0E E9 B8 B0 7B 03 63 70 10 AD
            7B 01 AF 7B 01 30 11 B7 EC AF B1 70 13 AF EE 6B 07 6B 15 7B 03 F0
            6B 07 BA 03 17 7C 03 03 18 7C 03 33 02 23 7C 02 F3 F4 AE 6E 03 0C
            AF 7B 01 2F 1B 15 16 05 11 16 01 11 14 84 05 16 03 83 01 AD 8D 91
            FF 79 16 02 93 02 FF 6C AE 81 47 02 AD 81 47 01 AC 81 47 00 63 6F
            05 6B 07 F7 0E 07 5D 10 07 F6 A6 7A 6F 10 65 1E AD A5 7A 6F 1F 65
            20 B7 65 21 72 28 6F 22 6B 07 A9 7C 03 65 23 B5 7B 02 B6 B6 B2 F0
            6B 07 B9 6B 24 7B 04 7B 03 33 02 23 7C 02 2D 03 0C 16 01 11 19 07)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::ONE SYSTEM::MAKE-LABEL
      SYSTEM::ANYTHING SYSTEM::*STACKZ* SYSTEM::*VENV* 1.
      COMMON-LISP::CONDITION (COMMON-LISP::T) SYSTEM::MK-ANODE
      SYSTEM::BIND-MOVABLE-VAR SYSTEM::PUSH-*VENV* SYSTEM::%FUNCALL
      SYSTEM::C-FORM SYSTEM::CHECKING-MOVABLE-VAR-LIST (SYSTEM::HANDLER-BEGIN)
      SYSTEM::C-BIND-MOVABLE-VAR-ANODE SYSTEM::UNWINDSP SYSTEM::*FUNC*
      SYSTEM::UNWIND (COMMON-LISP::NIL) ((SYSTEM::RET)) SYSTEM::HANDLER
      (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::OPTIMIZE-VAR-LIST
      COMMON-LISP::PROGN 4. COMMON-LISP::HANDLER-BIND
      SYSTEM::ANODELIST-SECLASS-OR SYSTEM::HANDLER-OPEN COMMON-LISP::VECTOR
      SYSTEM::NEW-CONST SYSTEM::JMP SYSTEM::*FOR-VALUE*))
#Y(#:TOP-LEVEL-FORM-267
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CONSTANT-EQL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CONSTANT-EQL
      #62Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 0E 00
           5C 79 0E 03 1D 0F AD 89 04 0B AD 6F 05 AC 8F 05 0C 16 01 1C 0F CD 14
           9E 7A 2F 07 19 03 AC 32 20 16 01 1D 71 CB 1B 6F)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE SYSTEM::LOOSE-CONSTANT-EQL
      SYSTEM::C-FORM COMMON-LISP::EQL))
#Y(#:TOP-LEVEL-FORM-268
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FUNCALL-NOTINLINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FUNCALL-NOTINLINE
      #77Y(00 00 00 00 02 00 00 00 00 03 AD DA 30 01 AE DC 70 03 DE 0E 05 5D 10
           05 B1 E0 B1 7B 02 93 01 18 94 01 DC 70 03 AC 84 01 16 01 E1 84 00 DE
           0E 05 5D 0F 05 83 01 92 01 68 E2 B4 72 45 7B 02 84 00 E2 E3 AE 72 47
           2D 03 0A 16 02 11 19 04)
      0. SYSTEM::TEST-LIST SYSTEM::ONE SYSTEM::C-FORM 1. SYSTEM::*STACKZ*
      (SYSTEM::FUNCALLP) (COMMON-LISP::PUSH) COMMON-LISP::FUNCALL
      (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-269
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FUNCALL-INLINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FUNCALL-INLINE
      #1059Y(02 00 01 00 05 00 00 00 00 06 00 2B 01 7F 04 00 00 AF DA 30 01 94
             03 83 04 2F 02 42 0D 92 07 0F 92 06 0C 92 05 09 92 04 06 92 03 03
             93 02 03 DD 2F 04 B8 72 45 B8 72 45 C0 72 45 92 0B 0B AC AF AF 73
             02 36 90 01 31 82 ED 06 10 00 1C 20 AC AF 91 01 30 1A CA 50 08 E5
             6F 07 66 1A 30 05 51 C1 AF AE 73 01 37 63 71 9C 82 02 23 15 9F F8
             04 10 2B 05 6B 0C 0E 0D 0B 01 00 0E 0E 0B 01 01 0E 0F 0B 01 02 0E
             10 0B 01 03 0E 11 0B 01 04 6B 0C 93 15 02 0E 0D 14 6B 12 93 17 02
             0E 0E 14 93 18 02 0E 0F 14 93 19 02 0E 10 14 92 1A 82 DC ED 66 1F
             7B 02 EE 6B 11 38 05 32 4E 5D 10 11 A5 10 0C A7 10 0D A9 10 12 AB
             10 0E 04 10 10 0F 04 12 10 10 66 30 64 2E 15 14 31 5E 42 02 04 1E
             2B 0E 00 10 16 00 10 17 00 10 18 00 10 19 01 09 00 0B 15 00 0B 15
             01 0B 15 02 0B 15 03 0B 15 04 0B 15 05 0B 15 06 0B 15 07 0B 15 08
             0B 15 09 0B 15 0A 0B 15 0B 0B 15 0C 0B 15 0D 14 01 03 66 1A 2F 1A
             42 04 15 0F 19 15 0F 18 15 0F 17 15 0F 16 2E 1B E2 0E 0C 5D 0F 0C
             63 0E 12 5D 0F 12 0E 0C F9 0E 12 F8 66 19 6D 1C 01 66 49 93 00 80
             42 93 50 82 3F 94 50 83 51 06 3B 00 10 0D 06 3E 01 10 0E 06 41 02
             10 0F 06 44 03 10 10 06 47 04 10 11 BB F7 30 1E 12 05 14 94 02 AD
             70 1F AD 84 10 AC 84 11 6B 0C 84 0F AC 2F 20 16 03 83 00 92 00 FF
             BE 16 01 66 48 66 48 66 48 93 02 3F 06 4D 00 1D 04 93 52 81 FD 04
             52 59 59 14 92 00 82 01 94 02 F7 30 1E 14 94 04 AD 70 1F AD 84 0F
             AC 84 10 6B 0C 84 0E AC 2F 20 94 03 25 08 82 11 16 03 95 02 95 02
             83 02 6A 02 6A 02 92 02 41 16 03 66 45 24 08 82 15 06 4A 00 1C 82
             2C 92 4F 82 32 00 14 06 3A 00 10 0D 06 3D 01 10 0E 06 40 02 10 0F
             06 43 03 10 10 06 46 04 10 11 BB F7 30 1E 12 05 14 66 47 AD 70 1F
             AD 84 09 AC 84 0A 6B 0C 84 08 AC 2F 20 16 03 E2 0E 0C 5D 0F 0C 0B
             1A 01 16 01 B8 81 47 0C B7 81 47 0B B6 81 47 0A B5 81 47 09 B4 81
             47 08 B3 81 47 07 66 3D 66 3D 30 24 42 02 6A 03 6A 03 65 25 04 1C
             7A 6F 1E B9 B7 B5 68 1D 02 68 1E 05 68 1F 08 68 20 0B B7 73 08 23
             BA BA 70 26 B8 B8 70 26 B6 B6 70 26 68 1E 02 6F 27 68 1F 05 6F 27
             68 20 08 68 21 09 70 26 68 21 0B 6F 27 B8 B8 70 26 73 08 23 AC B0
             B2 6E 03 28 06 1D 01 10 0C BF BD BB 73 03 23 BF BD BB 73 03 23 BF
             BD BB 73 03 23 68 23 00 2D 04 29 11 14 99 2A 68 1F 02 68 20 03 68
             21 04 6E 04 2B 68 1F 05 68 20 06 68 21 08 68 22 07 68 23 09 68 24
             0A 6E 06 2C 99 2A 68 21 0B 68 22 0C 68 23 0D 6E 04 2B 99 2D B8 B8
             6E 03 2B B4 65 2E 6B 0C 66 43 6B 2F 7B 04 7B 02 73 07 23 65 30 BC
             BA B8 68 21 00 68 22 07 63 68 24 09 38 07 72 4C B9 B7 7B 01 73 08
             23 6F 31 B0 70 32 AE 6E 03 33 AE B3 B3 2D 03 34 AF 2F 35 15 16 11
             12 04 16 03 12 07 19 1F CA 50 08 E0 6F 07 66 1A 30 05 51 E2 AD B0
             B0 73 02 36 73 01 37 1B 2B 38 01 72 8E BD AD 7B 01 82 02 23 11 BC
             63 7B 01 82 02 23 10 BB 63 7B 01 82 02 23 0F 85 04 E3 E4 AE 7B 02
             7B 02 84 16 16 01 85 01 AD AD 91 01 33 4F 16 02 06 10 00 1D FC C8
             1B FC E5 0E 11 1B FD 2C AC 66 4A 66 4A 66 4A 66 4A A3 34 16 01 1B
             FE 8A 63 AF AF AF 66 4C A5 34 16 03 1B FE 7D 02 10 21 94 05 63 30
             1E 11 06 3D 00 10 0D 06 40 01 10 0E 06 43 02 10 0F 06 46 03 10 10
             06 49 04 10 11 94 62 83 63 F7 30 1E 12 05 1B FD D6 AE F7 70 1E 94
             04 AD 70 1F AD 84 11 AC 84 12 6B 0C 84 10 AC 2F 20 16 05 1B FD D6
             06 4A 00 1D FE 25 01 04 66 49 A2 34 1B FE 25 65 22 66 50 68 4C 00
             33 02 23 5D 1B FD D9 92 4F 6F 06 4A 00 5B 1B FD CF 65 23 04 50 5D
             1B FD C7)
      1. SYSTEM::TEST-LIST SYSTEM::ANALYZE-LAMBDALIST SYSTEM::C-FUNCALL-INLINE
      SYSTEM::COMPILER-ERROR SYSTEM::C-ERROR "Too many arguments to ~S"
      SYSTEM::TEXT 0. COMMON-LISP::DECLARE COMMON-LISP::IGNORE
      "Too few arguments to ~S" SYSTEM::*STACKZ* SYSTEM::*VENV* SYSTEM::*FENV*
      SYSTEM::*BENV* SYSTEM::*GENV* SYSTEM::*DENV* SYSTEM::*VENVC*
      SYSTEM::INLINING
      #Y(SYSTEM::C-FUNCALL-INLINE-1
         #21Y(00 00 00 00 01 00 00 00 00 02 9E 5B 26 00 03 02 19 02 00 19 02)
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::INLINING . 1.)
            (SYSTEM::IN-DEFUN . 1.) (COMMON-LISP::DECLARATION . 1.)))
      SYSTEM::ENV SYSTEM::*SPECIALS* SYSTEM::*IGNORES* SYSTEM::*IGNORABLES*
      SYSTEM::*READONLYS* SYSTEM::PROCESS-DECLARATIONS SYSTEM::PUSH-SPECIALS
      #Y(SYSTEM::C-FUNCALL-INLINE-FINISH-USING-APPLYARG
         #205Y(00 00 00 00 05 00 00 00 00 06 07 01 01 10 01 07 01 02 10 02 07
               01 03 10 03 07 01 04 10 04 07 01 05 10 05 07 02 01 78 E0 30 07
               12 05 14 AE CD 5A 59 14 B3 72 45 B3 72 45 73 02 36 B3 72 45 6E
               03 09 E4 AE 6F 0B AE 6F 0B 70 0C AF AF 7B 02 2D 03 0D 16 01 F8
               61 01 0C 00 01 B1 2F 0E 42 02 15 0C 00 04 15 0C 00 03 B0 2F 0E
               42 02 15 0C 00 07 15 0C 00 06 AD 24 08 80 4B AD 7B 01 2F 0E 42
               02 15 0C 00 0D 15 0C 00 0C E2 0E 0F 5D 0F 0F 0C 00 02 69 00 03
               2F 10 0C 00 05 69 00 06 69 00 07 B1 B1 2D 04 11 42 04 15 0C 00
               0A 15 0C 00 09 15 0C 00 0B 15 0C 00 08 AD 24 08 11 69 00 0C 2F
               12 0C 00 0E 19 06 01 02 40 02 1B FF B3 00 19 06)
         COMMON-LISP::NIL SYSTEM::*VENV* SYSTEM::*FENV* SYSTEM::*BENV*
         SYSTEM::*GENV* SYSTEM::*DENV* SYSTEM::ONE SYSTEM::C-FORM 0.
         SYSTEM::C-UNLIST SYSTEM::APPLY-UNLIST SYSTEM::ANODE-SECLASS
         SYSTEM::SECLASS-OR-2 SYSTEM::MK-ANODE SYSTEM::PROCESS-FIXED-VAR-LIST
         SYSTEM::*STACKZ* SYSTEM::BIND-REQ-VARS SYSTEM::BIND-OPT-VARS
         SYSTEM::BIND-REST-VARS)
      SYSTEM::ONE SYSTEM::C-FORM SYSTEM::BIND-MOVABLE-VAR SYSTEM::PUSH-*VENV*
      SYSTEM::*NO-CODE* COMMON-LISP::LIST* COMMON-LISP::LIST
      SYSTEM::BIND-AUX-VARS COMMON-LISP::PROGN
      SYSTEM::CHECKING-MOVABLE-VAR-LIST SYSTEM::CHECKING-FIXED-VAR-LIST
      SYSTEM::C-MAKE-CLOSURE SYSTEM::C-PARALLEL-BIND-MOVABLE-VAR-ANODE
      SYSTEM::C-BIND-FIXED-VAR EXT::MAPCAP SYSTEM::C-BIND-WITH-SVARS
      SYSTEM::C-BIND-MOVABLE-VAR-ANODE SYSTEM::UNWIND SYSTEM::*FOR-VALUE*
      COMMON-LISP::FUNCALL SYSTEM::ANODELIST-SECLASS-OR SYSTEM::SECLASS-WITHOUT
      SYSTEM::MK-ANODE SYSTEM::CLOSUREDUMMY-ADD-STACK-SLOT
      SYSTEM::OPTIMIZE-VAR-LIST))
#Y(#:TOP-LEVEL-FORM-270
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LOCAL-FUNCTION-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LOCAL-FUNCTION-CALL
      #69Y(00 00 00 00 03 00 00 00 00 04 AE 2F 00 42 06 B3 63 B7 B4 B4 B4 B4 B4
           B4 6E 09 01 AC 24 02 0D AC 24 03 09 E0 B7 7B 02 B5 30 07 19 0B B4 63
           B8 B5 B5 B5 B5 B5 63 BF 94 13 BD BD BD BD BD 6E 07 04 2D 0A 05 19
           0B)
      SYSTEM::FDESCR-SIGNATURE SYSTEM::TEST-ARGUMENT-SYNTAX SYSTEM::NO-KEYS
      SYSTEM::STATIC-KEYS SYSTEM::CCLOSURE-CALL-CODE-PRODUCER
      SYSTEM::C-DIRECT-FUNCTION-CALL COMMON-LISP::FUNCTION
      SYSTEM::C-FUNCALL-NOTINLINE))
#Y(#:TOP-LEVEL-FORM-271
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      #47Y(00 00 00 00 02 00 00 00 00 03 AE 32 02 1F 1E 94 02 9F 5A 1F 18 95 02
           32 02 1F 12 9F 5C 5C 59 1F 0C AD 2F 00 59 1F 06 AD 2F 01 59 19 03 19
           03)
      SYSTEM::FENV-SEARCH SYSTEM::DECLARED-NOTINLINE))
#Y(#:TOP-LEVEL-FORM-272
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FUNCTION-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FUNCTION-CALL
      #95Y(00 00 00 00 02 00 00 00 00 03 AE 2F 00 FA 14 AE 72 45 8A 01 22 AE DD
           8B 04 04 DF 89 06 26 AE E3 8A 04 2D AE 89 0B 32 AE E6 E6 2D 03 0D 9F
           5C 78 9F 5D 14 2F 08 19 03 AE AE 63 A2 5C 5B 79 64 2D 05 02 19 03 DF
           E1 A1 5C 78 A1 7C 02 61 02 1B 62 E4 A0 5C 78 A0 62 02 1B 59 AE AE 30
           0E 19 03)
      SYSTEM::MACROEXPAND-FORM SYSTEM::INLINE-CALLABLE-FUNCTION-LAMBDA-P
      SYSTEM::C-FUNCALL-INLINE COMMON-LISP::COMPLEMENT
      SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P COMMON-LISP::NOT
      SYSTEM::FENV-SEARCH SYSTEM::%FUNCALL SYSTEM::C-FORM
      COMMON-LISP::CONSTANTLY COMMON-LISP::PROG1 SYSTEM::SIMPLE-FUNCTION-FORM-P
      2. SYSTEM::TEST-LIST SYSTEM::C-FUNCALL-NOTINLINE))
#Y(#:TOP-LEVEL-FORM-273
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FUNCALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FUNCALL
      #27Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 0E 00 5C 79
           30 03 19 01)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST SYSTEM::C-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-274
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-APPLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-APPLY
      #382Y(02 00 01 00 00 00 00 00 00 01 47 00 81 6E 6B 01 DC 30 03 00 2B 02
            0E 01 5C 78 0E 01 5C 79 AC 38 01 31 A3 0B 02 00 AC 38 01 31 9B 0B
            02 01 AC 72 45 72 96 AE 2F 04 FA 14 AD 64 2D 03 05 1C 1E AE E1 8B
            08 04 E3 89 0A 29 AE E7 8B 08 80 AB E8 A0 5C 78 A0 62 02 14 2F 0C
            16 04 1B 81 1C AE 68 04 00 68 05 01 A2 5C 5B 79 64 2D 05 06 16 04
            1B 81 08 E3 E5 A1 5C 78 A1 7C 02 61 02 1B 58 68 0B 00 68 0C 01 68
            09 00 B4 B4 B4 B4 B4 B4 2D 09 12 1B 80 98 68 08 00 68 0D 00 68 0E
            01 AF 63 2D 05 06 16 0D 1B 80 D4 68 07 00 8F 04 0F 68 07 00 8C 50
            80 43 68 07 00 38 01 8C 56 3B 68 07 00 89 16 06 6B 17 00 7A A4 34
            68 07 00 6F 18 AC B6 64 2D 03 19 1C FF BE 16 09 1B 80 5C AD A4 34
            16 08 1B 80 54 AC B4 6D 15 02 68 01 00 2F 0A 42 06 93 05 FF B4 AF
            24 1A 64 16 08 1B 3C AE 89 0F 38 A0 2B 01 A0 5C 5B 0B 00 00 AF EA
            EA 2D 03 03 68 00 00 64 30 11 42 07 93 06 07 68 07 00 A4 22 FF 5F
            68 07 00 68 0C 00 68 0D 01 2D 03 13 16 07 68 00 00 89 14 FF AE 16
            01 AE F5 70 0C F6 0E 1D 5D 10 1D B1 65 1E B1 7B 02 93 01 1D 94 01
            F5 70 0C AC 84 01 9F 5C 1D 0A F6 0E 1D 5D 0F 1D 65 1F 84 01 16 01
            83 01 92 01 63 E5 B3 7B 02 84 00 E5 65 20 AE 72 47 2D 03 21 16 02
            11 16 05 48 19 01 19 01)
      SYSTEM::C-APPLY SYSTEM::*FORM* 3. SYSTEM::TEST-LIST
      SYSTEM::MACROEXPAND-FORM SYSTEM::INLINE-CALLABLE-FUNCTION-LAMBDA-P
      SYSTEM::C-FUNCALL-INLINE COMMON-LISP::COMPLEMENT
      SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P COMMON-LISP::NOT
      SYSTEM::FENV-SEARCH COMMON-LISP::APPLY SYSTEM::C-FORM
      COMMON-LISP::CONSTANTLY COMMON-LISP::PROG1 SYSTEM::SIMPLE-FUNCTION-FORM-P
      2. SYSTEM::FUNCTION-SIGNATURE SYSTEM::TEST-ARGUMENT-SYNTAX
      SYSTEM::NOTE-FUNCTION-USED SYSTEM::DECLARED-NOTINLINE
      #Y(SYSTEM::C-APPLY-C-LOCAL-APPLY
         #78Y(00 00 00 00 01 00 00 00 00 02 AD 2F 02 42 06 92 02 37 69 01 01 69
              01 02 69 00 01 B4 B4 B4 B4 B4 B4 6E 09 03 C9 5A 1F 24 69 01 01 69
              01 02 69 00 01 B4 B4 B4 B4 B4 63 69 00 01 94 11 BC BC BC BC BC 6E
              07 05 2D 0A 06 49 01 00 19 08 19 08)
         COMMON-LISP::NIL COMMON-LISP::NIL SYSTEM::FDESCR-SIGNATURE
         SYSTEM::TEST-ARGUMENT-SYNTAX SYSTEM::NO-KEYS
         SYSTEM::CCLOSURE-CALL-CODE-PRODUCER SYSTEM::C-DIRECT-FUNCTION-CALL)
      SYSTEM::IN-DEFUN-P SYSTEM::*FUNC* SYSTEM::INLINE-LAMBDABODY
      SYSTEM::INLINE-CALLABLE-LAMBDABODY-P EXT::LOCAL SYSTEM::ONE 1.
      SYSTEM::*STACKZ* (SYSTEM::APPLYP) (COMMON-LISP::PUSH)
      (COMMON-LISP::T . COMMON-LISP::T) SYSTEM::MK-ANODE))
#Y(#:TOP-LEVEL-FORM-275
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CONSTANT-NUMBER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CONSTANT-NUMBER
      #52Y(02 00 01 00 01 00 00 00 00 02 AD 6F 00 AC 88 01 0C AC 63 40 02 19 03
           AC 64 40 02 19 04 AC 6F 02 AC 8E 06 73 C8 50 0B DE 6F 05 B3 B1 2D 03
           03 51 19 04 19 04)
      SYSTEM::MACROEXPAND-FORM SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE
      SYSTEM::C-ERROR "Arithmetic operand ~s must evaluate to a number, not ~s"
      SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-276
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-COLLECT-NUMERIC-CONSTANTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-COLLECT-NUMERIC-CONSTANTS
      #55Y(00 00 00 00 01 00 00 00 00 02 01 02 AF 63 1B 17 AD 84 05 1B 0E 87 01
           00 14 2F 00 42 02 92 00 70 AD 84 04 16 02 83 01 AD 8D 91 6A 16 02 AD
           72 47 AD 72 47 40 02 19 04)
      SYSTEM::C-CONSTANT-NUMBER))
#Y(#:TOP-LEVEL-FORM-277
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-PLUS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-PLUS
      #82Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 79 2F 03 42 02 DE
           AE 38 05 81 49 01 93 00 19 AD 24 06 18 9D 5C 1C 1F AD 24 01 15 AD 25
           0A 14 D0 14 9E 5D 14 2F 05 19 03 9E 1B 78 E1 9E 5D 1B 0C CE 1B 6D CC
           1B 01 CC 14 AE 9F 62 02 14 2F 08 19 03)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::C-COLLECT-NUMERIC-CONSTANTS
      #.#'COMMON-LISP::+ SYSTEM::C-FORM 0. COMMON-LISP::+
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM COMMON-LISP::1+ -1. COMMON-LISP::1-))
#Y(#:TOP-LEVEL-FORM-278
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-STAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-STAR
      #68Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 79 2F 03 42 02 DE
           AE 38 05 81 49 01 93 00 12 AD 24 01 13 AD 25 08 12 9D 5C 1C 0E CE 14
           9E 5D 1B 0D AD 2F 05 19 03 CB 1B 73 E0 AE 9F 62 02 14 2F 07 19 03)
      SYSTEM::*FORM* 1. SYSTEM::TEST-LIST SYSTEM::C-COLLECT-NUMERIC-CONSTANTS
      #.#'COMMON-LISP::* SYSTEM::C-FORM COMMON-LISP::*
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM -1. COMMON-LISP::-))
#Y(#:TOP-LEVEL-FORM-279
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MINUS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MINUS
      #140Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 6B 00 72 45 DB 73 01
            2E DD DD 63 92 03 35 0E 00 5C 78 2F 04 42 02 92 00 0C 9E FB 16 02
            93 03 26 0E 00 5C 1B 25 9E FC 1B 72 E1 AF AF 61 03 10 00 2E 08 11
            19 05 00 1B 3B AF 25 03 04 9E 5C 1D 75 A0 1B 24 92 03 5A 0E 00 5C
            5C 14 2F 05 42 02 E0 AE 38 04 B6 81 49 04 9D FA 16 02 1D 4C E3 AE
            24 03 56 AF 25 03 06 9F 14 61 01 1B 07 AE B0 73 00 37 61 02 14 AE
            33 02 23 7A 2F 0A 19 05)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 0. SYSTEM::C-CONSTANT-NUMBER
      SYSTEM::C-COLLECT-NUMERIC-CONSTANTS #.#'COMMON-LISP::- COMMON-LISP::+
      SYSTEM::C-PLUS COMMON-LISP::- SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-280
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-SLASH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SLASH
      #140Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 6B 00 72 45 DB 73 01
            2E DD DD 63 92 03 35 0E 00 5C 78 2F 04 42 02 92 00 0C 9E FB 16 02
            93 03 26 0E 00 5C 1B 25 9E FC 1B 72 E1 AF AF 61 03 10 00 2E 08 11
            19 05 00 1B 3B AF 25 03 04 9E 5C 1D 75 A0 1B 24 92 03 5A 0E 00 5C
            5C 14 2F 05 42 02 E0 AE 38 04 B6 81 49 04 9D FA 16 02 1D 4C E3 AE
            24 03 56 AF 25 03 06 9F 14 61 01 1B 07 AE B0 73 00 39 61 02 14 AE
            33 02 23 7A 2F 0A 19 05)
      SYSTEM::*FORM* 2. SYSTEM::TEST-LIST 1. SYSTEM::C-CONSTANT-NUMBER
      SYSTEM::C-COLLECT-NUMERIC-CONSTANTS #.#'COMMON-LISP::/ COMMON-LISP::*
      SYSTEM::C-STAR COMMON-LISP::/ SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-281
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-SVSTORE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SVSTORE
      #63Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 0E 00
           5C 5C 78 0E 00 5C 5C 5C 78 38 01 72 8E 38 01 72 8E DD AE B2 7B 02 AE
           B2 7B 02 7B 02 DE B1 B1 B1 7B 04 7B 03 2F 05 19 06)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST COMMON-LISP::LET* SYSTEM::%SVSTORE
      SYSTEM::C-FORM))
#Y(#:TOP-LEVEL-FORM-282
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-EQ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-EQ
      #89Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 6F 03
           0E 00 5C 5C 78 6F 03 AD 89 04 04 AC 88 04 1E AD 89 04 08 AD AD 9D FB
           9E FA 16 02 AC 89 04 04 AC 89 06 19 E4 AE AE 61 03 14 2F 09 19 03 DF
           AE 6F 06 AE 2F 06 5A 14 7B 02 2F 07 19 03 E2 AE 61 02 1B 66)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANTP COMMON-LISP::QUOTE SYSTEM::C-CONSTANT-VALUE
      SYSTEM::C-FORM COMMON-LISP::NULL SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM
      COMMON-LISP::EQ))
#Y(#:TOP-LEVEL-FORM-283
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::EQL=EQ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EQL=EQ
      #35Y(00 00 00 00 01 00 00 00 00 02 AD 32 04 1E 12 AD 8F 0A 09 AD 72 D2 DA
           33 01 32 1E 05 AD 32 1A 19 02 19 02)
      24.))
#Y(#:TOP-LEVEL-FORM-284
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-EQL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-EQL
      #94Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 6F 03
           0E 00 5C 5C 78 6F 03 AD 89 04 04 AC 88 04 1D AD 89 04 06 AD 6F 06 88
           08 22 AC 89 04 06 AC 6F 06 88 08 18 E5 AE AE 7B 03 2F 0C 19 03 DF AE
           6F 06 AE 6F 06 71 FF 7B 02 2F 07 19 03 E3 AE AE 61 03 10 00 2E 0A 11
           19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANTP COMMON-LISP::QUOTE SYSTEM::C-CONSTANT-VALUE
      SYSTEM::C-FORM SYSTEM::EQL=EQ COMMON-LISP::EQ SYSTEM::C-EQ
      COMMON-LISP::EQL SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-285
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::EQUAL=EQL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EQUAL=EQL
      #27Y(00 00 00 00 01 00 00 00 00 02 AD 32 04 1E 0A AD 32 06 1E 05 AD 32 1A
           19 02 19 02)))
#Y(#:TOP-LEVEL-FORM-286
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-EQUAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-EQUAL
      #71Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 6F 03
           0E 00 5C 5C 78 6F 03 AD 89 04 06 AD 6F 05 88 06 13 AC 89 04 06 AC 6F
           05 88 06 09 E3 AE AE 7B 03 2F 0A 19 03 E1 AE AE 61 03 10 00 2E 08 11
           19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE SYSTEM::EQUAL=EQL
      COMMON-LISP::EQL SYSTEM::C-EQL COMMON-LISP::EQUAL
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-287
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAP-ON-CARS-INNER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAP-ON-CARS-INNER
      #69Y(00 00 00 00 03 00 01 00 00 0A 3B 01 0D 7D 01 92 02 0B B0 AE 72 47 36
           01 19 05 93 02 75 94 02 38 01 72 8E DA DB AF 7B 02 DC AF DD B2 7B 02
           7B 02 7B 01 B6 B6 95 0A B3 A8 7A 6C 4F 7B 03 DE B5 7B 02 61 04 19
           07)
      COMMON-LISP::IF COMMON-LISP::CONSP COMMON-LISP::LET COMMON-LISP::CAR
      COMMON-LISP::RETURN-FROM))
#Y(#:TOP-LEVEL-FORM-288
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SHIFT-VARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SHIFT-VARS
      #41Y(00 00 00 00 01 00 00 00 00 02 63 AE 1B 11 94 00 AC DA AE 7B 02 7B 02
           AF 80 A0 02 16 01 83 00 9D 21 6C 16 01 AC 31 A2 19 03)
      COMMON-LISP::CDR))
#Y(#:TOP-LEVEL-FORM-289
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAP-ON-CARS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAP-ON-CARS
      #95Y(00 00 00 00 03 00 00 00 00 04 00 2B 02 7F 04 00 00 7F 03 00 01 9D 2B
           01 38 01 32 8E 0B 00 00 38 01 72 8E B0 6F 00 38 01 72 8E DB 68 04 00
           C7 7A 7B 01 DD B1 DE DF B3 B9 73 01 17 E0 B3 B7 6D 07 01 B7 B7 6E 03
           08 E3 B7 2F 0A 7A E5 B7 7B 02 7B 05 7B 03 7B 03 E6 68 07 00 7B 02 61
           04 19 09)
      SYSTEM::GENSYM-LIST COMMON-LISP::LET (COMMON-LISP::NIL)
      COMMON-LISP::BLOCK COMMON-LISP::LET* #.#'COMMON-LISP::LIST
      COMMON-LISP::TAGBODY
      #Y(SYSTEM::C-MAP-ON-CARS-1
         #33Y(00 00 00 00 01 00 00 00 00 02 DB 69 00 01 69 01 01 DC 69 01 02 A3
              7C 02 69 00 01 7B 03 61 03 19 02)
         COMMON-LISP::NIL COMMON-LISP::SETQ SYSTEM::%FUNCALL)
      SYSTEM::C-MAP-ON-CARS-INNER COMMON-LISP::SETQ SYSTEM::SHIFT-VARS
      COMMON-LISP::GO SYSTEM::LIST-NREVERSE))
#Y(#:TOP-LEVEL-FORM-290
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAP-ON-LISTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAP-ON-LISTS
      #114Y(00 00 00 00 03 00 00 00 00 04 38 01 72 8E 38 01 72 8E AF 6F 00 38
            01 72 8E DB B0 C7 7A 7B 01 DD B1 DE DF B3 B8 73 01 17 E0 B3 E1 E2
            63 B8 1B 0C 94 00 E3 AD 7B 02 84 02 16 01 83 00 9D 21 71 16 01 AC
            31 A2 16 01 7A E4 B9 7B 02 7B 03 E5 B9 BE E6 BF 04 0F 7C 02 BC 7B
            03 7B 03 E5 B8 2F 0D 7A E8 B8 7B 02 7B 06 7B 03 7B 03 E9 B3 7B 02
            61 04 19 08)
      SYSTEM::GENSYM-LIST COMMON-LISP::LET (COMMON-LISP::NIL)
      COMMON-LISP::BLOCK COMMON-LISP::LET* #.#'COMMON-LISP::LIST
      COMMON-LISP::TAGBODY COMMON-LISP::IF COMMON-LISP::OR COMMON-LISP::ATOM
      COMMON-LISP::RETURN-FROM COMMON-LISP::SETQ SYSTEM::%FUNCALL
      SYSTEM::SHIFT-VARS COMMON-LISP::GO SYSTEM::LIST-NREVERSE))
#Y(#:TOP-LEVEL-FORM-291
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPC SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPC
      #129Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 00 2B 01 0E 00 5C 78
            2F 03 0B 00 00 14 0E 00 5C 79 72 45 8A 04 0E EB 68 01 00 0E 00 5C
            5C 7C 02 2F 12 19 02 38 01 72 8E AC 0E 00 5C 5C 5C 7A 38 01 72 8E
            AD 6F 05 38 01 72 8E E0 B1 0E 00 5C 5C 78 7B 02 7B 01 E1 B1 E2 E3
            B3 B6 73 01 17 E4 B3 B9 6D 0B 01 B7 B7 6E 03 0C E7 B7 2F 0E 7A E9
            B7 7B 02 7B 05 7B 03 7B 03 B3 61 04 16 04 F8 2F 10 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P SYSTEM::GENSYM-LIST COMMON-LISP::LET
      COMMON-LISP::BLOCK COMMON-LISP::LET* #.#'COMMON-LISP::LIST
      COMMON-LISP::TAGBODY
      #Y(SYSTEM::C-MAPC-1
         #19Y(00 00 00 00 01 00 00 00 00 02 DB 69 00 01 A0 62 02 19 02)
         COMMON-LISP::NIL SYSTEM::%FUNCALL)
      SYSTEM::C-MAP-ON-CARS-INNER COMMON-LISP::SETQ SYSTEM::SHIFT-VARS
      COMMON-LISP::GO SYSTEM::C-FORM COMMON-LISP::MAPC
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-292
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPL
      #152Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC
            0E 00 5C 79 72 45 8A 04 0C EE AD 0E 00 5C 5C 7C 02 2F 15 19 02 38
            01 72 8E AC 0E 00 5C 5C 5C 7A 38 01 72 8E AD 6F 05 38 01 72 8E E0
            B1 0E 00 5C 5C 78 7B 02 7B 01 E1 B1 E2 E3 B3 B6 73 01 17 E4 B3 E5
            E6 63 B8 1B 0C 94 00 E7 AD 7B 02 84 02 16 01 83 00 9D 21 71 16 01
            AC 31 A2 16 01 7A E8 B9 7B 02 7B 03 E9 BB A9 7C 02 EA B8 2F 11 7A
            EC B8 7B 02 7B 06 7B 03 7B 03 B3 61 04 16 04 F8 2F 13 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P SYSTEM::GENSYM-LIST COMMON-LISP::LET
      COMMON-LISP::BLOCK COMMON-LISP::LET* #.#'COMMON-LISP::LIST
      COMMON-LISP::TAGBODY COMMON-LISP::IF COMMON-LISP::OR COMMON-LISP::ATOM
      COMMON-LISP::RETURN-FROM SYSTEM::%FUNCALL COMMON-LISP::SETQ
      SYSTEM::SHIFT-VARS COMMON-LISP::GO SYSTEM::C-FORM COMMON-LISP::MAPL
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-293
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPCAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPCAR
      #67Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1D 1A 0E 00 5C 78
           6F 06 0E 00 5C 79 AD AD 72 45 8A 07 15 E5 AE 9F 7C 02 2F 0C 19 03 DE
           0E 00 5C 5D 10 00 2E 05 11 19 01 E2 AE AE 6E 03 09 2F 0A 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE* COMMON-LISP::MAPC
      SYSTEM::C-MAPC SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P COMMON-LISP::CONS
      SYSTEM::C-MAP-ON-CARS SYSTEM::C-FORM COMMON-LISP::MAPCAR
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-294
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPLIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPLIST
      #67Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1D 1A 0E 00 5C 78
           6F 06 0E 00 5C 79 AD AD 72 45 8A 07 15 E5 AE 9F 7C 02 2F 0C 19 03 DE
           0E 00 5C 5D 10 00 2E 05 11 19 01 E2 AE AE 6E 03 09 2F 0A 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE* COMMON-LISP::MAPL
      SYSTEM::C-MAPL SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P COMMON-LISP::CONS
      SYSTEM::C-MAP-ON-LISTS SYSTEM::C-FORM COMMON-LISP::MAPLIST
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-295
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPCAN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPCAN
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 0E 00
           5C 79 AD AD 72 45 8A 04 09 E2 AE 9F 7C 02 2F 09 19 03 DF AE AE 6E 03
           06 2F 07 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P COMMON-LISP::NRECONC
      SYSTEM::C-MAP-ON-CARS SYSTEM::C-FORM COMMON-LISP::MAPCAN
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-296
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPCON SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPCON
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 0E 00
           5C 79 AD AD 72 45 8A 04 09 E2 AE 9F 7C 02 2F 09 19 03 DF AE AE 6E 03
           06 2F 07 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P COMMON-LISP::NRECONC
      SYSTEM::C-MAP-ON-LISTS SYSTEM::C-FORM COMMON-LISP::MAPCON
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-297
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPCAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPCAP
      #67Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1D 1A 0E 00 5C 78
           6F 06 0E 00 5C 79 AD AD 72 45 8A 07 15 E5 AE 9F 7C 02 2F 0C 19 03 DE
           0E 00 5C 5D 10 00 2E 05 11 19 01 E2 AE AE 6E 03 09 2F 0A 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE* COMMON-LISP::MAPC
      SYSTEM::C-MAPC SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P COMMON-LISP::REVAPPEND
      SYSTEM::C-MAP-ON-CARS SYSTEM::C-FORM EXT::MAPCAP
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-298
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MAPLAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MAPLAP
      #67Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 03 1D 1A 0E 00 5C 78
           6F 06 0E 00 5C 79 AD AD 72 45 8A 07 15 E5 AE 9F 7C 02 2F 0C 19 03 DE
           0E 00 5C 5D 10 00 2E 05 11 19 01 E2 AE AE 6E 03 09 2F 0A 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::*FOR-VALUE* COMMON-LISP::MAPL
      SYSTEM::C-MAPL SYSTEM::MACROEXPAND-FORM
      SYSTEM::INLINE-CALLABLE-FUNCTION-P COMMON-LISP::REVAPPEND
      SYSTEM::C-MAP-ON-LISTS SYSTEM::C-FORM EXT::MAPLAP
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM))
#Y(#:TOP-LEVEL-FORM-299
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-TYPEP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-TYPEP
      #563Y(02 00 01 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 0E
            00 5C 5C 78 6F 03 AC 89 04 82 09 AC 6F 05 63 AD 8E 04 81 B7 9E 20
            06 94 01 8E 04 80 CE AD 89 16 81 F0 AD 6F 17 EF 38 01 72 82 9F 23
            81 E4 F2 F3 B1 7B 02 F4 F5 EB B2 2F 17 14 7B 02 61 02 14 61 02 14
            7B 03 2F 12 19 05 5C F8 14 B0 7B 02 2F 07 19 05 5C F8 14 B0 61 02
            10 00 E3 B1 72 8A 70 0A B3 7B 01 63 B2 63 2D 05 0B 11 19 05 5C F8
            38 01 72 8E AD AD 76 01 AD 7B 01 AD 7B 02 E7 9E 7A B3 61 02 10 00
            E8 B4 72 8A 70 0A B6 7B 01 63 B2 63 2D 05 0B 11 19 08 EA B0 EB AF
            B1 7B 01 36 01 1B FF 9C EE EB AF 7B 02 A2 1B FF 96 F2 F3 B1 7B 02
            F4 F5 EB A3 1B FF 82 65 1F 6F 20 EA A4 5C 78 2D 03 21 F6 00 52 A1
            5C 78 A2 5C 78 8F 04 69 AC B4 7B 02 2F 07 16 08 1B 80 E7 65 23 B3
            95 06 03 24 7A 03 25 62 03 10 00 2E 26 1B 31 03 1C 50 81 22 94 04
            25 1D 06 B0 72 45 24 1E 4A 94 04 24 22 59 94 04 25 27 80 69 B0 72
            45 25 1E 80 62 65 27 B3 EB A4 5C 78 7B 02 61 03 10 00 2E 28 11 16
            07 1B 80 9E 65 29 EA B4 EB A5 5C 78 7B 02 7B 03 7B 02 2F 07 16 07
            1B 80 89 38 01 72 8E 65 2C AD B5 7B 02 7B 01 94 07 63 95 09 1B 10
            94 00 EA B3 EB AF 7B 02 7B 03 84 02 16 01 83 00 9D 21 6D 16 01 AC
            31 A2 16 01 7A 61 03 F8 2F 12 16 07 1B 80 51 94 04 25 29 07 B0 72
            45 24 1E FF A7 94 04 24 2A FF B6 94 04 24 2B FF B0 94 04 6B 0C 38
            03 80 B9 03 1D 33 5C FB 38 01 72 8E B0 AD A4 5C 77 01 AD 7B 01 AD
            7B 02 E7 9E 7A B6 61 02 10 00 65 2D 94 0B 72 8A 70 0A B9 7B 01 63
            B2 63 2D 05 0B 11 16 0A 18 02 01 19 01 51 16 02 1B 80 49 AD 6B 06
            38 03 80 B9 00 1C FE 72 AD 6B 08 38 03 80 B9 00 1C FE 71 AD 6B 0C
            38 03 80 B9 00 1C FE 80 AD E9 38 01 81 82 00 1C FE A0 AD ED 38 01
            8E 82 FE A4 AD EF 38 01 81 82 00 1D 0B 14 89 16 07 AC 6F 17 9F 22
            FE 99 16 02 EA AE AE 7B 03 2F 07 19 03)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE SYSTEM::C-TYPEP-ALIST1
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM SYSTEM::C-TYPEP-ALIST2 #:TYPEP
      SYSTEM::SYMBOL-SUFFIX SYSTEM::C-FUNCALL-INLINE SYSTEM::C-TYPEP-ALIST3
      COMMON-LISP::LAMBDA #:TYPEP SYSTEM::DEFTYPE-EXPANDER COMMON-LISP::TYPEP
      COMMON-LISP::QUOTE SYSTEM::C-FORM SYSTEM::DEFSTRUCT-DESCRIPTION
      SYSTEM::%STRUCTURE-TYPE-P CLOS::CLOSCLASS CLOS::CLASS-P CLOS::CLASS-NAME
      CLOS::SUBCLASSP CLOS::CLASS-OF COMMON-LISP::LOAD-TIME-VALUE
      CLOS::FIND-CLASS SYSTEM::C-TYPEP COMMON-LISP::SATISFIES 2.
      "~S: argument to SATISFIES must be a symbol: ~S" SYSTEM::TEXT
      SYSTEM::C-WARN COMMON-LISP::MEMBER COMMON-LISP::CASE (COMMON-LISP::T)
      ((COMMON-LISP::T COMMON-LISP::NIL)) SYSTEM::C-CASE COMMON-LISP::EQL
      SYSTEM::C-EQL COMMON-LISP::NOT COMMON-LISP::AND COMMON-LISP::OR
      COMMON-LISP::LET #:TYPEP))
#Y(#:TOP-LEVEL-FORM-300
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-FORMAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FORMAT
      #113Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 AC 89 03
            20 AC 2F 04 F8 1D 1A AC 02 22 16 AC 8E 14 12 AC 8F 05 04 AC 8C 16
            0A DF 6F 06 0E 00 78 AE 2D 03 07 0E 00 5C 5C 78 8F 05 2D E2 88 09
            29 AC 02 22 19 E6 0E 00 5C 78 E2 0E 00 5C 5C 78 61 02 14 0E 00 5C
            5C 5C 7C 03 2F 0B 19 02 E4 E2 0E 00 5C 5C 78 7B 02 00 1B 68 E6 2F
            0D 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::C-CONSTANTP
      SYSTEM::C-CONSTANT-VALUE
      "The ~S destination is invalid (not NIL or T or a stream or a string with fill-pointer): ~S"
      SYSTEM::TEXT SYSTEM::C-ERROR COMMON-LISP::FORMATTER SYSTEM::FENV-SEARCH
      COMMON-LISP::FUNCALL SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM
      COMMON-LISP::FORMAT SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-1-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-REMOVE-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-REMOVE-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::REMOVE-IF-NOT SYSTEM::C-FORM COMMON-LISP::REMOVE-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-1-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-REMOVE-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-REMOVE-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::REMOVE-IF SYSTEM::C-FORM COMMON-LISP::REMOVE-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-2-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-DELETE-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DELETE-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::DELETE-IF-NOT SYSTEM::C-FORM COMMON-LISP::DELETE-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-2-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-DELETE-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DELETE-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::DELETE-IF SYSTEM::C-FORM COMMON-LISP::DELETE-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-3-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-SUBSTITUTE-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SUBSTITUTE-IF
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::SUBSTITUTE-IF-NOT SYSTEM::C-FORM COMMON-LISP::SUBSTITUTE-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-3-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-SUBSTITUTE-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SUBSTITUTE-IF-NOT
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::SUBSTITUTE-IF SYSTEM::C-FORM COMMON-LISP::SUBSTITUTE-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-4-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-NSUBSTITUTE-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-NSUBSTITUTE-IF
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::NSUBSTITUTE-IF-NOT SYSTEM::C-FORM
      COMMON-LISP::NSUBSTITUTE-IF SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-4-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-NSUBSTITUTE-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-NSUBSTITUTE-IF-NOT
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::NSUBSTITUTE-IF SYSTEM::C-FORM
      COMMON-LISP::NSUBSTITUTE-IF-NOT SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-5-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-FIND-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FIND-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::FIND-IF-NOT SYSTEM::C-FORM COMMON-LISP::FIND-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-5-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-FIND-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-FIND-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::FIND-IF SYSTEM::C-FORM COMMON-LISP::FIND-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-6-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-POSITION-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-POSITION-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::POSITION-IF-NOT SYSTEM::C-FORM COMMON-LISP::POSITION-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-6-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-POSITION-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-POSITION-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::POSITION-IF SYSTEM::C-FORM COMMON-LISP::POSITION-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-7-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-COUNT-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-COUNT-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::COUNT-IF-NOT SYSTEM::C-FORM COMMON-LISP::COUNT-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-7-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-COUNT-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-COUNT-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::COUNT-IF SYSTEM::C-FORM COMMON-LISP::COUNT-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-8-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-SUBST-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SUBST-IF
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::SUBST-IF-NOT SYSTEM::C-FORM COMMON-LISP::SUBST-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-8-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-SUBST-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-SUBST-IF-NOT
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::SUBST-IF SYSTEM::C-FORM COMMON-LISP::SUBST-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-9-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-NSUBST-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-NSUBST-IF
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::NSUBST-IF-NOT SYSTEM::C-FORM COMMON-LISP::NSUBST-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-9-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-NSUBST-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-NSUBST-IF-NOT
      #51Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 5C 78 6F 03 AC
           DE 8A 05 05 E2 2F 09 19 02 E0 0E 00 5C 78 9F 5C 78 0E 00 5C 5C 5C 7C
           03 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::NSUBST-IF SYSTEM::C-FORM COMMON-LISP::NSUBST-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-10-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-MEMBER-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MEMBER-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::MEMBER-IF-NOT SYSTEM::C-FORM COMMON-LISP::MEMBER-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-10-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-MEMBER-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MEMBER-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::MEMBER-IF SYSTEM::C-FORM COMMON-LISP::MEMBER-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-11-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-ASSOC-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-ASSOC-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::ASSOC-IF-NOT SYSTEM::C-FORM COMMON-LISP::ASSOC-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-11-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-ASSOC-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-ASSOC-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::ASSOC-IF SYSTEM::C-FORM COMMON-LISP::ASSOC-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-12-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::C-RASSOC-IF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-RASSOC-IF
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::RASSOC-IF-NOT SYSTEM::C-FORM COMMON-LISP::RASSOC-IF
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-301-12-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-RASSOC-IF-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-RASSOC-IF-NOT
      #45Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB 30 02 0E 00 5C 78 6F 03 AC DE
           8A 05 05 E2 2F 09 19 02 E0 9E 5C 78 0E 00 5C 5C 7C 02 2F 07 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      COMMON-LISP::COMPLEMENT SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      COMMON-LISP::RASSOC-IF SYSTEM::C-FORM COMMON-LISP::RASSOC-IF-NOT
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-302
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-TEST/TEST-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-TEST/TEST-NOT
      #109Y(00 00 00 00 00 00 00 00 00 01 0E 00 10 00 63 6B 00 DB 93 01 80 45
            94 01 24 02 05 94 01 25 03 33 9E 5C 78 DE 8B 05 2C 92 02 0E 7E 02
            6B 00 31 9D 0F 00 AC 6B 00 80 9A 01 AD 94 02 AC 24 02 28 AC 24 03
            27 00 F8 31 A7 9E 5C 5B 5C 78 95 02 AD 31 A7 16 01 83 01 85 00 92
            01 FF BB 16 02 0E 00 78 2F 06 16 01 11 19 01 C8 1B 5A C7 1B 57)
      SYSTEM::*FORM* 0. :TEST :TEST-NOT COMMON-LISP::COMPLEMENT
      SYSTEM::INLINABLE-FUNCTION-OPERATION-FORM-P
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-303
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-CONSTANT-BYTE-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-CONSTANT-BYTE-P
      #129Y(00 00 00 00 01 00 00 00 00 02 AD 88 00 80 45 9E 20 3F 94 01 25 02
            3A 9E 5C 20 36 9E 5C 78 AC 8F 0A 06 DD AD 90 01 32 3A 16 01 1D 25
            9E 5C 5C 20 20 9E 5C 5C 78 AC 8F 0A 06 DD AD 90 01 32 2C 16 01 1D
            0E 9E 5C 5C 5C 1C 08 DC 88 04 04 DC 89 05 23 00 19 02 AD 2F 01 F9
            14 72 25 C7 5A 1F 20 9E 19 02 AC 32 0B 16 01 1D 68 1B 41 AC 32 0B
            16 01 1D 5F 1B 4F 9E 5C 78 9F 5C 5C 78 32 D3 19 02 19 02)
      SYSTEM::C-CONSTANTP SYSTEM::C-CONSTANT-VALUE COMMON-LISP::BYTE 0.
      SYSTEM::FENV-SEARCH SYSTEM::DECLARED-NOTINLINE))
#Y(#:TOP-LEVEL-FORM-304
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LDB SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LDB
      #77Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 6F 03
           6F 04 93 00 2C 14 72 D5 DF 91 01 2E 08 AC 72 D4 E0 90 01 32 11 E4 E5
           AE 61 02 14 0E 00 5C 5C 78 7B 03 2F 09 19 02 E1 E2 AE 72 D4 72 D0 32
           96 1B 69 E4 2F 0C 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANT-BYTE-P 0. 24. COMMON-LISP::LOGAND 1.
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM COMMON-LISP::LDB COMMON-LISP::QUOTE
      SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-305
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-LDB-TEST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-LDB-TEST
      #80Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 6F 03
           6F 04 93 00 2F 14 72 D4 AD 72 D5 73 02 36 DF 90 01 32 11 E3 E4 AE 61
           02 14 0E 00 5C 5C 78 7B 03 2F 08 19 02 E0 E1 AE 72 D4 72 D0 72 96 AE
           72 D5 32 D0 1B 64 E3 2F 0B 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANT-BYTE-P 24. COMMON-LISP::LOGTEST 1.
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM COMMON-LISP::LDB-TEST
      COMMON-LISP::QUOTE SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-306
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-MASK-FIELD SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-MASK-FIELD
      #80Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 78 6F 03
           6F 04 93 00 2F 14 72 D4 AD 72 D5 73 02 36 DF 90 01 32 11 E3 E4 AE 61
           02 14 0E 00 5C 5C 78 7B 03 2F 08 19 02 E0 E1 AE 72 D4 72 D0 72 96 AE
           72 D5 32 D0 1B 64 E3 2F 0B 19 02)
      SYSTEM::*FORM* 3. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANT-BYTE-P 24. COMMON-LISP::LOGAND 1.
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM COMMON-LISP::MASK-FIELD
      COMMON-LISP::QUOTE SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-307
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-DPB SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DPB
      #55Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 5C 78 6F
           03 6F 04 92 00 05 DF 2F 08 19 02 DF 0E 00 5C 78 E0 AF 7B 02 0E 00 5C
           5C 5C 78 7B 04 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANT-BYTE-P COMMON-LISP::DPB COMMON-LISP::QUOTE
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-308
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-DEPOSIT-FIELD SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-DEPOSIT-FIELD
      #55Y(00 00 00 00 00 00 00 00 00 01 6B 00 DB DB 2D 03 02 0E 00 5C 5C 78 6F
           03 6F 04 92 00 05 DF 2F 08 19 02 DF 0E 00 5C 78 E0 AF 7B 02 0E 00 5C
           5C 5C 78 7B 04 2F 07 19 02)
      SYSTEM::*FORM* 4. SYSTEM::TEST-LIST SYSTEM::MACROEXPAND-FORM
      SYSTEM::C-CONSTANT-BYTE-P COMMON-LISP::DEPOSIT-FIELD COMMON-LISP::QUOTE
      SYSTEM::C-GLOBAL-FUNCTION-CALL-FORM SYSTEM::C-GLOBAL-FUNCTION-CALL))
#Y(#:TOP-LEVEL-FORM-309 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FNODE-FIXUP-TABLE*)
   SYSTEM::*FNODE-FIXUP-TABLE*)
#Y(#:TOP-LEVEL-FORM-310
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PASS2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PASS2
      #80Y(00 00 00 00 01 00 00 00 00 02 9E 10 00 6B 00 6F 01 2F 02 1F 38 2E 03
           14 6B 00 89 04 04 AC 2F 05 F8 AC 6F 06 AD 2F 07 F9 6B 00 AE 6F 08 AE
           2D 03 09 16 02 6B 00 6F 0A 63 1B 0C 87 01 00 14 89 0B 03 AC 28 46 83
           01 AD 8D 91 70 00 16 02 11 19 02)
      SYSTEM::*FUNC* SYSTEM::FNODE-CODE SYSTEM::ANODE-P SYSTEM::COMPILE-TO-LAP
      SYSTEM::FNODE-GF-P SYSTEM::CONST-TO-LOADV SYSTEM::SP-DEPTH
      SYSTEM::INSERT-COMBINED-LAPS SYSTEM::ASSEMBLE-LAP SYSTEM::CREATE-FUN-OBJ
      SYSTEM::FNODE-CONSTS SYSTEM::FNODE-P))
#Y(#:TOP-LEVEL-FORM-311 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*CODE-PARTS*) SYSTEM::*CODE-PARTS*)
#Y(#:TOP-LEVEL-FORM-312 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*CODE-POSITIONS*) SYSTEM::*CODE-POSITIONS*)
#Y(#:TOP-LEVEL-FORM-313
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::VALUE-FORM-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::VALUE-FORM-INDEX
      #93Y(00 00 00 00 03 00 01 00 00 0A 3B 01 03 0E 00 F9 AD 6F 01 AE 6F 02 AF
           6F 03 92 02 21 B3 7B 01 DE B2 DF AF 32 2D 16 01 B2 7B 01 DE B2 E0 AF
           32 2D 16 01 1B 26 94 01 A4 1B 0B 83 02 83 01 B1 24 07 73 94 02 A5 14
           8C FF 12 85 00 9F 5C 1C 6B AE B4 7B 01 31 A9 AD B3 7B 01 31 A9 15 19
           07)
      SYSTEM::*FUNC* SYSTEM::FNODE-CONSTS SYSTEM::FNODE-CONSTS-FORMS
      SYSTEM::FNODE-CONSTS-OFFSET SYSTEM::FNODE 19. 20. :FORM))
#Y(#:TOP-LEVEL-FORM-314
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CONSTVALUE-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CONSTVALUE-INDEX
      #18Y(00 00 00 00 01 00 00 00 00 02 AD 63 DA 2D 03 01 19 02) :VALUE
      SYSTEM::VALUE-FORM-INDEX))
#Y(#:TOP-LEVEL-FORM-315
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::KVALUE-FORM-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::KVALUE-FORM-INDEX
      #59Y(00 00 00 00 03 00 01 00 00 0A 3B 01 03 0E 00 F9 AE 24 01 1B B0 8F 04
           17 AD 6F 02 AE 6F 03 93 00 0C 94 00 A4 22 12 83 00 85 01 92 00 74 16
           02 B0 B0 B0 B0 2D 04 04 19 05 9E 19 07)
      SYSTEM::*FUNC* :FORM SYSTEM::FNODE-KEYWORD-OFFSET SYSTEM::FNODE-KEYWORDS
      SYSTEM::VALUE-FORM-INDEX))
#Y(#:TOP-LEVEL-FORM-316
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::KCONSTVALUE-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::KCONSTVALUE-INDEX
      #18Y(00 00 00 00 01 00 00 00 00 02 AD 63 DA 2D 03 01 19 02) :VALUE
      SYSTEM::KVALUE-FORM-INDEX))
#Y(#:TOP-LEVEL-FORM-317
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CONST-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CONST-INDEX
      #42Y(00 00 00 00 01 00 00 00 00 02 0E 00 1D 06 AD 6F 01 25 02 0B AD 6F 03
           63 C7 14 2D 03 05 19 02 AD 6F 03 AE 6F 04 AF 2F 01 1B 6F)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::CONST-HORIZON :VALUE
      SYSTEM::CONST-VALUE SYSTEM::CONST-FORM SYSTEM::KVALUE-FORM-INDEX))
#Y(#:TOP-LEVEL-FORM-318
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-CONST-CODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-CONST-CODE
      #43Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 24 01 0C AD 6F 02 93 00 0F AC
           02 22 0E 16 01 DF AE 6F 06 AF 61 03 19 02 C8 19 03 C9 19 03)
      SYSTEM::CONST-HORIZON :FORM SYSTEM::CONST-VALUE (COMMON-LISP::NIL)
      (COMMON-LISP::T) SYSTEM::CONST SYSTEM::CONST-INDEX))
#Y(#:TOP-LEVEL-FORM-319
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::BCONST-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::BCONST-INDEX
      #36Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AD 6F 01 AE 6F 02 1B
           04 83 00 85 01 94 00 A2 23 77 9E 19 05)
      SYSTEM::*FUNC* SYSTEM::FNODE-BLOCKS-OFFSET SYSTEM::FNODE-BLOCKS))
#Y(#:TOP-LEVEL-FORM-320
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GCONST-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GCONST-INDEX
      #36Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AD 6F 01 AE 6F 02 1B
           04 83 00 85 01 94 00 A2 23 77 9E 19 05)
      SYSTEM::*FUNC* SYSTEM::FNODE-TAGBODYS-OFFSET SYSTEM::FNODE-TAGBODYS))
#Y(#:TOP-LEVEL-FORM-321
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FCONST-INDEX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FCONST-INDEX
      #45Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AE AE 6F 01 38 03 8C
           B2 0F AE 6F 02 AE AD 7B 02 0E 03 5D 0F 03 15 19 03 AE 2F 02 19 03)
      SYSTEM::*FUNC* SYSTEM::FNODE-CONSTS SYSTEM::CONSTVALUE-INDEX
      SYSTEM::*FNODE-FIXUP-TABLE*))
#Y(#:TOP-LEVEL-FORM-322 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*CODE-PART*) SYSTEM::*CODE-PART*)
#Y(#:TOP-LEVEL-FORM-323 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*CODE-INDEX*) SYSTEM::*CODE-INDEX*)
#Y(#:TOP-LEVEL-FORM-324 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*DEAD-CODE*) SYSTEM::*DEAD-CODE*)
#Y(#:TOP-LEVEL-FORM-325 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*LABEL-SUBST*) SYSTEM::*LABEL-SUBST*)
#Y(#:TOP-LEVEL-FORM-326 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*CURRENT-VALUE*) SYSTEM::*CURRENT-VALUE*)
#Y(#:TOP-LEVEL-FORM-327 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*CURRENT-VARS*) SYSTEM::*CURRENT-VARS*)
#Y(#:TOP-LEVEL-FORM-328
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::LABEL-SUBST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LABEL-SUBST
      #70Y(00 00 00 00 02 00 00 00 00 03 AE 71 4D 63 1B 1A 6B 00 AF 33 01 01 5B
           1B 0A 87 01 00 AF B1 AE 8E 0A 6E 9F 79 38 03 31 AD 83 01 AD 8D 91 6B
           16 02 AD AF 71 4D AF 71 4D 73 02 24 31 51 AE 63 31 51 AE DB 32 87 19
           03)
      SYSTEM::*CODE-PARTS* SYSTEM::CODE-PART))
#Y(#:TOP-LEVEL-FORM-329
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FINISH-CODE-PART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FINISH-CODE-PART
      #37Y(00 00 00 00 00 00 00 00 00 01 6B 00 2F 01 6B 00 6B 02 38 01 31 1B 6B
           03 32 95 0F 03 14 6B 04 38 01 31 1B 19 01)
      SYSTEM::*CODE-PART* SYSTEM::SIMPLIFY SYSTEM::*CODE-PARTS*
      SYSTEM::*CODE-INDEX* SYSTEM::*CODE-POSITIONS*))
#Y(#:TOP-LEVEL-FORM-330
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::EMIT-JMP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EMIT-JMP
      #38Y(00 00 00 00 01 00 00 00 00 02 DA AE 6B 01 7B 03 0E 02 5D 0F 02 6B 03
           AE 71 4D AF AE 9F 7A 31 51 16 02 2E 04 19 02)
      SYSTEM::JMP SYSTEM::*CURRENT-VALUE* SYSTEM::*CODE-PART*
      SYSTEM::*CODE-INDEX* SYSTEM::FINISH-CODE-PART))
#Y(#:TOP-LEVEL-FORM-331
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TRAVERSE-ANODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TRAVERSE-ANODE
      #1783Y(00 00 00 00 01 00 00 00 00 02 AD 63 1B 86 E0 00 0F 00 1B 24 6B 01
             AC AE 30 02 AC AE AF AF 6B 03 38 03 71 AD 31 B7 0F 03 16 01 1B 0C
             0E 00 1C 5F 6B 01 8E 04 5F AC 2F 04 9D 0F 01 6B 05 71 17 AD E0 AE
             32 86 16 01 1B 86 6E AC 2F 0A 1B 82 5D AC 8E 04 59 AC 88 09 72 E5
             D1 1B 86 8E 87 01 00 20 6E 0E 00 1C 86 87 6B 03 95 01 38 03 31 B1
             9D 5B 26 0E 86 73 AC 6F 11 0E 01 5D 0F 01 00 0F 07 1B 82 0A 9D 5C
             78 AC 6F 0F 24 10 69 AC 6F 12 6B 08 63 1B 17 16 04 1B 86 55 D9 1B
             22 87 01 00 14 89 13 06 AC 6F 12 A0 22 6B 83 01 AD 8D 91 6D 16 02
             AD 6F 11 0E 01 5D 0F 01 93 00 5D 03 15 0F 07 9E 1B 83 5E F0 9E 5C
             78 6F 17 7B 02 0E 01 5D 0F 01 03 15 0F 07 1B 85 F9 F0 9E 5C 78 6F
             18 7B 02 0E 01 5D 0F 01 03 15 0F 07 1B 85 E5 F0 9E 5C 78 6F 19 7B
             02 0E 01 5D 0F 01 03 15 0F 07 1B 85 D1 D9 1B 12 F0 AD 2F 17 1B 80
             9A AE 6F 1C AC 6F 12 93 00 6D 03 15 0F 07 AC 88 1D 68 AD 2F 11 16
             02 1B 80 86 65 1F AF 2F 20 FB 14 6F 21 61 02 1B 80 78 65 24 94 03
             95 04 B0 B0 61 05 16 03 1B 80 69 92 02 6E 65 25 AE 9F 1B 11 AE AE
             AE 2D 03 23 42 03 92 01 6C 65 26 AF AE 32 95 14 61 03 16 03 1B 80
             47 65 29 94 02 95 03 AF 61 04 16 02 1B 3A 9D 5C 78 9E 5C 5C 78 9F
             5C 5C 5C 78 AE 6B 08 F4 38 02 8C B2 31 AE 88 1B FF 81 00 0F 07 AE
             88 1E FF 92 AE 88 22 FF B3 AC AF 6F 27 30 28 42 02 92 01 41 65 2A
             9E 14 61 02 16 02 14 0E 01 5D 0F 01 AE 61 01 1B 80 8B 16 03 1B 85
             34 65 2B AF 2F 20 FB 14 6F 21 61 02 1B 80 6E 65 2C 94 03 95 04 B0
             B0 61 05 16 03 1B 80 5F 92 02 6E 65 2D AE 9F 1B 11 AE AE AE 2D 03
             23 42 03 92 01 6C 65 2E AF AE 32 95 14 61 03 16 03 1B 3E 65 2F 94
             02 95 03 AF 61 04 16 02 1B 31 9D 5C 78 9E 5C 5C 78 9F 5C 5C 5C 78
             AE 6B 08 F4 38 02 8C B2 2D AE 88 1E FF 9B AE 88 22 FF BC AC AF 6F
             27 30 28 42 02 92 01 49 65 30 AD 61 02 16 02 14 0E 01 5D 0F 01 AE
             0E 08 5D 0F 08 16 03 1B 84 A7 16 03 1B 84 A2 65 1F AD 6F 21 7B 02
             0E 01 5D 0F 01 00 0F 07 AC 61 01 1B 2D 9D 5C 78 AC 6B 08 F4 38 02
             8D B2 60 16 01 1B 84 7D 9D 5C 78 AC 6B 08 F4 38 02 8C B2 17 65 2B
             AD 6F 21 7B 02 0E 01 5D 0F 01 AC 0E 08 5D 0F 08 16 01 1B 84 5A 16
             01 1B 84 55 03 31 1B 81 BE 9D 5C 78 9E 5C 5C 78 9F 5C 5C 5C 78 2D
             03 33 14 28 FD 5A 1B 84 3A 65 36 94 01 95 02 7B 03 0E 01 5D 0F 01
             16 01 1B 84 28 9D 5C 78 9E 5C 5C 78 70 34 94 00 65 35 90 01 31 5D
             95 00 65 35 90 01 31 55 16 01 1B 84 0A 9D 5C 78 63 6F 37 9F 5B 26
             38 19 03 39 1B 06 03 39 1B 09 03 3A 14 AE 9F 1B 05 03 3B 14 AD A0
             14 61 03 1B 01 00 14 0E 01 5D 0F 01 6B 3C A0 5C 78 AC 71 4D AD AF
             9F 7A 31 51 16 03 6B 3C AD 71 4D AE AE 9F 7A 31 51 16 02 2E 3D 6B
             05 71 17 AD E0 AE 32 86 16 01 9D 0F 01 16 02 1B 83 AD 16 01 1B 83
             A8 94 00 AC 24 3E 75 AC 24 3F 71 16 01 1B 83 06 16 01 1B 83 94 16
             01 1B 83 10 38 06 A3 5C 5B FB 71 61 9E 5C 5C 5C 79 9F 5C 5C 78 63
             1B 14 87 01 00 78 95 01 B0 38 06 72 5D AD B2 AE 31 63 16 02 83 01
             AD 8D 91 68 16 02 65 43 AE 6F 44 AF A2 5C 5C 5C 7C 03 0E 01 5D 0F
             01 16 02 9D 5C 5C 79 63 1B 12 87 01 00 6B 3C AD 71 4D AE AE 9F 7A
             31 51 16 02 83 01 AD 8D 91 6A 16 02 2E 3D 1B 82 B0 9D 5C 78 9E 5C
             5C 78 1B 30 65 29 94 02 95 03 AF 61 04 16 02 1B 36 AC 9F 5B 79 30
             28 42 02 92 01 68 65 2A AD 61 02 16 02 1B 22 03 47 1B 1E 6B 45 88
             46 77 03 48 1B 15 83 01 9E 5B 1D 7A 9E 5B 21 55 94 01 0E 45 22 67
             E5 65 49 30 0D 14 0E 01 5D 0F 01 78 65 4A 8F 00 0B D9 0F 07 63 2F
             4B 14 61 01 1B 03 00 0F 07 0F 08 16 02 1B 82 BD 65 4C 9E 5C 78 6F
             17 9F 5C 5C 78 7B 03 0E 01 5D 0F 01 03 15 0F 07 1B 82 87 65 4D 9E
             5C 78 9F 5C 5C 78 6F 32 61 03 1B 82 58 9D 5B 14 9E 5C 78 6F 32 61
             02 1B 82 4B 03 4E 1B 82 46 9D 5C 78 9E 5C 5C 5C 78 AD 89 22 05 E5
             65 22 30 0D AC AE 6F 27 30 28 42 02 93 01 05 E5 65 27 30 0D 94 04
             AD A3 5C 5C 5C 5C 7C 02 0E 01 5D 0F 01 94 04 25 4F 11 0E 01 78 B1
             71 94 AC 71 4D AD AF 9F 7A 31 51 16 03 00 0F 07 0F 08 16 04 1B 82
             32 9D 5C 5C 78 65 50 9F 5C 78 6F 32 AE 7B 03 0E 01 5D 0F 01 78 AD
             71 4D AE AE 9F 7A 31 51 16 03 1B 82 10 9D 5C 5C 78 9E 5C 78 6F 51
             30 28 42 02 65 52 94 02 95 03 AF 61 04 16 02 1B 81 3F 65 54 9E 5C
             78 2F 18 1B 12 9D 5C 5C 1C 57 9D 5C 78 88 53 6C 65 54 9E 5C 78 2F
             32 14 61 02 1B 81 1E 65 55 9E 5C 78 6F 32 9F 5C 5C 7C 02 0E 01 5D
             0F 01 9D 5C 79 63 1B 10 87 01 00 14 71 4D AD B0 9F 7A 31 51 16 01
             83 01 AD 8D 91 6C 16 02 1B 81 A4 9D 5C 5C 5C 78 9E 5C 78 6F 56 30
             28 42 02 65 57 94 02 95 03 AF A3 5C 5C 5B 79 61 05 16 02 1B 80 CD
             65 59 9E 5C 78 6F 19 9F 5C 5C 5B 5C 1B 17 9D 5C 5C 5C 1C 4B 9D 5C
             78 88 58 66 65 59 9E 5C 78 6F 32 9F 5C 5C 5B 14 61 03 1B 80 A2 AC
             0E 01 5D 0F 01 D9 0F 07 00 1B 80 8A 9D 5C 78 6F 12 9E 5C 5C 78 6B
             45 70 34 63 AE 65 5A 72 28 1B 0E 94 00 AC 63 7B 02 AF 80 A0 02 16
             01 83 00 9D 21 6F 16 01 AC 80 A2 00 65 5B 81 28 01 65 5C AE 9F 7A
             6F 44 AF AF A3 5C 5C 5C 62 04 16 02 F8 14 0E 01 5D 0F 01 9D 5C 5C
             5C 79 63 1B 10 87 01 00 14 71 4D AD B0 9F 7A 31 51 16 01 83 01 AD
             8D 91 6C 16 02 1B 80 E1 AC 0E 01 5D 0F 01 D9 0F 07 1B 80 B8 AC 0E
             01 5D 0F 01 1B 80 CC AC 0E 01 5D 0F 01 03 15 0F 07 02 14 6F 4B 61
             01 0F 08 1B 80 B7 9D 14 0E 01 5D 0F 01 2E 3D 1B 32 0E 07 1D FC 9D
             6B 07 24 14 FC F9 94 00 AC 24 40 FD 01 AC 24 41 FC FC 16 01 94 00
             AC 24 3F 05 AC 25 41 FC F4 16 01 65 42 0E 01 5D 0F 01 9D 5C 78 2F
             04 02 0F 00 1B 80 74 AC 0E 01 5D 0F 01 9D 5C 1B 1E AC 0E 01 5D 0F
             01 9D 5C 78 AC 71 4D AD AF 9F 7A 31 51 16 02 1B 80 53 AC 0E 01 5D
             0F 01 9D 5C 78 AC 71 4D AD AF 9F 7A 31 51 16 02 1B 07 9D 14 0E 01
             5D 0F 01 00 0F 07 0F 08 1B 2F AC 0E 01 5D 0F 01 03 15 0F 07 1B 06
             AC 0E 01 5D 0F 01 00 0F 08 1B 18 AC 0E 01 5D 0F 01 65 5D 6B 08 38
             05 32 50 0F 08 1B 06 E5 03 5E 14 30 0D 83 01 AD 8D 91 F9 68 00 19
             04)
      SYSTEM::*DEAD-CODE* SYSTEM::*CODE-PART* SYSTEM::LABEL-SUBST
      SYSTEM::*LABEL-SUBST* SYSTEM::EMIT-JMP SYSTEM::*CODE-PARTS*
      SYSTEM::CODE-PART SYSTEM::*CURRENT-VALUE* SYSTEM::*CURRENT-VARS*
      SYSTEM::ANODE-P SYSTEM::ANODE-CODE SYSTEM::TRAVERSE-ANODE "ITEM"
      SYSTEM::COMPILER-ERROR
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::UNBIND1 . 1635.)
         (SYSTEM::UNWIND-PROTECT-CLEANUP . 1624.) (COMMON-LISP::LIST* . 1612.)
         (COMMON-LISP::LIST . 1612.) (COMMON-LISP::CONS . 1612.)
         (SYSTEM::SVSET . 1598.) (COMMON-LISP::SVREF . 1598.)
         (COMMON-LISP::SYMBOL-FUNCTION . 1598.) (COMMON-LISP::CONSP . 1598.)
         (COMMON-LISP::ATOM . 1598.) (COMMON-LISP::CDR . 1598.)
         (COMMON-LISP::CAR . 1598.) (COMMON-LISP::EQ . 1598.)
         (COMMON-LISP::NOT . 1598.) (SYSTEM::MVCALL . 1598.)
         (SYSTEM::LIST-TO-MV . 1598.) (SYSTEM::MV-TO-LIST . 1598.)
         (SYSTEM::NV-TO-STACK . 1598.) (SYSTEM::MV-TO-STACK . 1598.)
         (SYSTEM::STACK-TO-MV . 1598.) (SYSTEM::UNLIST* . 1598.)
         (SYSTEM::UNLIST . 1598.) (SYSTEM::PUSH-UNBOUND . 1598.)
         (COMMON-LISP::APPLY . 1598.) (COMMON-LISP::FUNCALL . 1598.)
         (SYSTEM::CALLCKEY . 1598.) (SYSTEM::CALLC . 1598.)
         (SYSTEM::CALLSR . 1598.) (SYSTEM::CALLS2 . 1598.)
         (SYSTEM::CALLS1 . 1598.) (SYSTEM::MAKE-VECTOR1&PUSH . 1598.)
         (COMMON-LISP::POP . 1598.) (COMMON-LISP::PUSH . 1598.)
         (COMMON-LISP::PROGV . 1598.) (SYSTEM::PUSH-NIL . 1598.)
         (SYSTEM::UNWIND-PROTECT-CLOSE . 1576.)
         (SYSTEM::UNWIND-PROTECT-OPEN . 1553.) (SYSTEM::CATCH-OPEN . 1553.)
         (SYSTEM::JSR . 1543.) (SYSTEM::JMP . 1532.)
         (COMMON-LISP::THROW . 1476.) (SYSTEM::BARRIER . 1476.)
         (SYSTEM::RETGF . 1476.) (SYSTEM::RET . 1476.) (COMMON-LISP::T . 1455.)
         (SYSTEM::STORE . 1446.) (SYSTEM::HANDLER-BEGIN . 1446.)
         (SYSTEM::UNWIND-PROTECT-NORMAL-EXIT . 1446.)
         (SYSTEM::CATCH-CLOSE . 1446.) (SYSTEM::TAGBODY-CLOSE . 1446.)
         (SYSTEM::BLOCK-CLOSE . 1446.) (SYSTEM::MVCALLP . 1446.)
         (SYSTEM::VALUES1 . 1446.) (SYSTEM::SKIPSP . 1446.)
         (SYSTEM::SKIPI . 1446.) (SYSTEM::SKIP . 1446.)
         (SYSTEM::VALUES0 . 1434.) (SYSTEM::HANDLER-OPEN . 1328.)
         (SYSTEM::TAGBODY-CLOSE-NIL . 1315.) (COMMON-LISP::NIL . 1315.)
         (COMMON-LISP::GO . 1286.) (SYSTEM::TAGBODY-OPEN . 1191.)
         (COMMON-LISP::RETURN-FROM . 1167.) (SYSTEM::BLOCK-OPEN . 1097.)
         (COMMON-LISP::BOUNDP . 1017.) (SYSTEM::JMPIFBOUNDP . 1017.)
         (SYSTEM::APPLYP . 1012.) (SYSTEM::FUNCALLP . 1012.)
         (SYSTEM::CALL2 . 999.) (SYSTEM::CALL1 . 999.) (SYSTEM::CALL0 . 999.)
         (SYSTEM::CALL . 983.) (SYSTEM::CALLP . 1659.)
         (SYSTEM::COPY-CLOSURE . 958.) (SYSTEM::VENV . 849.)
         (SYSTEM::JMPHASH . 748.) (SYSTEM::JMPIFNOT1 . 1487.)
         (SYSTEM::JMPIF1 . 1487.) (SYSTEM::JMPIFNOT . 1487.)
         (SYSTEM::JMPIF . 1487.) (SYSTEM::UNWINDSP . 595.)
         (SYSTEM::UNWIND . 555.) (SYSTEM::BIND . 550.)
         (SYSTEM::SETVALUE . 510.) (SYSTEM::GETVALUE . 493.)
         (COMMON-LISP::SET . 402.) (COMMON-LISP::GET . 252.)
         (SYSTEM::GCONST . 121.) (SYSTEM::BCONST . 101.) (SYSTEM::FCONST . 81.)
         (SYSTEM::CONST . 16.))
      SYSTEM::CONST-HORIZON :FORM SYSTEM::MAKE-CONST-CODE SYSTEM::CONST-VALUE
      SYSTEM::CONST-P SYSTEM::FALSE SYSTEM::TRUE SYSTEM::CONST
      SYSTEM::FCONST-INDEX SYSTEM::BCONST-INDEX SYSTEM::GCONST-INDEX
      #.#'COMMON-LISP::EQ SYSTEM::VAR-CONSTANTP SYSTEM::VAR-CONSTANT
      SYSTEM::FNODE-P SYSTEM::VAR-SPECIALP SYSTEM::GETVALUE SYSTEM::VAR-NAME
      SYSTEM::KCONSTVALUE-INDEX SYSTEM::VAR-CLOSUREP SYSTEM::ACCESS-IN-CLOSURE
      SYSTEM::LOADIC SYSTEM::LOADC SYSTEM::LOADV SYSTEM::VAR-STACKZ
      SYSTEM::ACCESS-IN-STACK SYSTEM::LOADI COMMON-LISP::LOAD SYSTEM::SETVALUE
      SYSTEM::STOREIC SYSTEM::STOREC SYSTEM::STOREV SYSTEM::STOREI
      SYSTEM::STORE SYSTEM::BIND SYSTEM::CONST-INDEX SYSTEM::EXPAND-UNWIND
      SYSTEM::SPDEPTH-DIFFERENCE 0. SYSTEM::SKIPSP SYSTEM::MAKE-LABEL
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::JMPIFNOT1 . 16.)
         (SYSTEM::JMPIF1 . 9.) (SYSTEM::JMPIFNOT . 5.) (SYSTEM::JMPIF . 1.))
      SYSTEM::JMPCASE SYSTEM::JMPCASE1-TRUE SYSTEM::JMPCASE1-FALSE
      SYSTEM::*CODE-INDEX* SYSTEM::FINISH-CODE-PART SYSTEM::JMPIF
      SYSTEM::JMPIF1 SYSTEM::JMPIFNOT SYSTEM::JMPIFNOT1 (SYSTEM::VALUES1)
      SYSTEM::JMPHASH SYSTEM::CONSTVALUE-INDEX SYSTEM::*FUNC*
      SYSTEM::FNODE-VENVCONST (SYSTEM::VENV) (COMMON-LISP::NIL) SYSTEM::VENV
      (COMMON-LISP::NIL) SYSTEM::NEW-CONST SYSTEM::COPY-CLOSURE SYSTEM::CALL
      (COMMON-LISP::PUSH) SYSTEM::JMPIFBOUNDP SYSTEM::BLOCK-OPEN
      SYSTEM::BLOCK-STACKZ SYSTEM::RETURN-FROM-I SYSTEM::BLOCK-P
      COMMON-LISP::RETURN-FROM SYSTEM::TAGBODY-OPEN SYSTEM::TAGBODY-STACKZ
      SYSTEM::GO-I SYSTEM::TAGBODY-P COMMON-LISP::GO COMMON-LISP::LIST
      COMMON-LISP::VECTOR SYSTEM::HANDLER-OPEN #.#'COMMON-LISP::SYMBOLP
      "LISTITEM"))
#Y(#:TOP-LEVEL-FORM-332-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::NOTE-REFERENCES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NOTE-REFERENCES
      #158Y(00 00 00 00 01 00 01 00 00 08 3D 01 9F 5B 26 00 80 89 9F 1B 10 9F
            5C 78 AC 71 4D AD B0 9F 7A 31 51 16 02 9F 5C 5C 78 AC 71 4D AD A1
            1B 2D 9F 5C 5C 79 63 AD 8C 91 80 60 87 01 00 14 71 4D AD B1 9F 7A
            31 51 16 01 83 01 1B 69 9F 1B 07 9F 5C 1B 03 9F 5C 5C 5C 78 AC 71
            4D AD A2 14 9F 7A 31 51 19 05 9F 5C 79 63 AD 8C 91 2E 87 01 00 14
            71 4D AD B2 9F 7A 31 51 16 01 83 01 1B 6A 9F 5C 5C 5C 79 63 1B 10
            87 01 00 14 71 4D AD B2 9F 7A 31 51 16 01 83 01 AD 8D 91 6C 00 19
            05 00 19 03)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::HANDLER-OPEN . 108.)
         (SYSTEM::TAGBODY-OPEN . 82.) (SYSTEM::JMPTAIL . 65.)
         (SYSTEM::JSR . 61.) (SYSTEM::BLOCK-OPEN . 61.)
         (SYSTEM::UNWIND-PROTECT-CLOSE . 58.)
         (SYSTEM::UNWIND-PROTECT-OPEN . 58.) (SYSTEM::CATCH-OPEN . 58.)
         (SYSTEM::JMPIFBOUNDP . 58.) (SYSTEM::JMPHASH . 30.)
         (SYSTEM::JMPCASE1-FALSE . 5.) (SYSTEM::JMPCASE1-TRUE . 5.)
         (SYSTEM::JMPCASE . 5.) (SYSTEM::JMP . 2.))))
#Y(#:TOP-LEVEL-FORM-332-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::REMOVE-REFERENCES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REMOVE-REFERENCES
      #205Y(00 00 00 00 01 00 01 00 00 08 3D 01 63 A0 5B 26 00 80 B7 A0 1B 19
            A0 5C 78 AC B0 AE 71 4D 38 07 72 4F 31 51 AC AE 38 03 80 B6 01 16
            01 A0 5C 5C 78 AC A1 1B 35 A0 5C 5C 79 63 1B 17 87 01 00 14 B1 AE
            71 4D 38 07 72 4F 31 51 AC AF 38 03 80 B6 02 83 01 AD 8D 91 65 16
            02 1B 80 6E A0 1B 07 A0 5C 1B 03 A0 5C 5C 5C 78 AC A2 14 AE 71 4D
            38 07 72 4F 31 51 AC AE 38 03 80 B6 01 16 01 1B 80 4A A0 5C 79 63
            1B 17 87 01 00 14 B2 AE 71 4D 38 07 72 4F 31 51 AC AF 38 03 80 B6
            02 83 01 AD 8D 91 65 16 02 1B 25 A0 5C 5C 5C 79 63 1B 17 87 01 00
            14 B2 AE 71 4D 38 07 72 4F 31 51 AC AF 38 03 80 B6 02 83 01 AD 8D
            91 65 16 02 15 19 03)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::HANDLER-OPEN . 148.)
         (SYSTEM::TAGBODY-OPEN . 111.) (SYSTEM::JMPTAIL . 82.)
         (SYSTEM::JSR . 78.) (SYSTEM::BLOCK-OPEN . 78.)
         (SYSTEM::UNWIND-PROTECT-CLOSE . 75.)
         (SYSTEM::UNWIND-PROTECT-OPEN . 75.) (SYSTEM::CATCH-OPEN . 75.)
         (SYSTEM::JMPIFBOUNDP . 75.) (SYSTEM::JMPHASH . 36.)
         (SYSTEM::JMPCASE1-FALSE . 5.) (SYSTEM::JMPCASE1-TRUE . 5.)
         (SYSTEM::JMPCASE . 5.) (SYSTEM::JMP . 2.))))
#Y(#:TOP-LEVEL-FORM-333
   #60Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 71 61 DB 63 1B 0A 87 01 00 14
        AF 64 31 63 83 01 AD 8D 91 72 16 02 DC 38 01 8D 5D 0B AC DC 71 4D 8C FF
        04 DC DD 30 04 DC AD 32 81 C7 19 02)
   #.#'COMMON-LISP::EQ
   #1=(COMMON-LISP::NIL COMMON-LISP::T SYSTEM::CONST COMMON-LISP::LOAD
       SYSTEM::LOADI SYSTEM::LOADC SYSTEM::LOADV SYSTEM::LOADIC SYSTEM::STORE
       SYSTEM::STOREI SYSTEM::STOREC SYSTEM::STOREV SYSTEM::STOREIC
       SYSTEM::GETVALUE SYSTEM::SETVALUE COMMON-LISP::POP SYSTEM::VENV
       SYSTEM::COPY-CLOSURE COMMON-LISP::BOUNDP SYSTEM::VALUES1
       SYSTEM::MV-TO-LIST SYSTEM::TAGBODY-CLOSE-NIL COMMON-LISP::NOT
       COMMON-LISP::EQ COMMON-LISP::CAR COMMON-LISP::CDR COMMON-LISP::CONS
       COMMON-LISP::ATOM COMMON-LISP::CONSP COMMON-LISP::SYMBOL-FUNCTION
       COMMON-LISP::SVREF SYSTEM::SVSET COMMON-LISP::LIST COMMON-LISP::LIST*)
   SYSTEM::ONE-VALUE-OPS
   (COMMON-LISP::DEFCONSTANT SYSTEM::ONE-VALUE-OPS
    (COMMON-LISP::LET
     ((SYSTEM::HT (COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQ)))
     (COMMON-LISP::DOLIST (SYSTEM::OP '#1#)
      (COMMON-LISP::SETF (COMMON-LISP::GETHASH SYSTEM::OP SYSTEM::HT)
       COMMON-LISP::T))
     SYSTEM::HT))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-334
   #100Y(00 00 00 00 00 00 00 00 00 01 38 06 C5 FB 71 61 DB 63 1B 0A 87 01 00
         14 AF 63 31 63 83 01 AD 8D 91 72 16 02 DC 63 1B 0A 87 01 00 14 AF DD
         31 63 83 01 AD 8D 91 72 16 02 DE 63 1B 0A 87 01 00 14 AF DF 31 63 83
         01 AD 8D 91 72 16 02 E0 38 01 8D 5D 0B AC E0 71 4D 8C FF 04 E0 E1 30
         08 E0 AD 32 81 CB 19 02)
   #.#'COMMON-LISP::EQ
   #1=(COMMON-LISP::NIL SYSTEM::PUSH-NIL COMMON-LISP::T SYSTEM::CONST
       COMMON-LISP::LOAD SYSTEM::LOADI SYSTEM::LOADC SYSTEM::LOADV
       SYSTEM::LOADIC SYSTEM::GETVALUE COMMON-LISP::POP SYSTEM::JSR
       SYSTEM::JMPTAIL SYSTEM::BARRIER SYSTEM::VENV SYSTEM::COPY-CLOSURE
       SYSTEM::CALL SYSTEM::CALL0 SYSTEM::CALLS1 SYSTEM::CALLS2 SYSTEM::CALLSR
       COMMON-LISP::FUNCALL SYSTEM::PUSH-UNBOUND SYSTEM::JMPIFBOUNDP
       COMMON-LISP::BOUNDP SYSTEM::VALUES0 SYSTEM::STACK-TO-MV SYSTEM::MVCALL
       SYSTEM::BLOCK-OPEN SYSTEM::TAGBODY-OPEN SYSTEM::TAGBODY-CLOSE-NIL
       COMMON-LISP::GO SYSTEM::GO-I SYSTEM::UNWIND-PROTECT-OPEN
       SYSTEM::UNWIND-PROTECT-CLOSE SYSTEM::HANDLER-OPEN SYSTEM::HANDLER-BEGIN
       COMMON-LISP::LIST)
   #2=(SYSTEM::STORE SYSTEM::STOREI SYSTEM::STOREC SYSTEM::STOREV
       SYSTEM::STOREIC SYSTEM::SETVALUE SYSTEM::BIND COMMON-LISP::PROGV
       COMMON-LISP::PUSH SYSTEM::MAKE-VECTOR1&PUSH SYSTEM::CALL1 SYSTEM::CALL2
       SYSTEM::CALLC SYSTEM::CALLCKEY COMMON-LISP::APPLY SYSTEM::UNLIST
       SYSTEM::UNLIST* SYSTEM::VALUES1 SYSTEM::LIST-TO-MV SYSTEM::MVCALLP
       SYSTEM::CATCH-OPEN COMMON-LISP::NOT COMMON-LISP::EQ COMMON-LISP::CAR
       COMMON-LISP::CDR COMMON-LISP::CONS COMMON-LISP::ATOM COMMON-LISP::CONSP
       COMMON-LISP::SYMBOL-FUNCTION COMMON-LISP::SVREF SYSTEM::SVSET
       COMMON-LISP::LIST*)
   SYSTEM::ONE
   #3=(SYSTEM::MV-TO-STACK SYSTEM::NV-TO-STACK SYSTEM::MV-TO-LIST
       COMMON-LISP::RETURN-FROM SYSTEM::RETURN-FROM-I COMMON-LISP::THROW
       SYSTEM::UNWIND-PROTECT-NORMAL-EXIT)
   SYSTEM::ALL SYSTEM::FOR-VALUE-TABLE
   (COMMON-LISP::DEFCONSTANT SYSTEM::FOR-VALUE-TABLE
    (COMMON-LISP::LET
     ((SYSTEM::HT (COMMON-LISP::MAKE-HASH-TABLE :TEST #'COMMON-LISP::EQ)))
     (COMMON-LISP::DOLIST (SYSTEM::OP '#1#)
      (COMMON-LISP::SETF (COMMON-LISP::GETHASH SYSTEM::OP SYSTEM::HT)
       'COMMON-LISP::NIL))
     (COMMON-LISP::DOLIST (SYSTEM::OP '#2#)
      (COMMON-LISP::SETF (COMMON-LISP::GETHASH SYSTEM::OP SYSTEM::HT)
       'SYSTEM::ONE))
     (COMMON-LISP::DOLIST (SYSTEM::OP '#3#)
      (COMMON-LISP::SETF (COMMON-LISP::GETHASH SYSTEM::OP SYSTEM::HT)
       'SYSTEM::ALL))
     SYSTEM::HT))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-335
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SIMPLIFY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SIMPLIFY
      #1029Y(00 00 00 00 01 00 00 00 00 02 94 01 9D 5B 26 00 80 76 9D 5C 78 DB
             38 01 32 82 1B 80 6F C8 1B 80 6B 94 00 24 02 0B 9D 5C 78 DB 38 01
             72 82 24 03 6C 94 00 24 04 0C 9D 5C 5C 78 DB 38 01 72 82 24 03 5B
             CA 1B 80 46 CA 1B 80 42 00 1B 3F C8 1B 3C 9F 5B 5B 26 09 80 48 AE
             E4 A1 5B 5C 78 61 02 1B 82 EB AE D0 1B 82 E6 9F 5B 5B 26 0C 36 AE
             D2 1B 82 DB AE D3 1B 82 D6 9F 5B 5C 78 AF E9 31 A7 AF E4 97 02 61
             02 1B 82 88 E0 E1 30 08 F8 63 63 B0 95 00 63 B1 9F 20 82 EF 9F 5C
             F9 93 00 FF B1 AC 24 05 44 9E 20 82 DD 9F 5B 5B 26 10 82 D6 9E 5B
             78 6B 11 63 8D 62 82 CC AF 9F FB 1B 81 6A 9E 5B 5B 26 12 82 BF 9E
             5C 20 82 BA 9E 5C 78 ED 8F 00 82 B2 AF 9F 5C FB 1B 81 4F AE D9 1B
             81 44 AE 03 15 1B 81 3E 9F 5B 5C 78 9F 5B 5B 26 16 80 84 9F 5B 5C
             78 B0 E4 AE B0 33 02 36 1B 81 C4 9F 5B 5C 78 A0 5B 5C 5C 78 A1 5B
             5C 5C 5C 78 B2 F1 B0 B0 B0 B4 73 02 36 7B 04 31 A7 B2 95 06 31 A9
             7E 08 16 04 1B FF 6F AF 03 1A 1B 81 C8 AC 24 19 76 AE F5 31 A7 AF
             E4 97 02 7B 02 31 A7 1B 81 D8 AC 24 19 81 46 AF E4 AE 32 96 1B 81
             A5 B0 03 1C 1B 81 69 B0 CF 1B 81 4D AF 03 1D 1B 80 F7 9F 5B 5C 78
             AD AD 90 01 31 70 16 02 1B 82 19 9F 5B 5C 78 24 18 FF B8 16 01 1B
             82 0C 9E 5B 5B 26 1E 82 05 9E 5B 5C 78 9F 5B 5C 5C 78 A1 5B 5C 78
             A2 5B 5C 5C 78 A3 5B 5C 5C 78 B3 F1 F3 B3 B2 33 03 36 1B 1E 9E 5B
             5C 78 9F 5B 5C 5C 78 A1 5B 5C 78 A2 5B 5C 5C 78 A3 5B 5C 5C 78 B3
             F1 B2 B1 33 02 36 14 B2 B1 73 02 36 B0 61 04 1B 28 9E 5B 78 AC 25
             1F 30 9F 5B 5C 78 A0 5B 5C 5C 78 A2 5B 5C 78 A3 5B 5C 5C 78 B3 65
             1F B1 B0 73 02 36 B1 B0 73 02 36 61 03 14 31 A7 B3 95 07 31 A9 7E
             09 16 05 1B FE 94 16 01 1B 81 7F AD 65 21 31 A7 AE 03 22 1B 81 3D
             94 01 65 20 8E 00 6E 94 01 65 23 8F 00 81 65 AE 03 24 14 31 A7 AE
             9F 5C 14 31 A9 1B 81 22 B0 03 27 1B 80 90 9E 5B 78 AC 24 25 80 4D
             AC 25 0A 2A 9F 5B 5C 78 AC 24 19 11 AF E4 97 02 7B 02 31 A7 B0 03
             28 14 31 A7 1B 80 8C A0 5C 20 51 A0 5C 78 65 26 8F 00 49 16 02 1B
             81 1A 16 01 1B 81 15 AE 03 29 1B 80 D8 9E 5B 78 6B 11 63 8C 62 71
             9E 5B 78 AC 24 2A 04 AC 25 2B 07 B0 A0 5C FC 1B 80 83 16 01 1B 80
             EF 9F 5B 5C 78 9F 5B 5B 26 2C 80 5B B0 03 2D 14 AF A0 1B 15 9F 5B
             5C 78 AD AD 90 01 31 6E AD AD 91 01 30 26 B0 CF 14 AE A1 14 33 01
             37 14 61 02 14 31 A7 B0 A1 5C 1B 16 9F 5B 5C 78 AC AE 90 01 31 FE
             74 AC AE 90 01 30 FE 73 B1 A1 5C FD 14 31 A9 7E 06 16 02 1B FD A8
             AF 65 2D 9F 14 61 02 14 31 A7 AF A0 5C 1B 18 9F 5B 78 6B 11 63 8D
             62 19 AF 65 2D 97 02 7B 02 31 A7 AF 03 2E 14 A1 5D 14 31 A9 7E 05
             16 01 1B FD 77 16 01 1B 80 62 9F 5B 5C 78 A1 5B 5C 78 B1 65 2F AF
             AF 73 02 36 7B 02 31 A7 B1 95 05 31 A9 7E 07 16 03 1B FD 52 9F 5B
             79 65 30 8F 00 3A AE 03 31 14 31 A7 7E 04 1B FD 3F 9F 5B 78 6B 32
             AE 80 62 00 9F FB 9E FA 1B FD 2F AF DB AF 32 86 A0 FE 16 01 1B 2D
             16 01 1B FD 19 03 18 1B 80 66 9E 5B 78 AC 24 2F FF A0 16 01 9F 21
             4E 93 02 13 14 DB 38 01 72 82 AD 9E 22 07 AC 24 03 4D 93 01 4A 16
             01 16 04 92 00 4E 16 01 63 A1 5B 78 25 33 80 54 A1 5C F8 20 80 4E
             9D 5B 78 24 34 14 A1 5C 5B 78 25 0A 80 40 A1 5C 5C F8 20 3A 9D 5B
             78 25 34 34 9D 5B 5C 78 9E 5B 5C 5C 78 AE A4 5C 22 FF 9A A3 5C 5B
             5C 5B 14 B3 65 35 B0 B1 B0 73 02 36 B1 7B 04 31 A7 16 03 94 00 2F
             36 94 04 2F 37 B0 95 01 31 A9 7D 02 16 01 15 19 03)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::THROW . 61.)
         (SYSTEM::RET . 61.) (SYSTEM::RETURN-FROM-I . 61.)
         (COMMON-LISP::RETURN-FROM . 61.) (SYSTEM::JMPTAIL . 58.)
         (SYSTEM::GO-I . 58.) (COMMON-LISP::GO . 58.) (SYSTEM::BARRIER . 58.)
         (SYSTEM::JMPHASH . 54.) (SYSTEM::RETGF . 54.)
         (SYSTEM::JMPCASE1-FALSE . 17.) (SYSTEM::JMPCASE1-TRUE . 17.)
         (SYSTEM::JMPCASE . 17.) (SYSTEM::JMP . 2.))
      SYSTEM::FOR-VALUE SYSTEM::JMPCASE1-TRUE SYSTEM::ALL
      SYSTEM::JMPCASE1-FALSE SYSTEM::ONE SYSTEM::SIMPLIFY "AT-END"
      SYSTEM::COMPILER-ERROR
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::SVREF . 13.)
         (COMMON-LISP::CONS . 13.) (COMMON-LISP::EQ . 13.)
         (COMMON-LISP::POP . 13.) (SYSTEM::STACK-TO-MV . 2.)
         (COMMON-LISP::LIST* . 2.) (COMMON-LISP::LIST . 2.)
         (COMMON-LISP::CONSP . 99.) (COMMON-LISP::ATOM . 99.)
         (COMMON-LISP::SYMBOL-FUNCTION . 99.) (COMMON-LISP::CDR . 99.)
         (COMMON-LISP::CAR . 99.) (COMMON-LISP::NOT . 99.)
         (SYSTEM::LIST-TO-MV . 99.) (SYSTEM::MV-TO-LIST . 99.)
         (SYSTEM::VALUES1 . 99.) (SYSTEM::VALUES0 . 99.)
         (COMMON-LISP::BOUNDP . 99.) (SYSTEM::VENV . 99.)
         (SYSTEM::GETVALUE . 99.) (SYSTEM::LOADIC . 99.) (SYSTEM::LOADV . 99.)
         (SYSTEM::LOADC . 99.) (SYSTEM::LOADI . 99.) (COMMON-LISP::LOAD . 99.)
         (SYSTEM::CONST . 99.) (COMMON-LISP::T . 99.) (COMMON-LISP::NIL . 99.))
      SYSTEM::SKIP (SYSTEM::SKIP 1.)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::STACK-TO-MV . 11.)
         (SYSTEM::LIST-TO-MV . 6.) (SYSTEM::VALUES0 . 1.)
         (SYSTEM::VALUES1 . 76.))
      (COMMON-LISP::NIL) (COMMON-LISP::CAR) (COMMON-LISP::POP)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::LIST* . 662.)
         (SYSTEM::PUSH-UNBOUND . 718.) (SYSTEM::NV-TO-STACK . 489.)
         (SYSTEM::MV-TO-STACK . 457.) (COMMON-LISP::PUSH . 392.)
         (COMMON-LISP::POP . 356.) (SYSTEM::SKIPSP . 285.)
         (SYSTEM::SKIPI . 204.) (SYSTEM::SKIP . 56.) (COMMON-LISP::NOT . 18.)
         (SYSTEM::VALUES1 . 2.))
      SYSTEM::ONE-VALUE-OPS
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::CONSP . 27.)
         (COMMON-LISP::ATOM . 22.) (COMMON-LISP::NOT . 2.))
      (COMMON-LISP::NOT) (COMMON-LISP::CONSP) (COMMON-LISP::ATOM)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::STORE . 111.)
         (SYSTEM::NV-TO-STACK . 479.) (COMMON-LISP::PUSH . 81.)
         (COMMON-LISP::LOAD . 126.) (SYSTEM::SKIPI . 16.) (SYSTEM::SKIP . 2.))
      SYSTEM::SKIPI 0. 1. (COMMON-LISP::POP) (COMMON-LISP::POP)
      SYSTEM::NV-TO-STACK (SYSTEM::VALUES1)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::SKIPSP . 35.)
         (SYSTEM::SKIPI . 2.) (SYSTEM::SKIP . 168.))
      SYSTEM::SKIPSP (SYSTEM::STORE 0.) (SYSTEM::VALUES1) (SYSTEM::SKIP 1.)
      (COMMON-LISP::PUSH) (SYSTEM::VALUES1) COMMON-LISP::POP
      (COMMON-LISP::LOAD 0.) (SYSTEM::STORE 0.) (SYSTEM::STORE 0.)
      (COMMON-LISP::PUSH) SYSTEM::VALUES0 SYSTEM::STACK-TO-MV
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::NIL . 78.)
         (SYSTEM::VALUES0 . 78.) (SYSTEM::STACK-TO-MV . 10.))
      SYSTEM::PUSH-NIL (COMMON-LISP::PUSH) SYSTEM::PUSH-UNBOUND (1.)
      (COMMON-LISP::CONS) SYSTEM::FOR-VALUE-TABLE SYSTEM::RET SYSTEM::JSR
      SYSTEM::JMPTAIL SYSTEM::REMOVE-REFERENCES SYSTEM::NOTE-REFERENCES))
#Y(#:TOP-LEVEL-FORM-336
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-PART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-PART
      #43Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 9D 1F 19 14 71 4D 63 1B 0C 87
           01 00 14 8F 0A 03 AC 2F 01 83 01 AD 8D 91 70 00 19 05 19 03)
      SYSTEM::SIMPLIFY SYSTEM::OPTIMIZE-VALUE))
#Y(#:TOP-LEVEL-FORM-337
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-LABEL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-LABEL
      #224Y(00 00 00 00 01 00 03 00 00 11 3B 03 07 B0 DA 38 01 81 82 03 3B 02
            07 6B 01 B0 82 01 01 02 3B 01 06 AE 38 01 80 9B 01 B0 9F 5C 23 12
            A1 1F 80 AE 14 71 4D 93 00 11 9D 5C 1D 80 59 00 19 06 DC 2F 03 A1
            1F 80 99 1B 69 63 1B 0B AC 94 05 83 06 B3 70 04 80 A1 00 A1 21 72
            6B 01 AC B3 63 33 01 02 16 01 AC 63 1B 27 87 01 00 14 DA 38 01 72
            82 6B 01 AD 73 01 01 93 00 11 14 38 01 31 9B 79 A0 23 08 AE AE AE
            38 01 28 FF 81 16 02 83 01 AD 8D 91 55 00 19 09 94 00 AC 32 0A 1F
            80 40 6B 01 AD 33 01 01 5B 78 CA 5A 1F 34 B1 AD 31 FF 59 1F 2D AF
            6B 01 AE 33 01 01 79 31 A9 6B 01 AC AE 63 33 01 02 16 01 AF 38 01
            31 9B 79 93 00 05 14 DA B4 32 86 16 01 B2 63 31 51 B0 2F 06 19 07
            19 07 19 05)
      SYSTEM::CODE-PART SYSTEM::*CODE-PARTS* SYSTEM::OPTIMIZE-LABEL
      SYSTEM::COMPILER-ERROR SYSTEM::REMOVE-REFERENCES SYSTEM::JMP
      SYSTEM::OPTIMIZE-PART))
#Y(#:TOP-LEVEL-FORM-338
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-SHORT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-SHORT
      #624Y(00 00 00 00 01 00 01 00 00 08 3B 01 07 6B 00 AF 82 01 01 01 AD 38
            01 71 9B 95 00 9D 1F 82 4F AF 9F 23 81 9A 94 03 9D 5B 26 01 81 90
            9D 5C 78 AE 9E 22 80 55 AE AD 30 02 6B 00 AC B4 63 33 01 02 16 01
            AC B3 AE 71 4D 38 07 72 4F 31 51 AC 2F 03 AC 71 4D 63 1B 2D AE AE
            30 05 16 02 1B 23 87 01 00 14 8F 0A 1C 6B 00 AD 73 01 01 94 00 94
            00 25 04 0D 9D 5C 78 A2 23 07 9D 5C 5C 78 A2 22 57 16 02 83 01 AD
            8D 91 57 16 02 16 01 00 19 06 63 B0 71 4D 63 1B 80 D8 87 01 00 14
            8F 0A 80 CE 6B 00 AD 73 01 01 94 00 9D 5B 26 06 80 BE AD B4 31 A7
            B2 71 4D B3 B0 9F 7A 31 51 16 01 B1 71 4D B2 B0 9F 7A 31 51 16 01
            AE 84 04 16 02 1B 80 9E 7D 00 93 01 80 7A 1B 80 67 CC 1B 80 7D CD
            1B 80 79 9D 5C 78 9E 5C 5C 78 94 02 CC 5A 14 94 03 CD 5A 14 B8 A1
            23 17 A7 FB 14 71 4D B7 B4 9F 7A 31 51 16 01 B2 84 08 94 0B 25 07
            02 7E 01 B8 A0 23 17 A6 FA 14 71 4D B6 B4 9F 7A 31 51 16 01 B2 84
            08 94 0B 25 08 02 7E 00 AF E3 38 01 72 82 24 0A 02 7D 01 AE E3 38
            01 72 82 25 0A FF 93 93 01 10 93 00 0D 95 05 B2 E5 9F 7A 31 A9 16
            01 7D 01 F8 B1 92 02 FF 84 92 01 FF 84 C9 14 B1 B1 7B 03 31 A7 16
            06 1B 09 E6 2F 0D 16 02 1B 02 16 02 83 01 AD 8D 91 FF 23 16 02 B0
            E8 B2 71 4D 38 05 72 50 31 51 B0 2F 03 AC 63 1B 19 87 01 00 6B 00
            AD 73 01 01 2F 0F AC 2F 10 AC 6B 00 AE 73 01 01 30 05 83 01 AD 8D
            91 63 16 06 1B 16 9D 5C 78 9E 5C 5C 78 AF 9F 22 05 AF 9E 23 FE D6
            16 03 1B 02 16 01 AF 9F 22 07 95 03 9F 5A 1F 80 A5 A0 5B 78 D6 5A
            59 1F 80 9C AF 9F 22 0A A0 5C 5B 78 D7 5A 59 1F 80 8E 63 AE 63 31
            A9 AD 71 4D 63 1B 80 57 EE B4 73 00 17 AC 63 1B 09 87 01 00 14 B1
            30 15 83 01 AD 8D 91 73 16 02 6B 00 AD 95 03 73 02 24 AD B1 AE 33
            01 02 16 03 B0 AE B2 71 4D 38 07 72 4F 31 51 AD 84 03 16 01 1B 1B
            87 01 00 14 8F 0A 14 AC B4 8C FF 0F 6B 00 AD 73 01 01 9D 5B 78 24
            13 FF AD 16 01 83 01 AD 8D 91 5F 16 02 AE AE 31 A9 9D 1F 1C 14 63
            1B 0D 87 01 00 6B 00 AD 73 01 01 2F 16 83 01 AD 8D 91 6F 16 02 AD
            2F 03 19 06 19 06 19 05)
      SYSTEM::*CODE-PARTS*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (SYSTEM::JMPCASE1-FALSE . 382.) (SYSTEM::JMPCASE1-TRUE . 382.)
         (SYSTEM::JMPCASE . 382.) (SYSTEM::JMP . 2.))
      SYSTEM::LABEL-SUBST SYSTEM::OPTIMIZE-LABEL SYSTEM::JMPCASE
      SYSTEM::OPTIMIZE-JMPCASE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::JMPHASH . 185.)
         (SYSTEM::JMPCASE1-FALSE . 53.) (SYSTEM::JMPCASE1-TRUE . 53.)
         (SYSTEM::JMPCASE . 53.) (SYSTEM::JMP . 2.))
      SYSTEM::JMPCASE1-TRUE SYSTEM::JMPCASE1-FALSE SYSTEM::FOR-VALUE
      SYSTEM::ALL (SYSTEM::VALUES1) SYSTEM::OPTIMIZE-SHORT
      SYSTEM::COMPILER-ERROR #.#'COMMON-LISP::INTEGERP SYSTEM::SIMPLIFY
      SYSTEM::OPTIMIZE-VALUE SYSTEM::JMPHASH SYSTEM::HANDLER-OPEN SYSTEM::JMP
      #.#'COMMON-LISP::COPY-LIST SYSTEM::NOTE-REFERENCES
      SYSTEM::OPTIMIZE-PART))
#Y(#:TOP-LEVEL-FORM-339
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::GET-BOOLEAN-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GET-BOOLEAN-VALUE
      #209Y(02 00 01 00 01 00 00 00 00 02 63 47 00 80 BB 1B 2C A2 5B 5B 26 01
            80 B0 C7 48 1B 80 AD C8 48 1B 80 A8 A2 5B 5C 5C 1D 0B A2 5B 5C 5C
            78 6F 04 24 05 80 95 C8 48 1B 80 92 A0 59 FB 83 05 A2 21 51 93 05
            80 84 00 2B 01 00 0B 00 00 AC B0 6D 06 02 B3 71 4D 63 1B 80 6B 6B
            07 AD 33 01 01 78 9D 5B 26 08 2B 00 16 05 48 1B 80 60 9D 5C 5C 5B
            1D 73 9D 5C 5C 5B 1B 11 B6 9E 5C 5B 23 03 DD A1 34 B6 9E 5C 5C 5B
            23 0F C7 14 A1 34 16 01 1B 32 E3 2F 0A 16 01 1B 2B 16 01 1B 27 87
            01 00 14 8E 0A FF B6 9D 5B 26 0B 17 00 16 04 48 1B 1E C7 19 04 C8
            19 04 AC 24 03 76 AC 24 02 75 00 19 04 E3 2F 0A 83 01 AD 8D 91 53
            16 04 00 48 14 92 01 64 15 19 03)
      SYSTEM::VALUE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (SYSTEM::UNWIND-PROTECT-CLEANUP . 37.) (SYSTEM::CATCH-CLOSE . 37.)
         (SYSTEM::TAGBODY-CLOSE . 37.) (SYSTEM::BLOCK-CLOSE . 37.)
         (SYSTEM::VALUES1 . 37.) (SYSTEM::SETVALUE . 37.)
         (SYSTEM::STOREIC . 37.) (SYSTEM::STOREC . 37.) (SYSTEM::STOREV . 37.)
         (SYSTEM::STOREI . 37.) (SYSTEM::STORE . 37.) (SYSTEM::SKIPSP . 37.)
         (SYSTEM::SKIPI . 37.) (SYSTEM::SKIP . 37.) (SYSTEM::UNBIND1 . 37.)
         (COMMON-LISP::NOT . 34.) (SYSTEM::CONST . 12.)
         (COMMON-LISP::LIST* . 7.) (COMMON-LISP::LIST . 7.)
         (COMMON-LISP::CONS . 7.) (COMMON-LISP::T . 7.)
         (SYSTEM::TAGBODY-CLOSE-NIL . 2.) (SYSTEM::VALUES0 . 2.)
         (COMMON-LISP::NIL . 2.))
      SYSTEM::FALSE SYSTEM::TRUE SYSTEM::CONST-HORIZON :FORM
      #Y(SYSTEM::GET-BOOLEAN-VALUE-NEW
         #33Y(00 00 00 00 01 00 00 00 00 02 07 00 01 1D 09 AD 07 00 01 23 09 00
              19 02 9E 0C 00 01 19 02 00 49 01)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      SYSTEM::*CODE-PARTS*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::JMPCASE1-FALSE . 20.)
         (SYSTEM::JMPCASE1-TRUE . 20.) (SYSTEM::JMPCASE . 20.)
         (SYSTEM::JMP . 8.))
      SYSTEM::GET-BOOLEAN-VALUE SYSTEM::COMPILER-ERROR
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::CATCH-OPEN . 1.)
         (SYSTEM::BLOCK-OPEN . 1.) (SYSTEM::JMPIFBOUNDP . 1.))))
#Y(#:TOP-LEVEL-FORM-340
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-JMPCASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-JMPCASE
      #152Y(00 00 00 00 02 00 00 00 00 03 9E 5B 78 C5 5A 1F 80 84 9E 5B 5C 78
            9F 5B 5C 5C 78 AD 9E 22 1A AD E1 38 01 32 82 59 1F 80 6B AC E1 38
            01 32 82 59 1F 80 61 E2 B0 95 05 1B 3D AF DB AF 95 06 6F 02 7B 03
            31 A7 AD B1 AF 71 4D 38 06 DD 72 4F 31 51 AF 2F 04 AD DF 38 01 72
            82 2F 06 19 05 9D 5B 5B 26 09 16 AC 95 01 9E FB 9D FA 16 02 1B 08
            AD 83 01 14 31 A9 85 02 9D 21 64 AE 8F 93 08 B2 DA B1 B3 7B 03 31
            A7 AE 32 91 1F 08 B2 2F 04 B3 2F 06 19 08 19 08 19 05 19 03)
      SYSTEM::JMPCASE SYSTEM::JMP SYSTEM::GET-BOOLEAN-VALUE 1.
      SYSTEM::OPTIMIZE-PART SYSTEM::CODE-PART SYSTEM::OPTIMIZE-SHORT
      SYSTEM::FOR-VALUE 0.
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::NOT . 12.)
         (SYSTEM::UNWIND-PROTECT-CLEANUP . 1.) (SYSTEM::CATCH-CLOSE . 1.)
         (SYSTEM::TAGBODY-CLOSE . 1.) (SYSTEM::BLOCK-CLOSE . 1.)
         (SYSTEM::VALUES1 . 1.) (SYSTEM::SKIPSP . 1.) (SYSTEM::SKIPI . 1.)
         (SYSTEM::SKIP . 1.) (SYSTEM::UNBIND1 . 1.))))
#Y(#:TOP-LEVEL-FORM-341
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-VALUE
      #237Y(00 00 00 00 01 00 01 00 00 08 3B 01 07 6B 00 AF 82 01 01 01 94 01
            9D 5B 26 01 80 CE AD B3 AF 71 4D 38 07 72 4F 31 51 B1 E4 B0 D0 7C
            02 31 A7 94 03 25 02 0D 95 05 B2 E6 9F 7A 31 A9 16 01 B1 2F 0D B1
            2F 0E 9E 1B 80 65 9D 5C 78 9E 5C 5C 78 94 02 25 02 09 AD DD 38 01
            72 82 25 04 0E 94 02 25 05 15 AC DD 38 01 72 82 24 04 0C B0 E0 A1
            5C 7A 80 A7 02 B1 B1 30 07 95 04 6F 08 AC 24 09 FF 9C AC 25 11 31
            AE B3 B0 71 4D 38 07 72 4F 31 51 B1 E4 AF D7 7C 02 31 A7 94 03 25
            05 0D 95 05 B2 ED 9F 7A 31 A9 16 01 B1 2F 0D B1 2F 0E 9F 14 2F 0F
            B2 2F 10 19 07 00 19 07 9D 5C 78 AC DD 38 01 32 82 1F 25 9E 5C 5C
            5B 59 1F 1E 95 03 6F 08 9D 1F 15 B0 E4 AF AF 7B 03 31 A7 AD EE 38
            01 72 82 38 01 29 02 08 FF 24 19 06 19 05 00 19 04)
      SYSTEM::*CODE-PARTS*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::JMP . 158.)
         (SYSTEM::JMPCASE1-FALSE . 46.) (SYSTEM::JMPCASE1-TRUE . 46.)
         (SYSTEM::JMPCASE . 46.))
      SYSTEM::JMPCASE1-TRUE SYSTEM::FOR-VALUE SYSTEM::ALL
      SYSTEM::JMPCASE1-FALSE SYSTEM::JMPCASE SYSTEM::OPTIMIZE-JMPCASE
      SYSTEM::GET-BOOLEAN-VALUE SYSTEM::TRUE SYSTEM::JMP (SYSTEM::TRUE)
      (SYSTEM::VALUES1) SYSTEM::SIMPLIFY SYSTEM::OPTIMIZE-PART
      SYSTEM::OPTIMIZE-LABEL SYSTEM::OPTIMIZE-SHORT SYSTEM::FALSE
      (SYSTEM::FALSE) (SYSTEM::VALUES1) SYSTEM::CODE-PART))
#Y(#:TOP-LEVEL-FORM-342
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COALESCE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COALESCE
      #129Y(00 00 00 00 00 00 01 00 00 07 3B 01 1B 63 DA 6B 01 71 17 1B 05 AD
            84 02 85 01 AD AD 91 01 33 75 16 02 AC 32 47 16 01 F9 00 2B 01 38
            06 C7 FB B4 81 45 02 71 61 AF 63 1B 32 87 01 00 6B 01 AD 73 01 01
            9D 20 22 9D 5C 20 1E 9D 5C 5C 20 19 94 00 9E 5C 78 9F 5C 5C 5B 7C
            02 AC B1 63 71 62 AD B2 B1 A0 7A 31 63 16 02 16 01 83 01 AD 8D 91
            4A 16 02 00 0B 01 00 AD 6D 03 01 AD 31 65 06 01 00 19 04)
      0. SYSTEM::*CODE-PARTS* #.#'COMMON-LISP::EQUAL
      #Y(SYSTEM::COALESCE-1
         #262Y(00 00 00 00 02 00 00 00 00 03 9E 5C 1F 80 F5 63 AE 1B 0E 94 00
               6B 01 AD 73 01 01 84 02 16 01 83 00 9D 21 6F 16 01 AC 80 A2 00
               63 6B 01 71 17 DC 63 B2 1B 0E 94 00 6B 03 AD 73 01 01 84 02 16
               01 83 00 9D 21 6F 16 01 AC 80 A2 00 38 05 72 49 1B 3C B1 B4 1B
               16 16 03 1B 17 94 01 9E 20 77 94 01 94 01 AD 30 06 16 02 83 01
               83 00 9E 21 6B 16 02 B1 1B 08 AC 9E 5B 79 31 A7 83 00 9D 21 75
               16 01 68 01 00 84 04 68 01 00 B0 30 07 16 02 DE B0 91 00 29 17
               2A 2B 01 94 04 9D 5B 0B 01 00 AD 6D 05 01 95 06 90 00 29 FF A9
               16 02 E2 6F 09 E4 AD D0 7C 02 B1 B4 1B 1C 16 03 1B 1D 94 01 9E
               20 77 94 01 6B 01 B1 A0 7A AD AF AE 33 01 02 16 04 83 01 83 00
               9E 21 65 16 02 AD B4 31 51 AD E6 B1 32 86 B0 AE 71 A1 6B 01 38
               01 31 1B AE 6B 03 38 01 31 1B 16 02 6B 01 AE 73 01 01 2F 0D B1
               2F 0E 02 0C 00 01 19 07 19 03)
         COMMON-LISP::NIL SYSTEM::*CODE-PARTS* #.#'COMMON-LISP::MAX
         SYSTEM::*CODE-POSITIONS* #.#'COMMON-LISP::CONSP
         #Y(SYSTEM::COALESCE-1-1
            #19Y(00 00 00 00 01 00 00 00 00 02 94 01 69 00 01 32 00 19 02)
            COMMON-LISP::NIL)
         SYSTEM::REMOVE-REFERENCES SYSTEM::NOTE-REFERENCES SYSTEM::ALL
         SYSTEM::MAKE-LABEL SYSTEM::JMP (COMMON-LISP::NIL) SYSTEM::CODE-PART
         SYSTEM::OPTIMIZE-PART SYSTEM::COALESCE)))
#Y(#:TOP-LEVEL-FORM-343
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::OPTIMIZE-ALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::OPTIMIZE-ALL
      #619Y(00 00 00 00 00 00 00 00 00 01 DA 1B 80 5B 6B 01 AD 73 01 01 93 00
            21 14 38 01 71 9B 95 00 93 00 0E AF AD DC 38 01 72 82 8C FF 04 DD
            DC 30 04 AC B0 B0 B0 2D 04 05 16 02 16 01 6B 01 AD 73 01 01 93 00
            04 AD AD 30 06 16 01 6B 01 AD 73 01 01 93 00 04 AD AD 30 07 16 01
            6B 01 AD 73 01 01 93 00 04 AD AD 30 08 16 01 85 00 AC 6B 01 71 17
            8D FF FF 9C 16 01 2E 09 1C FF 91 DA 6B 01 71 17 1B 81 3B A5 09 09
            16 08 1B 81 33 B2 B2 6B 01 B2 33 01 01 5C 7A 31 A9 6B 01 AC B1 63
            33 01 02 16 01 A3 09 08 16 08 00 2B 01 AD 38 01 71 9B 95 00 AC 71
            4D 6B 0A B2 33 01 01 0B 03 00 01 03 93 04 42 B2 6D 0B 01 B0 63 1B
            80 D1 87 01 00 14 8F 0A 80 C7 AC B8 8C FF 80 C1 6B 01 AD 33 01 01
            78 9D 5B 26 0C 80 B2 AD B3 A2 34 1D 80 AB 9E FE 16 01 1B 80 A6 9E
            FD 16 01 1B 80 9F B4 9E 5C 1B 02 B4 9E 5C 5B 23 80 91 AD B1 A2 34
            1D 80 8A 9E FC 16 01 1B 80 85 E7 9E 5C 1B 10 6B 01 AE 73 01 01 94
            00 B3 9E 5C 5B 22 6D E8 9E 5C 78 7B 02 B5 B5 AE A2 5C 7C 02 31 A9
            6B 01 AC B2 63 33 01 02 16 01 A6 09 0B 16 0B 1B FF 5E EA 9F 5C 1B
            23 6B 01 AF 73 01 01 94 00 9D 5C 78 E9 38 01 8E 82 09 9D 5C 5C 78
            E9 38 01 32 82 14 B4 9F 5C 5B 22 5A EB 9F 5C 78 AE 7B 03 B6 B6 AE
            A3 5C 7C 02 31 A9 6B 01 AC B4 63 33 01 02 16 01 A7 09 0C 16 0C 1B
            FF 16 AD B2 A2 34 1C FF 5C 16 01 83 01 AD 8D 91 FF 2A 16 02 92 03
            FE E5 92 01 FF 6F 92 02 FF 9F 16 09 1B 0C 6B 01 AD 73 01 01 92 00
            FE EA 16 01 86 00 14 25 00 6E 16 01 6B 0A AC AE DA 33 01 02 16 01
            EC ED 6B 01 6B 0A 73 01 27 EE AD 38 05 81 51 00 14 EF F0 38 02 81
            65 00 63 AD 63 1B 80 75 87 01 00 78 94 00 9D 5B 26 17 80 4C AD F2
            9F 5C 78 7B 02 31 A7 1B 80 40 F2 9E 5C 78 7B 02 EA 9F 5C 5C 78 A0
            5C 78 E9 38 01 8E 82 09 A0 5C 5C 78 E9 38 01 32 82 14 61 03 1B 18
            F2 9E 5C 5C 78 7B 02 E8 9F 1B 09 F2 9E 5C 78 7B 02 E7 9F 5C 5C 78
            61 02 14 A0 5C 62 02 F9 16 01 AC 38 01 71 9B 9D 5C 1D 07 AC 95 01
            7B 01 31 A9 16 01 AC B0 80 A1 03 16 01 83 01 AD 8D 91 FF 86 16 02
            15 19 03)
      0. SYSTEM::*CODE-PARTS* SYSTEM::CODE-PART SYSTEM::OPTIMIZE-ALL
      SYSTEM::COMPILER-ERROR SYSTEM::OPTIMIZE-LABEL SYSTEM::OPTIMIZE-JMPCASE
      SYSTEM::OPTIMIZE-VALUE SYSTEM::OPTIMIZE-SHORT SYSTEM::COALESCE
      SYSTEM::*CODE-POSITIONS*
      #Y(SYSTEM::OPTIMIZE-ALL-BETTER
         #53Y(00 00 00 00 02 00 00 00 00 03 9E 59 1E 25 6B 01 AE 73 01 01 6B 01
              B0 73 01 01 AD 69 00 01 90 01 31 0A AD AD 69 00 01 33 02 32 19 05
              AC AE 33 01 32 19 05 19 03)
         COMMON-LISP::NIL SYSTEM::*CODE-POSITIONS*)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::JMPCASE1-FALSE . 28.)
         (SYSTEM::JMPCASE1-TRUE . 23.) (SYSTEM::JMPCASE . 173.)
         (SYSTEM::JMP . 2.))
      SYSTEM::JMPIFNOT1 SYSTEM::JMPIF1 SYSTEM::FOR-VALUE SYSTEM::JMPIFNOT
      SYSTEM::JMPIF COMMON-LISP::LIST #.#'COMMON-LISP::CONS
      #.#'COMMON-LISP::CAR #.#'COMMON-LISP::> #.#'COMMON-LISP::CDR
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::JMPCASE1-FALSE . 59.)
         (SYSTEM::JMPCASE1-TRUE . 48.) (SYSTEM::JMPCASE . 14.)
         (SYSTEM::JMP . 2.))
      SYSTEM::JMP))
#Y(#:TOP-LEVEL-FORM-344
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-TO-LAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-TO-LAP
      #81Y(00 00 00 00 00 00 00 00 00 01 DA 64 38 06 C6 FA 71 1C DA 64 38 06 C6
           FA 31 1C 10 02 A0 10 03 DE 61 01 10 05 C6 10 06 00 10 07 00 10 08 00
           10 09 00 10 0A 6B 0B 6F 0C 6F 0D 2F 0E 12 06 2E 0F 14 94 00 83 01 EA
           8E 00 04 EB EC 30 13 15 12 02 19 02)
      10. 0. SYSTEM::*CODE-POSITIONS* SYSTEM::*CODE-PARTS* (SYSTEM::START)
      SYSTEM::*CODE-PART* SYSTEM::*CODE-INDEX* SYSTEM::*DEAD-CODE*
      SYSTEM::*LABEL-SUBST* SYSTEM::*CURRENT-VALUE* SYSTEM::*CURRENT-VARS*
      SYSTEM::*FUNC* SYSTEM::FNODE-CODE SYSTEM::ANODE-CODE
      SYSTEM::TRAVERSE-ANODE SYSTEM::OPTIMIZE-ALL (SYSTEM::START)
      SYSTEM::COMPILE-TO-LAP SYSTEM::START SYSTEM::COMPILER-ERROR))
#Y(#:TOP-LEVEL-FORM-345
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CONST-TO-LOADV SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CONST-TO-LOADV
      #79Y(00 00 00 00 01 00 00 00 00 02 AD 93 00 3C 94 00 9D 20 30 9D 5B 26 00
           2B AD 94 01 9F 5C 78 72 95 A0 5C 5C 62 02 1B 13 AD DB DC A0 5C 78 61
           03 1B 09 AD C8 1B 05 AD DE 9F 5C 5D 14 31 A7 1B 04 DF E0 30 07 16 01
           83 00 92 00 44 16 01 9E 19 02)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::GO . 40.)
         (SYSTEM::TAGBODY-OPEN . 40.) (COMMON-LISP::RETURN-FROM . 40.)
         (SYSTEM::BLOCK-OPEN . 40.) (SYSTEM::CALL2 . 40.) (SYSTEM::CALL1 . 40.)
         (SYSTEM::CALL0 . 40.) (SYSTEM::CALL . 40.)
         (SYSTEM::COPY-CLOSURE . 40.) (SYSTEM::BIND . 40.)
         (SYSTEM::SETVALUE . 40.) (SYSTEM::GETVALUE . 40.)
         (SYSTEM::JMPHASH . 30.) (SYSTEM::VENV . 26.) (SYSTEM::CONST . 16.)
         (SYSTEM::STOREV . 1.) (SYSTEM::LOADV . 1.))
      SYSTEM::LOADV 0. (SYSTEM::LOADV 0. 0.) SYSTEM::JMPHASHV
      SYSTEM::CONST-TO-LOADV "Illegal-in-GF" SYSTEM::COMPILER-ERROR))
#Y(#:TOP-LEVEL-FORM-346
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SP-DEPTH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SP-DEPTH
      #1353Y(00 00 00 00 01 00 00 00 00 02 DA DA 01 02 B1 DA C5 7A 93 01 85 04
             94 01 9D 20 24 9D 5B 26 03 84 F1 16 02 93 03 85 1D 1B 84 F3 AE 95
             01 8A 01 71 AC AF 95 02 30 02 FB 14 31 A9 16 01 1B 84 D3 AC B0 38
             03 71 B9 92 00 62 AD A0 7A 84 04 16 01 1B 84 C0 AF 95 01 30 02 1B
             27 AC 95 02 8A 01 30 AD AD 95 03 70 02 31 A9 1B 26 9D 5C 78 AC B1
             38 03 71 B9 93 00 07 AF 95 01 8A 01 84 C3 92 00 53 A0 14 AE B4 38
             03 80 B9 01 1C 4F AE 9E 7A 84 07 16 04 93 03 84 AF 1B 84 85 AF 95
             01 30 02 1B 80 64 AC 95 02 8B 01 39 16 03 1B 84 67 16 02 1B 84 62
             AF 95 01 30 02 1B 18 9D 5C 5C 78 AC B1 38 03 71 B9 93 00 07 AF 95
             01 8A 01 80 53 92 00 62 A0 14 AE B4 38 03 80 B9 01 1D 36 AC 95 02
             8A 01 3A AD AD 95 03 70 02 31 A9 16 03 1B 84 26 9D 5C 78 AC B1 38
             03 71 B9 93 00 07 AF 95 01 8A 01 FF AC 92 00 FF 95 A0 14 AE B4 38
             03 80 B9 01 1C FF 91 AE 9E 7A 84 07 16 03 1B 83 F9 16 03 1B 83 F4
             16 02 1B 83 EF B0 95 01 30 02 1B 35 AD AD 95 03 70 02 31 A9 16 01
             1B 3C AE 9E 7A 84 08 16 01 1B 33 9D 5C 5C 79 63 AD 8C 91 83 F6 87
             01 00 14 B2 38 03 71 B9 93 00 06 B0 95 01 8A 01 17 92 00 45 A1 14
             AE B5 38 03 80 B9 01 1D 4D AC 95 02 8B 01 FF BA 16 01 16 01 83 01
             1B 4C AE 95 01 30 02 1B 1B AD AD 95 03 70 02 31 A9 16 04 1B 83 86
             AE 9E 7A 84 08 16 04 1B 83 7C 92 00 5F 9F 14 AE B5 38 03 80 B9 01
             1D 68 AC 95 02 8B 01 55 16 04 1B 83 63 DA C5 7A 9E 5C 5C 78 AC B2
             38 03 71 B9 93 00 57 AE 95 01 8B 01 51 16 03 1B 83 48 AD DA C5 7A
             8E 00 03 DE 2F 05 16 01 93 03 83 6A 1B 83 40 AD E0 C5 1B 82 B6 AF
             95 01 30 02 1B 2B AD AD 95 03 70 02 31 A9 16 01 1B 31 AE 9E 7A 84
             07 16 01 1B 28 9D 5C 78 AC B1 38 03 71 B9 93 00 06 AF 95 01 8A 01
             16 92 00 4F A0 14 AE B4 38 03 80 B9 01 1D 57 AC 95 02 8B 01 45 16
             01 16 02 AD E2 CB 1B 82 6A AD E2 CB 7A 30 09 F9 78 8E 92 06 95 01
             8F 92 82 D2 DE CF 1B 82 CA AF 95 01 30 02 1B 80 42 AD AD 95 03 70
             02 31 A9 16 01 1B 80 48 AE 9E 7A 84 07 16 01 1B 3F AD E5 C5 7A 30
             07 F9 B2 94 02 82 01 34 06 B1 95 02 82 01 34 05 9D 5C 78 AC B1 38
             03 71 B9 93 00 06 AF 95 01 8A 01 18 92 00 FF B7 A0 14 AE B4 38 03
             80 B9 01 1D 41 AC 95 02 8B 01 FF AD 16 01 16 02 AD E5 C5 7A 30 09
             F9 78 8E 92 05 95 01 8F 92 04 DE E4 30 05 AD E2 CB 1B 81 DB AD E2
             CB 7A 30 09 F9 78 8E 92 05 95 01 8F 92 04 DE E4 30 05 AD E5 C5 1B
             81 C1 AF 95 01 30 02 1B 2B AD AD 95 03 70 02 31 A9 16 01 1B 31 AE
             9E 7A 84 07 16 01 1B 28 9D 5C 78 AC B1 38 03 71 B9 93 00 06 AF 95
             01 8A 01 16 92 00 4F A0 14 AE B4 38 03 80 B9 01 1D 57 AC 95 02 8B
             01 45 16 01 16 02 AD E5 C5 7A 30 09 F9 78 8E 92 06 95 01 8F 92 81
             E3 DE CF 1B 81 DB AD E2 CB 7A 30 09 F9 78 8E 92 06 95 01 8F 92 81
             CD DE CF 1B 81 C5 AF 95 01 30 02 1B 2C AD AD 95 03 70 02 31 A9 16
             01 1B 32 AE 9E 7A 84 07 16 01 1B 29 9D 5C 5C 78 AC B1 38 03 71 B9
             93 00 06 AF 95 01 8A 01 16 92 00 4E A0 14 AE B4 38 03 80 B9 01 1D
             56 AC 95 02 8B 01 44 16 01 16 02 AD E2 CB 1B 81 02 AD E2 CB 7A 30
             09 F9 78 8E 92 06 95 01 8F 92 81 6A DE CF 1B 81 62 AD E0 CB 7A 30
             07 F9 B2 94 02 82 01 34 06 B1 95 02 82 01 34 05 9D 5C 79 63 1B 80
             48 B0 95 01 30 02 1B 2B AD AD 95 03 70 02 31 A9 16 01 1B 31 AE 9E
             7A 84 08 16 01 1B 28 87 01 00 14 B2 38 03 71 B9 93 00 06 B0 95 01
             8A 01 16 92 00 4F A1 14 AE B5 38 03 80 B9 01 1D 57 AC 95 02 8B 01
             45 16 01 16 01 83 01 AD 8D 91 50 16 02 1B 80 F8 AD E0 CB 7A 30 09
             F9 78 8E 92 06 95 01 8F 92 80 E7 DE CF 1B 80 DF AD 9E 5C 5C 5C 78
             8E 00 03 DE 2F 05 9D 5C 5C 5C 79 63 1B 80 48 B0 95 01 30 02 1B 2B
             AD AD 95 03 70 02 31 A9 16 01 1B 31 AE 9E 7A 84 08 16 01 1B 28 87
             01 00 14 B2 38 03 71 B9 93 00 06 B0 95 01 8A 01 16 92 00 4F A1 14
             AE B5 38 03 80 B9 01 1D 57 AC 95 02 8B 01 45 16 01 16 01 83 01 AD
             8D 91 50 16 02 1B 80 7C AD E0 C5 7A 30 07 F9 B2 94 02 82 01 34 06
             B1 95 02 82 01 34 05 1B 80 64 AD E0 C5 7A 30 09 F9 78 8E 92 06 95
             01 8F 92 80 53 DE CF 1B 80 4B AD 9E 5C 78 9F 5C 5C 5B 7A 30 09 F9
             78 8E 92 05 95 01 8F 92 39 DE CF 1B 32 93 00 06 AF 95 01 30 02 FB
             AD B7 E7 38 02 80 B2 04 16 03 93 01 27 1B FB 20 AD 9E 5C 78 72 95
             9F 5C 5C 5B 7A 30 09 F9 78 8E 92 05 95 01 8F 92 05 DE CF 14 30 05
             16 01 83 01 92 01 FA FC 93 03 27 94 03 83 04 94 00 AC 8E 04 04 DE
             E6 30 05 9E 5C FA AC B1 38 03 71 B9 93 00 FF A5 AF 95 01 8B 01 FF
             9E 16 03 92 03 59 B1 A2 5D 19 08)
      0. SYSTEM::SPD<= SYSTEM::SPDMAX
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::SKIPI . 1239.)
         (SYSTEM::SKIPSP . 1189.) (SYSTEM::MVCALL . 1167.)
         (SYSTEM::HANDLER-BEGIN . 1143.) (SYSTEM::MVCALLP . 1143.)
         (SYSTEM::HANDLER-OPEN . 1041.) (SYSTEM::TAGBODY-CLOSE . 1019.)
         (SYSTEM::TAGBODY-CLOSE-NIL . 1019.) (SYSTEM::TAGBODY-OPEN . 910.)
         (SYSTEM::BLOCK-CLOSE . 888.) (SYSTEM::BLOCK-OPEN . 839.)
         (SYSTEM::UNWIND-PROTECT-CLEANUP . 789.)
         (SYSTEM::UNWIND-PROTECT-CLOSE . 725.)
         (SYSTEM::UNWIND-PROTECT-NORMAL-EXIT . 671.)
         (SYSTEM::UNWIND-PROTECT-OPEN . 580.) (SYSTEM::CATCH-CLOSE . 528.)
         (SYSTEM::CATCH-OPEN . 480.) (COMMON-LISP::PROGV . 446.)
         (SYSTEM::RETGF . 427.) (SYSTEM::RET . 427.) (SYSTEM::GO-I . 437.)
         (COMMON-LISP::GO . 437.) (SYSTEM::RETURN-FROM-I . 437.)
         (COMMON-LISP::RETURN-FROM . 437.) (COMMON-LISP::THROW . 437.)
         (SYSTEM::BARRIER . 437.) (SYSTEM::JSR . 400.) (SYSTEM::JMPTAIL . 288.)
         (SYSTEM::JMPHASHV . 288.) (SYSTEM::JMPHASH . 288.)
         (SYSTEM::JMPIFBOUNDP . 152.) (SYSTEM::JMPIFNOT1 . 205.)
         (SYSTEM::JMPIFNOT . 205.) (SYSTEM::JMPIF1 . 205.)
         (SYSTEM::JMPIF . 205.) (SYSTEM::JMP . 74.))
      SYSTEM::SP-DEPTH SYSTEM::COMPILER-ERROR 1. SYSTEM::SPD+ 2. SYSTEM::SPD-
      "<0" 3. "BAD LABEL" #.#'COMMON-LISP::EQ))
#Y(#:TOP-LEVEL-FORM-347
   #74Y(00 00 00 00 00 00 00 00 00 01 00 2B 04 DA 6B 01 38 01 71 62 2F 02 0B 00
        00 DD 6B 01 38 01 71 62 2F 02 0B 00 01 DE 6B 01 38 01 71 62 2F 02 0B 00
        02 DF 6B 01 38 01 71 62 2F 02 0B 00 03 E0 2F 07 E0 AD 6D 08 01 32 80 CB
        19 02)
   COMMON-LISP::1+ SYSTEM::FUNCTION-CODES SYSTEM::CALLS-CODE COMMON-LISP::1-
   COMMON-LISP::ATOM COMMON-LISP::CONSP SYSTEM::INSERT-COMBINED-LAPS
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INSERT-COMBINED-LAPS
      #1019Y(00 00 00 00 01 00 00 00 00 02 AD 93 00 80 7C 94 00 9D 20 80 6E 9D
             5B 26 01 80 68 95 00 00 1B 80 5F CA 1B 21 AD 24 04 79 CB 1B 1A CB
             1B 17 16 01 9E 5C 5B 5C 5C 5B 1C 38 AD 9F 5C 5B 78 24 02 64 AD 24
             04 67 CA 14 A0 5C 5B 5C 78 7B 02 31 A7 AD 9F 5C 5C 1B 2B 07 00 03
             1B 22 87 00 00 9E 5C 5B 20 0E 9E 5C 5B 78 AC 24 02 44 AC 24 03 40
             16 01 AD E1 31 A7 AD AD 24 04 5C 07 00 04 14 A0 5C 5D 14 31 A9 16
             01 83 00 92 00 FF 84 16 01 AD 95 00 93 01 83 62 94 01 9D 20 83 45
             9E 5B 20 80 4C 94 00 9F 5B 5B 26 08 37 CE 1B 35 CF 1B 01 D0 14 A0
             5B 5C 5C 5B 1D 02 83 00 94 03 95 00 63 31 A9 16 01 15 1B 1B D1 1B
             18 D2 1B 15 D3 1B 12 D4 1B 0F AF AD 95 03 A2 5B 79 33 02 23 5D 1B
             81 D0 00 14 EA 38 02 31 B9 79 92 00 67 16 01 9D 5B 26 11 82 EE A0
             1B 0D D9 1B 82 34 AD AD 82 02 36 01 16 01 9F 5C FA AE D7 74 92 00
             6F 16 01 AF AD 24 13 64 03 15 1B 82 13 AE D7 74 92 00 56 16 02 1B
             82 C1 B0 F2 9F 1B 80 DB B0 F4 9F 1B 80 A1 9E 5C 78 A0 5C 78 F1 8E
             00 6A A0 5C 5B 20 07 A0 5C 5B 78 24 19 64 B0 F5 AE 7B 02 31 A7 B0
             A1 1B 80 BC 16 03 1B 82 8E 03 1D 1B 0A AF A0 5C 5B 78 24 02 74 03
             1E 14 A0 5C 78 A2 5C 5B 5C 78 61 03 1B 80 C8 9E 5B 20 82 6B 9E 5B
             78 AC 24 16 FF B0 AC 25 1C 1D 9F 5C 5B 20 18 9F 5C 5B 78 AC 24 02
             05 AC 25 03 FF BC 16 01 9F 5C 5B 5C 5C 5B 1D FF BA 16 02 1B 82 3F
             9E 5B 20 82 38 9D 5C 78 9F 5B 5B 26 1F 81 06 B0 03 21 1B 80 48 9F
             5C 5B 20 80 FA 9F 5C 5B 78 AC 24 20 6C AC 25 19 0E B0 65 22 A0 14
             A3 5C 5B 5C 78 61 03 1B 2D 16 03 1B 82 05 B0 03 23 1B 1E 9F 5C 5B
             20 80 D0 9F 5C 5B 78 AC 24 20 6D AC 25 19 1F AD A1 5C 5B 5C 78 8D
             FF 16 B0 03 24 14 A0 14 61 02 14 31 A7 B0 A1 5C 79 31 A9 16 03 1B
             81 CF 16 03 1B 81 CA 9F 5C 5B 20 80 9A 9F 5C 5B 78 25 19 80 92 9F
             5C 5B 5C 78 97 01 8D FF 80 87 AF 65 25 97 02 61 02 14 31 A7 AF A0
             1B 2B 03 27 1B 1E AF A0 5C 78 69 00 01 8E 00 72 03 28 1B 10 03 29
             1B 0C AF A0 5C 78 69 00 01 8E 00 72 03 2A 14 AE 7B 02 31 A7 AF A0
             5C 5C 5C 1B 80 C3 9F 5C 5B 20 35 9F 5C 78 69 00 01 8E 00 09 9F 5C
             78 69 00 02 8F 00 23 9F 5C 5C 5B 20 1D 9F 5C 5C 78 65 26 8E 00 FF
             AD 9F 5C 5C 5B 78 25 19 0B 9F 5C 5C 5B 5C 78 AD 8C FF FF AC AF 65
             2B AE 61 02 14 31 A7 AF A0 5C 1B 80 7A 16 02 1B 81 25 94 01 65 2C
             8F 00 81 1B 9E 5C 5B 20 81 15 9E 5C 5B 78 25 19 81 0D 9E 5C 5B 5C
             78 9E 5C 78 8D FF 81 01 9E 5C 5C 78 9E 5C 5C 5B 23 80 F6 AE 65 2D
             9F 5C 78 61 02 1B 80 CA AE 65 2F 9F 5C 5C 78 7B 02 31 A7 AE 9F 5C
             1B 80 C0 94 01 65 2E 8E 00 68 AE 65 30 9F 5C 1B 34 ED 1B 04 85 00
             83 02 94 02 65 31 8E 00 75 AC 24 13 14 AF 03 32 14 AE 61 02 14 31
             A7 AF A0 14 31 A9 16 02 1B 80 A8 16 02 1B 80 A3 AE 03 33 1B 08 AE
             94 01 9F 5C 78 61 02 14 31 A7 16 01 1B 80 8E 2A 2B 02 9E 5C 5C 5B
             0B 00 00 9E 5C 5C 5C 5C 0B 00 01 AC 6D 34 01 68 01 00 31 65 16 01
             9D 5C 1B 21 9D 5C 5C 78 9E 5C 5C 5C 79 ED 93 01 11 94 01 AF 9F 60
             83 01 65 35 AD 82 02 36 00 92 01 6F 16 03 9D 5C 79 00 1B 2B AE 03
             38 1B 15 9E 5B 20 3C 9E 5B 78 25 36 36 9E 5C 78 65 39 8F 00 2E AE
             03 3A 14 9F 5C 78 A1 5B 5C 78 61 03 14 31 A7 AE 9F 5C 5C 14 31 A9
             16 01 1B 15 9E 5B 20 0F 9E 5B 78 25 36 09 9E 5C 78 65 37 8E 00 FF
             BB 16 01 94 00 65 3B 8F 00 06 AD 83 01 14 31 A9 9D F9 5C F8 92 01
             FC 9E 16 02 9E 19 02)
      COMMON-LISP::NIL
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::CONSP . 65.)
         (COMMON-LISP::ATOM . 65.) (SYSTEM::CONST . 2.))
      SYSTEM::JMPIF SYSTEM::JMPIFNOT COMMON-LISP::ATOM SYSTEM::JMPIFATOM
      SYSTEM::JMPIFCONSP (COMMON-LISP::PUSH)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::RETGF . 39.)
         (SYSTEM::RET . 36.) (SYSTEM::STOREC . 33.) (SYSTEM::STORE . 30.)
         (SYSTEM::JMPIFNOT . 7.) (SYSTEM::JMPIF . 4.) (COMMON-LISP::PUSH . 1.))
      ((COMMON-LISP::T . SYSTEM::T&PUSH) (SYSTEM::CONST . SYSTEM::CONST&PUSH)
       (SYSTEM::LOADI . SYSTEM::LOADI&PUSH)
       (SYSTEM::LOADC . SYSTEM::LOADC&PUSH)
       (SYSTEM::LOADV . SYSTEM::LOADV&PUSH)
       (SYSTEM::GETVALUE . SYSTEM::GETVALUE&PUSH)
       (SYSTEM::CALL . SYSTEM::CALL&PUSH) (SYSTEM::CALL1 . SYSTEM::CALL1&PUSH)
       (SYSTEM::CALL2 . SYSTEM::CALL2&PUSH)
       (SYSTEM::CALLS1 . SYSTEM::CALLS1&PUSH)
       (SYSTEM::CALLS2 . SYSTEM::CALLS2&PUSH)
       (SYSTEM::CALLSR . SYSTEM::CALLSR&PUSH)
       (SYSTEM::CALLC . SYSTEM::CALLC&PUSH)
       (SYSTEM::CALLCKEY . SYSTEM::CALLCKEY&PUSH)
       (COMMON-LISP::CAR . SYSTEM::CAR&PUSH)
       (COMMON-LISP::CDR . SYSTEM::CDR&PUSH)
       (COMMON-LISP::CONS . SYSTEM::CONS&PUSH)
       (COMMON-LISP::LIST . SYSTEM::LIST&PUSH)
       (COMMON-LISP::LIST* . SYSTEM::LIST*&PUSH)
       (COMMON-LISP::FUNCALL . SYSTEM::FUNCALL&PUSH)
       (COMMON-LISP::APPLY . SYSTEM::APPLY&PUSH)
       (SYSTEM::COPY-CLOSURE . SYSTEM::COPY-CLOSURE&PUSH)
       (SYSTEM::HANDLER-BEGIN . SYSTEM::HANDLER-BEGIN&PUSH))
      ((COMMON-LISP::EQ . SYSTEM::JMPIFEQ)
       (COMMON-LISP::LOAD . SYSTEM::LOAD&JMPIF)
       (SYSTEM::CALL1 . SYSTEM::CALL1&JMPIF)
       (SYSTEM::CALL2 . SYSTEM::CALL2&JMPIF)
       (SYSTEM::CALLS1 . SYSTEM::CALLS1&JMPIF)
       (SYSTEM::CALLS2 . SYSTEM::CALLS2&JMPIF)
       (SYSTEM::CALLSR . SYSTEM::CALLSR&JMPIF))
      ((COMMON-LISP::EQ . SYSTEM::JMPIFNOTEQ)
       (COMMON-LISP::LOAD . SYSTEM::LOAD&JMPIFNOT)
       (SYSTEM::CALL1 . SYSTEM::CALL1&JMPIFNOT)
       (SYSTEM::CALL2 . SYSTEM::CALL2&JMPIFNOT)
       (SYSTEM::CALLS1 . SYSTEM::CALLS1&JMPIFNOT)
       (SYSTEM::CALLS2 . SYSTEM::CALLS2&JMPIFNOT)
       (SYSTEM::CALLSR . SYSTEM::CALLSR&JMPIFNOT))
      ((COMMON-LISP::NIL . SYSTEM::NIL&STORE)
       (COMMON-LISP::T . SYSTEM::T&STORE)
       (COMMON-LISP::POP . SYSTEM::POP&STORE)
       (SYSTEM::CALLS1 . SYSTEM::CALLS1&STORE)
       (SYSTEM::CALLS2 . SYSTEM::CALLS2&STORE)
       (SYSTEM::CALLSR . SYSTEM::CALLSR&STORE))
      ((COMMON-LISP::LOAD . SYSTEM::LOAD&STOREC))
      ((SYSTEM::SKIP . SYSTEM::SKIP&RET)) ((SYSTEM::SKIP . SYSTEM::SKIP&RETGF))
      #.#'COMMON-LISP::EQ
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::FUNCALL . 688.)
         (COMMON-LISP::APPLY . 733.) (SYSTEM::HANDLER-OPEN . 645.)
         (SYSTEM::JMPHASHV . 612.) (SYSTEM::JMPHASH . 612.)
         (SYSTEM::JMPIFNOT . 596.) (SYSTEM::JMPIF . 596.)
         (SYSTEM::UNWIND-PROTECT-CLOSE . 591.) (SYSTEM::UNBIND1 . 548.)
         (SYSTEM::JSR . 534.) (SYSTEM::JMPIFBOUNDP . 461.)
         (COMMON-LISP::LOAD . 179.) (SYSTEM::CONST . 128.)
         (SYSTEM::PUSH-NIL . 38.) (COMMON-LISP::NIL . 38.))
      #Y(SYSTEM::INSERT-COMBINED-LAPS-NILPUSHER-P
         #56Y(00 00 00 00 01 00 00 00 00 02 94 01 32 02 1F 26 9E 5B 78 AC 24 00
              06 93 00 09 00 19 03 9F 5B 5C 5B 19 03 9F 5C 78 DB 32 00 1F 09 AE
              A0 5C 79 31 A9 C7 19 03 19 03 19 02)
         SYSTEM::PUSH-NIL (COMMON-LISP::PUSH) 1.)
      1. (SYSTEM::NIL&PUSH) SYSTEM::PUSH-NIL COMMON-LISP::SYMBOL-FUNCTION
      (COMMON-LISP::PUSH) SYSTEM::CONST&SYMBOL-FUNCTION&PUSH SYSTEM::STORE
      SYSTEM::CONST&SYMBOL-FUNCTION&STORE SYSTEM::CONST&SYMBOL-FUNCTION
      COMMON-LISP::EQ SYSTEM::JMPIFEQTO SYSTEM::JMPIFNOTEQTO
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::PUSH . 191.)
         (COMMON-LISP::CONS . 104.) (COMMON-LISP::CDR . 50.)
         (COMMON-LISP::CAR . 8.))
      COMMON-LISP::PUSH SYSTEM::LOAD&CAR&PUSH SYSTEM::LOAD&CAR&STORE
      SYSTEM::LOAD&CDR&PUSH SYSTEM::LOAD&CDR&STORE SYSTEM::LOAD&CONS&STORE
      (COMMON-LISP::PUSH) SYSTEM::LOAD&INC&PUSH SYSTEM::LOAD&DEC&PUSH
      SYSTEM::LOAD&INC&STORE SYSTEM::LOAD&DEC&STORE SYSTEM::LOAD&PUSH
      (COMMON-LISP::NIL) SYSTEM::UNBOUND->NIL (COMMON-LISP::PUSH)
      SYSTEM::JSR&PUSH SYSTEM::JSR (SYSTEM::UNBIND1) SYSTEM::UNBIND
      (SYSTEM::UNWIND-PROTECT-CLOSE)
      #Y(SYSTEM::INSERT-COMBINED-LAPS-1
         #26Y(00 00 00 00 02 00 00 00 00 03 69 00 01 AE 69 00 02 71 93 B0 AE AE
              31 63 19 05)
         COMMON-LISP::NIL)
      2. SYSTEM::SKIP (SYSTEM::RET) SYSTEM::APPLY&SKIP&RET (SYSTEM::RETGF)
      SYSTEM::FUNCALL&SKIP&RETGF (SYSTEM::BARRIER)))
#Y(#:TOP-LEVEL-FORM-348
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NUM-OPERAND-LENGTH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NUM-OPERAND-LENGTH
      #31Y(00 00 00 00 01 00 00 00 00 02 AD DA 90 01 30 09 AD DC 90 01 30 06 C9
           19 02 C6 19 02 C8 19 02)
      128. 1. 32768. 2. 6.))
#Y(#:TOP-LEVEL-FORM-349
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ASSEMBLE-LAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ASSEMBLE-LAP
      #1005Y(00 00 00 00 01 00 00 00 00 02 AD DA 93 01 81 AA 94 01 9D 20 2F 94
             00 6B 01 38 01 71 62 92 00 04 DC DD 30 04 DF 9E 5F 5C 78 E0 AD 25
             07 11 A0 5C 78 E2 94 05 E3 38 06 32 5D 5F 14 90 01 30 0C 9E 26 0C
             81 5C AC AE 31 51 1B 81 67 E4 94 04 E3 38 06 32 5D 5F 14 A1 5C 78
             82 02 36 02 D0 F9 94 03 61 01 FB 1B 81 3A AC A1 1B 80 5B 9D 1B 20
             85 04 A0 5C 78 95 04 CB 1B 80 FB AC A1 5C 78 6F 0D 33 02 36 1B 14
             AC A1 5C 78 6F 0D 82 02 36 00 14 81 95 00 1B 81 0B AC 32 95 F8 14
             A1 5C 1B 28 AC A1 5C 78 6F 0D 82 02 36 00 14 A1 5C 5C 78 6F 0D 33
             02 36 1B 0D AC A1 5C 78 6F 0D 82 02 36 00 14 32 95 F8 14 A1 5C 5C
             5C 5B 1B 25 AC A1 5C 78 6F 0D 82 02 36 00 14 A1 5C 5C 78 6F 0D 82
             02 36 00 14 A1 5C 5C 5C 78 6F 0D 82 02 36 00 14 B0 31 94 14 6F 0D
             82 02 36 00 1B 80 A7 AC A1 5C 78 6F 0D 82 02 36 00 85 04 A0 5C 5C
             78 A1 5C 79 CB 1B 80 64 85 00 85 04 A0 5C 5C 78 A1 5C 79 CB 1B 80
             55 AC A1 5C 78 6F 0D 82 02 36 00 14 A1 5C 5C 78 6F 0D 82 02 36 00
             85 04 A0 5C 5C 5C 78 A1 5C 5C 79 CB 1B 32 AC A1 5C 78 6F 0D 82 02
             36 00 14 81 95 00 85 04 A0 5C 5C 5C 78 A1 5C 5C 79 CB 1B 16 AC A1
             5C 78 6F 0D 82 02 36 00 85 04 A0 5C 5C 5C 78 A1 5C 5C 79 CB 14 9F
             7A 31 A7 16 01 1B 23 AC A1 5C 78 6F 0D 82 02 36 00 A0 5C 79 93 00
             11 85 05 94 00 AD E0 9F 7A 31 A7 16 01 83 00 92 00 6F 16 01 B0 AD
             82 02 36 04 B1 AE AE B1 A4 5C 7C 03 31 A7 16 03 16 01 83 01 92 01
             FE 56 16 02 63 DA AF 63 1B 80 9D AC AF 31 51 1B 80 94 87 01 00 20
             74 AE 9E 5C 78 82 02 36 02 9D 5B 26 0E 80 81 9D 5C 5C 79 9E 5B 26
             0F 29 9D 1B 27 9D 5C 1B 23 9D 5C 5C 1B 1E AE EE 31 A7 B3 32 95 1B
             80 50 94 01 AC 24 06 70 16 01 1B 80 4E AE EF 31 A7 03 16 1B 38 00
             14 63 AD 8C 91 80 45 87 01 00 B1 94 01 82 02 36 05 95 00 71 4D B2
             73 01 37 EA AD EB 90 02 32 25 EC AD ED 90 02 32 45 94 01 AC 24 06
             4A AC 25 14 12 AE EF 31 A7 03 17 14 B4 33 02 36 FF 7E 08 16 01 1B
             02 16 01 16 01 83 01 1B FF B6 16 03 83 01 AD 8D 91 FF 65 16 02 9E
             16 02 1C FF 4F 00 2B 02 00 0B 00 00 C5 0B 00 01 9D 2B 01 AD 2C 18
             01 0B 00 00 AC 6D 19 01 AD 6D 1A 01 B1 63 1B 81 50 87 01 00 20 81
             48 68 05 01 9E 5C 78 33 02 36 0B 05 01 9D 5C 5C 78 06 05 00 34 9D
             5B 26 1B 81 2E 9D 1B 80 54 9D 1B 15 9D 1B 80 D1 9D 5C 5C 5C 78 A1
             1B 1C 9D 5C 5C 5C 78 A1 34 9D 5C 5C 5C 5C 78 06 05 00 34 1B 81 07
             9D 5C 5C 5C 78 06 05 00 34 9D 5C 1B 24 9D 5C 5C 5C 78 A1 34 9D 5C
             5C 5C 5C 78 A1 1B 10 9D 5C 5C 5C 78 A1 34 9D 5C 5C 5C 5C 78 06 05
             00 34 9D 5C 5C 5C 5C 5C 5B 1B 1D 9D 5C 5C 5C 78 A1 34 9D 5C 5C 5C
             5C 78 A1 34 9D 5C 5C 5C 5C 5C 78 A1 34 9D 5C 79 31 94 14 A1 34 1B
             80 AD 9D 5C 5C 5C 78 A1 1B 08 9D 5C 5C 5C 78 06 05 00 34 9D 5C 1B
             80 45 9D 5C 5C 5C 78 A1 34 9D 5C 5C 5C 5C 78 A1 34 1B 31 9D 5C 5C
             5C 78 A1 34 9D 5C 5C 5C 5C 78 06 05 00 34 1B 1E 9D 5C 5C 5C 78 A1
             34 A1 2B 01 9E 5C 5C 5C 5C 5B 0B 00 00 AC 6D 1C 01 68 01 00 31 65
             16 01 9D 5C 5C 5C 5C 5C 78 A0 34 1B 80 49 9D 5C 5C 5C 78 A1 34 9D
             5C 5C 5C 5C 78 AC 72 45 E0 1B 0F AE 9E 5F 14 71 4D AF 9F 60 EE AD
             82 02 36 00 AC AE 91 01 33 6B 16 03 1B 1D 9D 5C 5C 5C 78 A1 34 9D
             5C 5C 5C 79 63 1B 08 87 01 00 14 A2 34 83 01 AD 8D 91 74 16 02 83
             01 AD 8D 91 FE AB 16 05 68 00 00 32 47 19 03)
      0. SYSTEM::INSTRUCTION-CODES SYSTEM::ASSEMBLE-LAP "ILLEGAL INSTRUCTION"
      SYSTEM::COMPILER-ERROR #.SYSTEM::INSTRUCTION-TABLE 1. SYSTEM::K
      #.SYSTEM::SHORT-CODE-OPSIZE #.SYSTEM::INSTRUCTION-TABLE-K
      #.SYSTEM::SHORT-CODE-OPS SYSTEM::O
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::NLX . 315.)
         (SYSTEM::NHL . 284.) (SYSTEM::NBL . 256.) (SYSTEM::NNL . 221.)
         (SYSTEM::BL . 206.) (SYSTEM::NL . 183.) (SYSTEM::NNNN . 136.)
         (SYSTEM::NBN . 114.) (SYSTEM::NNN . 92.) (SYSTEM::BN . 83.)
         (SYSTEM::NB . 66.) (SYSTEM::NN . 55.) (SYSTEM::L . 44.)
         (SYSTEM::B . 41.) (SYSTEM::NC . 36.) (SYSTEM::N . 36.)
         (SYSTEM::K . 36.) (SYSTEM::O . 350.))
      SYSTEM::NUM-OPERAND-LENGTH
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::NLX . 2.)
         (SYSTEM::NHL . 2.) (SYSTEM::NBL . 2.) (SYSTEM::NNL . 2.)
         (SYSTEM::BL . 2.) (SYSTEM::NL . 2.) (SYSTEM::L . 2.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::NHL . 8.)
         (SYSTEM::NBL . 8.) (SYSTEM::NNL . 8.) (SYSTEM::NLX . 4.)
         (SYSTEM::BL . 4.) (SYSTEM::NL . 4.) (SYSTEM::L . 1.))
      -64. 63. -16384. 16383. 2. 6. 5. 4.
      #Y(SYSTEM::ASSEMBLE-LAP-NEW-BYTE
         #20Y(00 00 00 00 01 00 00 00 00 02 AD 07 00 01 5D 0C 00 01 19 02)
         COMMON-LISP::NIL)
      #Y(SYSTEM::ASSEMBLE-LAP-NUM-OPERAND
         #55Y(00 00 00 00 01 00 00 00 00 02 AD DB 90 01 30 1E AD DC 91 01 30 1B
              DB DD AF 72 D6 73 02 36 07 00 01 34 DE AE 33 02 3E 14 07 00 01 34
              19 02 9E 1B 76 DF E0 30 07 19 02)
         COMMON-LISP::NIL 128. 32768.
         #S(COMMON-LISP::BYTE :SIZE 7. :POSITION 8.) 255. SYSTEM::ASSEMBLE-LAP
         "15 BIT" SYSTEM::COMPILER-ERROR)
      #Y(SYSTEM::ASSEMBLE-LAP-LABEL-OPERAND
         #104Y(00 00 00 00 01 00 00 00 00 02 69 01 02 94 02 33 02 36 0C 01 02
               95 01 71 4D 69 01 02 73 01 37 9F 5B 26 01 80 40 C7 1B 32 DD DE
               AE 72 D6 73 02 36 07 00 01 34 CA 1B 23 DD 07 00 01 34 E0 07 00
               01 34 E1 AD 72 D6 07 00 01 34 E2 AD 72 D6 07 00 01 34 E3 AD 72
               D6 07 00 01 34 CA 14 AD 73 02 3E 07 00 01 34 19 03 00 19 03)
         COMMON-LISP::NIL
         #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (6. . 20.) (2. . 5.)
            (1. . 2.))
         127. 128. #S(COMMON-LISP::BYTE :SIZE 7. :POSITION 8.) 255. 0.
         #S(COMMON-LISP::BYTE :SIZE 8. :POSITION 24.)
         #S(COMMON-LISP::BYTE :SIZE 8. :POSITION 16.)
         #S(COMMON-LISP::BYTE :SIZE 8. :POSITION 8.))
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::NLX . 275.)
         (SYSTEM::NC . 231.) (SYSTEM::NHL . 189.) (SYSTEM::NBL . 170.)
         (SYSTEM::NNL . 153.) (SYSTEM::BL . 139.) (SYSTEM::NL . 131.)
         (SYSTEM::NNNN . 96.) (SYSTEM::NBN . 70.) (SYSTEM::NNN . 54.)
         (SYSTEM::BN . 41.) (SYSTEM::NB . 21.) (SYSTEM::NN . 13.)
         (SYSTEM::L . 9.) (SYSTEM::B . 6.) (SYSTEM::N . 2.) (SYSTEM::K . 2.)
         (SYSTEM::O . 304.))
      #Y(SYSTEM::ASSEMBLE-LAP-1
         #29Y(00 00 00 00 02 00 00 00 00 03 69 00 01 AE 71 4D 69 02 02 73 01 37
              B0 AE AE 31 63 19 05)
         COMMON-LISP::NIL)))
#Y(#:TOP-LEVEL-FORM-350
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DISASSEMBLE-LAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DISASSEMBLE-LAP
      #460Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 03 00 00 9D 2B 02 63 C5
            0B 01 00 63 00 0B 02 01 9F 2B 01 AF 2C 01 01 0B 00 00 9D 2B 01 AD
            6D 02 01 AE 2C 03 01 0B 01 00 06 06 00 1D 81 57 06 05 00 FB 06 02
            00 74 AC DE 90 01 33 0D E2 9E 5F 14 94 00 9E 5C 5B 26 09 81 2B AC
            DF 64 38 05 CB F9 72 5D AD DF 9F 5F 14 73 01 37 E1 9F 5F 14 9E 1B
            1B AC 61 01 16 02 1B 81 0E AC A1 34 1B 0E AC 06 06 00 34 1B 07 AC
            38 02 06 07 00 34 14 61 02 16 02 1B 80 F3 AC A1 1B 0C AC A1 74 06
            07 00 1B 36 AC 06 06 00 74 A2 1B 2E AC A1 74 A2 1B 06 AC A1 74 06
            07 00 74 A3 1B 38 AC A1 74 A2 74 A3 74 A4 74 61 05 16 02 1B 80 BF
            AC A1 1B 04 AC 06 06 00 74 38 02 06 08 00 74 61 03 16 02 1B 80 A9
            AC A1 74 A2 1B 06 AC A1 74 06 07 00 74 38 02 06 09 00 74 61 04 16
            02 1B 80 8F AC BA 31 93 1B 0D A1 2B 01 A1 74 AE 24 0A 71 94 0D 9E
            5F 14 00 0B 02 00 AE 6D 0B 01 AD 31 65 AF AE 38 02 06 0B 00 74 06
            05 00 62 03 16 05 1B 80 5E A0 74 AC B9 31 93 78 AC 72 45 63 E6 1B
            11 63 B0 9F 5F 14 06 0B 00 74 84 01 E7 AD 82 02 36 00 AC AF 91 01
            33 69 16 01 B0 B0 AE 32 47 62 02 16 06 1B 2C A0 74 AC B9 71 93 72
            45 63 DA 1B 0A 38 02 06 0A 00 74 84 01 85 00 AC AF 91 01 33 70 16
            01 AF AF AE 32 47 62 02 16 05 1B 03 00 16 02 F8 B0 9E 7A 84 05 16
            01 06 06 00 1C FE A9 16 03 63 93 00 2D 06 03 01 1D 28 9D 5B 78 06
            04 01 5B 78 91 01 2E 1C 06 03 01 78 84 00 06 03 01 5C 0B 03 01 93
            02 0F 95 02 AF AE 80 A8 01 6A 02 92 00 53 92 02 71 15 19 07)
      0.
      #Y(SYSTEM::DISASSEMBLE-LAP-NEXT-BYTE
         #32Y(00 00 00 00 00 00 00 00 00 01 69 00 01 32 95 0C 00 01 07 01 01 78
              07 01 01 5C 0C 01 01 15 19 01)
         COMMON-LISP::NIL)
      #Y(SYSTEM::DISASSEMBLE-LAP-NUM-OPERAND
         #41Y(00 00 00 00 00 00 00 00 00 01 07 00 01 74 AC DB 90 01 30 12 DC DD
              AE 73 02 36 73 02 38 07 00 01 74 33 02 36 19 02 15 19 01)
         COMMON-LISP::NIL 128. 256. -128.)
      #Y(SYSTEM::DISASSEMBLE-LAP-LABEL-OPERAND
         #181Y(00 00 00 00 00 00 02 00 00 0C 3B 02 80 6D 07 00 01 74 AC DB 90
               01 30 80 4E DD AD 82 02 36 00 14 DC 90 01 30 06 DD AD 82 02 36
               00 DE AD 73 02 38 07 00 01 74 82 02 36 00 14 8F 90 3B DE DE DE
               07 00 01 74 73 02 38 07 00 01 74 73 02 36 73 02 38 07 00 01 74
               73 02 36 73 02 38 07 00 01 34 14 33 02 36 1B 14 9D 1B 11 AC DC
               90 01 30 77 DD 9E 1B 6D 14 AD 31 A9 1B 39 9D 16 01 FA 3B 01 08
               69 01 01 AF 82 02 36 01 63 69 01 02 93 00 17 AF 9E 5B 78 90 01
               31 0F AF 9E 5B 78 90 01 2E 13 9D F9 5C F8 92 00 69 AF CA 74 84
               00 92 01 45 9D 0C 01 02 9D 5B 5C 19 05)
         COMMON-LISP::NIL 128. 64. -128. 256.
         #Y(SYSTEM::DISASSEMBLE-LAP-PC->LABEL-A
            #24Y(00 00 00 00 01 00 00 00 00 02 AD DA DB B0 71 85 73 02 26 31 C9
                 5D 19 02)
            COMMON-LISP::STRING "L"))
      #.SYSTEM::SHORT-CODE-BASE #.SYSTEM::SHORT-CODE-OPS #.#'COMMON-LISP::>=
      #.SYSTEM::INSTRUCTION-TABLE-K #.SYSTEM::INSTRUCTION-TABLE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::NLX . 260.)
         (SYSTEM::NC . 210.) (SYSTEM::NHL . 167.) (SYSTEM::NBL . 141.)
         (SYSTEM::NNL . 135.) (SYSTEM::BL . 117.) (SYSTEM::NL . 113.)
         (SYSTEM::NNNN . 97.) (SYSTEM::NBN . 87.) (SYSTEM::NNN . 81.)
         (SYSTEM::BN . 73.) (SYSTEM::NB . 65.) (SYSTEM::NN . 61.)
         (SYSTEM::L . 46.) (SYSTEM::B . 39.) (SYSTEM::N . 34.)
         (SYSTEM::K . 34.) (SYSTEM::O . 26.))
      SYSTEM::JMPHASH
      #Y(SYSTEM::DISASSEMBLE-LAP-1
         #26Y(00 00 00 00 02 00 00 00 00 03 AD 38 01 07 01 01 74 07 00 01 5D 0C
              00 01 19 03)
         COMMON-LISP::NIL)
      1. 2.))
#Y(#:TOP-LEVEL-FORM-351
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CREATE-FUN-OBJ SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CREATE-FUN-OBJ
      #407Y(02 00 00 00 03 00 00 00 00 04 DA B0 6F 01 DC C8 45 94 05 DE 32 B2
            42 02 AC AE 40 02 16 02 41 05 00 00 04 79 DE 32 B2 42 02 AC AE 40
            02 16 02 41 67 00 00 06 6F 05 DE 32 B2 42 02 AC AE 40 02 16 02 41
            67 00 00 06 6F 06 DE 32 B2 42 02 AC AE 40 02 16 02 41 67 00 00 06
            88 07 80 72 CE 14 67 00 00 06 88 0A 80 6C CE 14 67 00 00 06 88 0C
            80 69 CE 14 33 03 36 41 67 00 00 06 6F 05 67 00 00 06 6F 06 67 00
            00 06 6F 07 67 00 00 06 6F 0C 92 01 0E 92 00 0B AF AF 73 02 36 EA
            90 01 30 80 4A 93 01 0D 92 00 0A AE 8F 90 06 AF EC 90 01 30 3D 92
            01 80 A3 93 00 80 9F AF AF 73 02 36 EC 91 01 30 80 94 D9 14 A0 5F
            14 B0 33 02 36 1B 80 89 CD 1B FF 8B D0 1B FF 91 D4 1B 09 E7 67 00
            00 06 88 0E 75 CE 14 33 02 36 1B FF 88 D6 1B 57 D8 1B 57 03 15 45
            67 01 00 06 6F 16 72 45 DE 32 B2 42 02 AC AE 40 02 16 02 41 67 01
            00 06 6F 17 DE 32 B2 42 02 AC AE 40 02 16 02 41 46 1B 80 47 63 B7
            6F 1A B8 6F 1B 1B 1D 14 32 37 1B 0F 16 03 1B 19 94 01 9E 20 77 94
            01 92 00 6D 9E 14 84 04 16 02 83 01 83 00 9E 21 69 16 02 AC 31 A2
            16 01 1B 2F AC F6 72 28 61 01 1B 30 CE 16 03 F8 67 00 00 06 88 0C
            FF 8D 3E 41 67 00 00 05 46 14 F2 B4 6F 17 38 01 71 9C B5 6F 16 0E
            19 1C FF A2 B6 2F 1A 14 73 03 23 B5 88 0A 49 9D F8 6E 06 1D 65 1E
            B1 65 1F AF 32 2D 16 01 A0 19 04)
      :NAME SYSTEM::FNODE-NAME :CODEVEC #.#'COMMON-LISP::LIST* 256.
      SYSTEM::FNODE-REQ-ANZ SYSTEM::FNODE-OPT-ANZ SYSTEM::FNODE-REST-FLAG 1. 0.
      SYSTEM::FNODE-GF-P 16. SYSTEM::FNODE-KEYWORD-FLAG 128.
      SYSTEM::FNODE-ALLOW-OTHER-KEYS-FLAG 64. 6. #(1. 7. 12. 16. 19. 21.) 5.
      22. #(27. 32. 36. 39. 41.) #.#'COMMON-LISP::VALUES SYSTEM::FNODE-KEYWORDS
      SYSTEM::FNODE-KEYWORD-OFFSET :CONSTS SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::FNODE-CONSTS SYSTEM::FNODE-CONSTS-FORMS
      COMMON-LISP::SIMPLE-VECTOR SYSTEM::MAKE-CLOSURE SYSTEM::FNODE 2.))
#Y(#:TOP-LEVEL-FORM-352
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SIGNATURE
      #138Y(00 00 00 00 01 00 00 00 00 02 AD 72 33 AE 72 32 83 00 5C F8 5C F8
            5C F8 78 83 01 DA 94 02 83 03 73 02 38 73 02 36 94 01 83 02 DA 94
            03 83 04 73 02 38 73 02 36 94 02 83 03 DB AD 72 CF 83 04 AF AF DC
            B0 72 CF AF 93 04 2F 94 08 83 09 DA 94 0A 83 0B 73 02 38 73 02 36
            94 09 83 0A DA 94 0B 83 0C 73 02 38 73 02 36 DD B4 8E CF 17 A8 14
            AD AE B0 73 02 36 32 43 16 02 14 DF B3 72 CF B6 B8 40 08 19 08 94
            0B DE 32 28 1B 63)
      256. 7. 0. 4. COMMON-LISP::LIST 6.))
#Y(#:TOP-LEVEL-FORM-353
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PASS3 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PASS3
      #53Y(00 00 00 00 00 00 00 00 00 01 6B 00 63 1B 1F 87 01 00 78 6F 01 9E 5C
           78 AD DC AE 73 02 36 AF DC B0 73 02 36 72 29 6F 01 32 2A 16 02 83 01
           AD 8D 91 5D 00 19 03)
      SYSTEM::*FNODE-FIXUP-TABLE* SYSTEM::FNODE-CODE 2.))
#Y(#:TOP-LEVEL-FORM-354
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-LAMBDABODY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-LAMBDABODY
      #237Y(01 00 01 00 02 00 00 00 00 03 AE AE 70 00 AC 89 01 38 00 2B 01 00
            0B 00 00 4B 02 1A DD DE DF B3 B2 6D 06 02 E1 99 08 E3 E4 6E 08 0B
            0E 0C 5D 10 0C E7 D3 1B 80 9C 06 04 00 39 00 00 4D 16 01 1B 4D 06
            04 00 39 00 00 4D 16 01 AC 89 10 2D 00 2B 01 00 0B 00 00 4B 11 69
            DD DE DF B3 B2 6D 12 02 E1 99 08 E3 ED 6E 08 0B 0E 0C 5D 10 0C E7
            D9 1B 80 60 06 04 00 39 00 00 4D 16 01 AC 89 15 2D 00 2B 01 00 0B
            00 00 4B 16 69 DD DE DF B3 B2 6D 17 02 E1 99 08 E3 F2 6E 08 0B 0E
            0C 5D 10 0C E7 03 19 1B 2F 06 04 00 39 00 00 4D 16 01 AC 89 1A 2B
            00 2B 01 00 0B 00 00 4B 1B 69 DD DE DF B3 B2 6D 1C 02 E1 99 08 E3
            F7 6E 08 0B 0E 0C 5D 10 0C E7 03 1E 14 6F 0F 33 01 1E 00 19 04 0E
            1F 1C 79 00 10 20 AF 2F 21 2E 22 11 AC 2F 23 19 04)
      SYSTEM::C-LAMBDABODY SYSTEM::FNODE-FAR-USED-VARS #(COMMON-LISP::NIL)
      :NAME COMMON-LISP::CONTINUE :INVOKE-FUNCTION
      #Y(SYSTEM::COMPILE-LAMBDABODY-1
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      :REPORT SYSTEM::REPORT-NO-NEW-VALUE :INTERACTIVE
      #Y(SYSTEM::COMPILE-LAMBDABODY-2
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~A"
      (COMMON-LISP::NULL (SYSTEM::FNODE-FAR-USED-VARS SYSTEM::FNODE))
      SYSTEM::ASSERT-ERROR-STRING SYSTEM::FNODE-FAR-ASSIGNED-VARS
      #(COMMON-LISP::NIL)
      #Y(SYSTEM::COMPILE-LAMBDABODY-3
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      #Y(SYSTEM::COMPILE-LAMBDABODY-4
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      (COMMON-LISP::NULL (SYSTEM::FNODE-FAR-ASSIGNED-VARS SYSTEM::FNODE))
      SYSTEM::FNODE-FAR-USED-BLOCKS #(COMMON-LISP::NIL)
      #Y(SYSTEM::COMPILE-LAMBDABODY-5
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      #Y(SYSTEM::COMPILE-LAMBDABODY-6
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      (COMMON-LISP::NULL (SYSTEM::FNODE-FAR-USED-BLOCKS SYSTEM::FNODE))
      SYSTEM::FNODE-FAR-USED-TAGBODYS #(COMMON-LISP::NIL)
      #Y(SYSTEM::COMPILE-LAMBDABODY-7
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      #Y(SYSTEM::COMPILE-LAMBDABODY-8
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      (COMMON-LISP::NULL (SYSTEM::FNODE-FAR-USED-TAGBODYS SYSTEM::FNODE))
      SYSTEM::*NO-CODE* SYSTEM::*FNODE-FIXUP-TABLE* SYSTEM::PASS2 SYSTEM::PASS3
      SYSTEM::FNODE-CODE))
#Y(#:TOP-LEVEL-FORM-355
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-LAMBDA SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-LAMBDA
      #92Y(00 00 00 00 07 00 00 00 00 00 02 10 00 00 10 01 00 10 02 0E 03 10 04
           00 10 05 00 10 06 00 10 07 04 19 10 08 04 1B 10 09 04 1D 10 0A 04 23
           10 0B 00 10 0C 04 25 10 0D D3 10 0F D3 10 10 D3 10 11 00 10 12 66 3A
           66 3A 70 13 6B 0F 8F 90 05 15 12 11 19 08 66 3B EE 30 13 16 01 1B
           73)
      SYSTEM::*COMPILING* SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::*C-LISTING-OUTPUT* COMMON-LISP::*ERROR-OUTPUT*
      SYSTEM::*C-ERROR-OUTPUT* SYSTEM::*KNOWN-SPECIAL-VARS*
      SYSTEM::*CONSTANT-SPECIAL-VARS* SYSTEM::*FUNC* SYSTEM::*FENV*
      SYSTEM::*BENV* SYSTEM::*GENV* SYSTEM::*VENV* SYSTEM::*VENVC*
      SYSTEM::*DENV* 0. SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*
      SYSTEM::*STYLE-WARNING-COUNT* SYSTEM::*NO-CODE*
      SYSTEM::COMPILE-LAMBDABODY (COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:TOP-LEVEL-FORM-356
   #30Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 C5 0B 00 00 DB 2F 02 DB AD 6D 03
        01 32 80 C6 19 02)
   0. SYSTEM::COMPILE-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-FORM
      #36Y(00 00 00 00 06 00 00 00 00 00 DB 69 00 01 32 95 0C 00 01 14 70 02 63
           B4 7B 02 B3 B3 B3 B3 B3 2D 07 03 19 07)
      COMMON-LISP::NIL #:COMPILED-FORM SYSTEM::SYMBOL-SUFFIX
      SYSTEM::COMPILE-LAMBDA))
#Y(#:TOP-LEVEL-FORM-357-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   EXT::EVAL-ENV SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::EVAL-ENV
      #24Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AE 01 02 B0 31 5B 19
           03)
      SYSTEM::*TOPLEVEL-ENVIRONMENT*))
#Y(#:TOP-LEVEL-FORM-357-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-FORM-IN-TOPLEVEL-ENVIRONMENT
      #38Y(00 00 00 00 01 00 00 00 00 02 6B 00 AE AD C6 5F 14 AE C7 5F 14 AF C8
           5F 14 B0 C9 5F 14 B1 CA 5F 14 2D 06 06 19 03)
      SYSTEM::*TOPLEVEL-ENVIRONMENT* 0. 1. 2. 3. 4. SYSTEM::COMPILE-FORM))
#Y(#:TOP-LEVEL-FORM-358
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::COMPILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::COMPILE
      #391Y(00 00 00 00 01 00 01 00 00 08 3C 01 14 3D 02 01 03 B2 89 00 80 4A
            B2 6F 04 93 04 80 7D 93 07 0E AC DF 38 01 81 82 04 1D 05 A1 21 38
            7E 02 B2 8E 07 80 47 93 07 12 E5 E6 E7 B6 7B 02 7B 02 E7 B5 7B 02
            7B 03 0E 0E 5D F9 A3 20 06 94 06 24 15 80 A1 B2 8E 08 80 9C DB 03
            16 14 6F 03 B4 33 01 1F DB C7 1B 75 E0 6F 03 E1 B5 2D 03 08 B3 2F
            09 1B FF BC AC DF B4 32 86 1B 80 45 E4 6F 03 B3 30 08 93 07 3C 92
            02 6C AC B3 32 80 1B 33 E9 EA B5 EB 6F 03 B7 33 03 1F 7E 02 1B 10
            AC 8D 4F 6E AC DF 38 01 81 82 06 1C 6F 9D 5E FE B2 89 12 06 7E 03
            B2 2F 13 FE B2 8F 07 FF 8F EE 6F 03 B4 30 08 A4 19 08 AC 2F 33 F8
            93 46 1C 66 44 DF AE 32 86 93 45 1B 66 44 65 34 66 47 32 86 04 4B
            1B 80 99 92 47 60 92 46 64 66 44 AD 32 80 92 45 65 04 4B 1B 80 86
            64 F1 F1 F1 01 02 6B 18 01 03 BC F3 03 1A 74 BD F5 03 1A 74 BE F6
            03 1A 74 BF F7 03 1A 74 63 C1 65 1E 03 1A 34 1C 02 0E 1F 10 20 00
            10 21 04 14 10 22 04 16 10 23 04 18 10 24 04 1A 10 25 04 1C 10 26
            04 1E 10 27 04 20 10 28 04 22 10 29 04 24 10 2A 04 26 10 2B 04 28
            10 2C 04 2A 10 2D 04 2C 10 2E 04 2E 10 2F 04 30 10 30 66 48 65 31
            03 1A 34 1C 03 04 48 5C 14 66 4A AD 70 32 6B 23 8F 90 05 92 4B FF
            68 9D 14 2E 35 14 2E 36 14 40 03 16 02 12 11 19 17)
      SYSTEM::FUNCTION-NAME-P COMMON-LISP::ERROR
      "Name of function to be compiled must be a symbol, not ~S" SYSTEM::TEXT
      SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::TRACED-DEFINITION
      "~S: redefining ~S; it was traced!" COMMON-LISP::COMPILE
      COMMON-LISP::WARN SYSTEM::UNTRACE2 "~S is already compiled."
      COMMON-LISP::SETF COMMON-LISP::FDEFINITION COMMON-LISP::QUOTE
      SYSTEM::*TOPLEVEL-ENVIRONMENT* COMMON-LISP::UNDEFINED-FUNCTION :NAME
      "Undefined function ~S" SYSTEM::MACROP SYSTEM::MACRO-EXPANDER
      "~S is already compiled." COMMON-LISP::LAMBDA
      "Not a lambda expression nor a function: ~S" 0.
      COMMON-LISP::*ERROR-OUTPUT* 5.
      #Y(COMMON-LISP::COMPILE-CLOSURE-SLOT
         #23Y(00 00 00 00 02 00 00 00 00 03 AE 32 08 1F 06 AE AE 32 29 19 03 19
              03))
      6. 7. 4. 8. SYSTEM::*TOPLEVEL-DENV* SYSTEM::*DENV* SYSTEM::*NO-CODE*
      SYSTEM::*COMPILING* SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*
      SYSTEM::*STYLE-WARNING-COUNT* SYSTEM::*COMPILING-FROM-FILE*
      SYSTEM::*C-LISTING-OUTPUT* SYSTEM::*C-ERROR-OUTPUT*
      SYSTEM::*KNOWN-SPECIAL-VARS* SYSTEM::*CONSTANT-SPECIAL-VARS*
      SYSTEM::*FUNC* SYSTEM::*FENV* SYSTEM::*BENV* SYSTEM::*GENV*
      SYSTEM::*VENV* SYSTEM::*VENVC* 1. SYSTEM::COMPILE-LAMBDABODY
      SYSTEM::MAKE-MACRO SYSTEM::DEFINITION SYSTEM::COMPILE-WARNINGS-P
      SYSTEM::COMPILE-FAILURE-P))
#Y(#:TOP-LEVEL-FORM-359 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*TOPLEVEL-FOR-VALUE*)
   SYSTEM::*TOPLEVEL-FOR-VALUE*)
#Y(#:TOP-LEVEL-FORM-360
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-TOPLEVEL-FORM
      #337Y(02 00 01 00 01 00 01 00 00 08 3B 01 02 0E 00 10 00 C6 50 81 39 A5
            20 80 FA 94 08 AC 8F 04 80 BA AC 2F 04 42 06 93 05 3A 93 04 80 A4
            92 03 80 A0 A1 14 BC 70 0E 38 01 28 51 16 0A 18 02 01 1B 81 0D AC
            38 01 28 44 16 05 18 02 01 1B 81 00 B4 6B 02 30 03 42 02 92 01 69
            16 02 0E 09 1D 80 BD 1B 80 BE A3 26 05 80 63 00 1B 0F BB E0 30 07
            95 0F 93 00 74 9D 5C 1C 0C 9D 5B 14 38 01 28 FF 8B 16 01 1B 36 E2
            AD 93 00 1D 94 00 83 01 0E 09 1D 02 9E 59 10 09 AF 6B 00 85 07 14
            70 0A 28 FF 6B 11 16 01 92 00 63 16 03 1B 10 04 0F 10 0B B5 6B 0C
            38 01 71 62 99 0D 36 01 11 00 16 0A 18 02 01 1B 80 8C B2 38 01 31
            56 1B FF 67 B2 38 01 8C 56 72 16 07 0E 09 1D 80 45 1B 80 46 16 01
            0E 09 1D 3C 1B 3E 00 16 03 18 02 01 1B 80 63 00 1B 3E B7 6B 13 30
            14 0E 15 1D 80 44 02 10 16 BA 38 10 7E 06 FC 03 17 F8 6B 15 31 7F
            6B 15 31 8A 11 0E 18 1F 3B 1B 2D B4 8E 04 FF 36 0E 09 1C 04 B4 88
            0F 42 00 10 10 6B 00 63 B9 0E 09 1C 40 D6 7C 02 30 12 09 0B 0E 13
            1C FF B7 0E 15 1C FF BC 0E 18 1F 0C 0E 10 1F 08 F3 6B 10 32 47 7A
            2F 1A 11 51 11 19 03)
      SYSTEM::*TOPLEVEL-NAME* SYSTEM::C-ERROR SYSTEM::*VENV*
      SYSTEM::VENV-SEARCH-MACRO SYSTEM::FENV-SEARCH
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ
         (COMMON-LISP::SYMBOL-MACROLET . 68.) (COMMON-LISP::MACROLET . 68.)
         (EXT::COMPILER-LET . 68.) (COMMON-LISP::EVAL-WHEN . 68.)
         (COMMON-LISP::LOCALLY . 68.) (COMMON-LISP::PROGN . 5.))
      1. SYSTEM::TEST-LIST 0. SYSTEM::*TOPLEVEL-FOR-VALUE*
      SYSTEM::SYMBOL-SUFFIX SYSTEM::*FORM* SYSTEM::C-FORM-TABLE
      SYSTEM::COMPILE-TOPLEVEL-FORM SYSTEM::MAC-EXP SYSTEM::L-CONSTANTP
      SYSTEM::*PACKAGE-TASKS* ((COMMON-LISP::VALUES))
      SYSTEM::COMPILE-LAMBDABODY SYSTEM::*C-LISTING-OUTPUT*
      SYSTEM::DISASSEMBLE-CLOSURES SYSTEM::*FASOUTPUT-STREAM*
      CUSTOM::*PRINT-SYMBOLS-LONG* 79. CUSTOM::*PACKAGE-TASKS-TREAT-SPECIALLY*
      COMMON-LISP::PROGN SYSTEM::C-EVAL-AND-WRITE-LIB))
#Y(#:TOP-LEVEL-FORM-361
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PREPARE-COUTPUT-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PREPARE-COUTPUT-FILE
      #40Y(00 00 00 00 00 00 00 00 00 01 0E 00 1F 18 0E 01 1F 14 0E 02 1C 0D 6B
           01 DD 38 05 31 F7 0F 02 14 DE 30 05 02 19 01 19 01)
      SYSTEM::*COMPILING-FROM-FILE* SYSTEM::*COUTPUT-FILE*
      SYSTEM::*COUTPUT-STREAM* :OUTPUT
      #Y(SYSTEM::PREPARE-COUTPUT-FILE-1
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "#include \"clisp.h\"

")
      COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-362
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FINALIZE-COUTPUT-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FINALIZE-COUTPUT-FILE
      #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01)))
#Y(#:TOP-LEVEL-FORM-363
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-RESET-GLOBALS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-RESET-GLOBALS
      #41Y(00 00 00 00 00 00 00 00 00 01 00 0F 00 0F 01 0F 02 0F 03 0F 04 0F 05
           0F 06 0F 07 0F 08 0F 09 0F 0A 0F 0B 0F 0C 0F 0D 19 01)
      SYSTEM::*FUNCTIONS-WITH-ERRORS* SYSTEM::*KNOWN-SPECIAL-VARS*
      SYSTEM::*UNKNOWN-FREE-VARS* SYSTEM::*CONSTANT-SPECIAL-VARS*
      SYSTEM::*KNOWN-FUNCTIONS* SYSTEM::*UNKNOWN-FUNCTIONS*
      SYSTEM::*DEPRECATED-FUNCTIONS* SYSTEM::*INLINE-FUNCTIONS*
      SYSTEM::*NOTINLINE-FUNCTIONS* SYSTEM::*INLINE-DEFINITIONS*
      SYSTEM::*INLINE-CONSTANTS* SYSTEM::*NOTINLINE-CONSTANTS*
      SYSTEM::*USER-DECLARATION-TYPES* SYSTEM::*COMPILED-MODULES*))
#Y(#:TOP-LEVEL-FORM-364
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MATCH-KNOWN-UNKNOWN-FUNCTIONS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MATCH-KNOWN-UNKNOWN-FUNCTIONS
      #108Y(00 00 00 00 02 00 00 00 00 03 94 02 94 02 32 00 1F 80 57 9F 5C 78
            6F 00 A0 5C 78 6F 01 A1 5C 78 6F 02 A1 5C 79 A0 10 03 A2 10 04 A4
            10 05 04 0F 5C 5C 1D 31 04 0F 5C 5C 78 04 10 5C 5C 79 94 11 B8 6F
            06 B9 6F 07 BA 6F 08 BB 6F 09 BC 6F 0A BD 6F 0B 2D 09 0C 1C 0E E7
            6F 0E 94 0F 04 10 5C 78 6F 0F 2D 03 10 02 12 03 19 07 19 03)
      SYSTEM::C-SOURCE-POINT-LINENO1 SYSTEM::C-SOURCE-POINT-LINENO2
      SYSTEM::C-SOURCE-POINT-FILE SYSTEM::*COMPILE-FILE-LINENO1*
      SYSTEM::*COMPILE-FILE-LINENO2* COMMON-LISP::*COMPILE-FILE-TRUENAME*
      SYSTEM::SIG-REQ-NUM SYSTEM::SIG-OPT-NUM SYSTEM::SIG-REST-P
      SYSTEM::SIG-KEYS-P SYSTEM::SIG-KEYWORDS SYSTEM::SIG-ALLOW-P
      SYSTEM::TEST-ARGUMENT-SYNTAX "~%[~s was defined~a]" SYSTEM::TEXT
      SYSTEM::C-SOURCE-POINT-LOCATION SYSTEM::C-COMMENT))
#Y(#:TOP-LEVEL-FORM-365
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::C-REPORT-PROBLEMS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::C-REPORT-PROBLEMS
      #158Y(00 00 00 00 00 00 00 00 00 01 0E 00 1D 09 DB 6F 02 6B 00 72 47 30
            03 6B 04 6B 05 E0 99 07 2D 04 08 0F 04 1D 11 E3 6F 02 E4 6B 04 72
            47 73 00 17 38 06 72 53 30 03 6B 0B 6B 0C 70 0D 6B 0B 6B 0C 70 0E
            92 01 1B 93 00 08 EA 6F 02 AD 72 47 30 03 16 02 0E 11 1D 33 EC 6F
            02 63 6B 11 72 47 1B 1E E9 6F 02 AE 72 47 30 03 93 00 65 1B 5B 94
            00 AC AD ED 38 01 72 82 7B 02 84 02 16 01 83 00 9D 21 6C 16 01 AC
            80 A2 00 30 03 EE 8D 4E 0D EF 6F 02 6B 14 6B 16 2D 03 03 F1 2F 03
            2E 18 19 01)
      SYSTEM::*FUNCTIONS-WITH-ERRORS*
      "~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}"
      SYSTEM::TEXT SYSTEM::C-COMMENT SYSTEM::*UNKNOWN-FUNCTIONS*
      SYSTEM::*KNOWN-FUNCTIONS* :TEST SYSTEM::MATCH-KNOWN-UNKNOWN-FUNCTIONS
      COMMON-LISP::NSET-DIFFERENCE
      "~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
      #.#'COMMON-LISP::CAR SYSTEM::*UNKNOWN-FREE-VARS*
      SYSTEM::*KNOWN-SPECIAL-VARS* COMMON-LISP::SET-DIFFERENCE
      COMMON-LISP::INTERSECTION
      "~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
      "~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}"
      SYSTEM::*DEPRECATED-FUNCTIONS*
      "~%The following functions were used but are deprecated:~%~:{~<~%~:; ~S~@[ (use ~S instead)~]~>~^~}"
      SYSTEM::DEPRECATED SYSTEM::*ERROR-COUNT* "~%~D error~:P, ~D warning~:P"
      SYSTEM::*WARNING-COUNT* "~%" SYSTEM::C-RESET-GLOBALS))
#Y(#:TOP-LEVEL-FORM-366 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*C-TOP-CALL*) SYSTEM::*C-TOP-CALL*)
#Y(#:TOP-LEVEL-FORM-367
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::WITH-COMPILATION-UNIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-COMPILATION-UNIT
      #66Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 2B 9F 5C 78 AC DC
           63 72 83 A1 5C 79 AE DD 31 5F DE DF E0 B0 CC 7C 02 7B 02 CD 7A E3 E4
           E5 E6 E7 E8 A5 7A D4 7C 02 7B 04 61 04 19 06 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR :OVERRIDE (:OVERRIDE) COMMON-LISP::LET
      SYSTEM::*C-TOP-CALL* COMMON-LISP::OR
      ((COMMON-LISP::NOT (COMMON-LISP::BOUNDP 'SYSTEM::*C-TOP-CALL*)))
      ((SYSTEM::*C-LISTING-OUTPUT* COMMON-LISP::NIL)
       (SYSTEM::*C-ERROR-OUTPUT* COMMON-LISP::*ERROR-OUTPUT*))
      (COMMON-LISP::WHEN SYSTEM::*C-TOP-CALL* (SYSTEM::C-REPORT-PROBLEMS))
      COMMON-LISP::PROGV
      (COMMON-LISP::WHEN SYSTEM::*C-TOP-CALL*
       '(SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*
         SYSTEM::*STYLE-WARNING-COUNT*))
      (COMMON-LISP::WHEN SYSTEM::*C-TOP-CALL* '(0. 0. 0.))
      COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN
      ((COMMON-LISP::WHEN SYSTEM::*C-TOP-CALL* (SYSTEM::C-REPORT-PROBLEMS))))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-368
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COMPILE-FILE-PATHNAME-HELPER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COMPILE-FILE-PATHNAME-HELPER
      #206Y(00 00 00 00 02 00 00 00 00 03 AE 71 E5 8E 19 08 AE 6B 00 30 01 5B
            1C 0A AE DC 38 03 71 EF 38 02 31 EF 14 93 02 80 8A AE 8E 14 80 85
            DD AD 38 02 71 EF AF 02 22 80 7D AF 38 03 71 EF 38 02 AE 38 01 8C
            E6 05 AF 38 01 31 E6 14 AF 38 01 8C E6 80 66 B0 38 01 8C E6 80 63
            AF 38 01 8C E7 06 A1 14 38 01 31 E7 14 B0 38 01 8C E6 80 53 B1 38
            01 8C E6 80 4F B0 38 01 8C E7 80 4C B1 38 01 8C E7 80 49 A1 14 38
            01 71 E8 B1 38 01 8C E9 05 B2 38 01 31 E9 14 B2 38 01 8C EA 05 B3
            38 01 31 EA 14 B3 8C EB 03 B4 31 EB 14 31 F1 16 02 14 AD 40 02 19
            04 9F 1B 77 15 1B 74 A0 1B FF A4 A1 1B FF A0 A1 1B 40 A2 1B FF BC
            A1 1B FF B8 A2 1B FF B4)
      CUSTOM::*SOURCE-FILE-TYPES* SYSTEM::SEARCH-FILE
      #-CLISP #P".lisp"
      #+CLISP
      #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL :DEVICE COMMON-LISP::NIL
         :DIRECTORY (:RELATIVE) :NAME COMMON-LISP::NIL :TYPE "lisp"
         :VERSION COMMON-LISP::NIL)
      ".fas"))
#Y(#:TOP-LEVEL-FORM-369
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::COMPILE-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::COMPILE-FILE
      #826Y(0B 00 04 00 01 00 00 00 80 1C 05 00 00 00 3B 05 02 7E 05 3D 04 3B
            03 02 0E 05 10 05 3B 05 02 0E 06 10 06 3B 07 02 0E 07 10 07 63 00
            10 08 01 02 C1 C1 30 09 42 02 6A 16 6A 14 1D 05 14 8F 14 81 3C 93
            13 12 14 8E 14 0E BF 02 22 81 48 BF 38 03 31 EF 09 13 7E 00 C1 E7
            38 05 71 F7 53 82 C4 D3 45 92 04 81 39 C3 8F 14 02 04 17 14 53 82
            91 66 1C 66 1D 71 F3 01 02 92 0C 81 2C 66 1F 8F 14 02 04 1F 14 93
            0D 06 BD E9 38 05 31 F7 14 01 02 38 06 D5 FB 31 61 10 11 63 A8 10
            12 AA 10 13 04 0F 10 14 04 11 10 15 04 13 10 16 04 15 10 17 04 17
            10 18 04 19 10 19 0E 16 1C 80 F6 0E 17 1D 04 14 64 30 1A 53 81 F7
            F5 31 4E 59 10 1B 00 10 1C 0E 1D 10 1E 0E 1B 1C 80 E5 0E 1B 1D 02
            03 20 14 0E 1B 1D 02 03 21 13 53 81 A6 05 02 01 31 1D 17 14 65 22
            6F 23 67 02 01 4B 2E 24 14 2E 25 43 14 71 BF 71 C0 2D 07 26 64 64
            6B 27 6B 28 67 02 01 31 05 02 01 31 1C 80 B0 0E 1D 10 1E 00 10 29
            00 10 2A 00 10 2B 00 10 2C 00 10 2D 00 10 2E 0E 2F 10 30 0E 16 59
            1D 05 05 02 01 31 59 10 31 02 10 32 65 33 04 23 10 34 04 25 10 35
            04 27 10 27 04 29 10 28 04 2B 10 1C 65 36 6F 23 67 02 01 4B 30 37
            0E 16 1C 80 6E 05 02 01 37 1D 80 C1 0E 16 1C 80 8C 0E 17 1D 80 B7
            14 03 3D 34 1B 80 B0 E4 C1 38 02 80 EF 05 E5 C1 38 02 31 EF 0F 08
            7E 01 93 13 FE C4 1B FE AF E6 C2 38 02 31 EF 1B FE B4 C3 E9 38 05
            31 F7 1B FE C4 66 1F E9 38 05 31 F7 1B FE D1 14 64 30 1A 0E 17 1D
            FF 09 1B FF 02 2E 1F 0E 1B 1D FF 1A 1B FF 15 6B 1D 67 02 01 31 33
            02 2C 1B FF 46 0E 38 10 27 65 39 65 3A 2E 39 14 7B 02 7B 02 65 3B
            38 0F 7E 04 03 3C F8 6B 16 31 7F 11 6B 16 31 8A 05 02 01 37 1D 33
            1B FF 6F 14 03 3D 34 0E 17 1D 28 1B FF 6E 0E 07 1D 15 65 40 63 AE
            65 41 0E 42 1C 02 0E 43 14 73 02 36 70 44 33 02 16 AC 65 45 85 12
            14 70 46 30 47 16 01 64 67 02 01 35 63 65 3E 38 01 31 79 67 02 01
            35 2F 3F 0F 14 67 02 01 35 63 65 3E 38 01 71 73 67 02 01 35 2F 3F
            0F 15 AC 65 3E 8D FF FF AD 16 01 2E 48 65 49 6F 23 67 02 01 4B 30
            37 6B 4A 32 90 0A 02 01 23 1D 04 05 02 01 4A 14 2E 4B 14 2E 4C 14
            40 03 12 05 16 01 12 0A 16 05 54 0E 1B 1D 08 1B 04 0E 1B 1D 02 2E
            1F 55 11 18 01 00 12 03 54 05 00 00 2C 1D 80 4B 1B 1D 14 2F 4D 05
            00 00 18 1D 2B 1B 3E 6B 08 31 F5 05 00 00 18 1D 1F 1B 32 05 00 00
            2C 1D 2C 6B 16 2F 4D 6B 17 2F 4D 0E 18 1C 57 6B 08 8C F4 5D 05 00
            00 18 1C 15 67 00 00 3F 31 F5 67 00 00 30 31 F5 6B 08 8D F4 04 6B
            08 31 F5 55 12 08 16 01 11 16 08 54 05 00 00 05 1D 0E 1B 06 05 00
            00 05 1D 06 67 00 00 00 2F 4D 55 16 01 41 05 00 00 02 1D 03 14 2F
            4D 46 54 05 00 00 00 1D 0F 1B 06 05 00 00 00 1D 07 14 65 4E 64 2D
            03 4D 55 16 03 11 16 01 12 03 19 07)
      :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE :PRINT
      CUSTOM::*COMPILE-WARNINGS* COMMON-LISP::*COMPILE-VERBOSE*
      COMMON-LISP::*COMPILE-PRINT* SYSTEM::*COUTPUT-FILE*
      SYSTEM::COMPILE-FILE-PATHNAME-HELPER
      #-CLISP #P".lib"
      #+CLISP
      #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL :DEVICE COMMON-LISP::NIL
         :DIRECTORY (:RELATIVE) :NAME COMMON-LISP::NIL :TYPE "lib"
         :VERSION COMMON-LISP::NIL)
      #-CLISP #P".c"
      #+CLISP
      #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL :DEVICE COMMON-LISP::NIL
         :DIRECTORY (:RELATIVE) :NAME COMMON-LISP::NIL :TYPE "c"
         :VERSION COMMON-LISP::NIL)
      #-CLISP #P".lis"
      #+CLISP
      #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL :DEVICE COMMON-LISP::NIL
         :DIRECTORY (:RELATIVE) :NAME COMMON-LISP::NIL :TYPE "lis"
         :VERSION COMMON-LISP::NIL)
      :INPUT-IMMUTABLE #.#'COMMON-LISP::VALUES :OUTPUT COMMON-LISP::EQ
      SYSTEM::*LOAD-FORMS* COMMON-LISP::*COMPILE-FILE-PATHNAME*
      COMMON-LISP::*COMPILE-FILE-TRUENAME* SYSTEM::*COMPILE-FILE-LINENO1*
      SYSTEM::*COMPILE-FILE-LINENO2* SYSTEM::*FASOUTPUT-STREAM*
      SYSTEM::*LIBOUTPUT-STREAM* SYSTEM::*COUTPUT-STREAM* SYSTEM::*FFI-MODULE*
      SYSTEM::ALLOW-READ-EVAL SYSTEM::*C-TOP-CALL* SYSTEM::*C-LISTING-OUTPUT*
      COMMON-LISP::*ERROR-OUTPUT* SYSTEM::*C-ERROR-OUTPUT*
      SYSTEM::C-REPORT-PROBLEMS
      (SYSTEM::*ERROR-COUNT* SYSTEM::*WARNING-COUNT*
       SYSTEM::*STYLE-WARNING-COUNT*)
      (0. 0. 0.)
      "~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A"
      SYSTEM::TEXT SYSTEM::DATE-FORMAT COMMON-LISP::GET-DECODED-TIME
      COMMON-LISP::FORMAT COMMON-LISP::*PACKAGE* COMMON-LISP::*READTABLE*
      SYSTEM::*FUNC* SYSTEM::*FENV* SYSTEM::*BENV* SYSTEM::*GENV*
      SYSTEM::*VENV* SYSTEM::*VENVC* SYSTEM::*TOPLEVEL-DENV* SYSTEM::*DENV*
      SYSTEM::*NO-CODE* SYSTEM::*TOPLEVEL-FOR-VALUE* 0. SYSTEM::*COMPILING*
      SYSTEM::*COMPILING-FROM-FILE* "~%Compiling file ~A ..." SYSTEM::C-COMMENT
      SYSTEM::*KEYWORD-PACKAGE* SYSTEM::VERSION COMMON-LISP::QUOTE :UPCASE 79.
      #Y(COMMON-LISP::COMPILE-FILE-SET-UTF-8
         #53Y(02 00 01 00 01 00 00 00 00 02 47 00 26 AE 2C 01 01 10 02 B3 DD 30
              04 DF B4 38 02 31 88 E0 31 CA 10 07 DD 38 10 7E 04 66 1B 31 7F 11
              B3 31 8A 11 48 19 02 19 02)
         SYSTEM::TRY
         #Y(COMMON-LISP::COMPILE-FILE-SET-UTF-8-1
            #13Y(00 00 00 00 00 00 00 00 01 16 00 49 00) COMMON-LISP::NIL)
         CUSTOM::*ERROR-HANDLER* CHARSET::UTF-8
         SYSTEM::SET-STREAM-EXTERNAL-FORMAT "#0Y " "CHARSET"
         COMMON-LISP::*PACKAGE*)
      "EOF" SYSTEM::LINE-NUMBER
      #Y(COMMON-LISP::COMPILE-FILE-1
         #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 9E 19
              04)
         "
; ")
      -2. COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH*
      SYSTEM::WRITE-TO-SHORT-STRING #:TOP-LEVEL-FORM SYSTEM::SYMBOL-SUFFIX
      SYSTEM::COMPILE-TOPLEVEL-FORM SYSTEM::FINALIZE-COUTPUT-FILE
      "~&~%Compilation of file ~A is finished." SYSTEM::*ERROR-COUNT*
      SYSTEM::COMPILE-WARNINGS-P SYSTEM::COMPILE-FAILURE-P COMMON-LISP::CLOSE
      :ABORT))
#Y(#:TOP-LEVEL-FORM-370
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::COMPILE-FILE-PATHNAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::COMPILE-FILE-PATHNAME
      #26Y(00 00 00 00 01 00 00 00 C0 1C 01 00 00 00 3B 01 02 7E 01 AE AE 30 01
           3F 19 03)
      :OUTPUT-FILE SYSTEM::COMPILE-FILE-PATHNAME-HELPER))
#Y(#:TOP-LEVEL-FORM-371
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DISASSEMBLE-CLOSURES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DISASSEMBLE-CLOSURES
      #50Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 00 0B 00 00 AC 6D 00 01 B0 9E
           34 16 01 68 00 00 72 47 63 1B 09 87 01 00 14 B1 30 01 83 01 AD 8D 91
           73 00 19 06)
      #Y(SYSTEM::DISASSEMBLE-CLOSURES-MARK
         #56Y(00 00 00 00 01 00 00 00 00 02 AD 07 00 01 5D 0C 00 01 AD 72 33 63
              1B 19 87 01 00 14 8F 08 10 AC 8F 07 0C AC 69 00 01 38 03 8C B2 03
              AC 28 5B 83 01 AD 8D 91 63 00 19 04)
         COMMON-LISP::NIL)
      SYSTEM::DISASSEMBLE-CLOSURE))
#Y(#:TOP-LEVEL-FORM-372
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::STREAM-TAB SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::STREAM-TAB
      #34Y(00 00 00 00 02 00 00 00 00 03 AE 71 8F 92 00 07 C6 F8 AF 30 02 19 03
           DA AF AE 73 01 37 33 01 34 1B 6F)
      1. 2. SYSTEM::WRITE-SPACES))
#Y(#:TOP-LEVEL-FORM-373
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DISASSEMBLE-CLOSURE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DISASSEMBLE-CLOSURE
      #366Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 AD 31 8A AD 31 8A
            DB 6F 02 AE 38 02 31 88 AE 72 31 AE 31 80 AE 2F 03 42 08 AC DE 93
            01 1F B7 31 8A DF B8 38 02 31 88 AC B8 31 80 E0 B8 38 02 31 88 94
            01 B8 31 80 83 01 85 00 92 01 61 16 02 B5 31 8A B3 B6 31 80 E1 6F
            02 B6 38 02 31 88 B5 31 8A B2 B6 31 80 E2 6F 02 B6 38 02 31 88 B5
            31 8A 92 05 38 CF 14 6F 02 B6 38 02 31 88 93 04 80 49 AF 72 45 B6
            31 8A AC B7 31 80 B6 E5 6F 02 AE 2D 03 0C B0 AC 8C 91 29 94 00 83
            01 B8 31 80 AC 8C 91 0C D3 14 B8 38 02 31 88 1B 68 CE 1B 46 D2 1B
            72 B6 31 8A E9 6F 02 B7 38 02 31 88 16 01 1B 14 16 01 92 03 6C 16
            01 1B 0B B5 31 8A EA 6F 02 B6 38 02 31 88 63 AD 1B 0C 94 00 AC EB
            70 12 84 02 16 01 83 00 9D 21 71 16 01 AC 80 A2 00 AE AE 70 13 93
            00 80 72 9D 5B 78 9E 5B 79 B9 31 8A AD BA 31 80 B9 EE 30 15 AC BA
            31 83 AC 32 02 1F 39 9D 5B 26 16 33 64 9E 5C 5B 1B 0F 64 F1 9F 1B
            05 64 6B 18 9F 5C 5C 78 33 02 36 14 31 00 1B 0C F3 9E 5C 1B 02 F3
            9E 5C 78 B1 31 93 14 40 02 1B 09 AC BC 38 02 31 88 1B 18 00 42 02
            93 01 12 BB F4 30 15 F5 BC 38 02 31 88 AD 24 19 64 AC BC 31 80 16
            04 83 00 92 00 FF 8E 16 02 B5 31 8A 19 0B)
      COMMON-LISP::*STANDARD-OUTPUT* "Disassembly of function " SYSTEM::TEXT
      SYSTEM::SIGNATURE 0. "(CONST " ") = " " required arguments"
      " optional arguments" "Rest parameter" "No rest parameter"
      " keyword parameter~P: " COMMON-LISP::FORMAT "." ", "
      "Other keywords are allowed." "No keyword parameters" 35.
      SYSTEM::WRITE-TO-SHORT-STRING SYSTEM::DISASSEMBLE-LAP 6.
      SYSTEM::STREAM-TAB
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::HANDLER-OPEN . 32.)
         (SYSTEM::TAGBODY-OPEN . 32.)
         (SYSTEM::CONST&SYMBOL-FUNCTION&STORE . 32.)
         (SYSTEM::COPY-CLOSURE . 32.) (SYSTEM::COPY-CLOSURE&PUSH . 32.)
         (SYSTEM::CONST&SYMBOL-FUNCTION . 32.)
         (SYSTEM::CONST&SYMBOL-FUNCTION&PUSH . 32.) (SYSTEM::CONST&STORE . 32.)
         (SYSTEM::BIND . 32.) (SYSTEM::GETVALUE&PUSH . 32.)
         (SYSTEM::GETVALUE . 32.) (SYSTEM::SETVALUE . 32.)
         (SYSTEM::CONST&PUSH . 32.) (SYSTEM::CONST . 32.)
         (SYSTEM::JMPIFNOTEQTO . 32.) (SYSTEM::JMPIFEQTO . 32.)
         (SYSTEM::CALL2&JMPIF . 32.) (SYSTEM::CALL2&JMPIFNOT . 32.)
         (SYSTEM::CALL2&PUSH . 32.) (SYSTEM::CALL2 . 32.)
         (SYSTEM::CALL1&JMPIF . 32.) (SYSTEM::CALL1&JMPIFNOT . 32.)
         (SYSTEM::CALL1&PUSH . 32.) (SYSTEM::CALL1 . 32.) (SYSTEM::CALL0 . 32.)
         (SYSTEM::CALL&PUSH . 27.) (SYSTEM::CALL . 27.)
         (SYSTEM::CALLSR&JMPIF . 12.) (SYSTEM::CALLSR&JMPIFNOT . 12.)
         (SYSTEM::CALLSR&STORE . 12.) (SYSTEM::CALLSR&PUSH . 12.)
         (SYSTEM::CALLSR . 12.) (SYSTEM::CALLS2&JMPIF . 7.)
         (SYSTEM::CALLS2&JMPIFNOT . 7.) (SYSTEM::CALLS2&STORE . 7.)
         (SYSTEM::CALLS2&PUSH . 7.) (SYSTEM::CALLS2 . 7.)
         (SYSTEM::CALLS1&JMPIF . 1.) (SYSTEM::CALLS1&JMPIFNOT . 1.)
         (SYSTEM::CALLS1&STORE . 1.) (SYSTEM::CALLS1&PUSH . 1.)
         (SYSTEM::CALLS1 . 1.))
      256. SYSTEM::FUNTABR-INDEX COMMON-LISP::STRING 42. "; "))
#Y(#:TOP-LEVEL-FORM-374
   #24Y(00 00 00 00 00 00 00 00 00 01 99 00 32 07 59 1F 05 DA 2F 01 19 01 19
        01)
   SYSTEM::VENV-SEARCH COMMON-LISP::COMPILE)
