home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / conditio.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  68.8 KB  |  1,512 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (RESTART CONDITION SERIOUS-CONDITION ERROR PROGRAM-ERROR CONTROL-ERROR
  7.      ARITHMETIC-ERROR DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW
  8.      FLOATING-POINT-UNDERFLOW CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION
  9.      TYPE-ERROR PACKAGE-ERROR PRINT-NOT-READABLE STREAM-ERROR END-OF-FILE
  10.      FILE-ERROR STORAGE-CONDITION WARNING SIMPLE-CONDITION SIMPLE-ERROR
  11.      SIMPLE-TYPE-ERROR SIMPLE-WARNING DEFINE-CONDITION HANDLER-BIND
  12.      IGNORE-ERRORS HANDLER-CASE WITH-CONDITION-RESTARTS RESTART-BIND
  13.      RESTART-CASE WITH-RESTARTS WITH-SIMPLE-RESTART CHECK-TYPE ASSERT ETYPECASE
  14.      CTYPECASE ECASE CCASE MAKE-CONDITION ARITHMETIC-ERROR-OPERATION
  15.      ARITHMETIC-ERROR-OPERANDS CELL-ERROR-NAME TYPE-ERROR-DATUM
  16.      TYPE-ERROR-EXPECTED-TYPE PACKAGE-ERROR-PACKAGE PRINT-NOT-READABLE-OBJECT
  17.      STREAM-ERROR-STREAM FILE-ERROR-PATHNAME SIMPLE-CONDITION-FORMAT-STRING
  18.      SIMPLE-CONDITION-FORMAT-ARGUMENTS SIGNAL RESTART-NAME COMPUTE-RESTARTS
  19.      FIND-RESTART INVOKE-RESTART INVOKE-RESTART-INTERACTIVELY INVOKE-DEBUGGER
  20.      BREAK ERROR CERROR WARN ABORT CONTINUE MUFFLE-WARNING STORE-VALUE
  21.      USE-VALUE *BREAK-ON-SIGNALS* *DEBUGGER-HOOK* MUFFLE-CERRORS
  22.      APPEASE-CERRORS EXIT-ON-ERROR
  23.   ))
  24. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  25.    "SYSTEM"
  26.   )
  27. #Y(#:TOP-LEVEL-FORM-4
  28.    #25Y(00 00 00 00 00 00 00 00 00 01 D8 D9 62 DA 62 2C 05 03 D8 37 02 31 2D 19
  29.         01
  30.        )
  31.    CONDITION :DIRECT-SUPERCLASSES :DIRECT-SLOTS CLOS::ENSURE-CLASS
  32.   )
  33. #Y(#:TOP-LEVEL-FORM-5
  34.    #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 63
  35.         37 02 71 2D 7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01
  36.        )
  37.    PRINT-CONDITION (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
  38.    #Y(#:TOP-LEVEL-FORM-5-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  39.       #Y(#:TOP-LEVEL-FORM-5-1-1
  40.          #25Y(00 00 00 00 02 00 00 00 00 03 AB D8 D9 DA 6D 03 03 AE 71 2B 2C 03
  41.               04 19 03
  42.              )
  43.          #Y(#:TOP-LEVEL-FORM-5-1-1-1
  44.             #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9
  45.                  AE 30 8D 9C 19 04
  46.                 )
  47.             "Condition of type " #\.
  48.            )
  49.          #Y(#:TOP-LEVEL-FORM-5-1-1-2
  50.             #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9
  51.                  AE 30 8D 9C 19 04
  52.                 )
  53.             "Ausnahmefall vom Typ " #\.
  54.            )
  55.          #Y(#:TOP-LEVEL-FORM-5-1-1-3
  56.             #27Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9
  57.                  AE 30 8D 9C 19 04
  58.                 )
  59.             "Condition exceptionnelle de type " #\.
  60.            )
  61.          LANGUAGE FORMAT
  62.         )
  63.       (T)
  64.      )
  65.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CONDITION :QUALIFIERS
  66.    :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  67.    CLOS::DO-DEFGENERIC
  68.   )
  69. #Y(#:TOP-LEVEL-FORM-6
  70.    #39Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2D 63 37 02
  71.         71 2D 7A 02 DE 62 DF E0 6D 0A 09 2F 0A 19 01
  72.        )
  73.    CLOS:PRINT-OBJECT :INITFUNCTION
  74.    #Y(#:TOP-LEVEL-FORM-6-1
  75.       #25Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 C4 5C
  76.            19 03
  77.           )
  78.       #Y(#:TOP-LEVEL-FORM-6-1-1
  79.          #44Y(00 00 00 00 03 00 00 00 00 04 0E 01 1B 11 0E 02 1B 0D AC AC 2F 04
  80.               19 04 14 AD AD 35 02 19 04 91 03 76 68 00 01 AD AD 2C 03 03 19 04
  81.              )
  82.          NIL *PRINT-ESCAPE* *PRINT-READABLY* CLOS::%NO-NEXT-METHOD
  83.          PRINT-CONDITION
  84.         )
  85.       (NIL)
  86.      )
  87.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CONDITION :QUALIFIERS
  88.    :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  89.    CLOS::DO-DEFMETHOD
  90.   )
  91. #Y(#:TOP-LEVEL-FORM-7
  92.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  93.    DEFINE-CONDITION REMOVE-OLD-DEFINITIONS MACRO
  94.    #Y(DEFINE-CONDITION
  95.       #259Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 31 9D 5B 77 9E
  96.             5B 5B 77 9F 5B 5B 5B 77 A0 5B 5B 5B 78 AD 8E 09 21 AC 8E 0E 28 E0
  97.             AD 90 00 28 22 AB 8D 0E 80 46 DA E4 E5 E6 6D 03 06 DF 9F 14 32 02
  98.             1F AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF A1 1A 6C DA E1 E2 E3 6D
  99.             03 06 DF A0 1A 61 9C FA 16 01 1A 80 52 DA EA EB EC 6D 03 06 DF B5
  100.             A0 5A 1A 25 DA ED EE EF 6D 03 06 CA 1A 18 01 02 AC 62 AB 8B 97 80
  101.             69 86 01 00 14 8D 0E 0F DA F0 F1 F2 6D 03 06 CA 14 B4 9F 14 32 03
  102.             1F 93 00 8E 8F 52 AA 71 4A 24 0F 4C 93 00 AA 23 10 FF B1 AA 24 11
  103.             FF B3 9C 5B F9 16 01 82 01 1A 45 14 60 01 1A 3B 64 22 93 07 03 23
  104.             61 02 1A 1D 64 1E AB 64 1F 64 20 F4 B5 7A 02 03 21 79 93 06 8D 0A
  105.             63 64 24 64 25 A3 79 03 26 61 02 14 7A 04 60 03 19 0A 16 02 F3 B0
  106.             B0 F4 6F 1D B0 91 05 41 00 7B 04 91 01 4A 15 19 09
  107.            )
  108.       4. MACRO-CALL-ERROR PROGRAM-ERROR
  109.       "~S: the name of a condition must be a symbol, not ~S"
  110.       "~S: Der Name einer Condition mu▀ ein Symbol sein, nicht: ~S"
  111.       "~S : Le nom d'une condition exceptionnelle doit Ωtre un symbole et non ~S"
  112.       LANGUAGE DEFINE-CONDITION #.#'SYMBOLP
  113.       "~S: the parent-type list must be a list of symbols, not ~S"
  114.       "~S: Die Liste der Obertypen mu▀ eine Liste von Symbolen sein, nicht: ~S"
  115.       "~S : La liste des types doit Ωtre une liste de symboles et non ~S"
  116.       "~S: the slot description list must be a list, not ~S"
  117.       "~S: Die Liste der Slot-Beschreibungen mu▀ eine Liste sein, nicht: ~S"
  118.       "~S : La liste des descriptions de ½slots╗ doit Ωtre une listeet non ~S"
  119.       2. :DOCUMENTATION :REPORT "~S ~S: unknown option ~S"
  120.       "~S ~S: Die Option ~S gibt es nicht." "~S ~S : Option ~S non reconnue."
  121.       "~S ~S: invalid syntax in ~S option: ~S"
  122.       "~S ~S: Falsche Syntax in ~S-Option: ~S"
  123.       "~S ~S : Mauvaise syntaxe dans l'option ~S: ~S"
  124.       "~S ~S: not a ~S option: ~S" "~S ~S: Das ist keine ~S-Option: ~S"
  125.       "~S ~S : Ceci n'est pas une option ~S: ~S" CLOS:DEFCLASS CONDITION
  126.       CLOS::ADD-DEFAULT-SUPERCLASS PROGN CLOS:DEFMETHOD PRINT-CONDITION
  127.       (STREAM) WRITE-STRING (STREAM) FUNCALL FUNCTION (CONDITION STREAM)
  128.   )  )
  129. #Y(#:TOP-LEVEL-FORM-8
  130.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  131.    MAKE-CONDITION REMOVE-OLD-DEFINITIONS
  132.    #Y(MAKE-CONDITION
  133.       #35Y(00 00 00 00 01 00 00 00 01 17 AC D8 8A 01 07 98 08 AD 9E 9A 01 03 DA
  134.            DB DC DD 6D 03 06 DF AF D8 32 03 1F
  135.           )
  136.       CONDITION SUBTYPEP ERROR "~S: type ~S is not a subtype of ~S"
  137.       "~S: Typ ~S ist kein Untertyp von ~S."
  138.       "~S : Le type ~S n'est pas un sous-type de ~S." LANGUAGE MAKE-CONDITION
  139.       CLOS:MAKE-INSTANCE
  140.   )  )
  141. #Y(#:TOP-LEVEL-FORM-9
  142.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  143.    COERCE-TO-CONDITION REMOVE-OLD-DEFINITIONS
  144.    #Y(COERCE-TO-CONDITION
  145.       #86Y(00 00 00 00 04 00 00 00 01 1A AF 71 2C D8 89 01 2D AF 8D 09 2F AF 8D
  146.            0A 32 AF 8D 20 2E DA DB B1 DC E5 E6 E7 E8 6D 03 09 B3 B6 32 06 1F DA
  147.            DB B0 DC DD DE DF E0 6D 03 09 B3 B6 B6 32 07 1F 91 04 6C A0 19 06 98
  148.            0A B0 A1 9A 01 06 98 0A AD E3 B2 E4 B3 A2 9A 05 06
  149.           )
  150.       #.(CLOS:FIND-CLASS 'CONDITION) CLOS::SUBCLASSP TYPE-ERROR :DATUM
  151.       :EXPECTED-TYPE NULL "~S ~S: superfluous arguments ~S"
  152.       "~S ~S: ▄berflⁿssige Argumente ~S"
  153.       "~S ~S : Les arguments ~S sont superflus." LANGUAGE MAKE-CONDITION
  154.       :FORMAT-STRING :FORMAT-ARGUMENTS (OR CONDITION SYMBOL STRING FUNCTION)
  155.       "~S: the condition argument must be a string, a symbol or a condition, not ~S"
  156.       "~S: Condition-Argument mu▀ ein String, ein Symbol oder eine Condition sein, nicht ~S"
  157.       "~S : L'argument de condition exceptionnelle doit Ωtre de type STRING, SYMBOL ou CONDITION et non ~S"
  158.   )  )
  159. #Y(#:TOP-LEVEL-FORM-10
  160.    #31Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D 7A 01 DB 62 2C 05 04
  161.         D8 37 02 31 2D 19 01
  162.        )
  163.    SERIOUS-CONDITION :DIRECT-SUPERCLASSES CONDITION :DIRECT-SLOTS
  164.    CLOS::ENSURE-CLASS
  165.   )
  166. #Y(#:TOP-LEVEL-FORM-11
  167.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  168.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  169.        )
  170.    ERROR :DIRECT-SUPERCLASSES SERIOUS-CONDITION CONDITION :DIRECT-SLOTS
  171.    CLOS::ENSURE-CLASS
  172.   )
  173. #Y(#:TOP-LEVEL-FORM-12
  174.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  175.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  176.        )
  177.    PROGRAM-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS
  178.    CLOS::ENSURE-CLASS
  179.   )
  180. #Y(#:TOP-LEVEL-FORM-13
  181.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  182.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  183.        )
  184.    CONTROL-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS
  185.    CLOS::ENSURE-CLASS
  186.   )
  187. #Y(#:TOP-LEVEL-FORM-14
  188.    #97Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  189.         DC DD DE DF E0 E1 E2 7A 06 DD E3 DF E4 E1 E5 7A 06 7A 02 2C 05 0E E7 E8
  190.         E9 EA 63 EB D8 37 02 71 2D 7A 01 EC 62 ED EE 6D 0A 17 2F 18 F1 E8 F2 EA
  191.         63 EB D8 37 02 71 2D 7A 01 EC 62 ED F3 6D 0A 17 2F 18 D8 37 02 31 2D 19
  192.         01
  193.        )
  194.    ARITHMETIC-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME
  195.    OPERATION :READERS (ARITHMETIC-ERROR-OPERATION) :INITARGS (:OPERATION)
  196.    OPERANDS (ARITHMETIC-ERROR-OPERANDS) (:OPERANDS) CLOS::ENSURE-CLASS
  197.    ARITHMETIC-ERROR-OPERATION :INITFUNCTION
  198.    #Y(#:TOP-LEVEL-FORM-14-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  199.       #Y(#:TOP-LEVEL-FORM-14-1-1
  200.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) OPERATION
  201.         )
  202.       (T)
  203.      )
  204.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  205.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  206.    ARITHMETIC-ERROR-OPERANDS
  207.    #Y(#:TOP-LEVEL-FORM-14-2 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  208.       #Y(#:TOP-LEVEL-FORM-14-2-1
  209.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) OPERANDS
  210.         )
  211.       (T)
  212.      )
  213.    (1. 0. NIL NIL NIL NIL)
  214.   )
  215. #Y(#:TOP-LEVEL-FORM-15
  216.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  217.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  218.        )
  219.    DIVISION-BY-ZERO :DIRECT-SUPERCLASSES ARITHMETIC-ERROR CONDITION
  220.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  221.   )
  222. #Y(#:TOP-LEVEL-FORM-16
  223.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  224.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  225.        )
  226.    FLOATING-POINT-OVERFLOW :DIRECT-SUPERCLASSES ARITHMETIC-ERROR CONDITION
  227.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  228.   )
  229. #Y(#:TOP-LEVEL-FORM-17
  230.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  231.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  232.        )
  233.    FLOATING-POINT-UNDERFLOW :DIRECT-SUPERCLASSES ARITHMETIC-ERROR CONDITION
  234.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  235.   )
  236. #Y(#:TOP-LEVEL-FORM-18
  237.    #67Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  238.         DC DD DE DF E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71
  239.         2D 7A 01 E9 62 EA EB 6D 0A 14 2F 15 D8 37 02 31 2D 19 01
  240.        )
  241.    CELL-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME NAME
  242.    :READERS (CELL-ERROR-NAME) :INITARGS (:NAME) CLOS::ENSURE-CLASS
  243.    CELL-ERROR-NAME :INITFUNCTION
  244.    #Y(#:TOP-LEVEL-FORM-18-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  245.       #Y(#:TOP-LEVEL-FORM-18-1-1
  246.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) NAME
  247.         )
  248.       (T)
  249.      )
  250.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  251.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  252.   )
  253. #Y(#:TOP-LEVEL-FORM-19
  254.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  255.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  256.        )
  257.    UNBOUND-VARIABLE :DIRECT-SUPERCLASSES CELL-ERROR CONDITION :DIRECT-SLOTS
  258.    CLOS::ENSURE-CLASS
  259.   )
  260. #Y(#:TOP-LEVEL-FORM-20
  261.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  262.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  263.        )
  264.    UNDEFINED-FUNCTION :DIRECT-SUPERCLASSES CELL-ERROR CONDITION :DIRECT-SLOTS
  265.    CLOS::ENSURE-CLASS
  266.   )
  267. #Y(#:TOP-LEVEL-FORM-21
  268.    #97Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  269.         DC DD DE DF E0 E1 E2 7A 06 DD E3 DF E4 E1 E5 7A 06 7A 02 2C 05 0E E7 E8
  270.         E9 EA 63 EB D8 37 02 71 2D 7A 01 EC 62 ED EE 6D 0A 17 2F 18 F1 E8 F2 EA
  271.         63 EB D8 37 02 71 2D 7A 01 EC 62 ED F3 6D 0A 17 2F 18 D8 37 02 31 2D 19
  272.         01
  273.        )
  274.    TYPE-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME DATUM
  275.    :READERS (TYPE-ERROR-DATUM) :INITARGS (:DATUM) EXPECTED-TYPE
  276.    (TYPE-ERROR-EXPECTED-TYPE) (:EXPECTED-TYPE) CLOS::ENSURE-CLASS
  277.    TYPE-ERROR-DATUM :INITFUNCTION
  278.    #Y(#:TOP-LEVEL-FORM-21-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  279.       #Y(#:TOP-LEVEL-FORM-21-1-1
  280.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) DATUM
  281.         )
  282.       (T)
  283.      )
  284.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  285.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  286.    TYPE-ERROR-EXPECTED-TYPE
  287.    #Y(#:TOP-LEVEL-FORM-21-2 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  288.       #Y(#:TOP-LEVEL-FORM-21-2-1
  289.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) EXPECTED-TYPE
  290.         )
  291.       (T)
  292.      )
  293.    (1. 0. NIL NIL NIL NIL)
  294.   )
  295. #Y(#:TOP-LEVEL-FORM-22
  296.    #67Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  297.         DC DD DE DF E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71
  298.         2D 7A 01 E9 62 EA EB 6D 0A 14 2F 15 D8 37 02 31 2D 19 01
  299.        )
  300.    PACKAGE-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME
  301.    PACKAGE :READERS (PACKAGE-ERROR-PACKAGE) :INITARGS (:PACKAGE)
  302.    CLOS::ENSURE-CLASS PACKAGE-ERROR-PACKAGE :INITFUNCTION
  303.    #Y(#:TOP-LEVEL-FORM-22-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  304.       #Y(#:TOP-LEVEL-FORM-22-1-1
  305.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) PACKAGE
  306.         )
  307.       (T)
  308.      )
  309.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  310.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  311.   )
  312. #Y(#:TOP-LEVEL-FORM-23
  313.    #67Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  314.         DC DD DE DF E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71
  315.         2D 7A 01 E9 62 EA EB 6D 0A 14 2F 15 D8 37 02 31 2D 19 01
  316.        )
  317.    PRINT-NOT-READABLE :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME
  318.    OBJECT :READERS (PRINT-NOT-READABLE-OBJECT) :INITARGS (:OBJECT)
  319.    CLOS::ENSURE-CLASS PRINT-NOT-READABLE-OBJECT :INITFUNCTION
  320.    #Y(#:TOP-LEVEL-FORM-23-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  321.       #Y(#:TOP-LEVEL-FORM-23-1-1
  322.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) OBJECT
  323.         )
  324.       (T)
  325.      )
  326.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  327.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  328.   )
  329. #Y(#:TOP-LEVEL-FORM-24
  330.    #67Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  331.         DC DD DE DF E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71
  332.         2D 7A 01 E9 62 EA EB 6D 0A 14 2F 15 D8 37 02 31 2D 19 01
  333.        )
  334.    STREAM-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME STREAM
  335.    :READERS (STREAM-ERROR-STREAM) :INITARGS (:STREAM) CLOS::ENSURE-CLASS
  336.    STREAM-ERROR-STREAM :INITFUNCTION
  337.    #Y(#:TOP-LEVEL-FORM-24-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  338.       #Y(#:TOP-LEVEL-FORM-24-1-1
  339.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) STREAM
  340.         )
  341.       (T)
  342.      )
  343.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  344.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  345.   )
  346. #Y(#:TOP-LEVEL-FORM-25
  347.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  348.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  349.        )
  350.    END-OF-FILE :DIRECT-SUPERCLASSES STREAM-ERROR CONDITION :DIRECT-SLOTS
  351.    CLOS::ENSURE-CLASS
  352.   )
  353. #Y(#:TOP-LEVEL-FORM-26
  354.    #67Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  355.         DC DD DE DF E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71
  356.         2D 7A 01 E9 62 EA EB 6D 0A 14 2F 15 D8 37 02 31 2D 19 01
  357.        )
  358.    FILE-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME PATHNAME
  359.    :READERS (FILE-ERROR-PATHNAME) :INITARGS (:PATHNAME) CLOS::ENSURE-CLASS
  360.    FILE-ERROR-PATHNAME :INITFUNCTION
  361.    #Y(#:TOP-LEVEL-FORM-26-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  362.       #Y(#:TOP-LEVEL-FORM-26-1-1
  363.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) PATHNAME
  364.         )
  365.       (T)
  366.      )
  367.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  368.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  369.   )
  370. #Y(#:TOP-LEVEL-FORM-27
  371.    #36Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D 7A 02
  372.         DC 62 2C 05 05 D8 37 02 31 2D 19 01
  373.        )
  374.    STORAGE-CONDITION :DIRECT-SUPERCLASSES SERIOUS-CONDITION CONDITION
  375.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  376.   )
  377. #Y(#:TOP-LEVEL-FORM-28
  378.    #31Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D 7A 01 DB 62 2C 05 04
  379.         D8 37 02 31 2D 19 01
  380.        )
  381.    WARNING :DIRECT-SUPERCLASSES CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  382.   )
  383. #Y(#:TOP-LEVEL-FORM-29
  384.    #100Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D 7A 01 DB DC DD DE
  385.          DF E0 E1 E2 62 00 79 7A 08 DC E3 DE E4 E0 E5 E2 62 00 79 7A 08 7A 02
  386.          2C 05 0E E7 E8 E9 EA 63 EB D8 37 02 71 2D 7A 01 EC 62 ED EE 6D 0A 17
  387.          2F 18 F1 E8 F2 EA 63 EB D8 37 02 71 2D 7A 01 EC 62 ED F3 6D 0A 17 2F
  388.          18 D8 37 02 31 2D 19 01
  389.         )
  390.    SIMPLE-CONDITION :DIRECT-SUPERCLASSES CONDITION :DIRECT-SLOTS :NAME
  391.    FORMAT-STRING :READERS (SIMPLE-CONDITION-FORMAT-STRING) :INITARGS
  392.    (:FORMAT-STRING) :INITER FORMAT-ARGUMENTS
  393.    (SIMPLE-CONDITION-FORMAT-ARGUMENTS) (:FORMAT-ARGUMENTS) CLOS::ENSURE-CLASS
  394.    SIMPLE-CONDITION-FORMAT-STRING :INITFUNCTION
  395.    #Y(#:TOP-LEVEL-FORM-29-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  396.       #Y(#:TOP-LEVEL-FORM-29-1-1
  397.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) FORMAT-STRING
  398.         )
  399.       (T)
  400.      )
  401.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  402.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  403.    SIMPLE-CONDITION-FORMAT-ARGUMENTS
  404.    #Y(#:TOP-LEVEL-FORM-29-2 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02)
  405.       #Y(#:TOP-LEVEL-FORM-29-2-1
  406.          #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 40 19 02) FORMAT-ARGUMENTS
  407.         )
  408.       (T)
  409.      )
  410.    (1. 0. NIL NIL NIL NIL)
  411.   )
  412. #Y(#:TOP-LEVEL-FORM-30
  413.    #39Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2D 63 37 02
  414.         71 2D 7A 02 DE DF E0 E1 6D 0A 0A 2F 0B 19 01
  415.        )
  416.    PRINT-CONDITION :INITFUNCTION
  417.    #Y(#:TOP-LEVEL-FORM-30-1
  418.       #25Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 C4 5C
  419.            19 03
  420.           )
  421.       #Y(#:TOP-LEVEL-FORM-30-1-1
  422.          #46Y(00 00 00 00 03 00 00 00 00 04 AC 6E 01 91 00 0D 91 04 14 68 00 01
  423.               AE AE 2C 03 04 19 05 98 02 AD AC B0 2E 03 9A 02 05 14 AE AE 35 02
  424.               19 05
  425.              )
  426.          NIL SIMPLE-CONDITION-FORMAT-STRING FORMAT
  427.          SIMPLE-CONDITION-FORMAT-ARGUMENTS CLOS::%NO-NEXT-METHOD
  428.         )
  429.       (NIL)
  430.      )
  431.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SIMPLE-CONDITION :QUALIFIERS
  432.    (:AROUND) :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  433.    CLOS::DO-DEFMETHOD
  434.   )
  435. #Y(#:TOP-LEVEL-FORM-31
  436.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  437.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  438.        )
  439.    SIMPLE-ERROR :DIRECT-SUPERCLASSES SIMPLE-CONDITION ERROR CONDITION
  440.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  441.   )
  442. #Y(#:TOP-LEVEL-FORM-32
  443.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  444.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  445.        )
  446.    SIMPLE-TYPE-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR TYPE-ERROR CONDITION
  447.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  448.   )
  449. #Y(#:TOP-LEVEL-FORM-33
  450.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  451.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  452.        )
  453.    SIMPLE-WARNING :DIRECT-SUPERCLASSES SIMPLE-CONDITION WARNING CONDITION
  454.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  455.   )
  456. #Y(#:TOP-LEVEL-FORM-34
  457.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  458.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  459.        )
  460.    SIMPLE-SERIOUS-CONDITION :DIRECT-SUPERCLASSES SIMPLE-CONDITION
  461.    SERIOUS-CONDITION CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  462.   )
  463. #Y(#:TOP-LEVEL-FORM-35
  464.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  465.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  466.        )
  467.    SIMPLE-PROGRAM-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR PROGRAM-ERROR
  468.    CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  469.   )
  470. #Y(#:TOP-LEVEL-FORM-36
  471.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  472.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  473.        )
  474.    SIMPLE-CONTROL-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR CONTROL-ERROR
  475.    CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  476.   )
  477. #Y(#:TOP-LEVEL-FORM-37
  478.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  479.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  480.        )
  481.    SIMPLE-ARITHMETIC-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR ARITHMETIC-ERROR
  482.    CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  483.   )
  484. #Y(#:TOP-LEVEL-FORM-38
  485.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  486.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  487.        )
  488.    SIMPLE-DIVISION-BY-ZERO :DIRECT-SUPERCLASSES SIMPLE-ERROR DIVISION-BY-ZERO
  489.    CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  490.   )
  491. #Y(#:TOP-LEVEL-FORM-39
  492.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  493.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  494.        )
  495.    SIMPLE-FLOATING-POINT-OVERFLOW :DIRECT-SUPERCLASSES SIMPLE-ERROR
  496.    FLOATING-POINT-OVERFLOW CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  497.   )
  498. #Y(#:TOP-LEVEL-FORM-40
  499.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  500.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  501.        )
  502.    SIMPLE-FLOATING-POINT-UNDERFLOW :DIRECT-SUPERCLASSES SIMPLE-ERROR
  503.    FLOATING-POINT-UNDERFLOW CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  504.   )
  505. #Y(#:TOP-LEVEL-FORM-41
  506.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  507.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  508.        )
  509.    SIMPLE-CELL-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR CELL-ERROR CONDITION
  510.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  511.   )
  512. #Y(#:TOP-LEVEL-FORM-42
  513.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  514.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  515.        )
  516.    SIMPLE-UNBOUND-VARIABLE :DIRECT-SUPERCLASSES SIMPLE-ERROR UNBOUND-VARIABLE
  517.    CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  518.   )
  519. #Y(#:TOP-LEVEL-FORM-43
  520.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  521.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  522.        )
  523.    SIMPLE-UNDEFINED-FUNCTION :DIRECT-SUPERCLASSES SIMPLE-ERROR
  524.    UNDEFINED-FUNCTION CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  525.   )
  526. #Y(#:TOP-LEVEL-FORM-44
  527.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  528.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  529.        )
  530.    SIMPLE-PACKAGE-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR PACKAGE-ERROR
  531.    CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  532.   )
  533. #Y(#:TOP-LEVEL-FORM-45
  534.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  535.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  536.        )
  537.    SIMPLE-PRINT-NOT-READABLE :DIRECT-SUPERCLASSES SIMPLE-ERROR
  538.    PRINT-NOT-READABLE CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  539.   )
  540. #Y(#:TOP-LEVEL-FORM-46
  541.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  542.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  543.        )
  544.    SIMPLE-STREAM-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR STREAM-ERROR CONDITION
  545.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  546.   )
  547. #Y(#:TOP-LEVEL-FORM-47
  548.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  549.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  550.        )
  551.    SIMPLE-END-OF-FILE :DIRECT-SUPERCLASSES SIMPLE-ERROR END-OF-FILE CONDITION
  552.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  553.   )
  554. #Y(#:TOP-LEVEL-FORM-48
  555.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  556.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  557.        )
  558.    SIMPLE-FILE-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR FILE-ERROR CONDITION
  559.    :DIRECT-SLOTS CLOS::ENSURE-CLASS
  560.   )
  561. #Y(#:TOP-LEVEL-FORM-49
  562.    #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 37 02 71 2D DB 37 02 71 2D DC 37
  563.         02 71 2D 7A 03 DD 62 2C 05 06 D8 37 02 31 2D 19 01
  564.        )
  565.    SIMPLE-STORAGE-CONDITION :DIRECT-SUPERCLASSES SIMPLE-CONDITION
  566.    STORAGE-CONDITION CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  567.   )
  568. #Y(#:TOP-LEVEL-FORM-50 #15Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 19 01)
  569.    #((CONDITION . SIMPLE-CONDITION)
  570.      (SERIOUS-CONDITION . SIMPLE-SERIOUS-CONDITION) (ERROR . SIMPLE-ERROR)
  571.      (PROGRAM-ERROR . SIMPLE-PROGRAM-ERROR)
  572.      (CONTROL-ERROR . SIMPLE-CONTROL-ERROR)
  573.      (ARITHMETIC-ERROR . SIMPLE-ARITHMETIC-ERROR)
  574.      (DIVISION-BY-ZERO . SIMPLE-DIVISION-BY-ZERO)
  575.      (FLOATING-POINT-OVERFLOW . SIMPLE-FLOATING-POINT-OVERFLOW)
  576.      (FLOATING-POINT-UNDERFLOW . SIMPLE-FLOATING-POINT-UNDERFLOW)
  577.      (CELL-ERROR . SIMPLE-CELL-ERROR)
  578.      (UNBOUND-VARIABLE . SIMPLE-UNBOUND-VARIABLE)
  579.      (UNDEFINED-FUNCTION . SIMPLE-UNDEFINED-FUNCTION)
  580.      (TYPE-ERROR . SIMPLE-TYPE-ERROR) (PACKAGE-ERROR . SIMPLE-PACKAGE-ERROR)
  581.      (PRINT-NOT-READABLE . SIMPLE-PRINT-NOT-READABLE)
  582.      (STREAM-ERROR . SIMPLE-STREAM-ERROR) (END-OF-FILE . SIMPLE-END-OF-FILE)
  583.      (FILE-ERROR . SIMPLE-FILE-ERROR)
  584.      (STORAGE-CONDITION . SIMPLE-STORAGE-CONDITION) (WARNING . SIMPLE-WARNING)
  585.     )
  586.    %DEFCLCS
  587.   )
  588. #Y(#:TOP-LEVEL-FORM-51
  589.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  590.        )
  591.    (SPECIAL *BREAK-ON-SIGNALS*) *BREAK-ON-SIGNALS*
  592.   )
  593. #Y(#:TOP-LEVEL-FORM-52
  594.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  595.    HANDLER-BIND REMOVE-OLD-DEFINITIONS MACRO
  596.    #Y(HANDLER-BIND
  597.       #178Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 1A 9D 5B 77 9E
  598.             5B 78 DA AC 72 00 17 DB AD 72 00 17 AC 7A 01 72 02 23 62 AB 1A 11
  599.             AC 2E 01 19 03 93 00 37 01 71 92 83 02 16 01 82 00 9B 20 71 16 01
  600.             AA 7F A8 00 DC DD AC 62 AF 1A 12 93 00 DE DF 62 E0 9F 79 7A 03 7A
  601.             02 83 02 16 01 82 00 9B 20 6B 16 01 AA 7F A8 00 72 01 17 E1 E2 E3
  602.             62 B2 B1 1A 25 16 03 1A 26 93 01 9C 1F 77 93 01 AB DE DF E4 E5 E5
  603.             B0 7A 02 D1 7B 02 7A 03 7A 02 7A 02 83 04 16 02 82 01 82 00 9C 20
  604.             5C 16 02 AA 7F A8 00 E5 B1 37 01 30 A1 77 7A 02 7A 03 7A 03 60 03
  605.             19 08
  606.            )
  607.       2. MACRO-CALL-ERROR #.#'FIRST #.#'REST LET #.#'LIST FUNCTION LAMBDA PROGN
  608.       LOCALLY (DECLARE (COMPILE)) %HANDLER-BIND (CONDITION) FUNCALL (CONDITION)
  609.   )  )
  610. #Y(#:TOP-LEVEL-FORM-53
  611.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  612.    IGNORE-ERRORS REMOVE-OLD-DEFINITIONS MACRO
  613.    #Y(IGNORE-ERRORS
  614.       #43Y(00 00 00 00 01 00 01 00 00 08 94 02 37 01 71 92 D8 AB D9 DA DB DC DD
  615.            DE B2 CA 7B 02 7A 03 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 05
  616.           )
  617.       BLOCK HANDLER-BIND ERROR FUNCTION LAMBDA (CONDITION) RETURN-FROM
  618.       ((VALUES NIL CONDITION))
  619.   )  )
  620. #Y(#:TOP-LEVEL-FORM-54
  621.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  622.    HANDLER-CASE REMOVE-OLD-DEFINITIONS MACRO
  623.    #Y(HANDLER-CASE
  624.       #305Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 0B 9D 5B 77 9E
  625.             5B 78 01 02 1A 80 5D AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF AD 32
  626.             02 1F 9B F8 16 01 1A 80 45 DA E5 E6 E7 6D 03 06 DF AD AF 32 03 1F
  627.             93 02 82 03 9B 1F 59 9B 5B 1F 55 9B 5B 77 8E 0E 4F 93 00 24 08 0F
  628.             92 03 53 E1 E2 E3 6D 03 06 DF E0 AD 2C 04 0C 9B 5B 77 9B 5B 1B 47
  629.             16 01 37 01 71 92 9C 79 83 01 16 01 AC 8C 97 44 AA 80 4C 00 37 01
  630.             71 92 37 01 71 92 E8 AC E9 AD 7A 01 EA EB B1 EC 62 B5 1A 3D 03 18
  631.             1A 25 F4 ED EE A9 5B 79 7A 02 AC 60 03 1A 3D 93 00 93 00 9C 5B 77
  632.             9D 5B 5B 77 AB ED EE EF 92 04 5D F1 BD 03 1A 61 02 14 F3 B2 7A 02
  633.             7A 04 7A 02 60 02 16 02 F6 83 02 16 01 82 00 9B 20 51 16 01 AA 7F
  634.             A8 00 B8 7A 03 91 0B FF B7 9B F6 7A 03 62 B3 1A 32 00 1A 1C 93 00
  635.             93 00 9C 5B 5B 77 9D 5B 5B 78 AC EB B9 E9 92 05 6A AF BB 7A 01 72
  636.             02 23 60 01 14 A0 7B 02 7A 03 60 02 16 02 F6 AD 7F A6 02 16 01 82
  637.             00 9B 20 4E 16 01 AA 30 A8 16 01 7B 02 7A 03 60 03 19 09
  638.            )
  639.       2. MACRO-CALL-ERROR PROGRAM-ERROR "~S: illegal syntax of clause ~S"
  640.       "~S: Illegale Syntax fⁿr Klausel: ~S"
  641.       "~S : syntaxe inadmissible de la phrase ~S" LANGUAGE HANDLER-CASE
  642.       :NO-ERROR "~S: misplaced ~S clause: ~S"
  643.       "~S: ~S-Klausel an falscher Stelle: ~S" "~S : phrase ~S mal placΘe: ~S"
  644.       WARN "~S: too many variables ~S in clause ~S"
  645.       "~S: Zu viele Variablen ~S in Klausel ~S"
  646.       "~S : trop de variables ~S dans la phrase ~S" BLOCK LET TAGBODY
  647.       RETURN-FROM HANDLER-BIND FUNCTION LAMBDA (CONDITION)
  648.       (DECLARE (IGNORE CONDITION)) SETQ (CONDITION) GO MULTIPLE-VALUE-CALL
  649.   )  )
  650. #Y(#:TOP-LEVEL-FORM-55
  651.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  652.    DEFAULT-RESTART-TEST REMOVE-OLD-DEFINITIONS
  653.    #Y(DEFAULT-RESTART-TEST #13Y(00 00 00 00 01 00 00 00 00 02 02 19 02))
  654.   )
  655. #Y(#:TOP-LEVEL-FORM-56
  656.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  657.    DEFAULT-RESTART-INTERACTIVE REMOVE-OLD-DEFINITIONS
  658.    #Y(DEFAULT-RESTART-INTERACTIVE #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01))
  659.   )
  660. #Y(#:TOP-LEVEL-FORM-57
  661.    #397Y(00 00 00 00 00 00 00 00 00 01 00 2A 02 C3 0B 00 00 C4 0B 00 01 DA 2E
  662.          03 DA AB 6C 04 01 31 84 DD DE DF 63 DA E0 E1 E2 E3 67 09 00 7A 01 E4
  663.          63 62 72 07 00 E5 E6 E7 E8 E9 EA 67 0D 01 7A 01 EB 63 62 72 07 00 7A
  664.          06 67 06 00 67 07 01 72 06 00 31 8A 16 01 DD 2E 14 ED 30 5E EE 2E 03
  665.          EE EF F0 31 8A EE F1 31 84 F2 30 5E F3 2E 03 F3 EF F4 31 8A F3 F5 31
  666.          84 64 1E 30 5E 64 1F 30 5E 64 20 2E 03 64 20 EF 64 21 31 8A 64 20 64
  667.          22 31 84 64 23 30 5E 64 24 30 5E 64 25 2E 03 64 25 EF 64 26 31 8A 64
  668.          25 64 27 31 84 64 28 30 5E 64 29 30 5E 64 2A 2E 03 64 2A EF 64 2B 31
  669.          8A 64 2A 64 2C 31 84 64 2D 30 5E 64 2E 30 5E 64 2F 2E 03 64 2F EF 64
  670.          30 31 8A 64 2F 64 31 31 84 64 32 30 5E 64 33 30 5E 64 34 2E 03 64 34
  671.          EF 64 35 31 8A 64 34 64 36 31 84 64 37 30 5E 64 38 30 5E 64 39 2E 03
  672.          64 39 EF 64 3A 31 8A 64 39 64 3B 31 84 64 20 64 3C 64 3D 03 3E 79 31
  673.          8A 64 20 64 3F 62 2C 03 40 64 25 64 3C 64 3D 03 41 79 31 8A 64 25 64
  674.          3F 62 2C 03 40 64 2A 64 3C 64 3D 03 42 79 31 8A 64 2A 64 3F 62 2C 03
  675.          40 64 2F 64 3C 64 3D 03 43 79 31 8A 64 2F 64 3F 62 2C 03 40 64 34 64
  676.          3C 64 3D 03 44 79 31 8A 64 34 64 3F 62 2C 03 40 64 39 64 3C 64 3D 03
  677.          45 79 31 8A 64 39 64 3F 62 2C 03 40 DD 64 46 62 2C 03 40 DD 64 47 64
  678.          48 31 8A C8 19 01
  679.         )
  680.    #Y(DEFAULT-TEST #14Y(00 00 00 00 00 00 00 00 00 01 97 00 19 01)
  681.       DEFAULT-RESTART-TEST
  682.      )
  683.    #Y(DEFAULT-INTERACTIVE #14Y(00 00 00 00 00 00 00 00 00 01 97 00 19 01)
  684.       DEFAULT-RESTART-INTERACTIVE
  685.      )
  686.    MAKE-RESTART REMOVE-OLD-DEFINITIONS
  687.    #Y(MAKE-RESTART
  688.       #83Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3C 06 3A 05 06 68 00 01 35
  689.            00 FB 3C 04 3C 03 3C 02 3A 01 06 68 00 02 35 00 F7 DF E0 71 34 E1 AB
  690.            E2 B4 31 33 E1 AB E3 B3 31 33 E1 AB E4 B2 31 33 E1 AB E5 B1 31 33 E1
  691.            AB E6 B0 31 33 E1 AB E7 AF 31 33 15 19 07
  692.           )
  693.       NIL :NAME :TEST :INVOKE-TAG :INVOKE-FUNCTION :REPORT :INTERACTIVE
  694.       #1=(RESTART) 7. RESTART 1. 2. 3. 4. 5. 6.
  695.      )
  696.    RESTART DEFSTRUCT-DESCRIPTION #1# #(NAME (:NAME) 1. (NIL) NIL T NIL) TEST
  697.    (:TEST) 2. (SVREF (GET 'RESTART 'DEFSTRUCT-DESCRIPTION) 4.)
  698.    #(INVOKE-TAG (:INVOKE-TAG) 3. (NIL) NIL T NIL)
  699.    #(INVOKE-FUNCTION (:INVOKE-FUNCTION) 4. (NIL) NIL T NIL)
  700.    #(REPORT (:REPORT) 5. (NIL) NIL T NIL) INTERACTIVE (:INTERACTIVE) 6.
  701.    (SVREF (GET 'RESTART 'DEFSTRUCT-DESCRIPTION) 5.)
  702.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE RESTART-P) RESTART-P INLINE-EXPANSION
  703.    ((OBJECT) (DECLARE (IN-DEFUN RESTART-P))
  704.      (BLOCK RESTART-P (%STRUCTURE-TYPE-P 'RESTART OBJECT))
  705.    )
  706.    #Y(RESTART-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) RESTART)
  707.    (INLINE COPY-RESTART) COPY-RESTART
  708.    ((STRUCTURE) (DECLARE (IN-DEFUN COPY-RESTART))
  709.      (BLOCK COPY-RESTART (%COPY-STRUCTURE STRUCTURE))
  710.    )
  711.    #Y(COPY-RESTART #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02))
  712.    (FUNCTION RESTART-NAME (RESTART) T) (INLINE RESTART-NAME) RESTART-NAME
  713.    (#2=(OBJECT) (DECLARE (IN-DEFUN RESTART-NAME))
  714.      (BLOCK RESTART-NAME (THE T (%STRUCTURE-REF 'RESTART OBJECT 1.)))
  715.    )
  716.    #Y(RESTART-NAME #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  717.       RESTART 1.
  718.      )
  719.    (FUNCTION RESTART-TEST (RESTART) T) (INLINE RESTART-TEST) RESTART-TEST
  720.    (#2# (DECLARE (IN-DEFUN RESTART-TEST))
  721.      (BLOCK RESTART-TEST (THE T (%STRUCTURE-REF 'RESTART OBJECT 2.)))
  722.    )
  723.    #Y(RESTART-TEST #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  724.       RESTART 2.
  725.      )
  726.    (FUNCTION RESTART-INVOKE-TAG (RESTART) T) (INLINE RESTART-INVOKE-TAG)
  727.    RESTART-INVOKE-TAG
  728.    (#2# (DECLARE (IN-DEFUN RESTART-INVOKE-TAG))
  729.      (BLOCK RESTART-INVOKE-TAG (THE T (%STRUCTURE-REF 'RESTART OBJECT 3.)))
  730.    )
  731.    #Y(RESTART-INVOKE-TAG
  732.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) RESTART 3.
  733.      )
  734.    (FUNCTION RESTART-INVOKE-FUNCTION (RESTART) T)
  735.    (INLINE RESTART-INVOKE-FUNCTION) RESTART-INVOKE-FUNCTION
  736.    (#2# (DECLARE (IN-DEFUN RESTART-INVOKE-FUNCTION))
  737.      (BLOCK RESTART-INVOKE-FUNCTION (THE T (%STRUCTURE-REF 'RESTART OBJECT 4.))
  738.    ) )
  739.    #Y(RESTART-INVOKE-FUNCTION
  740.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) RESTART 4.
  741.      )
  742.    (FUNCTION RESTART-REPORT (RESTART) T) (INLINE RESTART-REPORT) RESTART-REPORT
  743.    (#2# (DECLARE (IN-DEFUN RESTART-REPORT))
  744.      (BLOCK RESTART-REPORT (THE T (%STRUCTURE-REF 'RESTART OBJECT 5.)))
  745.    )
  746.    #Y(RESTART-REPORT #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02)
  747.       RESTART 5.
  748.      )
  749.    (FUNCTION RESTART-INTERACTIVE (RESTART) T) (INLINE RESTART-INTERACTIVE)
  750.    RESTART-INTERACTIVE
  751.    (#2# (DECLARE (IN-DEFUN RESTART-INTERACTIVE))
  752.      (BLOCK RESTART-INTERACTIVE (THE T (%STRUCTURE-REF 'RESTART OBJECT 6.)))
  753.    )
  754.    #Y(RESTART-INTERACTIVE
  755.       #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) RESTART 6.
  756.      )
  757.    SETF-EXPANDER -1.
  758.    #Y(SETF-RESTART-NAME
  759.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  760.       %STRUCTURE-STORE 'RESTART 1.
  761.      )
  762.    SETF %SET-DOCUMENTATION
  763.    #Y(SETF-RESTART-TEST
  764.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  765.       %STRUCTURE-STORE 'RESTART 2.
  766.      )
  767.    #Y(SETF-RESTART-INVOKE-TAG
  768.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  769.       %STRUCTURE-STORE 'RESTART 3.
  770.      )
  771.    #Y(SETF-RESTART-INVOKE-FUNCTION
  772.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  773.       %STRUCTURE-STORE 'RESTART 4.
  774.      )
  775.    #Y(SETF-RESTART-REPORT
  776.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  777.       %STRUCTURE-STORE 'RESTART 5.
  778.      )
  779.    #Y(SETF-RESTART-INTERACTIVE
  780.       #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  781.       %STRUCTURE-STORE 'RESTART 6.
  782.      )
  783.    STRUCTURE STRUCTURE-PRINT
  784.    #Y(RESTART-PRINT-FUNCTION
  785.       #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-RESTART
  786.   )  )
  787. #Y(#:TOP-LEVEL-FORM-58
  788.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  789.    PRINT-RESTART REMOVE-OLD-DEFINITIONS
  790.    #Y(PRINT-RESTART
  791.       #84Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 0E 00
  792.            1B 20 0E 01 1B 1C 67 00 00 DE AB DF 80 32 00 91 00 23 67 01 00 DE AB
  793.            E0 80 32 00 67 02 01 30 86 19 06 AA 6C 02 01 67 01 00 67 02 01 DB 63
  794.            DC 63 2C 07 05 19 05 14 67 02 01 35 01 19 06
  795.           )
  796.       *PRINT-ESCAPE* *PRINT-READABLY*
  797.       #Y(PRINT-RESTART-1
  798.          #28Y(00 00 00 00 00 00 00 00 00 01 68 00 01 D9 AB DA 80 32 00 37 0C 68
  799.               00 02 30 85 19 01
  800.              )
  801.          NIL RESTART 1.
  802.         )
  803.       :TYPE :IDENTITY WRITE-UNREADABLE RESTART 5. 1.
  804.   )  )
  805. #Y(#:TOP-LEVEL-FORM-59
  806.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  807.    MAKE-RESTART-FORM REMOVE-OLD-DEFINITIONS
  808.    #Y(MAKE-RESTART-FORM
  809.       #75Y(00 00 00 00 06 00 00 00 00 00 D8 D9 B2 B2 DA 8E 05 21 00 14 91 08 22
  810.            00 14 DD B3 91 09 21 00 14 B3 DF 8E 05 20 00 14 32 02 23 7B 02 32 03
  811.            23 61 03 19 07 DB B3 60 02 1A 5A DC B3 60 02 1A 59 DE B4 60 02 1A 5A
  812.            E0 B4 60 02 1A 5B
  813.           )
  814.       MAKE-RESTART :NAME #'DEFAULT-RESTART-TEST :TEST :INVOKE-TAG
  815.       :INVOKE-FUNCTION :REPORT #'DEFAULT-RESTART-INTERACTIVE :INTERACTIVE
  816.   )  )
  817. #Y(#:TOP-LEVEL-FORM-60
  818.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  819.        )
  820.    (SPECIAL *ACTIVE-RESTARTS*) *ACTIVE-RESTARTS*
  821.   )
  822. #Y(#:TOP-LEVEL-FORM-61
  823.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  824.        )
  825.    (SPECIAL *CONDITION-RESTARTS*) *CONDITION-RESTARTS*
  826.   )
  827. #Y(#:TOP-LEVEL-FORM-62
  828.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  829.    ADD-CONDITION-RESTARTS REMOVE-OLD-DEFINITIONS
  830.    #Y(ADD-CONDITION-RESTARTS
  831.       #34Y(00 00 00 00 02 00 00 00 00 03 AB 62 1A 0D 86 01 00 AE 9C 79 0E 00 5C
  832.            0F 00 82 01 AB 8C 97 6F 00 19 05
  833.           )
  834.       *CONDITION-RESTARTS*
  835.   )  )
  836. #Y(#:TOP-LEVEL-FORM-63
  837.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  838.    WITH-CONDITION-RESTARTS REMOVE-OLD-DEFINITIONS MACRO
  839.    #Y(WITH-CONDITION-RESTARTS
  840.       #50Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 1B 9D 5B 77 9E 5B
  841.            5B 77 9F 5B 5B 78 DA DB DC AF AF 7A 03 DA 62 A0 7B 02 60 04 19 06 AC
  842.            2E 01 19 03
  843.           )
  844.       3. MACRO-CALL-ERROR LET ((*CONDITION-RESTARTS* *CONDITION-RESTARTS*))
  845.       ADD-CONDITION-RESTARTS
  846.   )  )
  847. #Y(#:TOP-LEVEL-FORM-64
  848.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  849.    APPLICABLE-RESTART-P REMOVE-OLD-DEFINITIONS
  850.    #Y(APPLICABLE-RESTART-P
  851.       #60Y(00 00 00 00 02 00 00 00 00 03 63 6A 00 62 1A 17 02 16 03 1E 25 1A 19
  852.            86 01 00 78 A1 22 07 93 00 A0 21 6D 7C 02 82 01 AB 8C 97 6C 9D 16 03
  853.            1E 0A D9 AD DA 71 32 AC 35 01 19 03 19 03
  854.           )
  855.       *CONDITION-RESTARTS* RESTART 2.
  856.   )  )
  857. #Y(#:TOP-LEVEL-FORM-65
  858.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  859.    COMPUTE-RESTARTS REMOVE-OLD-DEFINITIONS
  860.    #Y(COMPUTE-RESTARTS
  861.       #43Y(00 00 00 00 00 00 01 00 00 07 00 2A 01 3A 02 12 00 0B 00 00 1C 11 AA
  862.            6C 00 01 6A 01 37 05 31 53 19 03 0B 00 00 1B 6F 0E 01 19 03
  863.           )
  864.       #Y(LISP::COMPUTE-RESTARTS-1
  865.          #18Y(00 00 00 00 01 00 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL
  866.          APPLICABLE-RESTART-P
  867.         )
  868.       *ACTIVE-RESTARTS*
  869.   )  )
  870. #Y(#:TOP-LEVEL-FORM-66
  871.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  872.    FIND-RESTART REMOVE-OLD-DEFINITIONS
  873.    #Y(FIND-RESTART
  874.       #121Y(00 00 00 00 01 00 01 00 00 08 3A 01 17 7C 01 91 02 15 D8 D9 DA DB
  875.             6D 03 04 DD AF DE 32 03 1F 6A 07 62 1A 3E 92 02 6B AC 8D 09 74 E0
  876.             AD 8E 36 39 6A 07 62 AB 8B 97 2F 86 01 00 14 A0 22 0B 92 03 05 AA
  877.             AE 8A 0A 03 15 19 04 82 01 1A 66 86 01 00 E0 AB E1 71 32 A0 22 08
  878.             92 03 6B AA AE 89 0A 66 82 01 AB 8C 97 67 00 19 05 E3 E4 AE E5 E6
  879.             E7 E8 E9 6D 03 04 DD B3 32 06 1F
  880.            )
  881.       ERROR "~S: ~S is not a valid restart name here. Use ~S instead."
  882.       "~S: ~S ist als Restart-Name hier nicht zulΣssig. Verwenden Sie ~S."
  883.       "~S : ~S n'est pas valable comme nom de ½restart╗ ici. Utilisez ~S."
  884.       LANGUAGE FIND-RESTART COMPUTE-RESTARTS *ACTIVE-RESTARTS* RESTART 1.
  885.       APPLICABLE-RESTART-P TYPE-ERROR :DATUM :EXPECTED-TYPE (OR SYMBOL RESTART)
  886.       "~S: invalid restart name ~S" "~S: Ungⁿltiger Restart-Name: ~S"
  887.       "~S : Nom inadmissible pour un ½restart╗: ~S"
  888.   )  )
  889. #Y(#:TOP-LEVEL-FORM-67
  890.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  891.    RESTART-NOT-FOUND REMOVE-OLD-DEFINITIONS
  892.    #Y(RESTART-NOT-FOUND
  893.       #22Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA DB 6D 03 04 DD AE 32 02 1F)
  894.       CONTROL-ERROR "~S: No restart named ~S is visible."
  895.       "~S: Ein Restart mit Namen ~S ist nicht sichtbar."
  896.       "~S : Un ½restart╗ de nom ~S n'est pas visible." LANGUAGE INVOKE-RESTART
  897.   )  )
  898. #Y(#:TOP-LEVEL-FORM-68
  899.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  900.    %INVOKE-RESTART REMOVE-OLD-DEFINITIONS
  901.    #Y(%INVOKE-RESTART
  902.       #32Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 8D 32 09 D8 AD DA 71 32 9D 9A
  903.            00 03 D8 AD D9 71 32 9D 51
  904.           )
  905.       RESTART 3. 4.
  906.   )  )
  907. #Y(#:TOP-LEVEL-FORM-69
  908.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  909.    INVOKE-RESTART REMOVE-OLD-DEFINITIONS
  910.    #Y(INVOKE-RESTART
  911.       #25Y(00 00 00 00 01 00 00 00 01 17 AC 6E 00 91 00 03 AD 2E 01 AA AD 2F 02
  912.            19 04
  913.           )
  914.       FIND-RESTART RESTART-NOT-FOUND %INVOKE-RESTART
  915.   )  )
  916. #Y(#:TOP-LEVEL-FORM-70
  917.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  918.    INVOKE-RESTART-CONDITION REMOVE-OLD-DEFINITIONS
  919.    #Y(INVOKE-RESTART-CONDITION
  920.       #26Y(00 00 00 00 02 00 00 00 01 18 AD AD 6F 00 91 00 03 AE 2E 01 AA AD 2F
  921.            02 19 05
  922.           )
  923.       FIND-RESTART RESTART-NOT-FOUND %INVOKE-RESTART
  924.   )  )
  925. #Y(#:TOP-LEVEL-FORM-71
  926.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  927.    INVOKE-RESTART-CONDITION-IF-EXISTS REMOVE-OLD-DEFINITIONS
  928.    #Y(INVOKE-RESTART-CONDITION-IF-EXISTS
  929.       #26Y(00 00 00 00 02 00 00 00 01 18 AD AD 6F 00 91 00 03 00 19 05 14 AD 2F
  930.            01 19 05
  931.           )
  932.       FIND-RESTART %INVOKE-RESTART
  933.   )  )
  934. #Y(#:TOP-LEVEL-FORM-72
  935.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  936.    INVOKE-RESTART-INTERACTIVELY REMOVE-OLD-DEFINITIONS
  937.    #Y(INVOKE-RESTART-INTERACTIVELY
  938.       #32Y(00 00 00 00 01 00 00 00 00 02 AB 6E 00 91 00 03 AC 2E 01 DA AB DB 71
  939.            32 75 00 AB AB 2F 04 19 04
  940.           )
  941.       FIND-RESTART RESTART-NOT-FOUND RESTART 6. %INVOKE-RESTART
  942.   )  )
  943. #Y(#:TOP-LEVEL-FORM-73
  944.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  945.    RESTART-BIND REMOVE-OLD-DEFINITIONS MACRO
  946.    #Y(RESTART-BIND
  947.       #144Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 43 9D 5B 77
  948.             9E 5B 78 DA 83 00 AB 8E 0E 3B 92 01 80 69 E1 E2 E3 62 AF 9B 1F 80
  949.             4C 93 00 00 2A 01 7E 01 00 00 14 8E 0E 0D 06 00 00 5B 1F 07 06 00
  950.             00 77 8D 09 1F DB E4 E5 E6 6D 03 07 E0 06 03 00 14 32 02 1F AC 2E
  951.             01 19 03 DB DC DD DE 6D 03 07 E0 9F 1A 6C AA 6C 0F 01 06 01 00 36
  952.             00 F6 83 02 16 01 82 00 1A FF B0 16 01 AA 7F A8 00 E8 32 02 23 79
  953.             7A 02 7A 01 AC 60 03 19 05 15 19 04
  954.            )
  955.       2. MACRO-CALL-ERROR PROGN PROGRAM-ERROR "~S: not a list: ~S"
  956.       "~S: Das ist keine Liste: ~S" "~S : ceci n'est pas une liste: ~S"
  957.       LANGUAGE RESTART-BIND LET *ACTIVE-RESTARTS* LIST*
  958.       "~S: invalid restart specification ~S"
  959.       "~S: Ungⁿltige Restart-Spezifikation: ~S"
  960.       "~S : spΘcification inadmissible d'un ½restart╗: ~S"
  961.       #Y(LISP::RESTART-BIND-1
  962.          #69Y(00 00 00 00 02 00 00 00 80 1D 03 00 01 00 3A 03 02 C7 F9 3A 02 02
  963.               C8 F8 3A 01 16 7C 01 92 05 14 1A 15 DE DF E0 E1 6D 03 0A E3 DB 68
  964.               00 01 32 03 1F 91 05 03 92 01 6B E4 B0 7A 02 AE 62 B1 AF B1 2C 06
  965.               0D 19 06
  966.              )
  967.          NIL :TEST-FUNCTION :INTERACTIVE-FUNCTION :REPORT-FUNCTION
  968.          #'DEFAULT-RESTART-TEST #'DEFAULT-RESTART-INTERACTIVE PROGRAM-ERROR
  969.          "~S: unnamed restarts require ~S to be specified: ~S"
  970.          "~S: Bei unbenannten Restarts mu▀ ~S angegeben werden: ~S"
  971.          "~S : Il faut spΘcifier ~S pour des ½restarts╗ anonymes: ~S" LANGUAGE
  972.          RESTART-BIND QUOTE MAKE-RESTART-FORM
  973.         )
  974.       (*ACTIVE-RESTARTS*)
  975.   )  )
  976. #Y(#:TOP-LEVEL-FORM-74
  977.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  978.    EXPAND-RESTART-CASE REMOVE-OLD-DEFINITIONS
  979.    #Y(EXPAND-RESTART-CASE
  980.       #526Y(00 00 00 00 03 00 00 00 00 04 AC 8E 0E 05 62 AD 1A 80 BE D8 D9 DA
  981.             DB 6D 03 04 AF A0 1A 80 62 D8 DD DE DF 6D 03 04 B3 9E 1A 80 56 93
  982.             00 AA 9B 1F 6E 9B 5B 1F 6A 93 00 8E 09 65 93 00 82 01 01 04 1A 1B
  983.             93 05 82 06 69 01 7D 03 92 00 10 7D 02 1A 0C 93 05 82 06 83 00 93
  984.             05 82 06 83 00 AF 8B 97 14 91 03 05 93 05 8D 0E 59 91 02 09 A0 5B
  985.             1F 05 93 05 8D 8F 5C 91 03 1A D8 E0 E1 E2 6D 03 04 B8 A3 14 32 02
  986.             1F D8 E5 E6 E7 6D 03 04 BB E8 B7 32 03 1F E3 AB 31 4C 36 00 41 03
  987.             91 07 04 AA 23 0C 64 9F 1F 18 93 04 E9 37 03 8B B8 10 AB 24 12 0C
  988.             EB EC ED 6D 03 04 BA EE B6 2C 04 17 37 01 71 92 B2 AE AE AE B3 A9
  989.             61 06 16 08 F6 83 02 16 01 82 00 9B 20 FF 56 16 01 AA 7F A8 00 37
  990.             01 71 92 37 01 71 92 AE 8E 07 0C 9F 5A 25 18 00 00 1A 04 37 01 31
  991.             92 14 F1 AD F2 AE 7A 01 F3 62 B3 1A 80 9E 00 1A 80 89 64 1E 64 23
  992.             64 24 B2 03 25 7B 02 60 03 1A 80 76 14 64 29 9F 79 7A 02 64 2A 64
  993.             2B B5 03 2C 7B 02 7A 02 03 2D 61 02 1A 80 96 64 30 64 31 F5 64 1E
  994.             64 32 64 33 64 31 BA 7A 03 03 34 7B 03 7A 02 7A 02 7A 01 AE 60 03
  995.             1A 80 7C 93 00 93 00 9C 5B 77 9D 5B 5B 77 9E 5B 5B 5B 77 AE 70 9A
  996.             F4 AE 7A 02 F5 AE 7A 02 62 F5 64 1E 64 1F 64 20 BF 03 21 7B 02 64
  997.             22 B6 7A 02 7A 04 7A 02 AE 23 0C FF 7D F5 AF 8D 0A FF 7B A0 14 60
  998.             02 14 F5 B1 7A 02 2C 06 26 16 04 F6 83 02 16 01 82 00 9B 20 FF AB
  999.             16 01 AA 7F A8 00 64 27 B3 B7 7A 03 64 28 91 08 FF 60 64 2A 64 2E
  1000.             AE 64 2F 32 02 23 79 7A 02 60 01 14 91 09 FF 65 9D 14 60 03 16 01
  1001.             F6 62 B4 1A 29 93 00 93 00 9C 5B 5B 5B 5B 78 AB 64 27 B9 64 35 F5
  1002.             64 1E A1 79 7A 02 BB 7A 03 7A 03 60 02 16 01 F6 AD 7F A6 02 16 01
  1003.             82 00 9B 20 54 16 01 AA 30 A8 16 01 7B 02 7A 03 60 03 19 08
  1004.            )
  1005.       PROGRAM-ERROR "~S: not a list: ~S" "~S: Das ist keine Liste: ~S"
  1006.       "~S : ceci n'est pas une liste: ~S" LANGUAGE
  1007.       "~S: invalid restart specification ~S"
  1008.       "~S: Ungⁿltige Restart-Spezifikation: ~S"
  1009.       "~S : spΘcification inadmissible d'un ½restart╗: ~S"
  1010.       "~S: missing lambda list in restart specification ~S"
  1011.       "~S: Restart-Spezifikation ohne Lambda-Liste: ~S"
  1012.       "~S : il faut une liste lambda dans la spΘcification d'un ½restart╗: ~S"
  1013.       #Y(EXPAND-RESTART-CASE-1
  1014.          #36Y(00 00 00 00 00 00 00 00 80 1B 03 00 00 00 3A 03 02 C6 F9 3A 02 02
  1015.               C7 F8 3A 01 02 C8 F7 AD AD AD 3F 03 19 04
  1016.              )
  1017.          :TEST :INTERACTIVE :REPORT DEFAULT-RESTART-TEST
  1018.          DEFAULT-RESTART-INTERACTIVE DEFAULT-RESTART-REPORT
  1019.         )
  1020.       DEFAULT-RESTART-REPORT
  1021.       "~S: unnamed restarts require ~S to be specified: ~S"
  1022.       "~S: Bei unbenannten Restarts mu▀ ~S angegeben werden: ~S"
  1023.       "~S : Il faut spΘcifier ~S pour des ½restarts╗ anonymes: ~S" :REPORT
  1024.       #.LAMBDA-LIST-KEYWORDS DEFAULT-RESTART-INTERACTIVE
  1025.       "~S: restart cannot be invoked interactively because it is missing a ~S option: ~S"
  1026.       "~S: Restart kann nicht interaktiv aufgerufen werden, weil ~S fehlt: ~S"
  1027.       "~S : Ce ½restart╗ ne peut prendre le contr⌠le en dialogue car il manque un ~S : ~S"
  1028.       :INTERACTIVE WARN
  1029.       #S(HASH-TABLE EQ (WARN . 4.) (CERROR . 4.) (ERROR . 4.) (SIGNAL . 4.))
  1030.       BLOCK LET TAGBODY QUOTE FUNCTION LAMBDA (&REST ARGUMENTS) SETQ
  1031.       (ARGUMENTS) GO (STREAM) WRITE-STRING (STREAM) MAKE-RESTART-FORM
  1032.       RETURN-FROM LET* LIST *ACTIVE-RESTARTS* APPEND (*ACTIVE-RESTARTS*)
  1033.       ((*CONDITION-RESTARTS* *CONDITION-RESTARTS*)) LIST* (*ACTIVE-RESTARTS*)
  1034.       HANDLER-BIND CONDITION (CONDITION) ADD-CONDITION-RESTARTS
  1035.       ((SIGNAL CONDITION)) APPLY
  1036.   )  )
  1037. #Y(#:TOP-LEVEL-FORM-75
  1038.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1039.    RESTART-CASE REMOVE-OLD-DEFINITIONS MACRO
  1040.    #Y(RESTART-CASE
  1041.       #37Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 0E 9D 5B 77 9E 5B
  1042.            78 DA AB AD 2C 03 03 19 05 AC 2E 01 19 03
  1043.           )
  1044.       2. MACRO-CALL-ERROR RESTART-CASE EXPAND-RESTART-CASE
  1045.   )  )
  1046. #Y(#:TOP-LEVEL-FORM-76
  1047.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1048.    WITH-RESTARTS REMOVE-OLD-DEFINITIONS MACRO
  1049.    #Y(WITH-RESTARTS
  1050.       #39Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 10 9D 5B 77 9E 5B
  1051.            78 DA AC DB 9E 79 2C 03 04 19 05 AC 2E 01 19 03
  1052.           )
  1053.       2. MACRO-CALL-ERROR WITH-RESTARTS PROGN EXPAND-RESTART-CASE
  1054.   )  )
  1055. #Y(#:TOP-LEVEL-FORM-77
  1056.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1057.    WITH-SIMPLE-RESTART REMOVE-OLD-DEFINITIONS MACRO
  1058.    #Y(WITH-SIMPLE-RESTART
  1059.       #145Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 62 9D 5B 5A
  1060.             77 9E 5B 5A 5B 77 9F 5B 5A 5B 78 A0 5B 78 91 01 80 52 AC 8C 62 80
  1061.             4D 37 01 71 92 37 01 71 92 E1 AC E2 E3 AE 7A 02 E4 E5 E6 E7 E8 E9
  1062.             E3 BA 7A 02 EA E3 B7 7A 02 DB EB DC EC DE DF C1 7A 03 7A 03 7A 02
  1063.             7A 07 7A 02 03 15 7B 02 7A 02 7A 01 EE B2 EF A6 79 7A 03 7A 03 03
  1064.             18 7B 03 60 03 19 09 AC 2E 01 19 03 DA AE DB DC DD DE DF B3 A4 7B
  1065.             03 7A 03 CB 7B 03 7A 01 9D 61 02 19 07
  1066.            )
  1067.       2. MACRO-CALL-ERROR WITH-RESTARTS :REPORT LAMBDA (STREAM) FORMAT STREAM
  1068.       (NIL (VALUES NIL T)) BLOCK CATCH QUOTE LET *ACTIVE-RESTARTS* CONS
  1069.       LOAD-TIME-VALUE MAKE-RESTART :NAME :INVOKE-TAG FUNCTION (STREAM)
  1070.       (*ACTIVE-RESTARTS*) RETURN-FROM PROGN ((VALUES NIL T))
  1071.   )  )
  1072. #Y(#:TOP-LEVEL-FORM-78
  1073.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ABORT
  1074.    REMOVE-OLD-DEFINITIONS
  1075.    #Y(ABORT #18Y(00 00 00 00 00 00 01 00 00 07 3C 01 D8 AC 2F 01 19 02) ABORT
  1076.       INVOKE-RESTART-CONDITION
  1077.   )  )
  1078. #Y(#:TOP-LEVEL-FORM-79
  1079.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CONTINUE
  1080.    REMOVE-OLD-DEFINITIONS
  1081.    #Y(CONTINUE #18Y(00 00 00 00 00 00 01 00 00 07 3C 01 D8 AC 2F 01 19 02)
  1082.       CONTINUE INVOKE-RESTART-CONDITION-IF-EXISTS
  1083.   )  )
  1084. #Y(#:TOP-LEVEL-FORM-80
  1085.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1086.    MUFFLE-WARNING REMOVE-OLD-DEFINITIONS
  1087.    #Y(MUFFLE-WARNING
  1088.       #18Y(00 00 00 00 00 00 01 00 00 07 3C 01 D8 AC 2F 01 19 02)
  1089.       MUFFLE-WARNING INVOKE-RESTART-CONDITION
  1090.   )  )
  1091. #Y(#:TOP-LEVEL-FORM-81
  1092.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1093.    STORE-VALUE REMOVE-OLD-DEFINITIONS
  1094.    #Y(STORE-VALUE
  1095.       #20Y(00 00 00 00 01 00 01 00 00 08 3C 01 D8 AC AE 2C 03 01 19 03)
  1096.       STORE-VALUE INVOKE-RESTART-CONDITION-IF-EXISTS
  1097.   )  )
  1098. #Y(#:TOP-LEVEL-FORM-82
  1099.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) USE-VALUE
  1100.    REMOVE-OLD-DEFINITIONS
  1101.    #Y(USE-VALUE
  1102.       #20Y(00 00 00 00 01 00 01 00 00 08 3C 01 D8 AC AE 2C 03 01 19 03)
  1103.       USE-VALUE INVOKE-RESTART-CONDITION-IF-EXISTS
  1104.   )  )
  1105. #Y(#:TOP-LEVEL-FORM-83
  1106.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1107.    REPORT-NEW-VALUE REMOVE-OLD-DEFINITIONS
  1108.    #Y(REPORT-NEW-VALUE
  1109.       #23Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 37 02 30 8E 19 02
  1110.           )
  1111.       "You may input a new value." "Sie dⁿrfen einen neuen Wert eingeben."
  1112.       "Vous avez l'occasion d'entrer une nouvelle valeur." LANGUAGE
  1113.   )  )
  1114. #Y(#:TOP-LEVEL-FORM-84
  1115.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1116.    PROMPT-FOR-NEW-VALUE REMOVE-OLD-DEFINITIONS
  1117.    #Y(PROMPT-FOR-NEW-VALUE
  1118.       #30Y(00 00 00 00 01 00 00 00 00 02 6A 00 D9 DA DB 6D 03 04 AD 2C 03 05 6A
  1119.            00 37 03 30 79 19 02
  1120.           )
  1121.       *QUERY-IO* "~%New ~S: " "~%Neues ~S: " "~%Nouveau ~S : " LANGUAGE FORMAT
  1122.   )  )
  1123. #Y(#:TOP-LEVEL-FORM-85
  1124.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1125.    CHECK-TYPE REMOVE-OLD-DEFINITIONS MACRO
  1126.    #Y(CHECK-TYPE
  1127.       #171Y(00 00 00 00 01 00 01 00 00 08 D8 AD 71 4A D9 90 02 31 80 8A 9D 5B
  1128.             77 9E 5B 5B 77 9F 5B 5B 5B 1B 80 81 00 14 37 01 71 92 37 01 71 92
  1129.             37 01 71 92 DB AD DC AD B3 7A 02 7A 01 DD DE B0 DF B6 7A 02 7A 03
  1130.             E0 B2 7A 02 7A 03 E1 E2 E3 E4 B3 E5 DF BA 7A 02 E6 E7 62 E8 BF BE
  1131.             C0 6D 05 11 EA 62 EB C1 C0 C2 6D 05 11 EC 62 ED 65 19 C2 65 1A 6D
  1132.             05 11 7A 06 B8 7A 09 EE EF F0 F1 F2 62 F3 F4 DF BF 7A 02 7A 02 7A
  1133.             02 7A 03 F5 64 1E BD 03 1F 7B 02 7A 07 7A 03 7A 04 E0 B0 7A 02 AF
  1134.             60 05 19 09 AC 2E 02 19 03 9F 5B 5B 5B 5A 1A FF 78
  1135.            )
  1136.       3. 4. MACRO-CALL-ERROR TAGBODY LET WHEN TYPEP QUOTE GO RESTART-CASE
  1137.       ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE
  1138.       (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S" FRANCAIS
  1139.         "~A~%La valeur est : ~S"
  1140.       )
  1141.       DEUTSCH
  1142.       #Y(LISP::CHECK-TYPE-1
  1143.          #74Y(00 00 00 00 01 00 00 00 01 17 AB D8 AE 37 02 30 8E 93 02 82 03 AE
  1144.               30 86 D9 AE 37 02 30 8E 93 02 82 03 15 1C 16 DB AB AE 2C 03 04 F8
  1145.               77 82 03 AE 30 89 DD AE 37 02 30 8E 9D 19 04 DA AE 37 02 30 8E 93
  1146.               02 82 03 AE 30 86 1A 68
  1147.              )
  1148.          "Der Wert von " " sollte " "vom Typ " 1. LIST-BACKWARD " sein."
  1149.         )
  1150.       FORMAT ENGLISH
  1151.       #Y(LISP::CHECK-TYPE-2
  1152.          #72Y(00 00 00 00 01 00 00 00 01 17 AB D8 AE 37 02 30 8E 93 02 82 03 AE
  1153.               30 86 D9 AE 37 02 30 8E 93 02 82 03 15 1C 14 DB AB AE 2C 03 04 F8
  1154.               77 82 03 AE 30 89 DD AE 30 8D 9D 19 04 DA AE 37 02 30 8E 93 02 82
  1155.               03 AE 30 86 1A 6A
  1156.              )
  1157.          "The value of " " should be " "of type " 1. LIST-BACKWARD #\.
  1158.         )
  1159.       FRANCAIS
  1160.       #Y(LISP::CHECK-TYPE-3
  1161.          #72Y(00 00 00 00 01 00 00 00 01 17 AB D8 AE 37 02 30 8E 93 02 82 03 AE
  1162.               30 86 D9 AE 37 02 30 8E 93 02 82 03 15 1C 14 DB AB AE 2C 03 04 F8
  1163.               77 82 03 AE 30 89 DD AE 30 8D 9D 19 04 DA AE 37 02 30 8E 93 02 82
  1164.               03 AE 30 86 1A 6A
  1165.              )
  1166.          "La valeur de " " devrait Ωtre " "de type " 1. LIST-BACKWARD #\.
  1167.         )
  1168.       STORE-VALUE :REPORT REPORT-NEW-VALUE :INTERACTIVE LAMBDA LIST
  1169.       PROMPT-FOR-NEW-VALUE (NEW-VALUE) SETF (NEW-VALUE)
  1170.   )  )
  1171. #Y(#:TOP-LEVEL-FORM-86
  1172.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1173.    REPORT-NO-NEW-VALUE REMOVE-OLD-DEFINITIONS
  1174.    #Y(REPORT-NO-NEW-VALUE
  1175.       #23Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 37 02 30 8E 19 02
  1176.           )
  1177.       "Retry" "Neuer Anlauf" "ReΘssayer" LANGUAGE
  1178.   )  )
  1179. #Y(#:TOP-LEVEL-FORM-87
  1180.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1181.    REPORT-NEW-VALUES REMOVE-OLD-DEFINITIONS
  1182.    #Y(REPORT-NEW-VALUES
  1183.       #23Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 37 02 30 8E 19 02
  1184.           )
  1185.       "You may input new values." "Sie dⁿrfen neue Werte eingeben."
  1186.       "Vous pouvez entrer de nouvelles valeurs." LANGUAGE
  1187.   )  )
  1188. #Y(#:TOP-LEVEL-FORM-88
  1189.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1190.    ASSERT REMOVE-OLD-DEFINITIONS MACRO
  1191.    #Y(ASSERT
  1192.       #263Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 67 9D 5B 77
  1193.             9E 5B 5B 1B 80 63 00 14 9F 5B 5B 5B 1B 80 61 00 14 A0 5B 5B 5B 78
  1194.             37 01 71 92 37 01 71 92 DA AC DB B2 DC AF 7A 02 7A 03 DD DE DF 91
  1195.             09 80 49 E0 E1 62 E2 B9 6D 03 0B E4 62 E5 BB 6D 03 0B E6 62 E7 BD
  1196.             6D 03 0B 7A 06 60 02 79 7A 02 E8 E9 B5 71 4A AA 23 12 28 AA 23 14
  1197.             27 03 16 F6 EF F0 62 F1 62 BB 1A 2F AC 2E 01 19 03 9E 5B 5B 5A 1A
  1198.             FF 97 9F 5B 5B 5B 5A 1A FF 98 14 A4 5C 1A 4C D6 1A 5B 03 15 1A 57
  1199.             93 00 F2 F3 AC 7A 02 7A 02 83 02 16 01 82 00 9B 20 6E 16 01 AA 30
  1200.             A8 16 01 79 7A 03 62 B9 1A 0C 93 00 37 01 71 92 83 02 16 01 82 00
  1201.             9B 20 71 16 01 AA 7F A8 00 AA 62 BB AD 1A 18 16 03 1A 19 93 01 9C
  1202.             1F 77 93 01 F4 AC AC 7A 03 83 04 16 02 82 01 82 00 9C 20 69 16 02
  1203.             AA 30 A8 16 01 5C 16 01 7B 05 7A 03 DC B0 7A 02 AF 60 06 19 09
  1204.            )
  1205.       2. MACRO-CALL-ERROR TAGBODY WHEN GO RESTART-CASE PROGN ERROR "~A" DEUTSCH
  1206.       #Y(LISP::ASSERT-1
  1207.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  1208.               37 02 30 8E 9C 19 04
  1209.              )
  1210.          "Der Wert von " " darf nicht NIL sein."
  1211.         )
  1212.       FORMAT ENGLISH
  1213.       #Y(LISP::ASSERT-2
  1214.          #23Y(00 00 00 00 02 00 00 00 01 18 AC AE 30 86 D8 AE 37 02 30 8E 9C 19
  1215.               04
  1216.              )
  1217.          " must evaluate to a non-NIL value."
  1218.         )
  1219.       FRANCAIS
  1220.       #Y(LISP::ASSERT-3
  1221.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  1222.               37 02 30 8E 9C 19 04
  1223.              )
  1224.          "La valeur de " " ne peut pas Ωtre NIL."
  1225.         )
  1226.       CONTINUE :REPORT 0. REPORT-NO-NEW-VALUE 1. REPORT-NEW-VALUE
  1227.       REPORT-NEW-VALUES :INTERACTIVE LAMBDA LIST PROMPT-FOR-NEW-VALUE QUOTE
  1228.       SETF
  1229.   )  )
  1230. #Y(#:TOP-LEVEL-FORM-89
  1231.    #49Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 DC 2E 01 DC DA
  1232.         C8 79 31 84 DE 2E 01 DE DA CA 79 31 84 E0 2E 01 E0 DA CC 79 31 84 CB 19
  1233.         01
  1234.        )
  1235.    ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
  1236.    #Y(ETYPECASE
  1237.       #43Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 14 9D 5B 77 9E 5B
  1238.            78 DA AC AC AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
  1239.           )
  1240.       2. MACRO-CALL-ERROR TYPECASE
  1241.       #1=#Y(TYPECASE-ERRORSTRING
  1242.             #43Y(00 00 00 00 02 00 00 00 00 03 D8 AC 72 00 17 D9 62 DA B0 AE 6D
  1243.                  04 03 DC 62 DD B2 B0 6D 04 03 DE 62 DF B4 B2 6D 04 03 60 06 19
  1244.                  04
  1245.                 )
  1246.             #.#'FIRST DEUTSCH
  1247.             #Y(TYPECASE-ERRORSTRING-1
  1248.                #65Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  1249.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  1250.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 DB AF 37 02
  1251.                     30 8E 9C 19 05
  1252.                    )
  1253.                "Der Wert von " " mu▀ einem der Typen " ", " " angeh÷ren."
  1254.               )
  1255.             FORMAT ENGLISH
  1256.             #Y(TYPECASE-ERRORSTRING-2
  1257.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  1258.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  1259.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  1260.                    )
  1261.                "The value of " " must be of one of the types " ", "
  1262.               )
  1263.             FRANCAIS
  1264.             #Y(TYPECASE-ERRORSTRING-3
  1265.                #63Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  1266.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  1267.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 DB AF 30 8D
  1268.                     9C 19 05
  1269.                    )
  1270.                "La valeur de " " doit appartenir α l'un des types " ", " #\.
  1271.            )  )
  1272.       #Y(TYPECASE-EXPECTED-TYPE
  1273.          #19Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD 32 00 17 5C 19 02) OR
  1274.          #.#'FIRST
  1275.         )
  1276.       #2=#Y(SIMPLY-ERROR
  1277.             #52Y(00 00 00 00 05 00 00 00 00 06 37 01 71 92 D8 AB B1 7A 02 7A 01
  1278.                  B2 AD B2 D9 DA DB DC B3 DD DE B8 7A 02 DF BA B8 7A 09 7A 02 7A
  1279.                  01 32 02 23 7B 02 60 03 19 07
  1280.                 )
  1281.             LET OTHERWISE ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE QUOTE
  1282.             (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
  1283.               FRANCAIS "~A~%La valeur est : ~S"
  1284.      )     ))
  1285.    CTYPECASE
  1286.    #Y(CTYPECASE
  1287.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  1288.            78 DA AC AC AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
  1289.           )
  1290.       2. MACRO-CALL-ERROR TYPECASE #1#
  1291.       #3=#Y(RETRY-LOOP
  1292.             #88Y(00 00 00 00 04 00 00 00 00 05 37 01 71 92 37 01 71 92 D8 AC D9
  1293.                  AD DA B0 B6 B6 B6 DB DC DD DE DF BB BE 7A 04 7A 02 E0 E1 E2 E3
  1294.                  E4 62 E5 E6 E7 65 1A 7A 02 7A 02 7A 02 7A 03 E8 E9 C2 D5 7B 02
  1295.                  7A 07 7A 03 EB B6 7A 02 7A 03 7A 01 32 02 23 7B 02 7A 03 7A 03
  1296.                  60 03 19 07
  1297.                 )
  1298.             BLOCK TAGBODY RETURN-FROM OTHERWISE RESTART-CASE PROGN ERROR
  1299.             (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
  1300.               FRANCAIS "~A~%La valeur est : ~S"
  1301.             )
  1302.             STORE-VALUE :REPORT REPORT-NEW-VALUE :INTERACTIVE LAMBDA LIST
  1303.             PROMPT-FOR-NEW-VALUE QUOTE (NEW-VALUE) SETF (NEW-VALUE) GO
  1304.      )     )
  1305.    ECASE
  1306.    #Y(ECASE
  1307.       #43Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 14 9D 5B 77 9E 5B
  1308.            78 DA AC AC AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
  1309.           )
  1310.       2. MACRO-CALL-ERROR CASE
  1311.       #4=#Y(CASE-ERRORSTRING
  1312.             #76Y(00 00 00 00 02 00 00 00 00 03 62 AC 1A 19 9B 1A 0D 93 00 AA 86
  1313.                  00 00 14 8D 0E 73 AA 60 01 F6 AD 7F A6 02 16 01 82 00 9B 20 67
  1314.                  16 01 AA 7F A8 00 D8 62 D9 B0 AE 6D 04 02 DB 62 DC B2 B0 6D 04
  1315.                  02 DD 62 DE B4 B2 6D 04 02 60 06 19 04
  1316.                 )
  1317.             DEUTSCH
  1318.             #Y(CASE-ERRORSTRING-1
  1319.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  1320.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  1321.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  1322.                    )
  1323.                "Der Wert von " " mu▀ einer der folgenden sein: " ", "
  1324.               )
  1325.             FORMAT ENGLISH
  1326.             #Y(CASE-ERRORSTRING-2
  1327.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  1328.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  1329.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  1330.                    )
  1331.                "The value of " " must be one of " ", "
  1332.               )
  1333.             FRANCAIS
  1334.             #Y(CASE-ERRORSTRING-3
  1335.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  1336.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  1337.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  1338.                    )
  1339.                "La valeur de " " doit Ωtre l'une des suivantes : " ", "
  1340.            )  )
  1341.       #Y(CASE-EXPECTED-TYPE
  1342.          #53Y(00 00 00 00 01 00 00 00 00 02 D8 62 AD 1A 19 9B 1A 0D 93 00 AA 86
  1343.               00 00 14 8D 0E 73 AA 60 01 F6 AD 7F A6 02 16 01 82 00 9B 20 67 16
  1344.               01 AA 30 A8 16 01 5C 19 02
  1345.              )
  1346.          MEMBER
  1347.         )
  1348.       #2#
  1349.      )
  1350.    CCASE
  1351.    #Y(CCASE
  1352.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  1353.            78 DA AC AC AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
  1354.           )
  1355.       2. MACRO-CALL-ERROR CASE #4# #3#
  1356.   )  )
  1357. #Y(#:TOP-LEVEL-FORM-90
  1358.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  1359.        )
  1360.    (SPECIAL *DEBUGGER-HOOK*) *DEBUGGER-HOOK*
  1361.   )
  1362. #Y(#:TOP-LEVEL-FORM-91
  1363.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) BREAK
  1364.    REMOVE-OLD-DEFINITIONS
  1365.    #Y(BREAK
  1366.       #78Y(01 00 01 00 00 00 01 00 01 00 3A 02 02 C3 F8 D9 DA AE DB AF 6D 05 04
  1367.            00 2A 01 00 0B 00 00 4A 05 21 DE DF E0 B1 B0 6C 09 02 E2 E3 6D 06 0C
  1368.            0E 0D 5C 10 0D 0E 0E 10 0E B5 DF 6E 0F 7A 01 2F 10 B5 30 66 06 04 00
  1369.            38 00 00 4C 16 02 00 19 03
  1370.           )
  1371.       "Break" SIMPLE-CONDITION :FORMAT-STRING :FORMAT-ARGUMENTS MAKE-CONDITION
  1372.       #(NIL) :NAME CONTINUE :INVOKE-FUNCTION
  1373.       #Y(LISP::BREAK-1 #17Y(00 00 00 00 00 00 00 00 01 16 9C 0C 00 01 4D 01 00)
  1374.          NIL NIL
  1375.         )
  1376.       :REPORT
  1377.       #Y(LISP::BREAK-2
  1378.          #23Y(00 00 00 00 01 00 00 00 00 02 AB D8 D9 DA 6D 03 03 DC 2C 03 05 19
  1379.               02
  1380.              )
  1381.          "Return from ~S loop" "~S-Schleife beenden." "Quitter le cycle de ~S."
  1382.          LANGUAGE BREAK FORMAT
  1383.         )
  1384.       MAKE-RESTART *ACTIVE-RESTARTS* *CONDITION-RESTARTS* FIND-RESTART
  1385.       ADD-CONDITION-RESTARTS
  1386.   )  )
  1387. #Y(#:TOP-LEVEL-FORM-92
  1388.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CERROR
  1389.    REMOVE-OLD-DEFINITIONS
  1390.    #Y(CERROR
  1391.       #193Y(01 00 01 00 02 00 00 00 01 18 00 2A 02 7E 04 00 00 7E 02 00 01 0E
  1392.             00 1B 37 0E 01 1B 80 5D 6A 02 30 90 DB 6A 02 37 02 30 8E 6A 02 30
  1393.             90 98 04 6A 02 AF 06 03 01 36 02 6A 05 30 90 6A 05 87 06 1B 98 04
  1394.             6A 05 06 02 00 14 06 03 01 36 02 1A 80 6E 14 06 01 00 1B 01 02 14
  1395.             A0 1A 6C DF E0 E1 6D 03 0A 6A 05 37 02 30 8E 98 04 6A 05 67 02 00
  1396.             06 03 01 36 02 6A 0B 63 35 01 1A 80 43 AD 67 01 01 E4 E5 6D 04 0E
  1397.             9C 2A 01 00 0B 00 00 4A 0F 27 E8 E9 EA B1 B0 6C 13 02 EC B3 6C 15
  1398.             01 6D 06 16 0E 17 5C 10 17 0E 18 10 18 B5 E9 6E 19 7A 01 2F 1A B5
  1399.             2E 1B B5 30 66 06 04 00 38 00 00 4C 16 02 00 19 05
  1400.            )
  1401.       *ERROR-HANDLER* *USE-CLCS* *ERROR-OUTPUT* "** - Continuable Error" FORMAT
  1402.       *DEBUG-IO* INTERACTIVE-STREAM-P
  1403.       "If you continue (by typing 'continue'): "
  1404.       "Wenn Sie (mit Continue) fortfahren: "
  1405.       "Si vous continuez (en tapant 'continue'): " LANGUAGE *BREAK-DRIVER*
  1406.       CERROR SIMPLE-ERROR COERCE-TO-CONDITION #(NIL) :NAME CONTINUE
  1407.       :INVOKE-FUNCTION
  1408.       #Y(LISP::CERROR-1
  1409.          #17Y(00 00 00 00 00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL NIL
  1410.         )
  1411.       :REPORT
  1412.       #Y(LISP::CERROR-2
  1413.          #22Y(00 00 00 00 01 00 00 00 00 02 98 01 AC 68 01 01 07 01 02 9A 02 02
  1414.              )
  1415.          NIL FORMAT
  1416.         )
  1417.       MAKE-RESTART *ACTIVE-RESTARTS* *CONDITION-RESTARTS* FIND-RESTART
  1418.       ADD-CONDITION-RESTARTS SIGNAL
  1419.   )  )
  1420. #Y(#:TOP-LEVEL-FORM-93
  1421.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) WARN
  1422.    REMOVE-OLD-DEFINITIONS
  1423.    #Y(WARN
  1424.       #239Y(01 00 01 00 01 00 00 00 01 17 0E 00 1C 80 9B AC AC E1 E2 6D 04 0B
  1425.             AA 71 2C E4 8A 0D 80 B3 00 2A 01 00 0B 00 00 4A 15 80 B8 EE EF F0
  1426.             B1 B0 6C 19 02 6D 04 1A 0E 1B 5C 10 1B 0E 1C 10 1C B5 EF 6E 1D 7A
  1427.             01 2F 1E B5 2E 1F 12 02 4C 16 01 6A 01 30 90 64 20 64 21 64 22 6D
  1428.             03 05 6A 01 37 02 30 8E 6A 01 30 90 AA 6A 01 2F 23 0E 07 1C 80 7C
  1429.             00 2A 01 00 0B 00 00 4A 24 80 68 EE 64 25 F0 B1 B0 6C 26 02 64 27
  1430.             64 28 6D 06 1A 0E 1B 5C 10 1B 0E 1C 10 1C B5 64 25 6E 1D 7A 01 2F
  1431.             1E 6A 08 62 B7 62 35 03 12 02 4C 16 02 1A 80 42 6A 01 30 90 DA DB
  1432.             DC 6D 03 05 6A 01 37 02 30 8E 6A 01 30 90 98 06 6A 01 AE 9F 36 02
  1433.             0E 07 1C 22 6A 08 63 35 01 1A 1B E6 E7 AC E8 E9 EA EB EC 6D 03 05
  1434.             E1 B1 32 06 1F 06 04 00 38 00 00 1A FF BA 16 01 00 19 03
  1435.            )
  1436.       *USE-CLCS* *ERROR-OUTPUT* "WARNING:" "WARNUNG:" "AVERTISSEMENT :"
  1437.       LANGUAGE FORMAT *BREAK-ON-WARNINGS* *BREAK-DRIVER* WARN SIMPLE-WARNING
  1438.       COERCE-TO-CONDITION #.(CLOS:FIND-CLASS 'WARNING) CLOS::SUBCLASSP
  1439.       TYPE-ERROR :DATUM :EXPECTED-TYPE WARNING
  1440.       "~S: This is more serious than a warning: ~A"
  1441.       "~S: Das ist ernster als eine Warnung: ~A"
  1442.       "~S : C'est plus sΘrieux qu'un avertissement: ~A" #(NIL) :NAME
  1443.       MUFFLE-WARNING :INVOKE-FUNCTION
  1444.       #Y(LISP::WARN-1 #17Y(00 00 00 00 00 00 00 00 01 16 9C 0C 00 01 4D 01 00)
  1445.          NIL NIL
  1446.         )
  1447.       MAKE-RESTART *ACTIVE-RESTARTS* *CONDITION-RESTARTS* FIND-RESTART
  1448.       ADD-CONDITION-RESTARTS SIGNAL "WARNING:" "WARNUNG:" "AVERTISSEMENT :"
  1449.       PRINT-CONDITION #(NIL) CONTINUE
  1450.       #Y(LISP::WARN-2 #17Y(00 00 00 00 00 00 00 00 01 16 9C 0C 00 01 4D 01 00)
  1451.          NIL NIL
  1452.         )
  1453.       :REPORT
  1454.       #Y(LISP::WARN-3
  1455.          #23Y(00 00 00 00 01 00 00 00 00 02 AB D8 D9 DA 6D 03 03 DC 2C 03 05 19
  1456.               02
  1457.              )
  1458.          "Return from ~S loop" "~S-Schleife beenden." "Quitter le cycle de ~S."
  1459.          LANGUAGE BREAK FORMAT
  1460.   )  )  )
  1461. #Y(#:TOP-LEVEL-FORM-94 #15Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 19 01)
  1462.    *USE-CLCS*
  1463.   )
  1464. #Y(#:TOP-LEVEL-FORM-95
  1465.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1466.    MUFFLE-CERRORS REMOVE-OLD-DEFINITIONS MACRO
  1467.    #Y(MUFFLE-CERRORS
  1468.       #19Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 9D 61 02 19 04)
  1469.       HANDLER-BIND ((ERROR #'(LAMBDA (CONDITION) (CONTINUE CONDITION))))
  1470.   )  )
  1471. #Y(#:TOP-LEVEL-FORM-96
  1472.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1473.    APPEASE-CERRORS REMOVE-OLD-DEFINITIONS MACRO
  1474.    #Y(APPEASE-CERRORS
  1475.       #19Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 9D 61 02 19 04)
  1476.       HANDLER-BIND ((ERROR #'(LAMBDA (CONDITION) (APPEASE-CERROR CONDITION))))
  1477.   )  )
  1478. #Y(#:TOP-LEVEL-FORM-97
  1479.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1480.    APPEASE-CERROR REMOVE-OLD-DEFINITIONS
  1481.    #Y(APPEASE-CERROR
  1482.       #70Y(03 00 01 00 01 00 00 00 00 02 D8 AC 6F 01 91 00 03 00 19 03 DA 37 01
  1483.            71 78 52 1A B0 AD 2F 03 DC AF DD 71 32 92 00 07 AD 30 90 AA AE 35 01
  1484.            16 01 AC 31 79 3E 53 66 00 00 00 37 01 31 7F 54 F6 2F 06 AA 2E 07 19
  1485.            03
  1486.           )
  1487.       CONTINUE FIND-RESTART "~A" PRINT-CONDITION RESTART 5. WARN INVOKE-RESTART
  1488.   )  )
  1489. #Y(#:TOP-LEVEL-FORM-98
  1490.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1491.    EXIT-ON-ERROR REMOVE-OLD-DEFINITIONS MACRO
  1492.    #Y(EXIT-ON-ERROR
  1493.       #19Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 9D 61 02 19 04)
  1494.       HANDLER-BIND ((ERROR #'(LAMBDA (CONDITION) (EXITONERROR CONDITION))))
  1495.   )  )
  1496. #Y(#:TOP-LEVEL-FORM-99
  1497.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1498.    EXITONERROR REMOVE-OLD-DEFINITIONS
  1499.    #Y(EXITONERROR
  1500.       #39Y(00 00 00 00 01 00 00 00 00 02 D8 AC 89 01 15 6A 02 30 90 DB 6A 02 37
  1501.            02 30 8E AB 6A 02 2F 04 63 2E 05 19 02 00 19 02
  1502.           )
  1503.       CONTINUE FIND-RESTART *ERROR-OUTPUT* "*** - " PRINT-CONDITION EXIT
  1504.   )  )
  1505. #Y(#:TOP-LEVEL-FORM-100
  1506.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1507.    BATCHMODE-ERRORS REMOVE-OLD-DEFINITIONS MACRO
  1508.    #Y(BATCHMODE-ERRORS
  1509.       #20Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 9D 79 60 02 19 04)
  1510.       EXIT-ON-ERROR APPEASE-CERRORS
  1511.   )  )
  1512.