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