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 / macros2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  21.3 KB  |  494 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.    "SYSTEM"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2
  6.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  7.    TYPECASE REMOVE-OLD-DEFINITIONS MACRO
  8.    #Y(TYPECASE
  9.       #130Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 0F 9D 5B 77 9E
  10.             5B 78 37 01 71 92 62 AC 1A 80 4C AC 2E 01 19 03 DA DB DC DD 6D 03
  11.             06 DF 93 03 32 02 1F AA CB 59 16 01 1C 1E 63 9C 5A 5B 1B 01 CC 79
  12.             83 01 16 01 1A 2A 9B 5A 1F 5A 9B 5A 77 AA 02 59 1C 5F 16 01 1B 62
  13.             E2 AD E3 9E 5A 77 7A 02 7A 03 9C 5A 5B 1B 01 CF 79 83 01 82 00 9B
  14.             20 58 16 01 E5 AC AF 7A 02 7A 01 E6 AD 31 4C 79 60 03 19 07
  15.            )
  16.       2. MACRO-CALL-ERROR PROGRAM-ERROR "Invalid clause in ~S: ~S"
  17.       "UnzulΣssige Klausel in ~S: ~S" "Clause inadmissible dans ~S : ~S"
  18.       LANGUAGE TYPECASE OTHERWISE (NIL) TYPEP QUOTE (NIL) LET COND
  19.   )  )
  20. #Y(#:TOP-LEVEL-FORM-3
  21.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  22.    CHECK-TYPE REMOVE-OLD-DEFINITIONS MACRO
  23.    #Y(CHECK-TYPE
  24.       #152Y(00 00 00 00 01 00 01 00 00 08 D8 AD 71 4A D9 90 02 31 80 77 9D 5B
  25.             77 9E 5B 5B 77 9F 5B 5B 5B 1B 80 6E 00 14 37 01 71 92 37 01 71 92
  26.             DB AC DC DD B2 DE B3 7A 02 7A 03 DF AF 7A 02 7A 03 E0 E1 E2 E3 62
  27.             E4 B7 B6 B8 6D 05 0D E6 62 E7 B9 B8 BA 6D 05 0D E8 62 E9 BB BA BC
  28.             6D 05 0D 7A 06 B5 7A 05 EA E3 62 EB B6 6D 03 0D E6 62 EC B8 6D 03
  29.             0D E8 62 ED BA 6D 03 0D 7A 06 03 16 7B 02 EF B4 03 18 7B 02 DF B2
  30.             7A 02 B1 60 08 19 08 AC 2E 02 19 03 9F 5B 5B 5B 5A 1A FF 8B
  31.            )
  32.       3. 4. MACRO-CALL-ERROR TAGBODY WHEN TYPEP QUOTE GO CERROR
  33.       (DEUTSCH "Sie dⁿrfen einen neuen Wert eingeben." ENGLISH
  34.         "You may input a new value." FRANCAIS
  35.         "Vous avez l'occasion d'entrer une nouvelle valeur."
  36.       )
  37.       (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S" FRANCAIS
  38.         "~A~%La valeur est : ~S"
  39.       )
  40.       DEUTSCH
  41.       #Y(LISP::CHECK-TYPE-1
  42.          #74Y(00 00 00 00 01 00 00 00 01 17 AB D8 AE 37 02 30 8E 93 02 82 03 AE
  43.               30 86 D9 AE 37 02 30 8E 93 02 82 03 15 1C 16 DB AB AE 2C 03 04 F8
  44.               77 82 03 AE 30 89 DD AE 37 02 30 8E 9D 19 04 DA AE 37 02 30 8E 93
  45.               02 82 03 AE 30 86 1A 68
  46.              )
  47.          "Der Wert von " " sollte " "vom Typ " 1. LIST-BACKWARD " sein."
  48.         )
  49.       FORMAT ENGLISH
  50.       #Y(LISP::CHECK-TYPE-2
  51.          #72Y(00 00 00 00 01 00 00 00 01 17 AB D8 AE 37 02 30 8E 93 02 82 03 AE
  52.               30 86 D9 AE 37 02 30 8E 93 02 82 03 15 1C 14 DB AB AE 2C 03 04 F8
  53.               77 82 03 AE 30 89 DD AE 30 8D 9D 19 04 DA AE 37 02 30 8E 93 02 82
  54.               03 AE 30 86 1A 6A
  55.              )
  56.          "The value of " " should be " "of type " 1. LIST-BACKWARD #\.
  57.         )
  58.       FRANCAIS
  59.       #Y(LISP::CHECK-TYPE-3
  60.          #72Y(00 00 00 00 01 00 00 00 01 17 AB D8 AE 37 02 30 8E 93 02 82 03 AE
  61.               30 86 D9 AE 37 02 30 8E 93 02 82 03 15 1C 14 DB AB AE 2C 03 04 F8
  62.               77 82 03 AE 30 89 DD AE 30 8D 9D 19 04 DA AE 37 02 30 8E 93 02 82
  63.               03 AE 30 86 1A 6A
  64.              )
  65.          "La valeur de " " devrait Ωtre " "de type " 1. LIST-BACKWARD #\.
  66.         )
  67.       WRITE-STRING
  68.       #Y(LISP::CHECK-TYPE-4
  69.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  70.               37 02 30 8E 9C 19 04
  71.              )
  72.          "
  73. Neues "
  74.          ": "
  75.         )
  76.       #Y(LISP::CHECK-TYPE-5
  77.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  78.               37 02 30 8E 9C 19 04
  79.              )
  80.          "
  81. New "
  82.          ": "
  83.         )
  84.       #Y(LISP::CHECK-TYPE-6
  85.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  86.               37 02 30 8E 9C 19 04
  87.              )
  88.          "
  89. Nouveau "
  90.          " : "
  91.         )
  92.       (*QUERY-IO*) SETF ((READ *QUERY-IO*))
  93.   )  )
  94. #Y(#:TOP-LEVEL-FORM-4
  95.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  96.    ASSERT REMOVE-OLD-DEFINITIONS MACRO
  97.    #Y(ASSERT
  98.       #221Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 66 9D 5B 77
  99.             9E 5B 5B 1B 80 62 00 14 9F 5B 5B 5B 1B 80 60 00 14 A0 5B 5B 5B 78
  100.             37 01 71 92 37 01 71 92 DA AC DB B2 DC AF 7A 02 7A 03 DD B2 71 4A
  101.             AA 23 06 80 46 AA 23 08 80 45 CD F6 E3 91 09 01 CF 14 7A 02 91 09
  102.             3C E5 62 E6 B8 6D 03 0F E8 62 E9 BA 6D 03 0F EA 62 EB BC 6D 03 0F
  103.             7A 06 60 01 7B 03 62 B3 1A 80 4D AC 2E 01 19 03 9E 5B 5B 5A 1A FF
  104.             98 9F 5B 5B 5B 5A 1A FF 99 CA 1A FF BC CC 1A FF B8 A3 1A 5A 93 00
  105.             EC E5 62 ED AE 6D 03 0F E8 62 EE B0 6D 03 0F EA 62 EF B2 6D 03 0F
  106.             7A 06 03 18 7B 02 F1 AC 03 1A 7B 02 7A 02 AD 7F A7 02 16 01 82 00
  107.             9B 20 4F 16 01 AA 7F A8 00 DC B1 7A 02 B0 7A 02 32 02 23 61 04 19
  108.             09
  109.            )
  110.       2. MACRO-CALL-ERROR TAGBODY WHEN GO CERROR 0.
  111.       (DEUTSCH "Neuer Anlauf" ENGLISH "Retry" FRANCAIS "ReΘssayer") 1.
  112.       (DEUTSCH "Sie dⁿrfen einen neuen Wert eingeben." ENGLISH
  113.         "You may input a new value." FRANCAIS
  114.         "Vous pouvez entrer une nouvelle valeur."
  115.       )
  116.       (DEUTSCH "Sie dⁿrfen neue Werte eingeben." ENGLISH
  117.         "You may input new values." FRANCAIS
  118.         "Vous pouvez entrer de nouvelles valeurs."
  119.       )
  120.       QUOTE "~A" DEUTSCH
  121.       #Y(LISP::ASSERT-1
  122.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  123.               37 02 30 8E 9C 19 04
  124.              )
  125.          "Der Wert von " " darf nicht NIL sein."
  126.         )
  127.       FORMAT ENGLISH
  128.       #Y(LISP::ASSERT-2
  129.          #23Y(00 00 00 00 02 00 00 00 01 18 AC AE 30 86 D8 AE 37 02 30 8E 9C 19
  130.               04
  131.              )
  132.          " must evaluate to a non-NIL value."
  133.         )
  134.       FRANCAIS
  135.       #Y(LISP::ASSERT-3
  136.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  137.               37 02 30 8E 9C 19 04
  138.              )
  139.          "La valeur de " " ne peut pas Ωtre NIL."
  140.         )
  141.       WRITE-STRING
  142.       #Y(LISP::ASSERT-4
  143.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  144.               37 02 30 8E 9C 19 04
  145.              )
  146.          "
  147. Neues "
  148.          ": "
  149.         )
  150.       #Y(LISP::ASSERT-5
  151.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  152.               37 02 30 8E 9C 19 04
  153.              )
  154.          "
  155. New "
  156.          ": "
  157.         )
  158.       #Y(LISP::ASSERT-6
  159.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 D9 AE
  160.               37 02 30 8E 9C 19 04
  161.              )
  162.          "
  163. Nouveau "
  164.          " : "
  165.         )
  166.       (*QUERY-IO*) SETF ((READ *QUERY-IO*))
  167.   )  )
  168. #Y(#:TOP-LEVEL-FORM-5
  169.    #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
  170.         C8 79 31 84 DE 2E 01 DE DA CA 79 31 84 E0 2E 01 E0 DA CC 79 31 84 CB 19
  171.         01
  172.        )
  173.    ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
  174.    #Y(ETYPECASE
  175.       #43Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 14 9D 5B 77 9E 5B
  176.            78 DA AC AC AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
  177.           )
  178.       2. MACRO-CALL-ERROR TYPECASE
  179.       #1=#Y(TYPECASE-ERRORSTRING
  180.             #43Y(00 00 00 00 02 00 00 00 00 03 D8 AC 72 00 17 D9 62 DA B0 AE 6D
  181.                  04 03 DC 62 DD B2 B0 6D 04 03 DE 62 DF B4 B2 6D 04 03 60 06 19
  182.                  04
  183.                 )
  184.             #.#'FIRST DEUTSCH
  185.             #Y(TYPECASE-ERRORSTRING-1
  186.                #65Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  187.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  188.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 DB AF 37 02
  189.                     30 8E 9C 19 05
  190.                    )
  191.                "Der Wert von " " mu▀ einem der Typen " ", " " angeh÷ren."
  192.               )
  193.             FORMAT ENGLISH
  194.             #Y(TYPECASE-ERRORSTRING-2
  195.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  196.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  197.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  198.                    )
  199.                "The value of " " must be of one of the types " ", "
  200.               )
  201.             FRANCAIS
  202.             #Y(TYPECASE-ERRORSTRING-3
  203.                #63Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  204.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  205.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 DB AF 30 8D
  206.                     9C 19 05
  207.                    )
  208.                "La valeur de " " doit appartenir α l'un des types " ", " #\.
  209.            )  )
  210.       #Y(TYPECASE-EXPECTED-TYPE
  211.          #19Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD 32 00 17 5C 19 02) OR
  212.          #.#'FIRST
  213.         )
  214.       #2=#Y(SIMPLY-ERROR
  215.             #52Y(00 00 00 00 05 00 00 00 00 06 37 01 71 92 D8 AB B1 7A 02 7A 01
  216.                  B2 AD B2 D9 DA DB DC B3 DD DE B8 7A 02 DF BA B8 7A 09 7A 02 7A
  217.                  01 32 02 23 7B 02 60 03 19 07
  218.                 )
  219.             LET OTHERWISE ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE QUOTE
  220.             (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
  221.               FRANCAIS "~A~%La valeur est : ~S"
  222.      )     ))
  223.    CTYPECASE
  224.    #Y(CTYPECASE
  225.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  226.            78 DA AC AC AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
  227.           )
  228.       2. MACRO-CALL-ERROR TYPECASE #1#
  229.       #3=#Y(RETRY-LOOP
  230.             #88Y(00 00 00 00 04 00 00 00 00 05 37 01 71 92 37 01 71 92 D8 AC D9
  231.                  AD DA B0 B6 B6 B6 DB DC DD DE BA BD 7A 05 DF E0 62 E1 BE 6D 03
  232.                  0A E3 62 E4 C0 6D 03 0A E5 62 E6 C2 6D 03 0A 7A 06 D2 7B 02 E8
  233.                  BC D4 7B 02 EA B8 7A 02 7A 05 7A 01 32 02 23 7B 02 7A 03 7A 03
  234.                  60 03 19 07
  235.                 )
  236.             BLOCK TAGBODY RETURN-FROM OTHERWISE CERROR
  237.             (DEUTSCH "Sie dⁿrfen einen neuen Wert eingeben." ENGLISH
  238.               "You may input a new value." FRANCAIS
  239.               "Vous pouvez entrer une nouvelle valeur."
  240.             )
  241.             (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
  242.               FRANCAIS "~A~%La valeur est : ~S"
  243.             )
  244.             WRITE-STRING DEUTSCH
  245.             #Y(RETRY-LOOP-1
  246.                #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86
  247.                     D9 AE 37 02 30 8E 9C 19 04
  248.                    )
  249.                "
  250. Neues "
  251.                ": "
  252.               )
  253.             FORMAT ENGLISH
  254.             #Y(RETRY-LOOP-2
  255.                #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86
  256.                     D9 AE 37 02 30 8E 9C 19 04
  257.                    )
  258.                "
  259. New "
  260.                ": "
  261.               )
  262.             FRANCAIS
  263.             #Y(RETRY-LOOP-3
  264.                #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86
  265.                     D9 AE 37 02 30 8E 9C 19 04
  266.                    )
  267.                "
  268. Nouveau "
  269.                " : "
  270.               )
  271.             (*QUERY-IO*) SETF ((READ *QUERY-IO*)) GO
  272.      )     )
  273.    ECASE
  274.    #Y(ECASE
  275.       #43Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 14 9D 5B 77 9E 5B
  276.            78 DA AC AC AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
  277.           )
  278.       2. MACRO-CALL-ERROR CASE
  279.       #4=#Y(CASE-ERRORSTRING
  280.             #76Y(00 00 00 00 02 00 00 00 00 03 62 AC 1A 19 9B 1A 0D 93 00 AA 86
  281.                  00 00 14 8D 0E 73 AA 60 01 F6 AD 7F A6 02 16 01 82 00 9B 20 67
  282.                  16 01 AA 7F A8 00 D8 62 D9 B0 AE 6D 04 02 DB 62 DC B2 B0 6D 04
  283.                  02 DD 62 DE B4 B2 6D 04 02 60 06 19 04
  284.                 )
  285.             DEUTSCH
  286.             #Y(CASE-ERRORSTRING-1
  287.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  288.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  289.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  290.                    )
  291.                "Der Wert von " " mu▀ einer der folgenden sein: " ", "
  292.               )
  293.             FORMAT ENGLISH
  294.             #Y(CASE-ERRORSTRING-2
  295.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  296.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  297.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  298.                    )
  299.                "The value of " " must be one of " ", "
  300.               )
  301.             FRANCAIS
  302.             #Y(CASE-ERRORSTRING-3
  303.                #59Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 86
  304.                     D9 AF 37 02 30 8E AC 1A 15 16 01 1A 17 93 00 82 01 B0 30 86
  305.                     AA 8B 97 71 DA B0 37 02 30 8E AA 8C 97 6B 16 01 9C 19 05
  306.                    )
  307.                "La valeur de " " doit Ωtre l'une des suivantes : " ", "
  308.            )  )
  309.       #Y(CASE-EXPECTED-TYPE
  310.          #53Y(00 00 00 00 01 00 00 00 00 02 D8 62 AD 1A 19 9B 1A 0D 93 00 AA 86
  311.               00 00 14 8D 0E 73 AA 60 01 F6 AD 7F A6 02 16 01 82 00 9B 20 67 16
  312.               01 AA 30 A8 16 01 5C 19 02
  313.              )
  314.          MEMBER
  315.         )
  316.       #2#
  317.      )
  318.    CCASE
  319.    #Y(CCASE
  320.       #40Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 11 9D 5B 77 9E 5B
  321.            78 DA AC AC AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
  322.           )
  323.       2. MACRO-CALL-ERROR CASE #4# #3#
  324.   )  )
  325. #Y(#:TOP-LEVEL-FORM-6
  326.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  327.    DEFTYPE REMOVE-OLD-DEFINITIONS MACRO
  328.    #Y(DEFTYPE
  329.       #227Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 29 9D 5B
  330.             77 9E 5B 5B 77 9F 5B 5B 78 AC 8E 09 1F AC DF 37 01 8D 86 07 AC E0
  331.             37 01 8E 86 17 DA E1 E2 CE 14 6D 03 06 AE 32 01 1F AC 2E 01 19 03
  332.             DA DB DC C8 1A 6D AA 63 B0 30 63 41 03 92 01 06 E4 9D 79 60 01 F7
  333.             D0 10 0E D0 10 0F 00 10 10 00 10 11 00 10 12 D6 10 14 C0 ED 65 19
  334.             EE 2C 04 17 EE 6E 18 F1 6A 11 71 4C C0 6A 12 71 4C 65 19 32 03 23
  335.             7B 02 92 01 07 F2 AC F3 AD 60 04 F6 F4 F5 64 1E 62 64 1F 64 20 65
  336.             1F 7A 02 64 21 64 22 64 23 65 22 70 4F 72 02 13 70 CF 64 24 64 25
  337.             64 26 65 25 B7 7A 03 7A 03 7A 03 7A 04 64 27 64 28 64 20 65 21 7A
  338.             02 03 29 7B 02 64 20 65 1C 7A 02 7A 03 64 20 65 20 7A 02 7A 05 60
  339.             03 16 02 12 06 19 09
  340.            )
  341.       3. MACRO-CALL-ERROR PROGRAM-ERROR "type name should be a symbol, not ~S"
  342.       "Typname mu▀ ein Symbol sein, nicht ~S"
  343.       "Le type doit Ωtre un symbole et non ~S" LANGUAGE TYPE-SYMBOL TYPE-LIST
  344.       "~S is a built-in type and may not be redefined."
  345.       "~S ist ein eingebauter Typ und darf nicht umdefiniert werden."
  346.       "~S est un type prΘdΘfini et ne peut pas Ωtre redΘfini." DECLARE 0.
  347.       %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS '* %DEFAULT-FORM
  348.       (CDR <DEFTYPE-FORM>) <DEFTYPE-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
  349.       (TYPE-CALL-ERROR <DEFTYPE-FORM>) EVAL-WHEN (COMPILE LOAD EVAL) LET %PUT
  350.       QUOTE 'DEFTYPE-EXPANDER FUNCTION "DEFTYPE-" LAMBDA (<DEFTYPE-FORM>) BLOCK
  351.       SETF DOCUMENTATION ('TYPE)
  352.   )  )
  353. #Y(#:TOP-LEVEL-FORM-7
  354.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  355.    TYPE-CALL-ERROR REMOVE-OLD-DEFINITIONS
  356.    #Y(TYPE-CALL-ERROR
  357.       #27Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA DB 6D 03 04 93 03 AE 71 4A 71
  358.            9A 32 02 1F
  359.           )
  360.       ERROR "The deftype expander for ~S may not be called with ~S arguments."
  361.       "Der Deftype-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  362.       "L'½expandeur╗ de DEFTYPE pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  363.       LANGUAGE
  364.   )  )
  365. #Y(#:TOP-LEVEL-FORM-8
  366.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) TIME
  367.    REMOVE-OLD-DEFINITIONS MACRO
  368.    #Y(TIME
  369.       #81Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 3A 9D 5B 77 37 01
  370.            71 92 37 01 71 92 37 01 71 92 37 01 71 92 37 01 71 92 37 01 71 92 37
  371.            01 71 92 37 01 71 92 37 01 71 92 7A 09 DA AB DB DC AF DD DE DF A3 7B
  372.            03 7A 03 60 04 19 05 AC 2E 01 19 03
  373.           )
  374.       2. MACRO-CALL-ERROR MULTIPLE-VALUE-BIND (%%TIME) UNWIND-PROTECT
  375.       MULTIPLE-VALUE-CALL #'%TIME (%%TIME)
  376.   )  )
  377. #Y(#:TOP-LEVEL-FORM-9
  378.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  379.    WITH-INPUT-FROM-STRING REMOVE-OLD-DEFINITIONS MACRO
  380.    #Y(WITH-INPUT-FROM-STRING
  381.       #198Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 80 9D
  382.             5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 78 AA DA 6A 03 71 87 AA 0E 03
  383.             21 80 6B 02 14 AC DC 6A 03 71 87 AA 0E 03 21 80 62 02 14 AE DE 6A
  384.             03 71 87 AA 0E 03 21 80 5A 02 14 A6 5B 78 B1 DF 30 64 AA 62 B7 30
  385.             63 41 02 92 00 06 E0 9C 79 60 01 F6 E1 B6 E2 B7 91 09 80 44 91 07
  386.             80 40 00 7B 02 7A 02 7A 01 AC E3 E4 A1 79 91 0C 3A 00 14 E7 BC 7A
  387.             02 7A 01 32 02 23 7B 02 7A 01 32 02 23 61 02 19 0F AC 2E 01 19 03
  388.             7C 00 1A FF 91 C8 F6 00 1A FF 99 7C 00 1A FF A2 B3 60 01 5C 1A 41
  389.             B4 91 08 76 00 5C 1A FF B8 E5 B8 E6 BD 7A 02 7A 03 60 01 1A FF BA
  390.            )
  391.       2. MACRO-CALL-ERROR :INDEX MACRO-MISSING-VALUE :START 0. :END
  392.       (:END :START :INDEX) DECLARE LET MAKE-STRING-INPUT-STREAM UNWIND-PROTECT
  393.       PROGN SETF STRING-INPUT-STREAM-INDEX CLOSE
  394.   )  )
  395. #Y(#:TOP-LEVEL-FORM-10
  396.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  397.    WITH-OPEN-FILE REMOVE-OLD-DEFINITIONS MACRO
  398.    #Y(WITH-OPEN-FILE
  399.       #98Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 48 9D 5B
  400.            5A 77 9E 5B 5A 78 9F 5B 78 AA 62 B0 30 63 41 02 92 00 06 DA 9C 79 60
  401.            01 F6 DB AF DC A1 79 7A 02 7A 01 AC DD DE DF A2 79 E0 B5 E1 B7 7A 02
  402.            7A 03 7A 03 E0 B4 E1 B6 CD 7B 02 7A 03 7A 03 7A 01 32 02 23 61 02 19
  403.            08 AC 2E 01 19 03
  404.           )
  405.       2. MACRO-CALL-ERROR DECLARE LET OPEN UNWIND-PROTECT MULTIPLE-VALUE-PROG1
  406.       PROGN WHEN CLOSE (:ABORT T)
  407.   )  )
  408. #Y(#:TOP-LEVEL-FORM-11
  409.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  410.    WITH-OPEN-STREAM REMOVE-OLD-DEFINITIONS MACRO
  411.    #Y(WITH-OPEN-STREAM
  412.       #88Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 3F 9D 5B 5A
  413.            77 9E 5B 5A 5B 77 9F 5B 78 AA 62 B0 30 63 41 02 92 00 06 DA 9C 79 60
  414.            01 F6 DB AF AF 7A 02 7A 01 AC DC DD DE A2 79 DF B5 7A 02 7A 03 DF B4
  415.            CB 7B 02 7A 03 7A 01 32 02 23 61 02 19 08 AC 2E 01 19 03
  416.           )
  417.       2. MACRO-CALL-ERROR DECLARE LET UNWIND-PROTECT MULTIPLE-VALUE-PROG1 PROGN
  418.       CLOSE (:ABORT T)
  419.   )  )
  420. #Y(#:TOP-LEVEL-FORM-12
  421.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  422.    WITH-OUTPUT-TO-STRING REMOVE-OLD-DEFINITIONS MACRO
  423.    #Y(WITH-OUTPUT-TO-STRING
  424.       #133Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 48 9D
  425.             5B 5A 77 9E 5B 5A 5B 1B 80 42 00 14 9F 5B 5A 5B 58 58 14 A0 5B 78
  426.             AA 62 B1 30 63 41 02 91 00 34 91 03 3A DB B0 CB 79 7A 01 AC DD DE
  427.             B0 E1 B6 7A 02 7A 01 32 02 23 79 CA 14 B5 7A 02 7A 03 7A 01 32 02
  428.             23 61 02 19 09 AC 2E 01 19 03 9E 5B 5A 5B 5A 1A FF B7 DA 9C 79 60
  429.             01 F6 92 03 46 DB B0 DC B1 7A 02 7A 02 7A 01 AC DD DE A1 79 CA 1A
  430.             49
  431.            )
  432.       2. MACRO-CALL-ERROR DECLARE LET MAKE-STRING-PUSH-STREAM UNWIND-PROTECT
  433.       PROGN CLOSE ((MAKE-STRING-OUTPUT-STREAM)) GET-OUTPUT-STREAM-STRING
  434.   )  )
  435. #Y(#:TOP-LEVEL-FORM-13 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  436.    "LISP"
  437.   )
  438. #Y(#:TOP-LEVEL-FORM-14 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  439.    WITH-OUTPUT-TO-PRINTER
  440.   )
  441. #Y(#:TOP-LEVEL-FORM-15 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  442.    "SYSTEM"
  443.   )
  444. #Y(#:TOP-LEVEL-FORM-16
  445.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  446.    WITH-OUTPUT-TO-PRINTER REMOVE-OLD-DEFINITIONS MACRO
  447.    #Y(WITH-OUTPUT-TO-PRINTER
  448.       #74Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 31 9D 5B 5A
  449.            77 9E 5B 78 AA 62 AF 30 63 41 02 92 00 06 DA 9C 79 60 01 F6 DB AE C7
  450.            79 7A 01 AC DD DE A1 79 DF B3 7A 02 7A 03 7A 01 32 02 23 61 02 19 07
  451.            AC 2E 01 19 03
  452.           )
  453.       2. MACRO-CALL-ERROR DECLARE LET ((MAKE-PRINTER-STREAM)) UNWIND-PROTECT
  454.       PROGN CLOSE
  455.   )  )
  456. #Y(#:TOP-LEVEL-FORM-17
  457.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  458.    MAKE-PRINTER-STREAM REMOVE-OLD-DEFINITIONS
  459.    #Y(MAKE-PRINTER-STREAM #15Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 19 01)
  460.       "lpr" MAKE-PIPE-OUTPUT-STREAM
  461.   )  )
  462. #Y(#:TOP-LEVEL-FORM-18 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  463.    "LISP"
  464.   )
  465. #Y(#:TOP-LEVEL-FORM-19 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  466.    WITHOUT-FLOATING-POINT-UNDERFLOW
  467.   )
  468. #Y(#:TOP-LEVEL-FORM-20 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  469.    "SYSTEM"
  470.   )
  471. #Y(#:TOP-LEVEL-FORM-21
  472.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  473.    WITHOUT-FLOATING-POINT-UNDERFLOW REMOVE-OLD-DEFINITIONS MACRO
  474.    #Y(WITHOUT-FLOATING-POINT-UNDERFLOW
  475.       #21Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 DA 9E 79 60 03 19 04) LET
  476.       ((*INHIBIT-FLOATING-POINT-UNDERFLOW* T)) PROGN
  477.   )  )
  478. #Y(#:TOP-LEVEL-FORM-22 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  479.    "LISP"
  480.   )
  481. #Y(#:TOP-LEVEL-FORM-23 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  482.    LANGUAGE-CASE
  483.   )
  484. #Y(#:TOP-LEVEL-FORM-24 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  485.    "SYSTEM"
  486.   )
  487. #Y(#:TOP-LEVEL-FORM-25
  488.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  489.    LANGUAGE-CASE REMOVE-OLD-DEFINITIONS MACRO
  490.    #Y(LANGUAGE-CASE
  491.       #19Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 9D 61 02 19 04) CASE
  492.       (DEUTSCH 'DEUTSCH ENGLISH 'ENGLISH FRANCAIS 'FRANCAIS)
  493.   )  )
  494.