home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / defs2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  14.5 KB  |  284 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.    (NTH-VALUE FUNCTION-LAMBDA-EXPRESSION DEFPACKAGE DEFINE-SYMBOL-MACRO
  5.      PRINT-UNREADABLE-OBJECT DECLAIM DESTRUCTURING-BIND COMPLEMENT CONSTANTLY
  6.      WITH-STANDARD-IO-SYNTAX WITH-HASH-TABLE-ITERATOR
  7.   ))
  8. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  9. #Y(#:TOP-LEVEL-FORM-4
  10.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) NTH-VALUE
  11.    REMOVE-OLD-DEFINITIONS MACRO
  12.    #Y(NTH-VALUE
  13.       #115Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 1C 9D 5B 77 9E 5B 5B 77 AB
  14.             8E 0E 07 AB DA 8F 01 32 80 46 E2 AC E3 AD 7A 02 60 03 19 05 AC 2E
  15.             01 19 03 DC AB 60 02 19 05 AB DA 8F 01 2D 74 37 01 71 90 AA 7A 01
  16.             62 AE 1A 0E 37 01 71 90 AA 83 03 AA 83 02 16 01 85 00 AA 8E 92 6E
  17.             DD AD B0 DE DF A1 79 7A 02 B1 60 05 19 09 AB DB 8F 01 2F 49 E0 AB
  18.             CC 61 02 19 05
  19.            )
  20.       3. MACRO-CALL-ERROR 0. 127. PROG1 MULTIPLE-VALUE-BIND DECLARE IGNORE
  21.       PROGN (NIL) NTH MULTIPLE-VALUE-LIST
  22.   )  )
  23. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  24.    FUNCTION-LAMBDA-EXPRESSION REMOVE-OLD-DEFINITIONS
  25.    #Y(FUNCTION-LAMBDA-EXPRESSION
  26.       #77Y(00 01 00 00 00 02 AB 8E 0B 04 AB 8D 1F 2A AB 8E 0C 2B D8 AC D9 31 2E
  27.            79 AC DA 71 2E AD DB 71 2E AE DC 71 2E AF DD 71 2E B0 DE 71 2E 72 05
  28.            00 AD DF 31 2E 14 3F 03 19 02 62 63 00 1A 76 E0 E1 AD E2 E3 E4 E5 E6
  29.            6D 03 0F E8 B2 32 06 1F
  30.           )
  31.       LAMBDA 1. 4. 5. 6. 7. 8. 0. TYPE-ERROR :DATUM :EXPECTED-TYPE FUNCTION
  32.       "~S: ~S is not a function" "~S: ~S ist keine Funktion."
  33.       "~S : ~S n'est pas une fonction." LANGUAGE FUNCTION-LAMBDA-EXPRESSION
  34.   )  )
  35. #Y(#:TOP-LEVEL-FORM-6
  36.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFPACKAGE
  37.    REMOVE-OLD-DEFINITIONS MACRO
  38.    #Y(DEFPACKAGE
  39.       #623Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 49 00 2A 01 9E 5B 5A 0B
  40.             00 00 9E 5B 78 AB 6C 02 01 67 02 00 C6 33 0B 02 00 9D 2A 01 01 06
  41.             DC 01 02 00 0B 09 00 14 B4 6C 05 01 B7 62 AB 8B 96 81 56 86 01 00
  42.             14 8D 0D 81 0D DF F0 F1 F2 6D 03 0B E4 67 13 00 CF 14 AF 32 04 1F
  43.             AC 2E 01 19 03 9B 5A 25 06 80 E0 DF E0 E1 E2 6D 03 0B E4 67 13 00
  44.             D0 1A 80 DE 91 0C 6E 7D 0C 1A 81 00 DF E6 E7 E8 6D 03 0B E4 67 13
  45.             00 D4 1A 80 C7 91 0B 6E 7D 0B 1A 80 E9 94 00 62 1A 0A 86 01 00 14
  46.             C6 73 83 0C 82 01 AB 8C 96 72 16 02 1A 80 D1 94 00 62 1A 0D 86 01
  47.             00 14 04 11 73 A0 73 83 0B 82 01 AB 8C 96 6F 16 02 1A 80 B6 9B 5B
  48.             77 C6 73 9C 5B 78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83 0B
  49.             82 01 AB 8C 96 6D 16 03 1A 80 93 94 00 62 1A 0A 86 01 00 14 C6 73
  50.             83 09 82 01 AB 8C 96 72 16 02 7C 06 1A 80 79 9B 5B 77 C6 73 9C 5B
  51.             78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83 08 82 01 AB 8C 96
  52.             6D 16 03 1A 80 56 94 00 62 1A 0D 86 01 00 14 04 11 73 A0 73 83 06
  53.             82 01 AB 8C 96 6F 16 02 1A 3C 94 00 62 1A 31 DF EA EB EC 6D 03 0B
  54.             E4 67 13 00 9F 5A 14 32 03 1F 93 00 8D 8D FF 03 DF ED EE EF 6D 03
  55.             0B E4 67 13 00 CF 1A FE EA 86 01 00 14 04 11 73 83 05 82 01 AB 8C
  56.             96 71 16 02 82 01 1A FE BB 64 21 64 1F 64 22 B6 72 00 17 7A 02 67
  57.             12 00 7A 03 60 01 1A 80 42 16 02 7E 02 0B 00 AA AC 32 00 19 16 01
  58.             B1 80 4A 07 B0 80 4A 06 AF 80 4A 05 91 03 03 AE 31 4A FA AC 80 4A
  59.             02 AB 80 4A 01 AA 80 4A 00 F3 F4 F5 67 10 00 64 1E 64 1F B7 7A 02
  60.             03 20 7B 04 91 09 FF A9 00 14 62 B4 1A 23 64 24 64 1F B5 7A 02 67
  61.             14 00 7A 03 60 01 1A 20 93 00 64 23 93 01 94 02 67 17 00 7A 04 83
  62.             02 16 01 82 00 9B 20 6A 16 01 AA 7F A7 00 91 09 51 00 14 62 B3 1A
  63.             13 93 00 64 25 93 01 94 02 67 19 00 7A 04 83 02 16 01 82 00 9B 20
  64.             6A 16 01 AA 7F A7 00 62 B3 1A 20 64 27 64 1F B4 7A 02 67 17 00 7A
  65.             03 60 01 1A 1D 93 00 64 26 AB 67 19 00 7A 03 83 02 16 01 82 00 9B
  66.             20 6D 16 01 AA 7F A7 00 91 08 54 00 14 64 28 67 17 00 7A 02 7A 01
  67.             32 07 23 61 03 19 11
  68.            )
  69.       2. MACRO-CALL-ERROR
  70.       #Y(LISP::DEFPACKAGE-CHECK-SYMNAME
  71.          #37Y(00 01 00 00 00 02 AB 8D 09 13 AB 8D 08 12 D9 DA DB DC 6D 03 05 DE
  72.               68 00 01 AF 32 03 1F 9C 19 02 AB 31 8C 19 02
  73.              )
  74.          NIL PROGRAM-ERROR
  75.          "~S ~A: symbol name ~S should be a string or a symbol"
  76.          "~S ~A: Symbol-Name muß ein String oder Symbol sein, nicht ~S."
  77.          "~S ~A : Le nom d'un symbole doit être une chaîne ou un symbole et non ~S."
  78.          LANGUAGE DEFPACKAGE
  79.         )
  80.       #Y(LISP::DEFPACKAGE-CHECK-PACKNAME
  81.          #34Y(00 01 00 00 00 02 AB 8D 09 10 AB 8D 08 0F D8 D9 DA DB 6D 03 04 DD
  82.               AE 32 02 1F 9C 19 02 AB 31 8C 19 02
  83.              )
  84.          PROGRAM-ERROR "~S: package name ~S should be a string or a symbol"
  85.          "~S: Package-Name muß ein String oder Symbol sein, nicht ~S."
  86.          "~S : Le nom d'un paquetage doit être une chaîne ou un symbole et non ~S."
  87.          LANGUAGE DEFPACKAGE
  88.         )
  89.       ("LISP")
  90.       #Y(LISP::DEFPACKAGE-RECORD-SYMNAME
  91.          #42Y(00 01 00 00 00 02 AB 68 00 01 D9 37 02 8B B7 0B AB 07 00 01 5C 0C
  92.               00 01 9C 19 02 DA DB DC DD 6D 03 06 DF 68 01 01 AF 32 03 1F
  93.              )
  94.          NIL #.#'STRING= PROGRAM-ERROR
  95.          "~S ~A: the symbol ~A must not be specified more than once"
  96.          "~S ~A: Symbol ~A darf nur einmal aufgeführt werden."
  97.          "~S ~A : Le symbole ~A ne peut être mentionné qu'une seule fois."
  98.          LANGUAGE DEFPACKAGE
  99.         )
  100.       #S(HASH-TABLE EQ (:EXPORT . 221.) (:INTERN . 195.) (:IMPORT-FROM . 160.)
  101.          (:USE . 134.) (:SHADOWING-IMPORT-FROM . 99.) (:SHADOW . 72.)
  102.          (:NICKNAMES . 48.) (:DOCUMENTATION . 40.) (:SIZE . 17.)
  103.         )
  104.       PROGRAM-ERROR "~S ~A: the ~S option must not be given more than once"
  105.       "~S ~A: Die Option ~S darf nur einmal angegeben werden."
  106.       "~S ~A : L'option ~S ne doit apparaître qu'une seule fois." LANGUAGE
  107.       DEFPACKAGE :SIZE "~S ~A: the ~S option must not be given more than once"
  108.       "~S ~A: Die Option ~S darf nur einmal angegeben werden."
  109.       "~S ~A : L'option ~S ne doit apparaître qu'une seule fois."
  110.       :DOCUMENTATION "~S ~A: unknown option ~S"
  111.       "~S ~A: Die Option ~S gibt es nicht." "~S ~A : Option ~S non reconnue."
  112.       "~S ~A: invalid syntax in ~S option: ~S"
  113.       "~S ~A: Falsche Syntax in ~S-Option: ~S"
  114.       "~S ~A : Mauvaise syntaxe dans l'option ~S: ~S"
  115.       "~S ~A: not a ~S option: ~S" "~S ~A: Das ist keine ~S-Option: ~S"
  116.       "~S ~A : Ceci n'est pas une option ~S: ~S" EVAL-WHEN (LOAD COMPILE EVAL)
  117.       %IN-PACKAGE :NICKNAMES QUOTE (:USE 'NIL) SHADOW #.#'MAKE-SYMBOL
  118.       SHADOWING-IMPORT-CERROR USE-PACKAGE IMPORT-CERROR INTERN INTERN-EXPORT
  119.       FIND-PACKAGE
  120.   )  )
  121. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  122.    FIND-SYMBOL-CERROR REMOVE-OLD-DEFINITIONS
  123.    #Y(FIND-SYMBOL-CERROR
  124.       #42Y(00 03 00 00 00 04 AD AD 30 D8 41 02 91 00 18 D8 D9 DA 6D 03 03 DC DD
  125.            DE 6D 03 03 DF B0 B2 B4 2C 06 08 AF AF 7F D7 01 9C 19 06
  126.           )
  127.       "This symbol will be created." "Dieses Symbol wird erzeugt."
  128.       "Ce symbole sera créé." LANGUAGE "~S ~A: There is no symbol ~A::~A ."
  129.       "~S ~A: Es gibt kein Symbol ~A::~A ."
  130.       "~S ~A : Il n'y a pas de symbole ~A::~A ." DEFPACKAGE CERROR
  131.   )  )
  132. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  133.    SHADOWING-IMPORT-CERROR REMOVE-OLD-DEFINITIONS
  134.    #Y(SHADOWING-IMPORT-CERROR
  135.       #17Y(00 03 00 00 00 04 AD AD AD 6D 03 00 AC 30 DD 19 04)
  136.       FIND-SYMBOL-CERROR
  137.   )  )
  138. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  139.    IMPORT-CERROR REMOVE-OLD-DEFINITIONS
  140.    #Y(IMPORT-CERROR #17Y(00 03 00 00 00 04 AD AD AD 6D 03 00 AC 30 DC 19 04)
  141.       FIND-SYMBOL-CERROR
  142.   )  )
  143. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  144.    INTERN-EXPORT REMOVE-OLD-DEFINITIONS
  145.    #Y(INTERN-EXPORT
  146.       #36Y(00 02 00 00 00 03 62 AD 1A 0C 93 00 AA AF 70 D7 83 02 16 01 82 00 9B
  147.            20 71 16 01 AA 7F A7 00 AC 30 DA 19 03
  148.   )  )    )
  149. #Y(#:TOP-LEVEL-FORM-11
  150.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  151.    DEFINE-SYMBOL-MACRO REMOVE-OLD-DEFINITIONS MACRO
  152.    #Y(DEFINE-SYMBOL-MACRO
  153.       #84Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 35 9D 5B 77 9E 5B 5B 77 AB 8E
  154.            08 2F E0 62 E1 E2 E3 E4 B1 7A 02 7A 02 E5 E4 B2 7A 02 7A 02 E6 E4 B3
  155.            7A 02 E7 E4 B4 7A 02 7A 02 7A 03 7A 05 E4 AF 7A 02 60 04 19 05 AC 2E
  156.            01 19 03 DA DB DC DD 6D 03 06 DF AE 32 02 1F
  157.           )
  158.       3. MACRO-CALL-ERROR PROGRAM-ERROR
  159.       "~S: the name of a symbol macro must be a symbol, not ~S"
  160.       "~S: Der Name eines Symbol-Macros muß ein Symbol sein, nicht: ~S"
  161.       "~S : Le nom d'un macro symbole doit être un symbole et non ~S" LANGUAGE
  162.       DEFINE-SYMBOL-MACRO LET EVAL-WHEN (COMPILE LOAD EVAL)
  163.       CHECK-NOT-SPECIAL-VARIABLE-P QUOTE MAKUNBOUND SET MAKE-SYMBOL-MACRO
  164.   )  )
  165. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  166.    CHECK-NOT-SPECIAL-VARIABLE-P REMOVE-OLD-DEFINITIONS
  167.    #Y(CHECK-NOT-SPECIAL-VARIABLE-P
  168.       #25Y(00 01 00 00 00 02 AB 8D 8F 03 00 19 02 D8 D9 DA DB 6D 03 04 DD AE 32
  169.            02 1F
  170.           )
  171.       ERROR "~S: the symbol ~S names a global variable"
  172.       "~S: Das Symbol ~S benennt eine globale Variable."
  173.       "~S : Le symbole ~S est le nom d'une variable globale." LANGUAGE
  174.       DEFINE-SYMBOL-MACRO
  175.   )  )
  176. #Y(#:TOP-LEVEL-FORM-13
  177.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  178.    PRINT-UNREADABLE-OBJECT REMOVE-OLD-DEFINITIONS MACRO
  179.    #Y(PRINT-UNREADABLE-OBJECT
  180.       #55Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 1A 9D 5B 77 9E 5B 5A 5B 78 9F
  181.            5B 78 AB DA 30 63 DB 91 01 0C 00 14 9F 61 02 19 06 AC 2E 01 19 03 DC
  182.            DD 62 9F 7B 02 60 02 1A 6B
  183.           )
  184.       2. MACRO-CALL-ERROR (:IDENTITY :TYPE) WRITE-UNREADABLE FUNCTION LAMBDA
  185.   )  )
  186. #Y(#:TOP-LEVEL-FORM-14
  187.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DECLAIM
  188.    REMOVE-OLD-DEFINITIONS MACRO
  189.    #Y(DECLAIM
  190.       #41Y(00 01 00 01 00 08 94 02 D8 62 AC 1A 0F 93 00 D9 DA AC 7A 02 7A 02 83
  191.            02 16 01 82 00 9B 20 6E 16 01 AA 30 A7 16 01 5C 19 04
  192.           )
  193.       PROGN PROCLAIM QUOTE
  194.   )  )
  195. #Y(#:TOP-LEVEL-FORM-15
  196.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  197.    DESTRUCTURING-BIND REMOVE-OLD-DEFINITIONS MACRO
  198.    #Y(DESTRUCTURING-BIND
  199.       #139Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 72 9D 5B 77 9E 5B
  200.             5B 77 9F 5B 5B 78 AA 62 B0 30 62 41 02 92 00 06 DA 9C 79 60 01 F6
  201.             C6 10 04 C6 10 05 00 10 06 00 10 07 00 10 08 00 10 09 C0 E2 E3 E2
  202.             2C 04 0C E2 DB 6F 0D E6 6A 07 71 4A BF 6A 08 71 4A C2 32 03 23 7B
  203.             02 92 01 16 E7 AC E8 E2 E9 6A 05 0E 06 1B 21 0E 04 79 7A 02 7A 03
  204.             AD 60 04 F6 EA E2 65 19 7A 02 7A 01 AC 60 03 16 02 12 06 19 08 AC
  205.             2E 01 19 03 00 1A 5E
  206.            )
  207.       3. MACRO-CALL-ERROR DECLARE 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST
  208.       %KEYWORD-TESTS %DEFAULT-FORM <DESTRUCTURING-FORM> DESTRUCTURING-BIND
  209.       ANALYZE1 MAKE-LENGTH-TEST LET* IF DESTRUCTURING-ERROR QUOTE LET
  210.   )  )
  211. #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  212.    DESTRUCTURING-ERROR REMOVE-OLD-DEFINITIONS
  213.    #Y(DESTRUCTURING-ERROR
  214.       #28Y(00 02 00 00 00 03 93 01 94 02 D8 D9 DA DB 6D 03 04 AC AE AE 71 03 AF
  215.            AF B4 32 05 1F
  216.           )
  217.       ERROR
  218.       "The object to be destructured should be a list with ~:[at least ~*~S~;~:[from ~S to ~S~;~S~]~] elements, not ~4@*~S."
  219.       "Das zu zerlegende Objekt sollte eine Liste mit ~:[mindestens ~*~S~;~:[~S bis ~S~;~S~]~] Elementen sein, nicht ~4@*~S."
  220.       "L'objet à démonter devrait être une liste ~:[d'au moins ~*~S~;de ~:[~S à ~S~;~S~]~] éléments et non ~4@*~S."
  221.       LANGUAGE
  222.   )  )
  223. #Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  224.    COMPLEMENT REMOVE-OLD-DEFINITIONS
  225.    #Y(COMPLEMENT #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
  226.       #Y(LISP::COMPLEMENT-1 #15Y(00 00 00 00 01 16 68 00 01 9D 36 00 58 19 02)
  227.          NIL
  228.   )  )  )
  229. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  230.    CONSTANTLY REMOVE-OLD-DEFINITIONS
  231.    #Y(CONSTANTLY #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
  232.       #Y(LISP::CONSTANTLY-1 #11Y(00 00 00 00 01 16 07 00 01 19 02) NIL)
  233.   )  )
  234. #Y(#:TOP-LEVEL-FORM-19
  235.    #31Y(00 00 00 00 00 01 D8 70 CF D9 8C 61 0B AA D9 70 51 8D 03 04 D9 DA 2F 03
  236.         D9 AB 31 83 C4 19 02
  237.        )
  238.    #1="COMMON-LISP-USER" *COMMON-LISP-USER-PACKAGE*
  239.    (DEFCONSTANT *COMMON-LISP-USER-PACKAGE* (FIND-PACKAGE #1#)) CONSTANT-WARNING
  240.   )
  241. #Y(#:TOP-LEVEL-FORM-20
  242.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  243.    WITH-STANDARD-IO-SYNTAX REMOVE-OLD-DEFINITIONS MACRO
  244.    #Y(WITH-STANDARD-IO-SYNTAX
  245.       #39Y(00 01 00 01 00 08 3C 01 94 02 AA 62 AE 30 62 41 02 D8 D9 91 02 0A 00
  246.            14 AE 32 02 23 61 02 19 06 DA 9E 79 60 01 1A 70
  247.           )
  248.       LET
  249.       ((*PACKAGE* *COMMON-LISP-USER-PACKAGE*) (*PRINT-ARRAY* T)
  250.         (*PRINT-BASE* 10.) (*PRINT-CASE* ':UPCASE) (*PRINT-CIRCLE* NIL)
  251.         (*PRINT-ESCAPE* T) (*PRINT-GENSYM* T) (*PRINT-LENGTH* NIL)
  252.         (*PRINT-LEVEL* NIL) (*PRINT-PRETTY* NIL) (*PRINT-RADIX* NIL)
  253.         (*PRINT-READABLY* T) (*PRINT-CLOSURE* NIL) (*PRINT-RPARS* T)
  254.         (*PRINT-INDENT-LISTS* 2.) (*PRIN-STREAM* NIL) (*PRIN-LINELENGTH* 79.)
  255.         (*READ-BASE* 10.) (*READ-DEFAULT-FLOAT-FORMAT* 'SINGLE-FLOAT)
  256.         (*READ-SUPPRESS* NIL) (*READTABLE* (COPY-READTABLE NIL))
  257.       )
  258.       DECLARE
  259.   )  )
  260. #Y(#:TOP-LEVEL-FORM-21
  261.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  262.    WITH-HASH-TABLE-ITERATOR REMOVE-OLD-DEFINITIONS MACRO
  263.    #Y(WITH-HASH-TABLE-ITERATOR
  264.       #81Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 33 9D 5B 5A 77 9E 5B 5A 5B 77
  265.            9F 5B 78 AC 8E 08 28 37 01 71 90 DF AB E0 AF 7A 02 7A 02 7A 01 E1 B0
  266.            62 E2 E3 B1 7A 02 7A 02 7A 03 7A 01 A0 7B 02 60 03 19 07 AC 2E 01 19
  267.            03 DA DB DC 6D 03 05 DE AE 32 02 1E
  268.           )
  269.       2. MACRO-CALL-ERROR "~S: macro name should be a symbol, not ~S"
  270.       "~S: Macroname muß ein Symbol sein, nicht ~S"
  271.       "~S : le nom de macro n'est pas un symbole: ~S" LANGUAGE
  272.       WITH-HASH-TABLE-ITERATOR LET HASH-TABLE-ITERATOR MACROLET QUOTE
  273.       HASH-TABLE-ITERATE
  274.   )  )
  275. #Y(#:TOP-LEVEL-FORM-22
  276.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LAMBDA
  277.    REMOVE-OLD-DEFINITIONS MACRO
  278.    #Y(LAMBDA
  279.       #25Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 06 DA AD 60 02 19 03 AC 2E 01
  280.            19 03
  281.           )
  282.       2. MACRO-CALL-ERROR FUNCTION
  283.   )  )
  284.