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