(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 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (COMMON-LISP::RESTART COMMON-LISP::CONDITION COMMON-LISP::SERIOUS-CONDITION
    COMMON-LISP::ERROR COMMON-LISP::PROGRAM-ERROR COMMON-LISP::CONTROL-ERROR
    COMMON-LISP::ARITHMETIC-ERROR COMMON-LISP::DIVISION-BY-ZERO
    COMMON-LISP::FLOATING-POINT-OVERFLOW COMMON-LISP::FLOATING-POINT-UNDERFLOW
    COMMON-LISP::FLOATING-POINT-INEXACT
    COMMON-LISP::FLOATING-POINT-INVALID-OPERATION COMMON-LISP::CELL-ERROR
    COMMON-LISP::UNBOUND-VARIABLE COMMON-LISP::UNDEFINED-FUNCTION
    COMMON-LISP::UNBOUND-SLOT COMMON-LISP::TYPE-ERROR
    COMMON-LISP::PACKAGE-ERROR COMMON-LISP::PRINT-NOT-READABLE
    COMMON-LISP::PARSE-ERROR COMMON-LISP::STREAM-ERROR COMMON-LISP::END-OF-FILE
    COMMON-LISP::READER-ERROR COMMON-LISP::FILE-ERROR
    COMMON-LISP::STORAGE-CONDITION COMMON-LISP::WARNING
    COMMON-LISP::STYLE-WARNING COMMON-LISP::SIMPLE-CONDITION
    COMMON-LISP::SIMPLE-ERROR COMMON-LISP::SIMPLE-TYPE-ERROR
    COMMON-LISP::SIMPLE-WARNING COMMON-LISP::DEFINE-CONDITION
    COMMON-LISP::HANDLER-BIND COMMON-LISP::IGNORE-ERRORS
    COMMON-LISP::HANDLER-CASE COMMON-LISP::WITH-CONDITION-RESTARTS
    COMMON-LISP::RESTART-BIND COMMON-LISP::RESTART-CASE
    COMMON-LISP::WITH-SIMPLE-RESTART COMMON-LISP::CHECK-TYPE
    COMMON-LISP::ASSERT COMMON-LISP::ETYPECASE COMMON-LISP::CTYPECASE
    COMMON-LISP::ECASE COMMON-LISP::CCASE COMMON-LISP::MAKE-CONDITION
    COMMON-LISP::ARITHMETIC-ERROR-OPERATION
    COMMON-LISP::ARITHMETIC-ERROR-OPERANDS COMMON-LISP::CELL-ERROR-NAME
    COMMON-LISP::UNBOUND-SLOT-INSTANCE COMMON-LISP::TYPE-ERROR-DATUM
    COMMON-LISP::TYPE-ERROR-EXPECTED-TYPE COMMON-LISP::PACKAGE-ERROR-PACKAGE
    COMMON-LISP::PRINT-NOT-READABLE-OBJECT COMMON-LISP::STREAM-ERROR-STREAM
    COMMON-LISP::FILE-ERROR-PATHNAME
    COMMON-LISP::SIMPLE-CONDITION-FORMAT-CONTROL
    COMMON-LISP::SIMPLE-CONDITION-FORMAT-ARGUMENTS COMMON-LISP::SIGNAL
    COMMON-LISP::RESTART-NAME COMMON-LISP::COMPUTE-RESTARTS
    COMMON-LISP::FIND-RESTART COMMON-LISP::INVOKE-RESTART
    COMMON-LISP::INVOKE-RESTART-INTERACTIVELY COMMON-LISP::INVOKE-DEBUGGER
    COMMON-LISP::BREAK COMMON-LISP::ERROR COMMON-LISP::CERROR COMMON-LISP::WARN
    COMMON-LISP::ABORT COMMON-LISP::CONTINUE COMMON-LISP::MUFFLE-WARNING
    COMMON-LISP::STORE-VALUE COMMON-LISP::USE-VALUE
    COMMON-LISP::*BREAK-ON-SIGNALS* COMMON-LISP::*DEBUGGER-HOOK*))
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "EXT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (EXT::MUFFLE-CERRORS EXT::APPEASE-CERRORS EXT::EXIT-ON-ERROR
    EXT::WITH-RESTARTS EXT::OS-ERROR EXT::SIMPLE-CONDITION-FORMAT-STRING
    EXT::SIMPLE-CHARSET-TYPE-ERROR)
   "EXT")
#Y(#:TOP-LEVEL-FORM-5 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "CUSTOM" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (CUSTOM::*BREAK-ON-WARNINGS*) "CUSTOM")
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 E3 19 01)
   "CUSTOM" "EXT")
#Y(#:TOP-LEVEL-FORM-8 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYSTEM" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-9
   #25Y(00 00 00 00 00 00 00 00 00 01 DA DB 63 DC 63 2D 05 03 DA 38 02 32 27 19
        01)
   COMMON-LISP::CONDITION :DIRECT-SUPERCLASSES :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-10-1
   #21Y(00 00 00 00 00 00 00 00 00 01 DA DB DA DC 70 03 32 86 3E 19 01)
   SYSTEM::PRINT-CONDITION-FORMAT SYSTEM::OTHER-LANGUAGE I18N::ENGLISH
   SYSTEM::DEFINTERNATIONAL-DEFAULT)
#Y(#:TOP-LEVEL-FORM-10-2 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
   SYSTEM::PRINT-CONDITION-FORMAT)
#Y(#:TOP-LEVEL-FORM-11-1 #16Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 3E 19 01)
   I18N::ENGLISH SYSTEM::ASSERT-LANGUAGE)
#Y(#:TOP-LEVEL-FORM-11-2
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 3E 19 01)
   SYSTEM::PRINT-CONDITION-FORMAT I18N::ENGLISH
   #Y(#:TOP-LEVEL-FORM-11-2-1
      #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 80 DB B0 31
           87 9E 19 04)
      "Condition of type " #\.))
#Y(#:TOP-LEVEL-FORM-11-3 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
   SYSTEM::PRINT-CONDITION-FORMAT)
#Y(#:TOP-LEVEL-FORM-12
   #42Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD DE DF 64 E0 E1 38 02 72 27 64
        38 02 72 27 7B 02 E2 63 E3 E4 6E 0A 0B 2D 04 0C 19 01)
   SYSTEM::PRINT-CONDITION
   #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   (0. 1.) :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-12-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-12-1-1
         #22Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 72 25 2D 03 02 19
              03)
         SYSTEM::PRINT-CONDITION-FORMAT I18N::LOCALIZED COMMON-LISP::FORMAT)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS COMMON-LISP::CONDITION
   :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFGENERIC)
#Y(#:TOP-LEVEL-FORM-13
   #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02
        72 27 7B 02 E0 63 E1 E2 6E 0A 09 30 0A 19 01)
   CLOS::PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-13-1
      #25Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 AC 6D 00 01 C6 5D
           19 03)
      #Y(#:TOP-LEVEL-FORM-13-1-1
         #44Y(00 00 00 00 03 00 00 00 00 04 0E 01 1C 11 0E 02 1C 0D AE AE 30 04
              19 04 14 AF AF 36 02 19 04 92 03 76 69 00 01 AF AF 2D 03 03 19
              04)
         COMMON-LISP::NIL COMMON-LISP::*PRINT-ESCAPE*
         COMMON-LISP::*PRINT-READABLY* CLOS::%NO-NEXT-METHOD
         SYSTEM::PRINT-CONDITION)
      (COMMON-LISP::NIL))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS COMMON-LISP::CONDITION
   :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-14
   #21Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 38 03 31 B6 0F 01 19 01)
   SYSTEM::PRINT-CONDITION
   CLOS::*DYNAMICALLY-MODIFIABLE-GENERIC-FUNCTION-NAMES*)
#Y(#:TOP-LEVEL-FORM-15
   #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::DEFINE-CONDITION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFINE-CONDITION
      #263Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 2D 9F 5C 78 A0
            5C 5C 78 A1 5C 5C 5C 78 A2 5C 5C 5C 79 AF 8F 04 1D AE 8F 09 21 E0
            AF 91 00 29 1B AD 8E 09 3F DC E2 6F 04 DF A1 14 33 02 1F AE 2F 01
            19 03 DC DD 6F 04 DF A3 1B 6F DC E1 6F 04 DF A2 1B 67 9D FC 1B 80
            5F 9E FC 16 01 1B 80 58 DC E7 6F 04 DF B8 94 05 33 03 1F DC E8 6F
            04 DF B7 CA 1B 17 01 03 AF 63 AD 8C 91 80 68 87 01 00 14 8E 09 0C
            DC E9 6F 04 DF B7 CA 14 B1 33 04 1F 94 00 25 09 07 AC 72 45 8E 93
            FF B8 94 00 8F 8B 4A AC 72 45 25 0A 44 94 00 AC 24 0B FF AB AC 25
            0C FF AD 9E 5C FB 16 01 83 01 1B FF BB F1 94 07 03 18 62 02 1B 18
            ED AD EE EF EB B8 7B 02 03 16 7A 94 06 8E 05 67 F3 F4 A5 7A 03 1B
            62 02 14 7B 04 61 03 19 0B 16 02 EA B3 B3 EB 70 12 B3 93 05 03 14
            61 01 14 93 07 03 14 61 01 14 33 02 23 7C 04 92 01 42 15 19 0A)
      4. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: the name of a condition must be a symbol, not ~S" SYSTEM::TEXT
      COMMON-LISP::DEFINE-CONDITION #.#'COMMON-LISP::SYMBOLP
      "~S: the parent-type list must be a list of symbols, not ~S"
      "~S: the slot description list must be a list, not ~S" :DEFAULT-INITARGS
      2. :DOCUMENTATION :REPORT "~S ~S: unknown option ~S"
      "~S ~S: invalid syntax in ~S option: ~S" "~S ~S: not a ~S option: ~S"
      CLOS::DEFCLASS COMMON-LISP::CONDITION CLOS::ADD-DEFAULT-SUPERCLASS
      COMMON-LISP::PROGN CLOS::DEFMETHOD SYSTEM::PRINT-CONDITION
      (COMMON-LISP::STREAM) COMMON-LISP::WRITE-STRING (COMMON-LISP::STREAM)
      COMMON-LISP::FUNCALL COMMON-LISP::FUNCTION
      (COMMON-LISP::CONDITION COMMON-LISP::STREAM))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::MAKE-CONDITION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::MAKE-CONDITION
      #32Y(00 00 00 00 01 00 00 00 01 17 AE DA 8B 01 07 99 06 AF A0 9B 01 03 DC
           DD 6F 04 DF B1 DA 33 03 1F)
      COMMON-LISP::CONDITION COMMON-LISP::SUBTYPEP COMMON-LISP::ERROR
      "~S: type ~S is not a subtype of ~S" SYSTEM::TEXT
      COMMON-LISP::MAKE-CONDITION CLOS::MAKE-INSTANCE))
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::COERCE-TO-CONDITION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COERCE-TO-CONDITION
      #84Y(00 00 00 00 04 00 00 00 01 1A B1 72 26 DA 8A 01 27 B1 8E 04 2D B1 8E
           05 30 B1 8E 1B 2C DD DE B3 DF E6 E7 6F 08 B5 B8 33 06 1F DD DE B2 DF
           E0 E1 6F 08 B5 B8 B8 33 07 1F 93 04 04 AF 25 02 6B A2 19 06 99 09 B2
           A3 9B 01 06 99 09 AF E4 B4 E5 B5 A4 9B 05 06)
      #.(CLOS::FIND-CLASS 'COMMON-LISP::CONDITION) CLOS::SUBCLASSP
      COMMON-LISP::CERROR COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      COMMON-LISP::NULL "~S ~S: superfluous arguments ~S" SYSTEM::TEXT
      COMMON-LISP::MAKE-CONDITION :FORMAT-CONTROL :FORMAT-ARGUMENTS
      (COMMON-LISP::OR COMMON-LISP::CONDITION COMMON-LISP::SYMBOL
       COMMON-LISP::STRING COMMON-LISP::FUNCTION)
      "~S: the condition argument must be a string, a symbol or a condition, not ~S"))
#Y(#:TOP-LEVEL-FORM-18
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01)
   COMMON-LISP::SERIOUS-CONDITION :DIRECT-SUPERCLASSES COMMON-LISP::CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-19
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SERIOUS-CONDITION
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-20
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::PROGRAM-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-21
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   SYSTEM::SOURCE-PROGRAM-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::PROGRAM-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-22
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::CONTROL-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-23
   #97Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 DF E5 E1 E6 E3 E7 7B 06 7B 02 2D 05 0E E9 EA
        EB EC 64 ED DA 38 02 72 27 7B 01 EE 63 EF F0 6E 0A 17 30 18 F3 EA F4 EC
        64 ED DA 38 02 72 27 7B 01 EE 63 EF F5 6E 0A 17 30 18 DA 38 02 32 27 19
        01)
   COMMON-LISP::ARITHMETIC-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$OPERATION :READERS
   (COMMON-LISP::ARITHMETIC-ERROR-OPERATION) :INITARGS (:OPERATION)
   SYSTEM::$OPERANDS (COMMON-LISP::ARITHMETIC-ERROR-OPERANDS) (:OPERANDS)
   CLOS::ENSURE-CLASS COMMON-LISP::ARITHMETIC-ERROR-OPERATION :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-23-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-23-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$OPERATION)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
   COMMON-LISP::ARITHMETIC-ERROR-OPERANDS
   #Y(#:TOP-LEVEL-FORM-23-2 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-23-2-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$OPERANDS)
      (COMMON-LISP::T))
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL))
#Y(#:TOP-LEVEL-FORM-24
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::DIVISION-BY-ZERO :DIRECT-SUPERCLASSES
   COMMON-LISP::ARITHMETIC-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-25
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::FLOATING-POINT-OVERFLOW :DIRECT-SUPERCLASSES
   COMMON-LISP::ARITHMETIC-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-26
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::FLOATING-POINT-UNDERFLOW :DIRECT-SUPERCLASSES
   COMMON-LISP::ARITHMETIC-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-27
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::FLOATING-POINT-INEXACT :DIRECT-SUPERCLASSES
   COMMON-LISP::ARITHMETIC-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-28
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::FLOATING-POINT-INVALID-OPERATION :DIRECT-SUPERCLASSES
   COMMON-LISP::ARITHMETIC-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-29
   #67Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 7B 01 2D 05 0B E6 E7 E8 E9 64 EA DA 38 02 72
        27 7B 01 EB 63 EC ED 6E 0A 14 30 15 DA 38 02 32 27 19 01)
   COMMON-LISP::CELL-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$NAME :READERS
   (COMMON-LISP::CELL-ERROR-NAME) :INITARGS (:NAME) CLOS::ENSURE-CLASS
   COMMON-LISP::CELL-ERROR-NAME :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-29-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-29-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02) SYSTEM::$NAME)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-30
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::UNBOUND-VARIABLE :DIRECT-SUPERCLASSES COMMON-LISP::CELL-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-31
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::UNDEFINED-FUNCTION :DIRECT-SUPERCLASSES COMMON-LISP::CELL-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-32
   #67Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 7B 01 2D 05 0B E6 E7 E8 E9 64 EA DA 38 02 72
        27 7B 01 EB 63 EC ED 6E 0A 14 30 15 DA 38 02 32 27 19 01)
   COMMON-LISP::UNBOUND-SLOT :DIRECT-SUPERCLASSES COMMON-LISP::CELL-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$INSTANCE :READERS
   (COMMON-LISP::UNBOUND-SLOT-INSTANCE) :INITARGS (:INSTANCE)
   CLOS::ENSURE-CLASS COMMON-LISP::UNBOUND-SLOT-INSTANCE :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-32-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-32-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$INSTANCE)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-33
   #97Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 DF E5 E1 E6 E3 E7 7B 06 7B 02 2D 05 0E E9 EA
        EB EC 64 ED DA 38 02 72 27 7B 01 EE 63 EF F0 6E 0A 17 30 18 F3 EA F4 EC
        64 ED DA 38 02 72 27 7B 01 EE 63 EF F5 6E 0A 17 30 18 DA 38 02 32 27 19
        01)
   COMMON-LISP::TYPE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$DATUM :READERS
   (COMMON-LISP::TYPE-ERROR-DATUM) :INITARGS (:DATUM) SYSTEM::$EXPECTED-TYPE
   (COMMON-LISP::TYPE-ERROR-EXPECTED-TYPE) (:EXPECTED-TYPE) CLOS::ENSURE-CLASS
   COMMON-LISP::TYPE-ERROR-DATUM :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-33-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-33-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02) SYSTEM::$DATUM)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
   COMMON-LISP::TYPE-ERROR-EXPECTED-TYPE
   #Y(#:TOP-LEVEL-FORM-33-2 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-33-2-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$EXPECTED-TYPE)
      (COMMON-LISP::T))
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL))
#Y(#:TOP-LEVEL-FORM-34
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::KEYWORD-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::PROGRAM-ERROR
   COMMON-LISP::TYPE-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-35
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   SYSTEM::CHARSET-TYPE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::TYPE-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-36
   #67Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 7B 01 2D 05 0B E6 E7 E8 E9 64 EA DA 38 02 72
        27 7B 01 EB 63 EC ED 6E 0A 14 30 15 DA 38 02 32 27 19 01)
   COMMON-LISP::PACKAGE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$PACKAGE :READERS
   (COMMON-LISP::PACKAGE-ERROR-PACKAGE) :INITARGS (:PACKAGE) CLOS::ENSURE-CLASS
   COMMON-LISP::PACKAGE-ERROR-PACKAGE :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-36-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-36-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$PACKAGE)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-37
   #67Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 7B 01 2D 05 0B E6 E7 E8 E9 64 EA DA 38 02 72
        27 7B 01 EB 63 EC ED 6E 0A 14 30 15 DA 38 02 32 27 19 01)
   COMMON-LISP::PRINT-NOT-READABLE :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$OBJECT :READERS
   (COMMON-LISP::PRINT-NOT-READABLE-OBJECT) :INITARGS (:OBJECT)
   CLOS::ENSURE-CLASS COMMON-LISP::PRINT-NOT-READABLE-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-37-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-37-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02) SYSTEM::$OBJECT)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-38
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::PARSE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-39
   #67Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 7B 01 2D 05 0B E6 E7 E8 E9 64 EA DA 38 02 72
        27 7B 01 EB 63 EC ED 6E 0A 14 30 15 DA 38 02 32 27 19 01)
   COMMON-LISP::STREAM-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$STREAM :READERS
   (COMMON-LISP::STREAM-ERROR-STREAM) :INITARGS (:STREAM) CLOS::ENSURE-CLASS
   COMMON-LISP::STREAM-ERROR-STREAM :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-39-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-39-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02) SYSTEM::$STREAM)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-40
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::END-OF-FILE :DIRECT-SUPERCLASSES COMMON-LISP::STREAM-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-41
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   COMMON-LISP::READER-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::PARSE-ERROR
   COMMON-LISP::STREAM-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-42
   #67Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE DF E0 E1 E2 E3 E4 7B 06 7B 01 2D 05 0B E6 E7 E8 E9 64 EA DA 38 02 72
        27 7B 01 EB 63 EC ED 6E 0A 14 30 15 DA 38 02 32 27 19 01)
   COMMON-LISP::FILE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS :NAME SYSTEM::$PATHNAME :READERS
   (COMMON-LISP::FILE-ERROR-PATHNAME) :INITARGS (:PATHNAME) CLOS::ENSURE-CLASS
   COMMON-LISP::FILE-ERROR-PATHNAME :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-42-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-42-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$PATHNAME)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-43
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   EXT::OS-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::ERROR COMMON-LISP::CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-44
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::STORAGE-CONDITION :DIRECT-SUPERCLASSES
   COMMON-LISP::SERIOUS-CONDITION COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-45
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   SYSTEM::INTERRUPT-CONDITION :DIRECT-SUPERCLASSES
   COMMON-LISP::SERIOUS-CONDITION COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-46
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01)
   COMMON-LISP::WARNING :DIRECT-SUPERCLASSES COMMON-LISP::CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-47
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 7B 02
        DE 63 2D 05 05 DA 38 02 32 27 19 01)
   COMMON-LISP::STYLE-WARNING :DIRECT-SUPERCLASSES COMMON-LISP::WARNING
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-48
   #123Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD DE DF E0
         E1 E2 E3 E4 63 00 7A 7B 08 DE E5 E0 E6 E2 E7 E4 63 00 7A 7B 08 7B 02
         2D 05 0E E9 EA EB EC 64 ED DA 38 02 72 27 7B 01 EE 63 EF F0 6E 0A 17
         30 18 F3 EA F4 EC 64 ED DA 38 02 72 27 7B 01 EE 63 EF F5 6E 0A 17 30
         18 F6 EA F7 EC 64 ED DA 38 02 72 27 7B 01 EE 63 EF 65 1E 6E 0A 17 30
         18 DA 38 02 32 27 19 01)
   COMMON-LISP::SIMPLE-CONDITION :DIRECT-SUPERCLASSES COMMON-LISP::CONDITION
   :DIRECT-SLOTS :NAME SYSTEM::$FORMAT-CONTROL :READERS
   (EXT::SIMPLE-CONDITION-FORMAT-STRING
    COMMON-LISP::SIMPLE-CONDITION-FORMAT-CONTROL)
   :INITARGS (:FORMAT-CONTROL) :INITER SYSTEM::$FORMAT-ARGUMENTS
   (COMMON-LISP::SIMPLE-CONDITION-FORMAT-ARGUMENTS) (:FORMAT-ARGUMENTS)
   CLOS::ENSURE-CLASS EXT::SIMPLE-CONDITION-FORMAT-STRING :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-48-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-48-1-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$FORMAT-CONTROL)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
   COMMON-LISP::SIMPLE-CONDITION-FORMAT-CONTROL
   #Y(#:TOP-LEVEL-FORM-48-2 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-48-2-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$FORMAT-CONTROL)
      (COMMON-LISP::T))
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   COMMON-LISP::SIMPLE-CONDITION-FORMAT-ARGUMENTS
   #Y(#:TOP-LEVEL-FORM-48-3 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-48-3-1
         #16Y(00 00 00 00 01 00 00 00 00 02 AD DA 32 3B 19 02)
         SYSTEM::$FORMAT-ARGUMENTS)
      (COMMON-LISP::T))
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL))
#Y(#:TOP-LEVEL-FORM-49
   #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02
        72 27 7B 02 E0 E1 E2 E3 6E 0A 0A 30 0B 19 01)
   SYSTEM::PRINT-CONDITION :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-49-1
      #25Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 AC 6D 00 01 C6 5D
           19 03)
      #Y(#:TOP-LEVEL-FORM-49-1-1
         #46Y(00 00 00 00 03 00 00 00 00 04 AE 6F 01 92 00 0D 92 04 14 69 00 01
              B0 B0 2D 03 04 19 05 99 02 AF AE B2 2F 03 9B 02 05 14 B0 B0 36 02
              19 05)
         COMMON-LISP::NIL COMMON-LISP::SIMPLE-CONDITION-FORMAT-CONTROL
         COMMON-LISP::FORMAT COMMON-LISP::SIMPLE-CONDITION-FORMAT-ARGUMENTS
         CLOS::%NO-NEXT-METHOD)
      (COMMON-LISP::NIL))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS COMMON-LISP::SIMPLE-CONDITION
   :QUALIFIERS (:AROUND) :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#Y(#:TOP-LEVEL-FORM-50
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   COMMON-LISP::SIMPLE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-CONDITION
   COMMON-LISP::ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-51
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   COMMON-LISP::SIMPLE-TYPE-ERROR :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-CONDITION COMMON-LISP::TYPE-ERROR COMMON-LISP::CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-52
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   COMMON-LISP::SIMPLE-WARNING :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-CONDITION COMMON-LISP::WARNING COMMON-LISP::CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-53
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-SERIOUS-CONDITION :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-CONDITION COMMON-LISP::SERIOUS-CONDITION
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-54
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-PROGRAM-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::PROGRAM-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-55
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-56
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-CONTROL-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::CONTROL-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-57
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-ARITHMETIC-ERROR :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::ARITHMETIC-ERROR
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-58
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-DIVISION-BY-ZERO :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::DIVISION-BY-ZERO
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-59
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-FLOATING-POINT-OVERFLOW :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::FLOATING-POINT-OVERFLOW
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-60
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-FLOATING-POINT-UNDERFLOW :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::FLOATING-POINT-UNDERFLOW
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-61
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-CELL-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::CELL-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-62
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-UNBOUND-VARIABLE :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::UNBOUND-VARIABLE
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-63
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-UNDEFINED-FUNCTION :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::UNDEFINED-FUNCTION
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-64
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-UNBOUND-SLOT :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::UNBOUND-SLOT COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-65
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-KEYWORD-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   SYSTEM::KEYWORD-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-66
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   EXT::SIMPLE-CHARSET-TYPE-ERROR :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR SYSTEM::CHARSET-TYPE-ERROR COMMON-LISP::CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-67
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-PACKAGE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::PACKAGE-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-68
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-PRINT-NOT-READABLE :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-ERROR COMMON-LISP::PRINT-NOT-READABLE
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-69
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-PARSE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::PARSE-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-70
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-STREAM-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::STREAM-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-71
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-END-OF-FILE :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::END-OF-FILE COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-72
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-READER-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::READER-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-73
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-FILE-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   COMMON-LISP::FILE-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-74
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-OS-ERROR :DIRECT-SUPERCLASSES COMMON-LISP::SIMPLE-ERROR
   EXT::OS-ERROR COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-75
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-STORAGE-CONDITION :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-CONDITION COMMON-LISP::STORAGE-CONDITION
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-76
   #41Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 DD 38 02 72 27 DE 38
        02 72 27 7B 03 DF 63 2D 05 06 DA 38 02 32 27 19 01)
   SYSTEM::SIMPLE-INTERRUPT-CONDITION :DIRECT-SUPERCLASSES
   COMMON-LISP::SIMPLE-CONDITION SYSTEM::INTERRUPT-CONDITION
   COMMON-LISP::CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS)
#Y(#:TOP-LEVEL-FORM-77 #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   #((COMMON-LISP::CONDITION . COMMON-LISP::SIMPLE-CONDITION)
     (COMMON-LISP::SERIOUS-CONDITION . SYSTEM::SIMPLE-SERIOUS-CONDITION)
     (COMMON-LISP::ERROR . COMMON-LISP::SIMPLE-ERROR)
     (COMMON-LISP::PROGRAM-ERROR . SYSTEM::SIMPLE-PROGRAM-ERROR)
     (SYSTEM::SOURCE-PROGRAM-ERROR . SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR)
     (COMMON-LISP::CONTROL-ERROR . SYSTEM::SIMPLE-CONTROL-ERROR)
     (COMMON-LISP::ARITHMETIC-ERROR . SYSTEM::SIMPLE-ARITHMETIC-ERROR)
     (COMMON-LISP::DIVISION-BY-ZERO . SYSTEM::SIMPLE-DIVISION-BY-ZERO)
     (COMMON-LISP::FLOATING-POINT-OVERFLOW .
      SYSTEM::SIMPLE-FLOATING-POINT-OVERFLOW)
     (COMMON-LISP::FLOATING-POINT-UNDERFLOW .
      SYSTEM::SIMPLE-FLOATING-POINT-UNDERFLOW)
     (COMMON-LISP::CELL-ERROR . SYSTEM::SIMPLE-CELL-ERROR)
     (COMMON-LISP::UNBOUND-VARIABLE . SYSTEM::SIMPLE-UNBOUND-VARIABLE)
     (COMMON-LISP::UNDEFINED-FUNCTION . SYSTEM::SIMPLE-UNDEFINED-FUNCTION)
     (COMMON-LISP::UNBOUND-SLOT . SYSTEM::SIMPLE-UNBOUND-SLOT)
     (COMMON-LISP::TYPE-ERROR . COMMON-LISP::SIMPLE-TYPE-ERROR)
     (SYSTEM::KEYWORD-ERROR . SYSTEM::SIMPLE-KEYWORD-ERROR)
     (SYSTEM::CHARSET-TYPE-ERROR . EXT::SIMPLE-CHARSET-TYPE-ERROR)
     (COMMON-LISP::PACKAGE-ERROR . SYSTEM::SIMPLE-PACKAGE-ERROR)
     (COMMON-LISP::PRINT-NOT-READABLE . SYSTEM::SIMPLE-PRINT-NOT-READABLE)
     (COMMON-LISP::PARSE-ERROR . SYSTEM::SIMPLE-PARSE-ERROR)
     (COMMON-LISP::STREAM-ERROR . SYSTEM::SIMPLE-STREAM-ERROR)
     (COMMON-LISP::END-OF-FILE . SYSTEM::SIMPLE-END-OF-FILE)
     (COMMON-LISP::READER-ERROR . SYSTEM::SIMPLE-READER-ERROR)
     (COMMON-LISP::FILE-ERROR . SYSTEM::SIMPLE-FILE-ERROR)
     (EXT::OS-ERROR . SYSTEM::SIMPLE-OS-ERROR)
     (COMMON-LISP::STORAGE-CONDITION . SYSTEM::SIMPLE-STORAGE-CONDITION)
     (SYSTEM::INTERRUPT-CONDITION . SYSTEM::SIMPLE-INTERRUPT-CONDITION)
     (COMMON-LISP::WARNING . COMMON-LISP::SIMPLE-WARNING))
   SYSTEM::%DEFCLCS)
#Y(#:TOP-LEVEL-FORM-78
   #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::*BREAK-ON-SIGNALS*)
   COMMON-LISP::*BREAK-ON-SIGNALS*)
#Y(#:TOP-LEVEL-FORM-79
   #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::HANDLER-BIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::HANDLER-BIND
      #158Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 22 9F 5C 78 A0
            5C 79 DC AE 73 00 17 DD AF 73 00 17 AE 7B 01 73 02 23 AC 72 45 6F
            04 DF E0 AE 63 B1 1B 17 AE 2F 01 19 03 94 00 E1 E2 63 E3 A1 7A 7B
            03 7B 02 84 02 16 01 83 00 9D 21 6B 16 01 AC 80 A2 00 73 01 17 E4
            E5 E6 63 B4 B3 1B 25 16 03 1B 26 94 01 9E 20 77 94 01 AD E1 E2 E7
            E8 E8 B2 7B 02 D4 7C 02 7B 03 7B 02 7B 02 84 04 16 02 83 01 83 00
            9E 21 5C 16 02 AC 80 A2 00 E8 B3 38 01 31 9B 78 7B 02 7B 03 7B 03
            61 03 19 08)
      2. SYSTEM::MACRO-CALL-ERROR #.#'COMMON-LISP::FIRST #.#'COMMON-LISP::REST
      SYSTEM::GENSYM-LIST COMMON-LISP::LET #.#'COMMON-LISP::LIST
      COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA COMMON-LISP::PROGN
      COMMON-LISP::LOCALLY (COMMON-LISP::DECLARE (COMMON-LISP::COMPILE))
      SYSTEM::%HANDLER-BIND (COMMON-LISP::CONDITION) COMMON-LISP::FUNCALL
      (COMMON-LISP::CONDITION))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-80
   #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::IGNORE-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::IGNORE-ERRORS
      #43Y(00 00 00 00 01 00 01 00 00 08 95 02 38 01 72 8E DA AD DB DC DD DE DF
           E0 B4 CC 7C 02 7B 03 7B 02 7B 02 7B 01 A2 7C 02 61 03 19 05)
      COMMON-LISP::BLOCK COMMON-LISP::HANDLER-BIND COMMON-LISP::ERROR
      COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA (COMMON-LISP::CONDITION)
      COMMON-LISP::RETURN-FROM
      ((COMMON-LISP::VALUES COMMON-LISP::NIL COMMON-LISP::CONDITION)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-81
   #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::HANDLER-CASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::HANDLER-CASE
      #299Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0B 9F 5C 78 A0
            5C 79 01 02 1B 80 59 AE 2F 01 19 03 DC DD 6F 04 DF AF 33 02 1F 9D
            FA 16 01 1B 80 44 93 02 76 E1 6F 04 DF E0 AF B2 2D 05 08 16 01 1B
            33 DC E3 6F 04 DF AF B1 33 03 1F 94 02 83 03 9D 20 4E 9D 5C 20 4A
            9D 5C 78 8F 09 44 94 00 24 06 4F 9D 5C 78 9D 5C 1C 59 16 01 38 01
            72 8E 9E 7A 84 01 16 01 AE 8D 91 53 AC 81 47 00 38 01 72 8E 38 01
            72 8E E4 AE E5 AF 7B 01 E6 E7 B3 E8 63 B7 1B 3B D7 1B 24 F0 E9 EA
            AB 5C 7A 7B 02 AE 61 03 1B 3C 94 00 94 00 9E 5C 78 9F 5C 5C 78 AD
            E9 EA EB 93 04 5E ED BF D9 62 02 14 EF B4 7B 02 7B 04 7B 02 61 02
            16 02 F8 84 02 16 01 83 00 9D 21 52 16 01 AC 80 A2 00 BA 7B 03 92
            0B FF B8 9D F8 7B 03 63 B5 1B 32 00 1B 1C 94 00 94 00 9E 5C 5C 78
            9F 5C 5C 79 AE E7 BB E5 93 05 6A B1 BD 7B 01 73 02 23 61 01 14 A2
            7C 02 7B 03 61 02 16 02 F8 AF 80 A0 02 16 01 83 00 9D 21 4E 16 01
            AC 31 A2 16 01 7C 02 7B 03 61 03 19 09)
      2. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: illegal syntax of clause ~S" SYSTEM::TEXT COMMON-LISP::HANDLER-CASE
      :NO-ERROR "~S: multiple ~S clauses: ~S and ~S" COMMON-LISP::WARN
      "~S: too many variables ~S in clause ~S" COMMON-LISP::BLOCK
      COMMON-LISP::LET COMMON-LISP::TAGBODY COMMON-LISP::RETURN-FROM
      COMMON-LISP::HANDLER-BIND COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA
      (COMMON-LISP::CONDITION)
      (COMMON-LISP::DECLARE (COMMON-LISP::IGNORE COMMON-LISP::CONDITION))
      COMMON-LISP::SETQ (COMMON-LISP::CONDITION) COMMON-LISP::GO
      COMMON-LISP::MULTIPLE-VALUE-CALL)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-82
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEFAULT-RESTART-TEST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEFAULT-RESTART-TEST
      #13Y(00 00 00 00 01 00 00 00 00 02 02 19 02)))
#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::DEFAULT-RESTART-INTERACTIVE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEFAULT-RESTART-INTERACTIVE
      #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01)))
#Y(#:TOP-LEVEL-FORM-84
   #579Y(00 00 00 00 00 00 00 00 00 01 00 2B 03 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 C9 0B 00 01 CA 0B 00 02 E0 2F 07 E0 AD 6D 08 01 32 80 DA DC
         68 02 00 64 E0 E3 E4 E5 E6 68 09 01 7B 01 E7 64 63 73 07 00 E8 E9 EA
         EB EC ED 68 0D 02 7B 01 EE 64 63 73 07 00 7B 06 68 06 01 68 07 02 73
         06 00 32 86 16 01 DA 2F 15 F0 31 59 F1 2F 07 F1 F2 F3 32 86 F1 F4 32
         80 F5 31 59 F6 2F 07 F6 F2 F7 32 86 F6 65 1E 32 80 65 1F 31 59 65 20
         31 59 65 21 2F 07 65 21 F2 65 22 32 86 65 21 65 23 32 80 65 21 65 24
         DA 32 86 65 25 31 59 65 26 31 59 65 27 2F 07 65 27 F2 65 28 32 86 65
         27 65 29 32 80 65 27 65 24 DA 32 86 65 2A 31 59 65 2B 31 59 65 2C 2F
         07 65 2C F2 65 2D 32 86 65 2C 65 2E 32 80 65 2C 65 24 DA 32 86 65 2F
         31 59 65 30 31 59 65 31 2F 07 65 31 F2 65 32 32 86 65 31 65 33 32 80
         65 31 65 24 DA 32 86 65 34 31 59 65 35 31 59 65 36 2F 07 65 36 F2 65
         37 32 86 65 36 65 38 32 80 65 36 65 24 DA 32 86 65 39 31 59 65 3A 31
         59 65 3B 2F 07 65 3B F2 65 3C 32 86 65 3B 65 3D 32 80 65 3B 65 24 DA
         32 86 65 21 65 3E 32 87 65 21 65 3F 65 40 65 41 03 42 7C 02 32 86 65
         21 65 43 63 2D 03 44 65 21 65 3E DA 32 86 65 27 65 3E 32 87 65 27 65
         3F 65 40 65 41 03 45 7C 02 32 86 65 27 65 43 63 2D 03 44 65 27 65 3E
         DA 32 86 65 2C 65 3E 32 87 65 2C 65 3F 65 40 65 41 03 46 7C 02 32 86
         65 2C 65 43 63 2D 03 44 65 2C 65 3E DA 32 86 65 31 65 3E 32 87 65 31
         65 3F 65 40 65 41 03 47 7C 02 32 86 65 31 65 43 63 2D 03 44 65 31 65
         3E DA 32 86 65 36 65 3E 32 87 65 36 65 3F 65 40 65 41 03 48 7C 02 32
         86 65 36 65 43 63 2D 03 44 65 36 65 3E DA 32 86 65 3B 65 3E 32 87 65
         3B 65 3F 65 40 65 41 03 49 7C 02 32 86 65 3B 65 43 63 2D 03 44 65 3B
         65 3E DA 32 86 DA 65 4A 63 2D 03 44 65 4B 65 4C 65 4D 65 4E 64 65 4F
         DA 38 02 72 27 64 38 02 72 27 7B 02 65 50 63 65 51 65 52 6E 0A 53 30
         54 C5 19 01)
   COMMON-LISP::RESTART COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   #Y(SYSTEM::DEFAULT-TEST #14Y(00 00 00 00 00 00 00 00 00 01 98 00 19 01)
      SYSTEM::DEFAULT-RESTART-TEST)
   #Y(SYSTEM::DEFAULT-INTERACTIVE
      #14Y(00 00 00 00 00 00 00 00 00 01 98 00 19 01)
      SYSTEM::DEFAULT-RESTART-INTERACTIVE)
   SYSTEM::MAKE-RESTART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-RESTART
      #85Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3D 06 3B 05 06 69 00 02 36
           00 FD 3D 04 3D 03 3D 02 3B 01 06 69 00 03 36 00 F9 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 :NAME :TEST :INVOKE-TAG :INVOKE-FUNCTION :REPORT
      :INTERACTIVE 7. COMMON-LISP::RESTART 1. 2. 3. 4. 5. 6.)
   #(SYSTEM::NAME (:NAME) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T
     COMMON-LISP::NIL)
   SYSTEM::TEST (:TEST) 2.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'COMMON-LISP::RESTART 'SYSTEM::DEFSTRUCT-DESCRIPTION) 4.)
   #(SYSTEM::INVOKE-TAG (:INVOKE-TAG) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
     COMMON-LISP::T COMMON-LISP::NIL)
   #(SYSTEM::INVOKE-FUNCTION (:INVOKE-FUNCTION) 4. (COMMON-LISP::NIL)
     COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL)
   #(SYSTEM::REPORT (:REPORT) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
     COMMON-LISP::T COMMON-LISP::NIL)
   SYSTEM::INTERACTIVE (:INTERACTIVE) 6.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'COMMON-LISP::RESTART 'SYSTEM::DEFSTRUCT-DESCRIPTION) 5.)
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::RESTART-P)
   SYSTEM::RESTART-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::RESTART-P))
    (COMMON-LISP::BLOCK SYSTEM::RESTART-P
     (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP::RESTART SYSTEM::OBJECT)))
   #Y(SYSTEM::RESTART-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      COMMON-LISP::RESTART)
   (COMMON-LISP::INLINE SYSTEM::COPY-RESTART) SYSTEM::COPY-RESTART
   ((COMMON-LISP::STRUCTURE)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::COPY-RESTART))
    (COMMON-LISP::BLOCK SYSTEM::COPY-RESTART
     (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)))
   #Y(SYSTEM::COPY-RESTART #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (COMMON-LISP::FUNCTION COMMON-LISP::RESTART-NAME (COMMON-LISP::RESTART)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE COMMON-LISP::RESTART-NAME) COMMON-LISP::RESTART-NAME
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP::RESTART-NAME))
    (COMMON-LISP::BLOCK COMMON-LISP::RESTART-NAME
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::RESTART SYSTEM::OBJECT 1.))))
   #Y(COMMON-LISP::RESTART-NAME
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::RESTART 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::RESTART-TEST (COMMON-LISP::RESTART)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::RESTART-TEST) SYSTEM::RESTART-TEST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::RESTART-TEST))
    (COMMON-LISP::BLOCK SYSTEM::RESTART-TEST
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::RESTART SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::RESTART-TEST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::RESTART 2.)
   (COMMON-LISP::FUNCTION SYSTEM::RESTART-INVOKE-TAG (COMMON-LISP::RESTART)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::RESTART-INVOKE-TAG) SYSTEM::RESTART-INVOKE-TAG
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::RESTART-INVOKE-TAG))
    (COMMON-LISP::BLOCK SYSTEM::RESTART-INVOKE-TAG
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::RESTART SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::RESTART-INVOKE-TAG
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::RESTART 3.)
   (COMMON-LISP::FUNCTION SYSTEM::RESTART-INVOKE-FUNCTION
    (COMMON-LISP::RESTART) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::RESTART-INVOKE-FUNCTION)
   SYSTEM::RESTART-INVOKE-FUNCTION
   (#1#
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::RESTART-INVOKE-FUNCTION))
    (COMMON-LISP::BLOCK SYSTEM::RESTART-INVOKE-FUNCTION
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::RESTART SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::RESTART-INVOKE-FUNCTION
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::RESTART 4.)
   (COMMON-LISP::FUNCTION SYSTEM::RESTART-REPORT (COMMON-LISP::RESTART)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::RESTART-REPORT) SYSTEM::RESTART-REPORT
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::RESTART-REPORT))
    (COMMON-LISP::BLOCK SYSTEM::RESTART-REPORT
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::RESTART SYSTEM::OBJECT 5.))))
   #Y(SYSTEM::RESTART-REPORT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::RESTART 5.)
   (COMMON-LISP::FUNCTION SYSTEM::RESTART-INTERACTIVE (COMMON-LISP::RESTART)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::RESTART-INTERACTIVE)
   SYSTEM::RESTART-INTERACTIVE
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::RESTART-INTERACTIVE))
    (COMMON-LISP::BLOCK SYSTEM::RESTART-INTERACTIVE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP::RESTART SYSTEM::OBJECT 6.))))
   #Y(SYSTEM::RESTART-INTERACTIVE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COMMON-LISP::RESTART 6.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-RESTART-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 'COMMON-LISP::RESTART 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-RESTART-TEST
      #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::RESTART 2.)
   #Y(SYSTEM::SETF-RESTART-INVOKE-TAG
      #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::RESTART 3.)
   #Y(SYSTEM::SETF-RESTART-INVOKE-FUNCTION
      #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::RESTART 4.)
   #Y(SYSTEM::SETF-RESTART-REPORT
      #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::RESTART 5.)
   #Y(SYSTEM::SETF-RESTART-INTERACTIVE
      #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::RESTART 6.)
   COMMON-LISP::STRUCTURE CLOS::PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-84-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-84-1-1
         #16Y(00 00 00 00 02 00 00 00 00 03 AE AE 30 00 19 03)
         SYSTEM::PRINT-RESTART)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD)
#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::PRINT-RESTART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PRINT-RESTART
      #76Y(00 00 00 00 02 00 00 00 00 03 00 2B 02 7F 03 00 00 7F 02 00 01 0E 00
           1C 18 0E 01 1C 14 68 00 00 6F 06 92 00 1F 68 01 00 6F 07 68 02 01 31
           80 19 05 AC 6D 02 01 68 01 00 68 02 01 DD 64 DE 64 2D 07 05 19 04 14
           68 02 01 36 01 19 05)
      COMMON-LISP::*PRINT-ESCAPE* COMMON-LISP::*PRINT-READABLY*
      #Y(SYSTEM::PRINT-RESTART-1
         #24Y(00 00 00 00 00 00 00 00 00 01 69 00 01 6F 01 38 10 69 00 02 31 7F
              19 01)
         COMMON-LISP::NIL COMMON-LISP::RESTART-NAME)
      :TYPE :IDENTITY SYSTEM::WRITE-UNREADABLE SYSTEM::RESTART-REPORT
      COMMON-LISP::RESTART-NAME))
#Y(#:TOP-LEVEL-FORM-86
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-RESTART-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-RESTART-FORM
      #71Y(00 00 00 00 06 00 00 00 00 00 DA DB B4 B4 DC 32 00 59 1D 04 DD B5 61
           02 14 A5 59 59 1D 04 DE B5 61 02 14 DF B5 A6 59 59 1D 04 E0 B6 61 02
           14 B5 E1 32 00 59 1D 04 E2 B6 61 02 14 33 02 23 7C 02 33 03 23 62 03
           19 07)
      SYSTEM::MAKE-RESTART :NAME #'SYSTEM::DEFAULT-RESTART-TEST :TEST
      :INVOKE-TAG :INVOKE-FUNCTION :REPORT
      #'SYSTEM::DEFAULT-RESTART-INTERACTIVE :INTERACTIVE))
#Y(#:TOP-LEVEL-FORM-87
   #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::*ACTIVE-RESTARTS*) SYSTEM::*ACTIVE-RESTARTS*)
#Y(#:TOP-LEVEL-FORM-88
   #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::*CONDITION-RESTARTS*)
   SYSTEM::*CONDITION-RESTARTS*)
#Y(#:TOP-LEVEL-FORM-89
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ADD-CONDITION-RESTARTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ADD-CONDITION-RESTARTS
      #34Y(00 00 00 00 02 00 00 00 00 03 AD 63 1B 0D 87 01 00 B0 9E 7A 0E 00 5D
           0F 00 83 01 AD 8D 91 6F 00 19 05)
      SYSTEM::*CONDITION-RESTARTS*))
#Y(#:TOP-LEVEL-FORM-90
   #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-CONDITION-RESTARTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-CONDITION-RESTARTS
      #50Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 1B 9F 5C 78 A0 5C
           5C 78 A1 5C 5C 79 DC DD DE B1 B1 7B 03 DC 63 A2 7C 02 61 04 19 06 AE
           2F 01 19 03)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET
      ((SYSTEM::*CONDITION-RESTARTS* SYSTEM::*CONDITION-RESTARTS*))
      SYSTEM::ADD-CONDITION-RESTARTS)
   SYSTEM::MAKE-MACRO)
#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::APPLICABLE-RESTART-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::APPLICABLE-RESTART-P
      #58Y(00 00 00 00 02 00 00 00 00 03 64 6B 00 63 1B 17 02 16 03 1F 23 1B 19
           87 01 00 79 A3 23 07 94 00 A2 22 6D 7D 02 83 01 AD 8D 91 6C 9F 16 03
           1F 08 AE 6F 01 AE 36 01 19 03 19 03)
      SYSTEM::*CONDITION-RESTARTS* SYSTEM::RESTART-TEST))
#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)
   COMMON-LISP::COMPUTE-RESTARTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::COMPUTE-RESTARTS
      #43Y(00 00 00 00 00 00 01 00 00 07 00 2B 01 3B 02 12 00 0B 00 00 1D 11 AC
           6D 00 01 6B 01 38 05 32 4E 19 03 0B 00 00 1C 6F 0E 01 19 03)
      #Y(COMMON-LISP::COMPUTE-RESTARTS-1
         #18Y(00 00 00 00 01 00 00 00 00 02 AD 69 00 01 30 01 19 02)
         COMMON-LISP::NIL SYSTEM::APPLICABLE-RESTART-P)
      SYSTEM::*ACTIVE-RESTARTS*))
#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)
   COMMON-LISP::FIND-RESTART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::FIND-RESTART
      #113Y(00 00 00 00 01 00 01 00 00 08 3B 01 14 7D 01 92 02 12 DA DB 6F 02
            DD B1 DE 33 03 1F 6B 05 63 1B 3C 93 02 6E AE 8E 04 74 E2 AF 8F 30
            37 6B 05 63 AD 8C 91 2D 87 01 00 14 A2 23 0B 93 03 05 AC B0 8B 07
            03 15 19 04 83 01 1B 66 87 01 00 14 6F 06 A2 23 08 93 03 6D AC B0
            8A 07 68 83 01 AD 8D 91 69 00 19 05 E3 E4 B0 E5 E6 E7 6F 02 DD B5
            33 06 1F)
      COMMON-LISP::ERROR
      "~S: ~S is not a valid restart name here. Use ~S instead." SYSTEM::TEXT
      COMMON-LISP::FIND-RESTART COMMON-LISP::COMPUTE-RESTARTS
      SYSTEM::*ACTIVE-RESTARTS* COMMON-LISP::RESTART-NAME
      SYSTEM::APPLICABLE-RESTART-P COMMON-LISP::RESTART COMMON-LISP::TYPE-ERROR
      :DATUM :EXPECTED-TYPE
      (COMMON-LISP::OR COMMON-LISP::SYMBOL COMMON-LISP::RESTART)
      "~S: invalid restart name ~S"))
#Y(#:TOP-LEVEL-FORM-94
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::RESTART-NOT-FOUND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::RESTART-NOT-FOUND
      #19Y(00 00 00 00 01 00 00 00 00 02 DA DB 6F 02 DD B0 33 02 1F)
      COMMON-LISP::CONTROL-ERROR "~S: No restart named ~S is visible."
      SYSTEM::TEXT COMMON-LISP::INVOKE-RESTART))
#Y(#:TOP-LEVEL-FORM-95
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::%INVOKE-RESTART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::%INVOKE-RESTART
      #26Y(00 00 00 00 02 00 00 00 00 03 AE 88 00 07 AE 6F 01 9F 9B 00 03 AE 6F
           00 9F 52)
      SYSTEM::RESTART-INVOKE-TAG SYSTEM::RESTART-INVOKE-FUNCTION))
#Y(#:TOP-LEVEL-FORM-96
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::INVOKE-RESTART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::INVOKE-RESTART
      #25Y(00 00 00 00 01 00 00 00 01 17 AE 6F 00 92 00 03 AF 2F 01 AC AF 30 02
           19 04)
      COMMON-LISP::FIND-RESTART SYSTEM::RESTART-NOT-FOUND
      SYSTEM::%INVOKE-RESTART))
#Y(#:TOP-LEVEL-FORM-97
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::INVOKE-RESTART-CONDITION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INVOKE-RESTART-CONDITION
      #26Y(00 00 00 00 02 00 00 00 01 18 AF AF 70 00 92 00 03 B0 2F 01 AC AF 30
           02 19 05)
      COMMON-LISP::FIND-RESTART SYSTEM::RESTART-NOT-FOUND
      SYSTEM::%INVOKE-RESTART))
#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::INVOKE-RESTART-CONDITION-IF-EXISTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INVOKE-RESTART-CONDITION-IF-EXISTS
      #25Y(00 00 00 00 02 00 00 00 01 18 AF AF 70 00 9D 1F 06 14 AF 30 01 19 05
           19 05)
      COMMON-LISP::FIND-RESTART SYSTEM::%INVOKE-RESTART))
#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)
   COMMON-LISP::INVOKE-RESTART-INTERACTIVELY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::INVOKE-RESTART-INTERACTIVELY
      #30Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 92 00 03 AE 2F 01 AC 6F 02 76
           00 AD AD 30 03 19 04)
      COMMON-LISP::FIND-RESTART SYSTEM::RESTART-NOT-FOUND
      SYSTEM::RESTART-INTERACTIVE SYSTEM::%INVOKE-RESTART))
#Y(#:TOP-LEVEL-FORM-100
   #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::RESTART-BIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::RESTART-BIND
      #138Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 40 9F 5C 78
            A0 5C 79 DC 84 00 AD 8F 09 38 93 01 80 63 E1 E2 E3 63 B1 9D 20 80
            46 94 00 00 2B 01 7F 01 00 00 14 8F 09 0D 06 00 00 5C 20 07 06 00
            00 78 8E 04 19 DD E4 6F 05 E0 06 03 00 14 33 02 1F AE 2F 01 19 03
            DD DE 6F 05 E0 A1 1B 6F AC 6D 0B 01 06 01 00 37 00 F8 84 02 16 01
            83 00 1B FF B6 16 01 AC 80 A2 00 E6 33 02 23 7A 7B 02 7B 01 AE 61
            03 19 05 15 19 04)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::PROGN
      SYSTEM::SOURCE-PROGRAM-ERROR "~S: not a list: ~S" SYSTEM::TEXT
      COMMON-LISP::RESTART-BIND COMMON-LISP::LET SYSTEM::*ACTIVE-RESTARTS*
      COMMON-LISP::LIST* "~S: invalid restart specification ~S"
      #Y(COMMON-LISP::RESTART-BIND-1
         #66Y(00 00 00 00 02 00 00 00 80 1D 03 00 01 00 3B 03 02 C9 FB 3B 02 02
              CA FA 3B 01 13 7D 01 93 05 11 1B 12 E0 E1 6F 08 E3 DD 69 00 01 33
              03 1F 92 05 03 93 01 6E E4 B2 7B 02 B0 63 B3 B1 B3 2D 06 0B 19
              06)
         COMMON-LISP::NIL :TEST-FUNCTION :INTERACTIVE-FUNCTION :REPORT-FUNCTION
         #'SYSTEM::DEFAULT-RESTART-TEST #'SYSTEM::DEFAULT-RESTART-INTERACTIVE
         SYSTEM::SOURCE-PROGRAM-ERROR
         "~S: unnamed restarts require ~S to be specified: ~S" SYSTEM::TEXT
         COMMON-LISP::RESTART-BIND COMMON-LISP::QUOTE
         SYSTEM::MAKE-RESTART-FORM)
      (SYSTEM::*ACTIVE-RESTARTS*))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-101
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::EXPAND-RESTART-CASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EXPAND-RESTART-CASE
      #500Y(00 00 00 00 03 00 00 00 00 04 AE 8F 09 05 63 AF 1B 80 AF DA DB 6F
            02 B1 A2 1B 80 5C DA DD 6F 02 B5 A0 1B 80 53 94 00 AC 9D 20 71 9D
            5C 20 6D 94 00 8F 04 68 94 00 83 01 01 04 1B 1B 94 05 83 06 6A 01
            7E 03 93 00 10 7E 02 1B 0C 94 05 83 06 84 00 94 05 83 06 84 00 B1
            8C 91 14 92 03 05 94 05 8E 09 59 92 02 09 A2 5C 20 05 94 05 8E 04
            5C 92 03 14 DA DE 6F 02 BA A5 14 33 02 1F DA E1 6F 02 BD E2 B9 33
            03 1F DF AD 32 47 37 00 42 03 92 07 04 AC 24 06 67 A1 20 15 94 04
            E3 38 03 8C B2 0D AD 25 0A 09 E5 6F 02 BC E6 B8 2D 04 0D 38 01 72
            8E B4 B0 B0 B0 B5 AB 62 06 16 08 F8 84 02 16 01 83 00 9D 21 FF 5F
            16 01 AC 80 A2 00 38 01 72 8E 38 01 72 8E B0 8F 02 0C A1 5B 26 0E
            00 00 1B 04 38 01 32 8E 14 E9 AF EA B0 7B 01 EB 63 B5 1B 80 96 00
            1B 80 81 EE F3 F4 B4 03 1B 7C 02 61 03 1B 80 71 14 65 1F A1 7A 7B
            02 65 20 65 21 B7 03 22 7C 02 7B 02 03 23 62 02 1B 80 90 65 26 65
            27 ED EE 65 28 65 29 65 27 BC 7B 03 03 2A 7C 03 7B 02 7B 02 7B 01
            B0 61 03 1B 80 77 94 00 94 00 9E 5C 78 9F 5C 5C 78 A0 5C 5C 5C 78
            B0 71 94 EC B0 7B 02 ED B0 7B 02 63 ED EE EF F0 C1 03 17 7C 02 F2
            B8 7B 02 7B 04 7B 02 B0 24 06 FF 85 ED B1 8E 05 FF 83 A2 14 61 02
            14 ED B3 7B 02 2D 06 1C 16 04 F8 84 02 16 01 83 00 9D 21 FF AF 16
            01 AC 80 A2 00 F7 B5 B9 7B 03 65 1E 92 08 FF 66 65 20 65 24 B0 65
            25 33 02 23 7A 7B 02 61 01 14 92 09 FF 6B 9F 14 61 03 16 01 F8 63
            B6 1B 27 94 00 94 00 9E 5C 5C 5C 5C 79 AD F7 BB 65 2B ED EE A3 7A
            7B 02 BD 7B 03 7B 03 61 02 16 01 F8 AF 80 A0 02 16 01 83 00 9D 21
            56 16 01 AC 31 A2 16 01 7C 02 7B 03 61 03 19 08)
      SYSTEM::SOURCE-PROGRAM-ERROR "~S: not a list: ~S" SYSTEM::TEXT
      "~S: invalid restart specification ~S"
      "~S: missing lambda list in restart specification ~S"
      #Y(SYSTEM::EXPAND-RESTART-CASE-1
         #36Y(00 00 00 00 00 00 00 00 80 1B 03 00 00 00 3B 03 02 C8 FB 3B 02 02
              C9 FA 3B 01 02 CA F9 AF AF AF 40 03 19 04)
         :TEST :INTERACTIVE :REPORT SYSTEM::DEFAULT-RESTART-TEST
         SYSTEM::DEFAULT-RESTART-INTERACTIVE SYSTEM::DEFAULT-RESTART-REPORT)
      SYSTEM::DEFAULT-RESTART-REPORT
      "~S: unnamed restarts require ~S to be specified: ~S" :REPORT
      #.COMMON-LISP::LAMBDA-LIST-KEYWORDS SYSTEM::DEFAULT-RESTART-INTERACTIVE
      "~S: restart cannot be invoked interactively because it is missing a ~S option: ~S"
      :INTERACTIVE COMMON-LISP::WARN
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::WARN . 4.)
         (COMMON-LISP::CERROR . 4.) (COMMON-LISP::ERROR . 4.)
         (COMMON-LISP::SIGNAL . 4.))
      COMMON-LISP::BLOCK COMMON-LISP::LET COMMON-LISP::TAGBODY
      COMMON-LISP::QUOTE COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA
      (COMMON-LISP::&REST SYSTEM::ARGUMENTS) COMMON-LISP::SETQ
      (SYSTEM::ARGUMENTS) COMMON-LISP::GO (COMMON-LISP::STREAM)
      COMMON-LISP::WRITE-STRING (COMMON-LISP::STREAM) SYSTEM::MAKE-RESTART-FORM
      COMMON-LISP::RETURN-FROM COMMON-LISP::LET* COMMON-LISP::LIST
      SYSTEM::*ACTIVE-RESTARTS* COMMON-LISP::APPEND (SYSTEM::*ACTIVE-RESTARTS*)
      ((SYSTEM::*CONDITION-RESTARTS* SYSTEM::*CONDITION-RESTARTS*))
      COMMON-LISP::LIST* (SYSTEM::*ACTIVE-RESTARTS*) COMMON-LISP::HANDLER-BIND
      COMMON-LISP::CONDITION (COMMON-LISP::CONDITION)
      SYSTEM::ADD-CONDITION-RESTARTS
      ((COMMON-LISP::SIGNAL COMMON-LISP::CONDITION)) COMMON-LISP::APPLY))
#Y(#:TOP-LEVEL-FORM-102
   #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::RESTART-CASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::RESTART-CASE
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0E 9F 5C 78 A0 5C
           79 DC AD AF 2D 03 03 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::RESTART-CASE
      SYSTEM::EXPAND-RESTART-CASE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-103
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   EXT::WITH-RESTARTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::WITH-RESTARTS
      #39Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 10 9F 5C 78 A0 5C
           79 DC AE DD A0 7A 2D 03 04 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR EXT::WITH-RESTARTS COMMON-LISP::PROGN
      SYSTEM::EXPAND-RESTART-CASE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-104
   #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-SIMPLE-RESTART SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-SIMPLE-RESTART
      #147Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 64 9F 5C 5B
            78 A0 5C 5B 5C 78 A1 5C 5B 5C 79 A2 5C 79 92 01 80 54 AE 38 01 8D
            5D 80 4D 38 01 72 8E 38 01 72 8E E3 AE E4 E5 B0 7B 02 E6 E7 E8 E9
            EA EB E5 BC 7B 02 EC E5 B9 7B 02 DD ED DE EE E0 E1 C3 7B 03 7B 03
            7B 02 7B 07 7B 02 03 15 7C 02 7B 02 7B 01 F0 B4 F1 A8 7A 7B 03 7B
            03 03 18 7C 03 61 03 19 09 AE 2F 01 19 03 DC B0 DD DE DF E0 E1 B5
            A6 7C 03 7B 03 CD 7C 03 7B 01 9F 62 02 19 07)
      2. SYSTEM::MACRO-CALL-ERROR EXT::WITH-RESTARTS :REPORT
      COMMON-LISP::LAMBDA (COMMON-LISP::STREAM) COMMON-LISP::FORMAT
      COMMON-LISP::STREAM
      (COMMON-LISP::NIL (COMMON-LISP::VALUES COMMON-LISP::NIL COMMON-LISP::T))
      COMMON-LISP::BLOCK COMMON-LISP::CATCH COMMON-LISP::QUOTE COMMON-LISP::LET
      SYSTEM::*ACTIVE-RESTARTS* COMMON-LISP::CONS COMMON-LISP::LOAD-TIME-VALUE
      SYSTEM::MAKE-RESTART :NAME :INVOKE-TAG COMMON-LISP::FUNCTION
      (COMMON-LISP::STREAM) (SYSTEM::*ACTIVE-RESTARTS*)
      COMMON-LISP::RETURN-FROM COMMON-LISP::PROGN
      ((COMMON-LISP::VALUES COMMON-LISP::NIL COMMON-LISP::T)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-105
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::ABORT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::ABORT
      #18Y(00 00 00 00 00 00 01 00 00 07 3D 01 DA AE 30 01 19 02)
      COMMON-LISP::ABORT SYSTEM::INVOKE-RESTART-CONDITION))
#Y(#:TOP-LEVEL-FORM-106
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::CONTINUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::CONTINUE
      #18Y(00 00 00 00 00 00 01 00 00 07 3D 01 DA AE 30 01 19 02)
      COMMON-LISP::CONTINUE SYSTEM::INVOKE-RESTART-CONDITION-IF-EXISTS))
#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)
   COMMON-LISP::MUFFLE-WARNING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::MUFFLE-WARNING
      #18Y(00 00 00 00 00 00 01 00 00 07 3D 01 DA AE 30 01 19 02)
      COMMON-LISP::MUFFLE-WARNING SYSTEM::INVOKE-RESTART-CONDITION))
#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)
   COMMON-LISP::STORE-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::STORE-VALUE
      #20Y(00 00 00 00 01 00 01 00 00 08 3D 01 DA AE B0 2D 03 01 19 03)
      COMMON-LISP::STORE-VALUE SYSTEM::INVOKE-RESTART-CONDITION-IF-EXISTS))
#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)
   COMMON-LISP::USE-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::USE-VALUE
      #20Y(00 00 00 00 01 00 01 00 00 08 3D 01 DA AE B0 2D 03 01 19 03)
      COMMON-LISP::USE-VALUE SYSTEM::INVOKE-RESTART-CONDITION-IF-EXISTS))
#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::REPORT-NEW-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REPORT-NEW-VALUE
      #20Y(00 00 00 00 01 00 00 00 00 02 2E 00 14 AE 38 02 31 88 19 02)
      SYSTEM::REPORT-ONE-NEW-VALUE-STRING))
#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::PROMPT-FOR-NEW-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROMPT-FOR-NEW-VALUE
      #89Y(00 00 00 00 01 00 00 00 00 02 AD 2F 00 42 03 15 16 01 F8 72 45 AC DB
           90 01 2E 04 DB 63 1B 28 6B 02 2E 03 14 B0 2D 03 04 6B 02 38 03 71 73
           61 01 19 03 6B 02 DF 6F 06 B2 B0 B2 2D 05 04 6B 02 38 03 71 73 84 00
           85 01 AD AF 91 01 31 65 AC 32 47 16 02 1E 03 00 19 03 19 03)
      COMMON-LISP::GET-SETF-EXPANSION 1. COMMON-LISP::*QUERY-IO*
      SYSTEM::PROMPT-FOR-NEW-VALUE-STRING COMMON-LISP::FORMAT
      "~%New ~S [value ~D of ~D]: " SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-112
   #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::CHECK-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::CHECK-TYPE
      #143Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 45 DB 91 02 32 80 76 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 5C 1D 05 A1 5C 5C 5C 5B 14 38 01 72 8E 38
            01 72 8E 38 01 72 8E DD AF DE AF B5 7B 02 7B 01 DF E0 B2 E1 B8 7B
            02 7B 03 E2 B4 7B 02 7B 03 E3 E4 E5 E6 B5 E7 E1 BC 7B 02 E8 E9 E1
            C0 7B 02 BE E1 C1 7B 02 7B 04 BA 7B 09 EA EB EC ED EE 63 EF E1 C0
            7B 02 7B 02 7B 03 F0 F1 BF 03 18 7C 02 7B 07 7B 03 7B 04 E2 B2 7B
            02 B1 61 05 19 09 AE 2F 02 19 03)
      3. 4. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TAGBODY COMMON-LISP::LET
      COMMON-LISP::WHEN COMMON-LISP::TYPEP COMMON-LISP::QUOTE COMMON-LISP::GO
      COMMON-LISP::RESTART-CASE SYSTEM::ERROR-OF-TYPE 'COMMON-LISP::TYPE-ERROR
      :DATUM :EXPECTED-TYPE (SYSTEM::TYPE-ERROR-STRING)
      SYSTEM::CHECK-TYPE-ERROR-STRING COMMON-LISP::STORE-VALUE :REPORT
      SYSTEM::REPORT-NEW-VALUE :INTERACTIVE COMMON-LISP::LAMBDA
      SYSTEM::PROMPT-FOR-NEW-VALUE (SYSTEM::NEW-VALUE) COMMON-LISP::SETF
      (SYSTEM::NEW-VALUE))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-113
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::REPORT-NO-NEW-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REPORT-NO-NEW-VALUE
      #20Y(00 00 00 00 01 00 00 00 00 02 2E 00 14 AE 38 02 31 88 19 02)
      SYSTEM::REPORT-NO-NEW-VALUE-STRING))
#Y(#:TOP-LEVEL-FORM-114
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::REPORT-NEW-VALUES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REPORT-NEW-VALUES
      #20Y(00 00 00 00 01 00 00 00 00 02 2E 00 14 AE 38 02 31 88 19 02)
      SYSTEM::REPORT-NEW-VALUES-STRING))
#Y(#:TOP-LEVEL-FORM-115
   #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::ASSERT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::ASSERT
      #211Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 5A 9F 5C 78
            A0 5C 5C 1D 04 A0 5C 5C 5B 14 A1 5C 5C 5C 1D 05 A1 5C 5C 5C 5B 14
            A2 5C 5C 5C 79 38 01 72 8E 38 01 72 8E DC AE DD B4 DE B1 7B 02 7B
            03 DF E0 E1 92 09 29 E2 E3 E4 BA 7B 02 7B 02 61 02 7A 7B 02 E5 E6
            B7 72 45 AC 24 0D 18 AC 24 0F 17 D6 F8 EC ED 63 EE 63 BD 1B 1F AE
            2F 01 19 03 14 A6 5D 1B 5C D3 1B 6A D5 1B 67 94 00 EF E4 AE 7B 02
            7B 02 84 02 16 01 83 00 9D 21 6E 16 01 AC 31 A2 16 01 7A 7B 03 BA
            01 02 1B 1B 94 02 2F 16 42 05 AE B3 80 A0 06 F1 F2 B2 B2 73 01 17
            AF 7B 03 84 05 16 05 83 02 AE 8D 91 61 AD 72 47 AD 32 47 5D 16 03
            7C 05 7B 03 DE B2 7B 02 B1 61 06 19 09)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TAGBODY COMMON-LISP::WHEN
      COMMON-LISP::GO COMMON-LISP::RESTART-CASE COMMON-LISP::PROGN
      COMMON-LISP::ERROR "~A" SYSTEM::ASSERT-ERROR-STRING COMMON-LISP::QUOTE
      COMMON-LISP::CONTINUE :REPORT 0. SYSTEM::REPORT-NO-NEW-VALUE 1.
      SYSTEM::REPORT-NEW-VALUE SYSTEM::REPORT-NEW-VALUES :INTERACTIVE
      COMMON-LISP::LAMBDA COMMON-LISP::APPEND SYSTEM::PROMPT-FOR-NEW-VALUE
      COMMON-LISP::GET-SETF-EXPANSION COMMON-LISP::LET* #.#'COMMON-LISP::LIST)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-116
   #49Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 DE 2F 01 DE DF
        6F 03 32 80 E0 2F 01 E0 E1 6F 03 32 80 E2 2F 01 E2 E3 6F 03 32 80 CD 19
        01)
   COMMON-LISP::ETYPECASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::ETYPECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TYPECASE
      #1=#Y(SYSTEM::TYPECASE-ERRORSTRING
            #28Y(00 00 00 00 02 00 00 00 00 03 DA AE 73 00 17 DB DC B1 7B 02 DC
                 AF 7B 02 61 03 19 04)
            #.#'COMMON-LISP::FIRST SYSTEM::TYPECASE-ERROR-STRING
            COMMON-LISP::QUOTE)
      #2=#Y(SYSTEM::TYPECASE-EXPECTED-TYPE
            #19Y(00 00 00 00 01 00 00 00 00 02 DA DB AF 33 00 17 5D 19 02)
            COMMON-LISP::OR #.#'COMMON-LISP::FIRST)
      #3=#Y(SYSTEM::SIMPLY-ERROR
            #54Y(00 00 00 00 05 00 00 00 00 06 38 01 72 8E DA AD B3 7B 02 7B 01
                 B4 AF B4 C6 74 DC DD DE DF B5 E0 E1 BA 7B 02 E2 BC BA 7B 09 7B
                 02 7B 01 33 02 23 7C 02 61 03 19 07)
            COMMON-LISP::LET
            #4=#Y(SYSTEM::PARENTHESIZE-KEYS
                  #62Y(00 00 00 00 01 00 00 00 00 02 63 AE 1B 26 DB 6F 02 94 01
                       AE 2D 03 03 94 00 7B 01 9E 5C 5D 1B 0D 94 00 94 00 02 22
                       67 94 00 24 00 62 9D 14 84 02 16 01 83 00 9D 21 69 16 01
                       AC 31 A2 19 03)
                  COMMON-LISP::OTHERWISE
                  "~S used as a key in ~S, it would be better to use parentheses."
                  SYSTEM::TEXT COMMON-LISP::WARN)
            COMMON-LISP::OTHERWISE SYSTEM::ERROR-OF-TYPE
            'COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::QUOTE
            (SYSTEM::TYPE-ERROR-STRING)))
   SYSTEM::MAKE-MACRO COMMON-LISP::CTYPECASE
   #Y(COMMON-LISP::CTYPECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TYPECASE #1# #2#
      #5=#Y(SYSTEM::RETRY-LOOP
            #98Y(00 00 00 00 05 00 00 00 00 06 38 01 72 8E 38 01 72 8E DA AE DB
                 AF DC B2 B9 B9 B9 C8 74 DE DF E0 E1 E2 E3 C1 E4 E5 C1 7B 02 E6
                 C3 66 1A 7B 09 7B 02 E7 E8 E9 EA EB 63 EC E5 66 1A 7B 02 7B 02
                 7B 03 ED EE 66 19 03 15 7C 02 7B 07 7B 03 F0 B8 7B 02 7B 03 7B
                 01 33 02 23 7C 02 7B 03 7B 03 61 03 19 08)
            COMMON-LISP::BLOCK COMMON-LISP::TAGBODY COMMON-LISP::RETURN-FROM
            #4# COMMON-LISP::OTHERWISE COMMON-LISP::RESTART-CASE
            COMMON-LISP::PROGN SYSTEM::ERROR-OF-TYPE 'COMMON-LISP::TYPE-ERROR
            :DATUM :EXPECTED-TYPE COMMON-LISP::QUOTE
            (SYSTEM::TYPE-ERROR-STRING) COMMON-LISP::STORE-VALUE :REPORT
            SYSTEM::REPORT-NEW-VALUE :INTERACTIVE COMMON-LISP::LAMBDA
            SYSTEM::PROMPT-FOR-NEW-VALUE (SYSTEM::NEW-VALUE) COMMON-LISP::SETF
            (SYSTEM::NEW-VALUE) COMMON-LISP::GO))
   COMMON-LISP::ECASE
   #Y(COMMON-LISP::ECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CASE
      #6=#Y(SYSTEM::CASE-ERRORSTRING
            #61Y(00 00 00 00 02 00 00 00 00 03 63 AE 1B 19 9D 1B 0D 94 00 AC 87
                 00 00 14 8E 09 73 AC 61 01 F8 AF 80 A0 02 16 01 83 00 9D 21 67
                 16 01 AC 80 A2 00 DA DB B1 7B 02 DB AF 7B 02 61 03 19 04)
            SYSTEM::CASE-ERROR-STRING COMMON-LISP::QUOTE)
      #7=#Y(SYSTEM::CASE-EXPECTED-TYPE
            #53Y(00 00 00 00 01 00 00 00 00 02 DA 63 AF 1B 19 9D 1B 0D 94 00 AC
                 87 00 00 14 8E 09 73 AC 61 01 F8 AF 80 A0 02 16 01 83 00 9D 21
                 67 16 01 AC 31 A2 16 01 5D 19 02)
            COMMON-LISP::MEMBER)
      #3#)
   COMMON-LISP::CCASE
   #Y(COMMON-LISP::CCASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CASE #6# #7# #5#))
#Y(#:TOP-LEVEL-FORM-117
   #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::*DEBUGGER-HOOK*)
   COMMON-LISP::*DEBUGGER-HOOK*)
#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)
   COMMON-LISP::BREAK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::BREAK
      #111Y(01 00 01 00 00 00 01 00 01 00 3B 02 1F C5 FA 0E 01 1C 1D 6B 02 31
            8A 99 03 6B 02 DE DF B2 73 02 26 A1 37 02 6B 06 64 36 01 1B 80 40
            0E 01 1D 63 E1 E2 B0 E3 B1 6E 05 0A 00 2B 01 00 0B 00 00 4B 0B 21
            E6 E7 E8 B3 B2 6D 0F 02 EA EB 6E 06 12 0E 13 5D 10 13 0E 14 10 14
            B7 E7 6F 15 7B 01 30 16 B7 31 60 06 04 00 39 00 00 4D 16 02 00 19
            03)
      "Break" SYSTEM::*USE-CLCS* COMMON-LISP::*ERROR-OUTPUT*
      COMMON-LISP::FORMAT COMMON-LISP::STRING "*** - " EXT::*BREAK-DRIVER*
      COMMON-LISP::SIMPLE-CONDITION :FORMAT-CONTROL :FORMAT-ARGUMENTS
      COMMON-LISP::MAKE-CONDITION #(COMMON-LISP::NIL) :NAME
      COMMON-LISP::CONTINUE :INVOKE-FUNCTION
      #Y(COMMON-LISP::BREAK-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
      #Y(COMMON-LISP::BREAK-2
         #20Y(00 00 00 00 01 00 00 00 00 02 AD DA 6F 01 DC 2D 03 03 19 02)
         "Return from ~S loop" SYSTEM::TEXT COMMON-LISP::BREAK
         COMMON-LISP::FORMAT)
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS*
      SYSTEM::*CONDITION-RESTARTS* COMMON-LISP::FIND-RESTART
      SYSTEM::ADD-CONDITION-RESTARTS))
#Y(#:TOP-LEVEL-FORM-119
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::CERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::CERROR
      #190Y(01 00 01 00 02 00 00 00 01 18 00 2B 02 7F 04 00 00 7F 02 00 01 0E
            00 1C 37 0E 01 1C 80 5A 6B 02 31 8A DD 6B 02 38 02 31 88 6B 02 31
            8A 99 04 6B 02 B1 06 03 01 37 02 6B 05 31 8A 6B 05 88 06 1B 99 04
            6B 05 06 02 00 14 06 03 01 37 02 1B 80 6B 14 06 01 00 1C 01 02 14
            A2 1B 6C E1 6F 08 6B 05 38 02 31 88 99 04 6B 05 68 02 00 06 03 01
            37 02 6B 09 64 36 01 1B 80 43 AF 68 01 01 E4 E5 6E 04 0C 9E 2B 01
            00 0B 00 00 4B 0D 27 E8 E9 EA B3 B2 6D 11 02 EC B5 6D 13 01 6E 06
            14 0E 15 5D 10 15 0E 16 10 16 B7 E9 6F 17 7B 01 30 18 B7 2F 19 B7
            31 60 06 04 00 39 00 00 4D 16 02 00 19 05)
      CUSTOM::*ERROR-HANDLER* SYSTEM::*USE-CLCS* COMMON-LISP::*ERROR-OUTPUT*
      "** - Continuable Error" COMMON-LISP::FORMAT COMMON-LISP::*DEBUG-IO*
      COMMON-LISP::INTERACTIVE-STREAM-P
      "If you continue (by typing 'continue'): " SYSTEM::TEXT
      EXT::*BREAK-DRIVER* COMMON-LISP::CERROR COMMON-LISP::SIMPLE-ERROR
      SYSTEM::COERCE-TO-CONDITION #(COMMON-LISP::NIL) :NAME
      COMMON-LISP::CONTINUE :INVOKE-FUNCTION
      #Y(COMMON-LISP::CERROR-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
      #Y(COMMON-LISP::CERROR-2
         #22Y(00 00 00 00 01 00 00 00 00 02 99 01 AE 69 01 01 07 01 02 9B 02
              02)
         COMMON-LISP::NIL COMMON-LISP::FORMAT)
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS*
      SYSTEM::*CONDITION-RESTARTS* COMMON-LISP::FIND-RESTART
      SYSTEM::ADD-CONDITION-RESTARTS COMMON-LISP::SIGNAL))
#Y(#:TOP-LEVEL-FORM-120
   #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 CUSTOM::*BREAK-ON-WARNINGS*)
   CUSTOM::*BREAK-ON-WARNINGS*)
#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)
   COMMON-LISP::WARN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WARN
      #224Y(01 00 01 00 01 00 00 00 01 17 0E 00 1D 80 5D AE AE E1 E2 6E 04 09
            AC 72 26 E4 8B 0B 80 72 00 2B 01 00 0B 00 00 4B 11 80 AB EC ED EE
            B3 B2 6D 15 02 6E 04 16 0E 17 5D 10 17 0E 18 10 18 B7 ED 6F 19 7B
            01 30 1A B7 2F 1B 12 02 4D 16 01 6B 01 31 8A F6 6F 03 6B 01 38 02
            31 88 6B 01 31 8A AC 6B 01 30 1D 0E 05 1C 36 16 01 00 19 03 6B 01
            31 8A DC 6F 03 6B 01 38 02 31 88 6B 01 31 8A 99 04 6B 01 B0 A1 37
            02 0E 05 1D 60 6B 06 64 36 01 1B 59 E6 E7 AE E8 E9 EA 6F 03 E1 B3
            33 06 1F 00 2B 01 00 0B 00 00 4B 1E 2D EC 65 1F EE B3 B2 6D 20 02
            65 21 65 22 6E 06 16 0E 17 5D 10 17 0E 18 10 18 B7 65 1F 6F 19 7B
            01 30 1A 6B 06 63 B9 63 36 03 12 02 1B 06 06 04 00 39 00 00 4D 16
            02 1B FF 89)
      SYSTEM::*USE-CLCS* COMMON-LISP::*ERROR-OUTPUT* "WARNING:" SYSTEM::TEXT
      COMMON-LISP::FORMAT CUSTOM::*BREAK-ON-WARNINGS* EXT::*BREAK-DRIVER*
      COMMON-LISP::WARN COMMON-LISP::SIMPLE-WARNING SYSTEM::COERCE-TO-CONDITION
      #.(CLOS::FIND-CLASS 'COMMON-LISP::WARNING) CLOS::SUBCLASSP
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::WARNING
      "~S: This is more serious than a warning: ~A" #(COMMON-LISP::NIL) :NAME
      COMMON-LISP::MUFFLE-WARNING :INVOKE-FUNCTION
      #Y(COMMON-LISP::WARN-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)
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS*
      SYSTEM::*CONDITION-RESTARTS* COMMON-LISP::FIND-RESTART
      SYSTEM::ADD-CONDITION-RESTARTS COMMON-LISP::SIGNAL "WARNING:"
      SYSTEM::PRINT-CONDITION #(COMMON-LISP::NIL) COMMON-LISP::CONTINUE
      #Y(COMMON-LISP::WARN-2
         #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
      #Y(COMMON-LISP::WARN-3
         #20Y(00 00 00 00 01 00 00 00 00 02 AD DA 6F 01 DC 2D 03 03 19 02)
         "Return from ~S loop" SYSTEM::TEXT COMMON-LISP::BREAK
         COMMON-LISP::FORMAT)))
#Y(#:TOP-LEVEL-FORM-122
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 6F 06 32
        80 C5 19 01)
   EXT::MUFFLE-CERRORS SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "(MUFFLE-CERRORS {form}*) executes the forms, but when a continuable
error occurs, the CONTINUE restart is silently invoked."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::MUFFLE-CERRORS
      #19Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB 9F 62 02 19 04)
      COMMON-LISP::HANDLER-BIND ((COMMON-LISP::ERROR #'COMMON-LISP::CONTINUE)))
   SYSTEM::MAKE-MACRO)
#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::APPEASE-CERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::APPEASE-CERROR
      #66Y(03 00 01 00 01 00 00 00 00 02 DA AE 70 01 9D 1F 2F DC 63 38 01 72 73
           53 18 B2 AF 30 03 B0 6F 04 93 00 07 AF 31 8A AC B0 36 01 16 01 AE 32
           74 3F 54 67 00 00 00 2F 05 55 F8 30 06 AC 2F 07 19 03 19 03)
      COMMON-LISP::CONTINUE COMMON-LISP::FIND-RESTART "~A"
      SYSTEM::PRINT-CONDITION SYSTEM::RESTART-REPORT COMMON-LISP::CLOSE
      COMMON-LISP::WARN COMMON-LISP::INVOKE-RESTART))
#Y(#:TOP-LEVEL-FORM-124
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 6F 06 32
        80 C5 19 01)
   EXT::APPEASE-CERRORS SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "(APPEASE-CERRORS {form}*) executes the forms, but turns continuable errors
into warnings. A continuable error is signalled again as a warning, then
its CONTINUE restart is invoked."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::APPEASE-CERRORS
      #19Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB 9F 62 02 19 04)
      COMMON-LISP::HANDLER-BIND
      ((COMMON-LISP::ERROR #'SYSTEM::APPEASE-CERROR)))
   SYSTEM::MAKE-MACRO)
#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::EXITUNCONDITIONALLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EXITUNCONDITIONALLY
      #31Y(00 00 00 00 01 00 00 00 00 02 6B 00 31 8A DB 6B 00 38 02 31 88 AD 6B
           00 30 02 64 2F 03 19 02)
      COMMON-LISP::*ERROR-OUTPUT* "*** - " SYSTEM::PRINT-CONDITION EXT::EXIT))
#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::EXITONERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::EXITONERROR
      #23Y(00 00 00 00 01 00 00 00 00 02 DA AE 8A 01 05 AD 2F 02 19 02 00 19
           02)
      COMMON-LISP::CONTINUE COMMON-LISP::FIND-RESTART
      SYSTEM::EXITUNCONDITIONALLY))
#Y(#:TOP-LEVEL-FORM-127
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 6F 06 32
        80 C5 19 01)
   EXT::EXIT-ON-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "(EXIT-ON-ERROR {form}*) executes the forms, but exits Lisp if a
non-continuable error or a Ctrl-C interrupt occurs."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::EXIT-ON-ERROR
      #19Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB 9F 62 02 19 04)
      COMMON-LISP::HANDLER-BIND
      ((SYSTEM::INTERRUPT-CONDITION #'SYSTEM::EXITUNCONDITIONALLY)
       (COMMON-LISP::SERIOUS-CONDITION #'SYSTEM::EXITONERROR)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-128
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 6F 06 32
        80 C5 19 01)
   SYSTEM::BATCHMODE-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS
   COMMON-LISP::FUNCTION
   "(SYSTEM::BATCHMODE-ERRORS {form}*) executes the forms, but handles errors
just as a batch program should do: continuable errors are signalled as
warnings, non-continuable errors and Ctrl-C interrupts cause Lisp to exit."
   SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::BATCHMODE-ERRORS
      #20Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB 9F 7A 61 02 19 04)
      EXT::EXIT-ON-ERROR EXT::APPEASE-CERRORS)
   SYSTEM::MAKE-MACRO)
