home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / macros2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  14.7 KB  |  305 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) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) TYPECASE
  5.    REMOVE-OLD-DEFINITIONS MACRO
  6.    #Y(TYPECASE
  7.       #126Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 0F 9D 5B 77 9E 5B 78 37 01
  8.             71 90 62 AC 1A 80 4C AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF 93 03
  9.             32 02 1F AA CB 59 16 01 1C 1E 63 9C 5A 5B 1B 01 CC 79 83 01 16 01
  10.             1A 2A 9B 5A 1F 5A 9B 5A 77 AA 02 59 1C 5F 16 01 1B 62 E2 AD E3 9E
  11.             5A 77 7A 02 7A 03 9C 5A 5B 1B 01 CF 79 83 01 82 00 9B 20 58 16 01
  12.             E5 AC AF 7A 02 7A 01 E6 AD 31 4A 79 60 03 19 07
  13.            )
  14.       2. MACRO-CALL-ERROR PROGRAM-ERROR "Invalid clause in ~S: ~S"
  15.       "Unzulässige Klausel in ~S: ~S" "Clause inadmissible dans ~S : ~S"
  16.       LANGUAGE TYPECASE OTHERWISE (NIL) TYPEP QUOTE (NIL) LET COND
  17.   )  )
  18. #Y(#:TOP-LEVEL-FORM-3
  19.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) CHECK-TYPE
  20.    REMOVE-OLD-DEFINITIONS MACRO
  21.    #Y(CHECK-TYPE
  22.       #119Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 80 5A 9D 5B 77 9E 5B 5B
  23.             77 9F 5B 5B 5B 1B 80 51 00 14 37 01 71 90 37 01 71 90 DB AC DC DD
  24.             B2 DE B3 7A 02 7A 03 DF AF 7A 02 7A 03 E0 E1 E2 62 E3 E4 E5 6D 03
  25.             0E B6 B5 B7 6D 05 0F B5 7A 05 E8 62 E9 EA EB 6D 03 0E B5 6D 03 0F
  26.             D7 7B 02 ED B4 03 16 7B 02 DF B2 7A 02 B1 60 08 19 08 AC 2E 02 19
  27.             03 9F 5B 5B 5B 5A 1A FF A8
  28.            )
  29.       3. 4. MACRO-CALL-ERROR TAGBODY WHEN TYPEP QUOTE GO CERROR
  30.       (LANGUAGE "You may input a new value."
  31.         "Sie dürfen einen neuen Wert eingeben."
  32.         "Vous avez l'occasion d'entrer une nouvelle valeur."
  33.       )
  34.       (LANGUAGE "~A~%The value is: ~S" "~A~%Der Wert ist: ~S"
  35.         "~A~%La valeur est : ~S"
  36.       )
  37.       "The value of ~S should be ~:[of type ~S~;~:*~A~]."
  38.       "Der Wert von ~S sollte ~:[vom Typ ~S~;~:*~A~] sein."
  39.       "La valeur de ~S devrait être ~:[de type ~S~;~:*~A~]." LANGUAGE FORMAT
  40.       WRITE-STRING "~%New ~S: " "~%Neues ~S: " "~%Nouveau ~S : " (*QUERY-IO*)
  41.       SETF ((READ *QUERY-IO*))
  42.   )  )
  43. #Y(#:TOP-LEVEL-FORM-4
  44.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) ASSERT
  45.    REMOVE-OLD-DEFINITIONS MACRO
  46.    #Y(ASSERT
  47.       #188Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 57 9D 5B 77 9E 5B 5B 1B
  48.             80 53 00 14 9F 5B 5B 5B 1B 80 51 00 14 A0 5B 5B 5B 78 37 01 71 90
  49.             37 01 71 90 DA AC DB B2 DC AF 7A 02 7A 03 DD B2 71 48 AA 23 06 38
  50.             AA 23 08 37 CD F6 E3 91 09 01 CF 14 7A 02 91 09 2D 62 E5 E6 E7 6D
  51.             03 10 B7 6D 03 11 60 01 7B 03 62 B3 1A 3F AC 2E 01 19 03 9E 5B 5B
  52.             5A 1A FF A7 9F 5B 5B 5B 5A 1A FF A8 CA 1A 4A CC 1A 47 A3 1A 5D 93
  53.             00 EA 62 EB EC ED 6D 03 10 AD 6D 03 11 03 16 7B 02 EF AC 03 18 7B
  54.             02 7A 02 AD 7F A6 02 16 01 82 00 9B 20 5B 16 01 AA 7F A7 00 DC B1
  55.             7A 02 B0 7A 02 32 02 23 61 04 19 09
  56.            )
  57.       2. MACRO-CALL-ERROR TAGBODY WHEN GO CERROR 0.
  58.       (LANGUAGE "Retry" "Neuer Anlauf" "Reéssayer") 1.
  59.       (LANGUAGE "You may input a new value."
  60.         "Sie dürfen einen neuen Wert eingeben."
  61.         "Vous pouvez entrer une nouvelle valeur."
  62.       )
  63.       (LANGUAGE "You may input new values." "Sie dürfen neue Werte eingeben."
  64.         "Vous pouvez entrer de nouvelles valeurs."
  65.       )
  66.       QUOTE "~A" "~S must evaluate to a non-NIL value."
  67.       "Der Wert von ~S darf nicht NIL sein."
  68.       "La valeur de ~S ne peut pas être NIL." LANGUAGE FORMAT WRITE-STRING
  69.       "~%New ~S: " "~%Neues ~S: " "~%Nouveau ~S : " (*QUERY-IO*) SETF
  70.       ((READ *QUERY-IO*))
  71.   )  )
  72. #Y(#:TOP-LEVEL-FORM-5
  73.    #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
  74.         DE 2E 01 DE DA CA 79 31 82 E0 2E 01 E0 DA CC 79 31 82 CB 19 01
  75.        )
  76.    ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
  77.    #Y(ETYPECASE
  78.       #39Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 14 9D 5B 77 9E 5B 78 DA AC AC
  79.            AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
  80.           )
  81.       2. MACRO-CALL-ERROR TYPECASE
  82.       #1=#Y(TYPECASE-ERRORSTRING
  83.             #25Y(00 02 00 00 00 03 D8 AC 72 00 17 62 D9 DA DB 6D 03 04 AF AD 2C
  84.                  04 05 19 04
  85.                 )
  86.             #.#'FIRST "The value of ~S must be of one of the types ~{~S~^, ~}"
  87.             "Der Wert von ~S muß einem der Typen ~{~S~^, ~} angehören."
  88.             "La valeur de ~S doit appartenir à l'un des types ~{~S~^, ~}."
  89.             LANGUAGE FORMAT
  90.            )
  91.       #Y(TYPECASE-EXPECTED-TYPE
  92.          #15Y(00 01 00 00 00 02 D8 D9 AD 32 00 17 5C 19 02) OR #.#'FIRST
  93.         )
  94.       #2=#Y(SIMPLY-ERROR
  95.             #48Y(00 05 00 00 00 06 37 01 71 90 D8 AB B1 7A 02 7A 01 B2 AD B2 D9
  96.                  DA DB DC B3 DD DE B8 7A 02 DF BA B8 7A 09 7A 02 7A 01 32 02 23
  97.                  7B 02 60 03 19 07
  98.                 )
  99.             LET OTHERWISE ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE QUOTE
  100.             (LANGUAGE "~A~%The value is: ~S" "~A~%Der Wert ist: ~S"
  101.               "~A~%La valeur est : ~S"
  102.      )     ))
  103.    CTYPECASE
  104.    #Y(CTYPECASE
  105.       #36Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 11 9D 5B 77 9E 5B 78 DA AC AC
  106.            AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
  107.           )
  108.       2. MACRO-CALL-ERROR TYPECASE #1#
  109.       #3=#Y(RETRY-LOOP
  110.             #72Y(00 04 00 00 00 05 37 01 71 90 37 01 71 90 D8 AC D9 AD DA B0 B6
  111.                  B6 B6 DB DC DD DE BA BD 7A 05 DF 62 E0 E1 E2 6D 03 0B BD 6D 03
  112.                  0C D0 7B 02 E6 BC D2 7B 02 E8 B8 7A 02 7A 05 7A 01 32 02 23 7B
  113.                  02 7A 03 7A 03 60 03 19 07
  114.                 )
  115.             BLOCK TAGBODY RETURN-FROM OTHERWISE CERROR
  116.             (LANGUAGE "You may input a new value."
  117.               "Sie dürfen einen neuen Wert eingeben."
  118.               "Vous pouvez entrer une nouvelle valeur."
  119.             )
  120.             (LANGUAGE "~A~%The value is: ~S" "~A~%Der Wert ist: ~S"
  121.               "~A~%La valeur est : ~S"
  122.             )
  123.             WRITE-STRING "~%New ~S: " "~%Neues ~S: " "~%Nouveau ~S : " LANGUAGE
  124.             FORMAT (*QUERY-IO*) SETF ((READ *QUERY-IO*)) GO
  125.      )     )
  126.    ECASE
  127.    #Y(ECASE
  128.       #39Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 14 9D 5B 77 9E 5B 78 DA AC AC
  129.            AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
  130.           )
  131.       2. MACRO-CALL-ERROR CASE
  132.       #4=#Y(CASE-ERRORSTRING
  133.             #58Y(00 02 00 00 00 03 62 AC 1A 19 9B 1A 0D 93 00 AA 86 00 00 14 8D
  134.                  0D 73 AA 60 01 F6 AD 7F A5 02 16 01 82 00 9B 20 67 16 01 AA 7F
  135.                  A7 00 62 D8 D9 DA 6D 03 03 AF AD 2C 04 04 19 04
  136.                 )
  137.             "The value of ~S must be one of ~{~S~^, ~}"
  138.             "Der Wert von ~S muß einer der folgenden sein: ~{~S~^, ~}"
  139.             "La valeur de ~S doit être l'une des suivantes : ~{~S~^, ~}"
  140.             LANGUAGE FORMAT
  141.            )
  142.       #Y(CASE-EXPECTED-TYPE
  143.          #49Y(00 01 00 00 00 02 D8 62 AD 1A 19 9B 1A 0D 93 00 AA 86 00 00 14 8D
  144.               0D 73 AA 60 01 F6 AD 7F A5 02 16 01 82 00 9B 20 67 16 01 AA 30 A7
  145.               16 01 5C 19 02
  146.              )
  147.          MEMBER
  148.         )
  149.       #2#
  150.      )
  151.    CCASE
  152.    #Y(CCASE
  153.       #36Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 11 9D 5B 77 9E 5B 78 DA AC AC
  154.            AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
  155.           )
  156.       2. MACRO-CALL-ERROR CASE #4# #3#
  157.   )  )
  158. #Y(#:TOP-LEVEL-FORM-6
  159.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFTYPE
  160.    REMOVE-OLD-DEFINITIONS MACRO
  161.    #Y(DEFTYPE
  162.       #223Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 5B
  163.             77 9F 5B 5B 78 AC 8E 08 1F AC DF 37 01 8D 84 07 AC E0 37 01 8E 84
  164.             17 DA E1 E2 CE 14 6D 03 06 AE 32 01 1F AC 2E 01 19 03 DA DB DC C8
  165.             1A 6D AA 63 B0 30 62 41 03 92 01 06 E4 9D 79 60 01 F7 D0 10 0E D0
  166.             10 0F 00 10 10 00 10 11 00 10 12 D6 10 14 C0 ED 65 19 EE 2C 04 17
  167.             EE 6E 18 F1 6A 11 71 4A C0 6A 12 71 4A 65 19 32 03 23 7B 02 92 01
  168.             07 F2 AC F3 AD 60 04 F6 F4 F5 64 1E 62 64 1F 64 20 65 1F 7A 02 64
  169.             21 64 22 64 23 65 22 70 4E 72 02 13 70 CE 64 24 64 25 64 26 65 25
  170.             B7 7A 03 7A 03 7A 03 7A 04 64 27 64 28 64 20 65 21 7A 02 03 29 7B
  171.             02 64 20 65 1C 7A 02 7A 03 64 20 65 20 7A 02 7A 05 60 03 16 02 12
  172.             06 19 09
  173.            )
  174.       3. MACRO-CALL-ERROR PROGRAM-ERROR "type name should be a symbol, not ~S"
  175.       "Typname muß ein Symbol sein, nicht ~S"
  176.       "Le type doit être un symbole et non ~S" LANGUAGE TYPE-SYMBOL TYPE-LIST
  177.       "~S is a built-in type and may not be redefined."
  178.       "~S ist ein eingebauter Typ und darf nicht umdefiniert werden."
  179.       "~S est un type prédéfini et ne peut pas être redéfini." DECLARE 0.
  180.       %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS '* %DEFAULT-FORM
  181.       (CDR <DEFTYPE-FORM>) <DEFTYPE-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
  182.       (TYPE-CALL-ERROR <DEFTYPE-FORM>) EVAL-WHEN (COMPILE LOAD EVAL) LET %PUT
  183.       QUOTE 'DEFTYPE-EXPANDER FUNCTION "DEFTYPE-" LAMBDA (<DEFTYPE-FORM>) BLOCK
  184.       SETF DOCUMENTATION ('TYPE)
  185.   )  )
  186. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  187.    TYPE-CALL-ERROR REMOVE-OLD-DEFINITIONS
  188.    #Y(TYPE-CALL-ERROR
  189.       #23Y(00 01 00 00 00 02 D8 D9 DA DB 6D 03 04 93 03 AE 71 48 71 98 32 02 1F
  190.           )
  191.       ERROR "The deftype expander for ~S may not be called with ~S arguments."
  192.       "Der Deftype-Expander für ~S kann nicht mit ~S Argumenten aufgerufen werden."
  193.       "L'«expandeur» de DEFTYPE pour ~S ne peut pas être appelé avec ~S arguments."
  194.       LANGUAGE
  195.   )  )
  196. #Y(#:TOP-LEVEL-FORM-8
  197.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) TIME
  198.    REMOVE-OLD-DEFINITIONS MACRO
  199.    #Y(TIME
  200.       #77Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 3A 9D 5B 77 37 01 71 90 37 01
  201.            71 90 37 01 71 90 37 01 71 90 37 01 71 90 37 01 71 90 37 01 71 90 37
  202.            01 71 90 37 01 71 90 7A 09 DA AB DB DC AF DD DE DF A3 7B 03 7A 03 60
  203.            04 19 05 AC 2E 01 19 03
  204.           )
  205.       2. MACRO-CALL-ERROR MULTIPLE-VALUE-BIND (%%TIME) UNWIND-PROTECT
  206.       MULTIPLE-VALUE-CALL #'%TIME (%%TIME)
  207.   )  )
  208. #Y(#:TOP-LEVEL-FORM-9
  209.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  210.    WITH-INPUT-FROM-STRING REMOVE-OLD-DEFINITIONS MACRO
  211.    #Y(WITH-INPUT-FROM-STRING
  212.       #194Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 80 9D 5B 5A 77 9E
  213.             5B 5A 5B 77 9F 5B 5A 5B 78 AA DA 6A 03 71 85 AA 0E 03 21 80 6B 02
  214.             14 AC DC 6A 03 71 85 AA 0E 03 21 80 62 02 14 AE DE 6A 03 71 85 AA
  215.             0E 03 21 80 5A 02 14 A6 5B 78 B1 DF 30 63 AA 62 B7 30 62 41 02 92
  216.             00 06 E0 9C 79 60 01 F6 E1 B6 E2 B7 91 09 80 44 91 07 80 40 00 7B
  217.             02 7A 02 7A 01 AC E3 E4 A1 79 91 0C 3A 00 14 E7 BC 7A 02 7A 01 32
  218.             02 23 7B 02 7A 01 32 02 23 61 02 19 0F AC 2E 01 19 03 7C 00 1A FF
  219.             91 C8 F6 00 1A FF 99 7C 00 1A FF A2 B3 60 01 5C 1A 41 B4 91 08 76
  220.             00 5C 1A FF B8 E5 B8 E6 BD 7A 02 7A 03 60 01 1A FF BA
  221.            )
  222.       2. MACRO-CALL-ERROR :INDEX MACRO-MISSING-VALUE :START 0. :END
  223.       (:END :START :INDEX) DECLARE LET MAKE-STRING-INPUT-STREAM UNWIND-PROTECT
  224.       PROGN SETF STRING-INPUT-STREAM-INDEX CLOSE
  225.   )  )
  226. #Y(#:TOP-LEVEL-FORM-10
  227.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-OPEN-FILE
  228.    REMOVE-OLD-DEFINITIONS MACRO
  229.    #Y(WITH-OPEN-FILE
  230.       #94Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 48 9D 5B 5A 77 9E 5B
  231.            5A 78 9F 5B 78 AA 62 B0 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB AF
  232.            DC A1 79 7A 02 7A 01 AC DD DE DF A2 79 E0 B5 E1 B7 7A 02 7A 03 7A 03
  233.            E0 B4 E1 B6 CD 7B 02 7A 03 7A 03 7A 01 32 02 23 61 02 19 08 AC 2E 01
  234.            19 03
  235.           )
  236.       2. MACRO-CALL-ERROR DECLARE LET OPEN UNWIND-PROTECT MULTIPLE-VALUE-PROG1
  237.       PROGN WHEN CLOSE (:ABORT T)
  238.   )  )
  239. #Y(#:TOP-LEVEL-FORM-11
  240.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-OPEN-STREAM
  241.    REMOVE-OLD-DEFINITIONS MACRO
  242.    #Y(WITH-OPEN-STREAM
  243.       #84Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 3F 9D 5B 5A 77 9E 5B 5A
  244.            5B 77 9F 5B 78 AA 62 B0 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB AF
  245.            AF 7A 02 7A 01 AC DC DD DE A2 79 DF B5 7A 02 7A 03 DF B4 CB 7B 02 7A
  246.            03 7A 01 32 02 23 61 02 19 08 AC 2E 01 19 03
  247.           )
  248.       2. MACRO-CALL-ERROR DECLARE LET UNWIND-PROTECT MULTIPLE-VALUE-PROG1 PROGN
  249.       CLOSE (:ABORT T)
  250.   )  )
  251. #Y(#:TOP-LEVEL-FORM-12
  252.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  253.    WITH-OUTPUT-TO-STRING REMOVE-OLD-DEFINITIONS MACRO
  254.    #Y(WITH-OUTPUT-TO-STRING
  255.       #129Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 48 9D 5B 5A 77 9E
  256.             5B 5A 5B 1B 80 42 00 14 9F 5B 5A 5B 58 58 14 A0 5B 78 AA 62 B1 30
  257.             62 41 02 91 00 34 91 03 3A DB B0 CB 79 7A 01 AC DD DE B0 E1 B6 7A
  258.             02 7A 01 32 02 23 79 CA 14 B5 7A 02 7A 03 7A 01 32 02 23 61 02 19
  259.             09 AC 2E 01 19 03 9E 5B 5A 5B 5A 1A FF B7 DA 9C 79 60 01 F6 92 03
  260.             46 DB B0 DC B1 7A 02 7A 02 7A 01 AC DD DE A1 79 CA 1A 49
  261.            )
  262.       2. MACRO-CALL-ERROR DECLARE LET MAKE-STRING-PUSH-STREAM UNWIND-PROTECT
  263.       PROGN CLOSE ((MAKE-STRING-OUTPUT-STREAM)) GET-OUTPUT-STREAM-STRING
  264.   )  )
  265. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  266. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  267.    WITH-OUTPUT-TO-PRINTER
  268.   )
  269. #Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  270. #Y(#:TOP-LEVEL-FORM-16
  271.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  272.    WITH-OUTPUT-TO-PRINTER REMOVE-OLD-DEFINITIONS MACRO
  273.    #Y(WITH-OUTPUT-TO-PRINTER
  274.       #70Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 31 9D 5B 5A 77 9E 5B 78
  275.            AA 62 AF 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB AE C7 79 7A 01 AC
  276.            DD DE A1 79 DF B3 7A 02 7A 03 7A 01 32 02 23 61 02 19 07 AC 2E 01 19
  277.            03
  278.           )
  279.       2. MACRO-CALL-ERROR DECLARE LET ((MAKE-PRINTER-STREAM)) UNWIND-PROTECT
  280.       PROGN CLOSE
  281.   )  )
  282. #Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  283. #Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  284.    WITHOUT-FLOATING-POINT-UNDERFLOW
  285.   )
  286. #Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  287. #Y(#:TOP-LEVEL-FORM-20
  288.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  289.    WITHOUT-FLOATING-POINT-UNDERFLOW REMOVE-OLD-DEFINITIONS MACRO
  290.    #Y(WITHOUT-FLOATING-POINT-UNDERFLOW
  291.       #17Y(00 01 00 01 00 08 94 02 D8 D9 DA 9E 79 60 03 19 04) LET
  292.       ((*INHIBIT-FLOATING-POINT-UNDERFLOW* T)) PROGN
  293.   )  )
  294. #Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  295. #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  296.    LANGUAGE-CASE
  297.   )
  298. #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  299. #Y(#:TOP-LEVEL-FORM-24
  300.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LANGUAGE-CASE
  301.    REMOVE-OLD-DEFINITIONS MACRO
  302.    #Y(LANGUAGE-CASE #15Y(00 01 00 01 00 08 94 02 D8 D9 9D 61 02 19 04) CASE
  303.       (DEUTSCH 'DEUTSCH ENGLISH 'ENGLISH FRANCAIS 'FRANCAIS)
  304.   )  )
  305.