home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / macros1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  16.0 KB  |  346 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.    (MAPCAP MAPLAP)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4
  8.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFVAR
  9.    REMOVE-OLD-DEFINITIONS MACRO
  10.    #Y(DEFVAR
  11.       #152Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 2B 9D 5B 77 9E 5B 5B 1B
  12.             28 00 14 9F 5B 5B 58 58 14 A0 5B 5B 5B 77 AD 8E 08 1D AD 8C 61 80
  13.             48 DB E1 E2 E3 6D 03 07 CB 14 B0 32 02 1F AC 2E 02 19 03 9E 5B 5B
  14.             5A 1A 53 DB DC DD DE 6D 03 07 CB 1A 66 E8 E9 E6 B3 7A 02 7A 02 EA
  15.             E6 B4 7A 02 B3 7A 03 7A 03 60 01 1A 20 EB E6 B3 7A 02 EC E6 B2 7A
  16.             02 7A 04 60 01 1A 15 E4 62 E5 E6 E7 B2 7A 02 7A 02 7A 02 91 04 4B
  17.             00 14 91 04 5C 00 14 E6 B3 7A 02 7A 01 32 03 23 61 03 19 07
  18.            )
  19.       2. 4. MACRO-CALL-ERROR PROGRAM-ERROR
  20.       "~S: non-symbol ~S can't be a variable"
  21.       "~S: Nur Symbole können Variablen sein, nicht ~S"
  22.       "~S : Seuls les symboles peuvent servir de variable et non ~S" LANGUAGE
  23.       DEFVAR "~S: the constant ~S must not be redefined to be a variable"
  24.       "~S: Die Konstante ~S darf nicht zu einer Variablen umdefiniert werden."
  25.       "~S : La constante ~S ne peut pas être redéfinie en variable." LET
  26.       PROCLAIM QUOTE SPECIAL UNLESS BOUNDP SET %SET-DOCUMENTATION 'VARIABLE
  27.   )  )
  28. #Y(#:TOP-LEVEL-FORM-5
  29.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFPARAMETER
  30.    REMOVE-OLD-DEFINITIONS MACRO
  31.    #Y(DEFPARAMETER
  32.       #117Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 21 9D 5B 77 9E 5B 5B 77
  33.             9F 5B 5B 5B 77 AC 8E 08 16 AC 8C 61 2C DB E1 E2 E3 6D 03 07 CB 14
  34.             AF 32 02 1F AC 2E 02 19 03 DB DC DD DE 6D 03 07 CB 1A 6C E9 E6 B2
  35.             7A 02 EA E6 B2 7A 02 7A 04 60 01 1A 18 E4 62 E5 E6 E7 B1 7A 02 7A
  36.             02 7A 02 E8 E6 B1 7A 02 B0 7A 03 91 04 59 00 14 E6 B2 7A 02 7A 01
  37.             32 02 23 61 04 19 06
  38.            )
  39.       3. 4. MACRO-CALL-ERROR PROGRAM-ERROR
  40.       "~S: non-symbol ~S can't be a variable"
  41.       "~S: Nur Symbole können Variablen sein, nicht ~S"
  42.       "~S : Seuls les symboles peuvent servir de variable et non ~S." LANGUAGE
  43.       DEFPARAMETER "~S: the constant ~S must not be redefined to be a variable"
  44.       "~S: Die Konstante ~S darf nicht zu einer Variablen umdefiniert werden."
  45.       "~S : La constante ~S ne peut pas être redéfinie en variable." LET
  46.       PROCLAIM QUOTE SPECIAL SET %SET-DOCUMENTATION 'VARIABLE
  47.   )  )
  48. #Y(#:TOP-LEVEL-FORM-6
  49.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFCONSTANT
  50.    REMOVE-OLD-DEFINITIONS MACRO
  51.    #Y(DEFCONSTANT
  52.       #158Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 80 6D 9D 5B 77 9E 5B 5B
  53.             77 9F 5B 5B 5B 77 AC 8E 08 80 61 37 01 71 90 E1 62 E2 E3 E4 E5 B3
  54.             7A 02 E5 B3 7A 02 7A 03 7A 03 E1 AE B1 7A 02 7A 01 E6 E7 E5 B5 7A
  55.             02 7A 02 E8 E9 B5 B4 EA E5 BA 7A 02 7A 02 7A 04 EB E5 B8 7A 02 E5
  56.             BC 7A 02 7A 03 7A 03 7A 03 EC E5 B5 7A 02 B2 7A 03 91 08 22 00 14
  57.             E5 B6 7A 02 7A 01 32 02 23 7B 04 60 04 19 07 AC 2E 02 19 03 DB DC
  58.             DD DE 6D 03 07 E0 AF 32 02 1F ED E5 B6 7A 02 EE E5 B6 7A 02 7A 04
  59.             60 01 1A 4F
  60.            )
  61.       3. 4. MACRO-CALL-ERROR PROGRAM-ERROR
  62.       "~S: non-symbol ~S can't be a defined constant"
  63.       "~S: Nur Symbole können als Konstanten definiert werden, nicht ~S"
  64.       "~S : Seuls les symboles peuvent servir de constante et non ~S." LANGUAGE
  65.       DEFCONSTANT LET EVAL-WHEN (COMPILE) C-PROCLAIM-CONSTANT QUOTE IF
  66.       CONSTANTP UNLESS CONSTANT-EQL SYMBOL-VALUE CONSTANT-WARNING
  67.       %PROCLAIM-CONSTANT %SET-DOCUMENTATION 'VARIABLE
  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) CONSTANT-EQL
  71.    REMOVE-OLD-DEFINITIONS MACRO
  72.    #Y(CONSTANT-EQL
  73.       #35Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 10 9D 5B 5B 77 9E 5B 5B 5B 77
  74.            DA AC AC 60 03 19 05 AC 2E 01 19 03
  75.           )
  76.       4. MACRO-CALL-ERROR EQL
  77.   )  )
  78. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  79.    LOOSE-CONSTANT-EQL REMOVE-OLD-DEFINITIONS
  80.    #Y(LOOSE-CONSTANT-EQL
  81.       #24Y(00 02 00 00 00 03 AC 71 2A AC 71 2A 31 04 1E 06 AC AC 31 04 19 03 19
  82.            03
  83.   )  )    )
  84. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  85.    CONSTANT-WARNING REMOVE-OLD-DEFINITIONS
  86.    #Y(CONSTANT-WARNING
  87.       #22Y(00 02 00 00 00 03 D8 D9 DA 6D 03 03 AC AE AF 70 51 2C 04 04 19 03)
  88.       "~S redefines the constant ~S. Its old value was ~S."
  89.       "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
  90.       "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
  91.       WARN
  92.   )  )
  93. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) AND MACRO
  94.    #Y(AND
  95.       #70Y(00 01 00 01 00 08 94 02 92 00 08 9B 5B 1C 07 62 AB 1A 15 02 19 04 9B
  96.            5A 19 04 93 00 D8 AB 7A 02 C4 79 83 02 16 01 82 00 9B 20 6F 16 01 AA
  97.            7F A7 00 AA 37 01 70 A0 63 AD 37 01 30 A0 77 7A 02 30 AB DA 9C 5C 19
  98.            05
  99.           )
  100.       NOT (NIL) COND
  101.   )  )
  102. #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) OR MACRO
  103.    #Y(OR
  104.       #48Y(00 01 00 01 00 08 94 02 92 00 1E 9B 5B 1C 1D D8 AB 72 00 17 AA 37 01
  105.            70 A0 63 AD 37 01 30 A0 77 7A 02 30 AB D9 9C 5C 19 05 00 19 04 9B 5A
  106.            19 04
  107.           )
  108.       #.#'LIST COND
  109.   )  )
  110. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PROG1 MACRO
  111.    #Y(PROG1
  112.       #47Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 1C 9D 5B 77 9E 5B 78 37 01 71
  113.            90 DA AB AE 7A 02 7A 01 AD AD 7A 01 32 02 23 61 02 19 06 AC 2E 01 19
  114.            03
  115.           )
  116.       2. MACRO-CALL-ERROR LET
  117.   )  )
  118. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PROG2 MACRO
  119.    #Y(PROG2
  120.       #60Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 5B 77 9F 5B
  121.            5B 78 37 01 71 90 DA 62 DB B0 DA AF B2 7A 02 7A 01 B1 B1 7A 01 32 02
  122.            23 7B 02 7A 03 60 03 19 07 AC 2E 01 19 03
  123.           )
  124.       3. MACRO-CALL-ERROR LET PROGN
  125.   )  )
  126. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) WHEN MACRO
  127.    #Y(WHEN
  128.       #34Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 0F 9D 5B 77 9E 5B 78 DA AC DB
  129.            9E 79 60 03 19 05 AC 2E 01 19 03
  130.           )
  131.       2. MACRO-CALL-ERROR IF PROGN
  132.   )  )
  133. #Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) UNLESS
  134.    MACRO
  135.    #Y(UNLESS
  136.       #37Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 12 9D 5B 77 9E 5B 78 DA DB AD
  137.            7A 02 DC 9E 79 60 03 19 05 AC 2E 01 19 03
  138.           )
  139.       2. MACRO-CALL-ERROR IF NOT PROGN
  140.   )  )
  141. #Y(#:TOP-LEVEL-FORM-16
  142.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) RETURN
  143.    REMOVE-OLD-DEFINITIONS MACRO
  144.    #Y(RETURN
  145.       #29Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 30 0A 9D 5B 77 DA 62 AC 60 03 19
  146.            04 AC 2E 01 19 03
  147.           )
  148.       2. MACRO-CALL-ERROR RETURN-FROM
  149.   )  )
  150. #Y(#:TOP-LEVEL-FORM-17
  151.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LOOP
  152.    REMOVE-OLD-DEFINITIONS MACRO
  153.    #Y(LOOP
  154.       #32Y(00 01 00 01 00 08 94 02 37 01 71 90 D8 62 D9 AD AF DA B0 7A 02 7A 01
  155.            32 02 23 7B 02 60 03 19 05
  156.           )
  157.       BLOCK TAGBODY GO
  158.   )  )
  159. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  160.    DO/DO*-EXPAND REMOVE-OLD-DEFINITIONS
  161.    #Y(DO/DO*-EXPAND
  162.       #161Y(00 07 00 00 00 00 A1 1F 36 01 02 37 01 71 90 37 01 71 90 B3 62 B4
  163.             30 62 41 03 92 01 06 DD 9D 79 60 01 F7 A9 1F 80 42 93 0E 82 0F 9B
  164.             1F 1C 9B 5B 1F 1B 9B 5B 5B 20 1A 9B 14 83 07 16 01 1A 64 D8 D9 DA
  165.             DB 6D 03 04 AF 32 01 1F 9B 1A 6B 9B 5A 1A 67 93 00 9C 5B 77 7A 02
  166.             83 07 9B 5B 5B 77 93 01 A3 61 02 FC 16 01 1A FF BA DE 62 B5 B3 71
  167.             4A AF DF B4 E0 93 15 E1 B7 7A 02 7A 03 B4 BB B9 31 4A 79 E1 B9 7A
  168.             02 B8 E2 62 E3 04 1C 5B 79 7A 03 7A 04 32 02 23 7B 03 7A 01 32 02
  169.             23 7B 02 60 03 19 0F
  170.            )
  171.       PROGRAM-ERROR "exit clause in ~S must be a list"
  172.       "Exitclause in ~S muß Liste sein."
  173.       "La clause de sortie dans ~S doit être une liste." LANGUAGE DECLARE BLOCK
  174.       TAGBODY IF GO RETURN-FROM PROGN
  175.   )  )
  176. #Y(#:TOP-LEVEL-FORM-19 #11Y(00 00 00 00 00 01 D8 30 57 19 01) DO)
  177. #Y(#:TOP-LEVEL-FORM-20
  178.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DO
  179.    REMOVE-OLD-DEFINITIONS MACRO
  180.    #Y(DO
  181.       #44Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 17 9D 5B 77 9E 5B 5B 77
  182.            9F 5B 5B 78 AC AC AC B1 DA DB DC 2C 07 05 19 06 AC 2E 01 19 03
  183.           )
  184.       3. MACRO-CALL-ERROR DO LET PSETQ DO/DO*-EXPAND
  185.   )  )
  186. #Y(#:TOP-LEVEL-FORM-21
  187.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DO*
  188.    REMOVE-OLD-DEFINITIONS MACRO
  189.    #Y(DO*
  190.       #44Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 17 9D 5B 77 9E 5B 5B 77
  191.            9F 5B 5B 78 AC AC AC B1 DA DB DC 2C 07 05 19 06 AC 2E 01 19 03
  192.           )
  193.       3. MACRO-CALL-ERROR DO* LET* SETQ DO/DO*-EXPAND
  194.   )  )
  195. #Y(#:TOP-LEVEL-FORM-22
  196.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DOLIST
  197.    REMOVE-OLD-DEFINITIONS MACRO
  198.    #Y(DOLIST
  199.       #117Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 5C 9D 5B 5A 77 9E
  200.             5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 62 41 02 37 01
  201.             71 90 DA AB B1 DB AE 7A 02 7A 03 B2 C7 79 7A 02 DD AD 7A 02 B1 8B
  202.             61 2E DE B4 CA 79 7A 01 E0 E1 B7 7A 02 A3 7B 02 B4 60 04 14 7A 02
  203.             E0 E2 AF 7A 02 A1 7B 02 E3 B5 E4 B1 7A 02 7A 03 A2 61 05 19 0A AC
  204.             2E 01 19 03 A2 1A 60
  205.            )
  206.       2. MACRO-CALL-ERROR DO* CDR (NIL) ENDP LET (NIL) DECLARE IGNORABLE LIST
  207.       SETQ CAR
  208.   )  )
  209. #Y(#:TOP-LEVEL-FORM-23 #11Y(00 00 00 00 00 01 D8 30 57 19 01) DOTIMES)
  210. #Y(#:TOP-LEVEL-FORM-24
  211.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DOTIMES
  212.    REMOVE-OLD-DEFINITIONS MACRO
  213.    #Y(DOTIMES
  214.       #124Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 4A 9D 5B 5A 77 9E
  215.             5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 62 41 02 92 00
  216.             06 DA 9C 79 60 01 F6 AE 8B 61 29 37 01 71 90 DB B1 DC DD B4 7A 02
  217.             7A 03 AC B2 7A 02 7A 02 DE B3 AE 7A 03 B1 7A 02 AE B0 32 02 23 61
  218.             03 19 0A AC 2E 01 19 03 DB B0 DC DD B3 7A 02 7A 03 7A 01 DE B2 B2
  219.             7A 03 B0 7A 02 AD AF 32 02 23 61 03 19 09
  220.            )
  221.       2. MACRO-CALL-ERROR DECLARE DO 0. 1+ >=
  222.   )  )
  223. #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PSETQ MACRO
  224.    #Y(PSETQ
  225.       #73Y(00 01 00 01 00 08 94 02 01 02 AC 92 00 21 9B 5B 1C 2B 37 01 71 90 DE
  226.            93 02 AC 7A 03 83 03 AA 9D 5B 77 7A 02 83 02 16 01 9B 5B 5B F6 91 00
  227.            5F 62 83 02 DF AC 71 4A AE 31 4A 5C 5C 19 07 D8 D9 DA DB 6D 03 04 DD
  228.            B3 32 02 1F
  229.           )
  230.       PROGRAM-ERROR "~S called with an odd number of arguments: ~S"
  231.       "~S mit einer ungeraden Anzahl von Argumenten aufgerufen: ~S"
  232.       "~S fut appellé avec un nombre impair d'arguments : ~S" LANGUAGE PSETQ
  233.       SETQ LET
  234.   )  )
  235. #Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  236.    MULTIPLE-VALUE-LIST MACRO
  237.    #Y(MULTIPLE-VALUE-LIST
  238.       #29Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 0A 9D 5B 77 DA DB AC 60 03 19
  239.            04 AC 2E 01 19 03
  240.           )
  241.       2. MACRO-CALL-ERROR MULTIPLE-VALUE-CALL #'LIST
  242.   )  )
  243. #Y(#:TOP-LEVEL-FORM-27 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  244.    MULTIPLE-VALUE-BIND MACRO
  245.    #Y(MULTIPLE-VALUE-BIND
  246.       #76Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 14 9D 5B 77 9E 5B 5B 77 9F 5B
  247.            5B 78 37 01 71 90 62 AE 62 1A 13 AC 2E 01 19 03 86 01 00 14 DA AF 7A
  248.            02 7A 02 83 02 82 01 AB 8C 96 6E 16 02 DB AC DC B0 7A 02 7A 02 AC 31
  249.            4A 79 9F 61 02 19 08
  250.           )
  251.       3. MACRO-CALL-ERROR POP LET* MULTIPLE-VALUE-LIST
  252.   )  )
  253. #Y(#:TOP-LEVEL-FORM-28 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  254.    MULTIPLE-VALUE-SETQ MACRO
  255.    #Y(MULTIPLE-VALUE-SETQ
  256.       #82Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 10 9D 5B 77 9E 5B 5B 77 37 01
  257.            71 90 62 AD 62 1A 1B AC 2E 01 19 03 DE AD 31 4A 5C 1A 23 86 01 00 DA
  258.            AB DB B0 7A 02 7A 03 83 02 82 01 AB 8C 96 6D 16 02 DC AC DD AF 7A 02
  259.            7A 02 7A 01 91 02 57 00 14 60 03 19 07
  260.           )
  261.       3. MACRO-CALL-ERROR SETQ POP LET* MULTIPLE-VALUE-LIST PROG1
  262.   )  )
  263. #Y(#:TOP-LEVEL-FORM-29 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) LOCALLY
  264.    MACRO #Y(LOCALLY #15Y(00 01 00 01 00 08 94 02 D8 62 9D 61 02 19 04) LET)
  265.   )
  266. #Y(#:TOP-LEVEL-FORM-30
  267.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) CASE
  268.    REMOVE-OLD-DEFINITIONS MACRO
  269.    #Y(CASE
  270.       #133Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 43 9D 5B 77 9E 5B 78 37
  271.             01 71 90 DA AB AE 7A 02 7A 01 DB 62 AF 9B 1F 80 52 93 00 94 01 9C
  272.             1F 29 93 01 AA 02 21 3A AA 23 0A 36 AA 8D 0D 38 E8 B3 D2 14 AD 7A
  273.             02 60 03 14 9E 5B 5C 16 02 F6 83 01 82 00 1A 51 AC 2E 01 19 03 DC
  274.             DD DE DF 6D 03 08 E1 32 01 1F DC E3 E4 E5 6D 03 08 E1 AD 32 02 1F
  275.             91 01 71 02 1A 51 E6 B3 D2 1A 46 16 01 AA 30 A7 16 01 79 60 03 19
  276.             06
  277.            )
  278.       2. MACRO-CALL-ERROR LET COND PROGRAM-ERROR "~S: missing key list"
  279.       "~S: Keylist fehlt." "~S : la liste d'objects-clé manque." LANGUAGE CASE
  280.       OTHERWISE "~S: the ~S clause must be the last one"
  281.       "~S: Die ~S-Klausel muß die letzte sein."
  282.       "~S : La clause ~S doit être la dernière." MEMBER QUOTE EQL
  283.   )  )
  284. #Y(#:TOP-LEVEL-FORM-31
  285.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PROG
  286.    REMOVE-OLD-DEFINITIONS MACRO
  287.    #Y(PROG
  288.       #62Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 78 AA
  289.            62 AF 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB 62 DC B0 AE DD A2 79
  290.            7A 01 32 02 23 7B 02 60 03 19 07 AC 2E 01 19 03
  291.           )
  292.       2. MACRO-CALL-ERROR DECLARE BLOCK LET TAGBODY
  293.   )  )
  294. #Y(#:TOP-LEVEL-FORM-32
  295.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PROG*
  296.    REMOVE-OLD-DEFINITIONS MACRO
  297.    #Y(PROG*
  298.       #62Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 78 AA
  299.            62 AF 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB 62 DC B0 AE DD A2 79
  300.            7A 01 32 02 23 7B 02 60 03 19 07 AC 2E 01 19 03
  301.           )
  302.       2. MACRO-CALL-ERROR DECLARE BLOCK LET* TAGBODY
  303.   )  )
  304. #Y(#:TOP-LEVEL-FORM-33 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) COND MACRO
  305.    #Y(COND
  306.       #33Y(00 01 00 01 00 08 94 02 37 01 71 90 AB AB 2F 00 41 02 91 00 03 9C 19
  307.            07 D9 AD 7A 01 AD 60 03 19 07
  308.           )
  309.       IFIFY LET
  310.   )  )
  311. #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  312.    IFIFY REMOVE-OLD-DEFINITIONS
  313.    #Y(IFIFY
  314.       #181Y(00 02 00 00 00 03 91 02 13 01 02 3F 02 19 03 D8 D9 DA DB 6D 03 04
  315.             9F 1A 14 92 02 6D 9D 1F 70 9D 5A 20 80 58 D8 DD DE DF 6D 03 04 9F
  316.             5A 14 32 01 1F E0 A0 5A 5B 5C 1A 3D 9F 5A 5B 5B 1B 73 9F 5A 5B 5A
  317.             1A 31 9F 5A 77 8B 5E 6E 9C 1A 80 51 E0 A2 5A 5B 5C 1A 80 45 9F 5A
  318.             77 8B 61 68 E1 A0 5A 77 A1 5A 5B 5B 1B 68 A1 5A 5B 5A 1A 2F 9F 5A
  319.             77 8C 5E 07 9F 5A 5A 14 00 1A 37 9C 1A 23 94 02 AC 27 FF 97 41 02
  320.             9F 5A 5B 1B 4D 9F 5A 77 8B 61 5D 9F 5A 5A 20 0F E1 A0 5A 77 A1 5A
  321.             5A 14 AE 60 04 14 9C 1A 0D E1 E2 AF A2 5A 77 7A 03 AF AE 7A 04 02
  322.             14 3F 02 19 05
  323.            )
  324.       PROGRAM-ERROR "Not a list of COND clauses: ~S"
  325.       "Das ist keine Liste von COND-Klauseln: ~S"
  326.       "Ceci n'est pas une liste de clauses COND : ~S" LANGUAGE
  327.       "The atom ~S must not be used as a COND clause."
  328.       "Das ist ein Atom und daher nicht als COND-Klausel verwendbar: ~S"
  329.       "Ceci est une atome et n'est donc pas utilisable comme clause COND : ~S"
  330.       PROGN IF SETQ
  331.   )  )
  332. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  333.    MAPCAP REMOVE-OLD-DEFINITIONS
  334.    #Y(MAPCAP
  335.       #60Y(00 01 00 00 01 17 62 AD 62 AE 1A 22 16 01 AA 30 A7 16 01 76 00 71 49
  336.            AB 81 02 24 00 1A 69 93 00 93 00 82 01 AC AC 30 AC 69 00 83 01 82 00
  337.            9B 1F 5B 9B 5A 20 69 16 03 AA 30 A7 19 04
  338.   )  )    )
  339. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  340.    MAPLAP REMOVE-OLD-DEFINITIONS
  341.    #Y(MAPLAP
  342.       #56Y(00 01 00 00 01 17 62 AD 62 AE 1A 1E 16 01 AA 30 A7 16 01 76 00 71 49
  343.            AB 81 02 24 00 1A 69 93 00 AB 9D 5A 78 30 AC 83 01 82 00 9B 1F 5F 9B
  344.            5A 20 6D 16 03 AA 30 A7 19 04
  345.   )  )    )
  346.