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 / defmacro.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  15.8 KB  |  274 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.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  7.    MACRO-CALL-ERROR REMOVE-OLD-DEFINITIONS
  8.    #Y(MACRO-CALL-ERROR
  9.       #28Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA DB 6D 03 04 93 03 AE 71 4A 71
  10.            9A AF 32 03 1F
  11.           )
  12.       PROGRAM-ERROR "The macro ~S may not be called with ~S arguments"
  13.       "Der Macro ~S kann nicht mit ~S Argumenten aufgerufen werden: ~S"
  14.       "Le macro ~S ne peut pas Ωtre appelΘ avec ~S arguments : ~S" LANGUAGE
  15.   )  )
  16. #Y(#:TOP-LEVEL-FORM-3 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 19 01)
  17.    (SPECIAL %RESTP %MIN-ARGS %ARG-COUNT %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM)
  18.   )
  19. #Y(#:TOP-LEVEL-FORM-4
  20.    #18Y(00 00 00 00 00 00 00 00 00 01 D8 D8 7A 01 31 85 19 01)
  21.    MACRO-MISSING-VALUE
  22.   )
  23. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  24.    ANALYZE-AUX
  25.    #Y(ANALYZE-AUX
  26.       #85Y(00 00 00 00 02 00 00 00 00 03 AC 1A 3F 93 00 C3 5C 1A 31 DA DB DC DD
  27.            6D 03 06 AE 93 03 32 02 1F DF E0 E1 6D 03 06 E2 E3 E4 6D 03 06 AE 2C
  28.            03 0D 19 04 93 00 8D 09 56 9B 5A 1F 58 9B 5A 77 9C 5A 5B 77 60 02 14
  29.            0E 01 5C 0F 01 82 00 9B 20 63 91 00 4E 00 19 04
  30.           )
  31.       (NIL) %LET-LIST PROGRAM-ERROR
  32.       "in macro ~S: ~S may not be used as &AUX variable."
  33.       "Im Macro ~S ist als &AUX-Variable nicht verwendbar: ~S"
  34.       "Dans le macro ~S, l'utilisation de ~S n'est pas possible comme variable &AUX."
  35.       LANGUAGE "The rest of the lambda list will be ignored."
  36.       "Der Teil danach wird ignoriert." "Ignorer ce qui suit."
  37.       "The lambda list of macro ~S contains a dot after &AUX."
  38.       "Die Lambdaliste des Macros ~S enthΣlt einen Punkt nach &AUX."
  39.       "La liste lambda du macro ~S contient un point aprΦs &AUX." CERROR
  40.   )  )
  41. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  42.    ANALYZE-KEY
  43.    #Y(ANALYZE-KEY
  44.       #632Y(00 00 00 00 03 00 00 00 00 04 63 62 AF 01 04 9F 1F 82 44 86 04 03
  45.             14 23 00 80 B2 AD 23 01 80 B2 AD 23 03 80 B5 AD 23 04 80 B0 AD 23
  46.             05 80 AB AD 23 06 80 A6 AD 23 07 80 A1 AD 23 08 80 9C 0E 11 1C 16
  47.             AD 8D 09 80 9E 9E 1F 0E AD 71 4A 24 12 08 9E 5A 14 6A 11 60 02 F9
  48.             AD 8D 09 80 8C 9E 1F 80 9A 93 03 8D 09 80 D0 9E 5A 1F 81 06 9E 5A
  49.             77 8E 8F 80 FF 9E 5A 5B 1F 80 F9 9E 5A 5B 77 8E 09 81 60 9E 5A 5A
  50.             F8 9E 5A 5B 77 EC B5 AF 03 2C 7B 03 7A 02 0E 16 5C 0F 16 9E 5B 5B
  51.             1C 08 9E 5B 5B 77 8D 09 80 EA 7C 01 9E 5A 5B 77 64 1E 64 1F A1 5A
  52.             5B 77 03 30 7B 02 A1 5B 77 A2 5A 5B 77 60 04 14 7A 02 0E 16 5C 0F
  53.             16 AC 83 05 1A 81 74 7C 06 1A 81 6F 94 04 B3 2F 02 1A 81 96 E1 E2
  54.             E3 6D 03 0C E5 E6 D2 1A 20 9E 1A FF 69 AD 71 8E 6A 13 7F D8 02 AD
  55.             EC B5 AF 03 15 61 03 1A 44 EF F0 F1 6D 03 0C F2 F3 03 1C 14 6D 03
  56.             0C B4 A1 1A 80 79 9E 5B 5B 5A F7 1C 80 49 14 64 1E 64 1F 93 06 03
  57.             20 7B 02 64 21 64 22 93 08 A4 5B 77 7A 03 03 23 7B 02 03 24 61 03
  58.             1A FF 88 93 03 71 8E 6A 13 7F D8 02 93 03 EC B5 AF 03 1D 7B 03 7A
  59.             02 0E 16 5C 0F 16 9E 5B 5B 1C 08 9E 5B 5B 77 8D 09 FF B1 7C 01 93
  60.             03 64 1E 64 1F 93 06 03 25 7B 02 A1 5B 77 A2 1A FF 4A 64 26 64 27
  61.             64 28 6D 03 0C 64 29 64 2A 64 2B 6D 03 0C B4 A1 5A 14 2C 04 10 1A
  62.             80 B3 9E 5B 5B 5A F7 1C FF 10 14 64 1E 64 1F A1 5A 5B 77 03 2D 7B
  63.             02 64 21 64 22 A3 5A 5B 77 A4 5B 77 7A 03 03 2E 7B 02 03 2F 61 03
  64.             1A FF 04 9E 5B 5B 5A F7 1C 80 45 14 64 1E 64 1F AD 03 32 7B 02 64
  65.             21 64 22 AF A4 5B 77 7A 03 03 33 7B 02 03 34 61 03 1A 3A 9E 5A 5A
  66.             F8 37 01 80 92 00 14 EC B5 AF 03 31 7B 03 7A 02 0E 16 5C 0F 16 9E
  67.             5B 5B 1C 08 9E 5B 5B 77 8D 09 FF B5 7C 01 AA 64 1E 64 1F AD 03 35
  68.             7B 02 A1 5B 77 A2 5A 5B 77 60 04 14 7A 02 0E 16 5C 0F 16 AC 83 05
  69.             03 36 10 37 03 36 10 38 00 10 39 00 10 11 04 0F 5A 5B 77 B7 C0 B9
  70.             2C 04 3A 12 04 82 04 1A FD C9 64 41 AF 64 42 AD 7A 02 7A 03 0E 43
  71.             5C 0F 43 19 06 92 04 16 64 3B 64 3C 64 3D 6D 03 0C 64 3E 64 3F 64
  72.             40 6D 03 0C B4 2C 03 10 16 05 91 01 51 00 19 06
  73.            )
  74.       &ALLOW-OTHER-KEYS &AUX ANALYZE-AUX &ENVIRONMENT &WHOLE &OPTIONAL &REST
  75.       &BODY &KEY "It will be ignored." "Es wird ignoriert."
  76.       "Ignorer ce qui suit." LANGUAGE
  77.       "The lambda list of macro ~S contains a badly placed ~S."
  78.       "Die Lambdaliste des Macros ~S enthΣlt ein ~S an falscher Stelle."
  79.       "La liste lambda du macro ~S contient un ~S mal placΘ." CERROR
  80.       %DEFAULT-FORM 1. *KEYWORD-PACKAGE* GETF (NIL) %LET-LIST
  81.       "It will be ignored." "Es wird ignoriert." "Il sera ignorΘ."
  82.       "The lambda list of macro ~S contains the invalid element ~S"
  83.       "Die Lambdaliste des Macros ~S enthΣlt folgendes unpassende Element: ~S"
  84.       "La liste lambda du macro ~S contient cet ΘlΘment inadmissible : ~S"
  85.       (MACRO-MISSING-VALUE) IF EQ (MACRO-MISSING-VALUE) PROGN SETQ (NIL) (T)
  86.       (MACRO-MISSING-VALUE) "It will be ignored." "Es wird ignoriert."
  87.       "Elle sera ignorΘe."
  88.       "The lambda list of macro ~S contains an invalid keyword specification ~S"
  89.       "Die Lambdaliste des Macros ~S enthΣlt eine unzulΣssige Keywordspezifikation: ~S"
  90.       "La liste lambda du macro ~S contient une spΘcification de mot-clΘ inadmissible : ~S"
  91.       (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL) (T)
  92.       (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL)
  93.       (T) (MACRO-MISSING-VALUE) 0. %MIN-ARGS %ARG-COUNT %RESTP ANALYZE1
  94.       "The rest of the lambda list will be ignored."
  95.       "Der Teil danach wird ignoriert." "Ignorer ce qui suit."
  96.       "The lambda list of macro ~S contains a dot after &KEY."
  97.       "Die Lambdaliste des Macros ~S enthΣlt einen Punkt nach &KEY."
  98.       "La liste lambda du macro ~S contient un point aprΦs &KEY." KEYWORD-TEST
  99.       QUOTE %KEYWORD-TESTS
  100.   )  )
  101. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  102.    ANALYZE-REST
  103.    #Y(ANALYZE-REST
  104.       #134Y(00 00 00 00 03 00 00 00 00 04 9E 1F 3D 93 03 8E 09 80 42 93 03 94
  105.             04 02 0F 08 AB AF 7A 02 0E 09 5C 0F 09 9B 58 1D 80 5C 9B 1F 37 93
  106.             00 23 11 80 43 93 00 23 13 80 46 ED EE EF 6D 03 04 F0 F1 F2 6D 03
  107.             04 AF AD 2C 04 10 19 06 D8 D9 DA DB 6D 03 04 AD 32 01 1F D8 DD DE
  108.             DF 6D 03 04 AD 93 06 32 02 1F E2 E3 E4 6D 03 04 E5 E6 E7 6D 03 04
  109.             AF 2C 03 10 19 06 94 00 AC AF 2C 03 12 19 06 94 00 AE 2F 14 19 06
  110.             19 06
  111.            )
  112.       PROGRAM-ERROR
  113.       "The lambda list of macro ~S is missing a variable after &REST/&BODY."
  114.       "Die Lambdaliste des Macros ~S enthΣlt keine Variable nach &REST/&BODY."
  115.       "Il manque une variable aprΦs &REST/BODY dans la liste lambda du macro ~S."
  116.       LANGUAGE
  117.       "The lambda list of macro ~S contains an illegal variable after &REST/&BODY: ~S"
  118.       "Die Lambdaliste des Macros ~S enthΣlt eine unzulΣssige Variable nach &REST/&BODY: ~S"
  119.       "La liste lambda du macro ~S contient une variable indamissible aprΦs &REST/BODY : ~S"
  120.       %RESTP %LET-LIST "The rest of the lambda list will be ignored."
  121.       "Der Teil danach wird ignoriert." "Ignorer ce qui suit."
  122.       "The lambda list of macro ~S contains a misplaced dot."
  123.       "Die Lambdaliste des Macros ~S enthΣlt einen Punkt an falscher Stelle."
  124.       "La liste lambda du macro ~S contient un point mal placΘ." CERROR &KEY
  125.       ANALYZE-KEY &AUX ANALYZE-AUX "They will be ignored."
  126.       "Dieser ganze Teil wird ignoriert." "Ignorer cette partie."
  127.       "The lambda list of macro ~S contains superfluous elements: ~S"
  128.       "Die Lambdaliste des Macros ~S enthΣlt ⁿberflⁿssige Elemente: ~S"
  129.       "La liste lambda du macro ~S contient des ΘlΘments superflus : ~S"
  130.   )  )
  131. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  132.    CONS-CAR
  133.    #Y(CONS-CAR
  134.       #37Y(00 00 00 00 01 00 00 00 00 02 62 9D 1F 0A 93 02 D8 37 03 7F BF 00 1B
  135.            06 D9 AD 60 02 19 03 94 00 9E 5B 5C 19 03
  136.           )
  137.       ((CAR . CAAR) (CDR . CADR) (CAAR . CAAAR) (CADR . CAADR) (CDAR . CADAR)
  138.         (CDDR . CADDR) (CAAAR . CAAAAR) (CAADR . CAAADR) (CADAR . CAADAR)
  139.         (CADDR . CAADDR) (CDAAR . CADAAR) (CDADR . CADADR) (CDDAR . CADDAR)
  140.         (CDDDR . CADDDR) (CDDDDR . FIFTH)
  141.       )
  142.       CAR
  143.   )  )
  144. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  145.    CONS-CDR
  146.    #Y(CONS-CDR
  147.       #37Y(00 00 00 00 01 00 00 00 00 02 62 9D 1F 0A 93 02 D8 37 03 7F BF 00 1B
  148.            06 D9 AD 60 02 19 03 94 00 9E 5B 5C 19 03
  149.           )
  150.       ((CAR . CDAR) (CDR . CDDR) (CAAR . CDAAR) (CADR . CDADR) (CDAR . CDDAR)
  151.         (CDDR . CDDDR) (CAAAR . CDAAAR) (CAADR . CDAADR) (CADAR . CDADAR)
  152.         (CADDR . CDADDR) (CDAAR . CDDAAR) (CDADR . CDDADR) (CDDAR . CDDDAR)
  153.         (CDDDR . CDDDDR)
  154.       )
  155.       CDR
  156.   )  )
  157. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  158.    ANALYZE1
  159.    #Y(ANALYZE1
  160.       #543Y(00 00 00 00 04 00 00 00 00 05 AE 01 03 9E 1F 81 E5 86 03 01 14 23
  161.             00 80 4E AB 23 07 80 66 AB 23 0F 80 7A AB 23 10 80 75 AB 23 12 80
  162.             79 AB 23 15 80 8E AB 23 1C 80 95 AB 23 23 80 AA 91 02 81 13 6A 33
  163.             31 99 0F 33 6A 25 31 99 0F 25 AB 8E 09 81 72 AB B2 2E 28 14 7A 02
  164.             0E 01 5C 0F 01 1A 81 8D DA DB DC C8 1A 81 9D 92 05 76 9E 5B 1C 72
  165.             9E 5B 77 8E 09 6C 9E 5B 77 B0 7A 02 0E 01 5C 0F 01 82 03 1A 81 6D
  166.             92 02 11 E0 E1 E2 6D 03 06 E3 E4 E5 6D 03 06 B2 AE 2C 04 0E 7D 02
  167.             1A 81 54 94 03 B2 B2 2C 03 11 19 09 37 01 80 92 00 02 0F 13 AA B2
  168.             7A 02 0E 01 5C 0F 01 94 03 AB B2 2C 03 14 19 09 EE EF F0 6D 03 06
  169.             F1 F2 03 1B 1A 0E F5 64 1E 64 1F 6D 03 06 64 20 64 21 03 22 14 6D
  170.             03 06 B2 AE 2C 04 0E 1A 81 0B 94 03 B1 2F 24 19 09 9C 1A 80 7C DA
  171.             64 29 64 2A 03 2B 1A 80 D2 A0 5B 5A 1A 1F DA 64 2D 64 2E 64 2F 6D
  172.             03 06 B2 9F 5B 5B 5A 1A 80 F8 93 01 64 2C B3 B4 6E 28 A0 5B 20 5D
  173.             00 14 7A 04 7A 02 0E 01 5C 0F 01 9C 5B 1F 80 BF 9C 5B 5B 1F 80 B9
  174.             9C 5B 5B 77 8E 09 45 9C 5B 5B 77 64 30 03 31 1A 80 74 64 2C B3 B4
  175.             6E 28 A0 5B 77 60 04 1A 3D 6A 25 31 99 0F 25 0E 26 1C 16 AB 8D 09
  176.             FF 8B 9C 1F 0E AB 71 4A 24 27 08 9C 5A 14 6A 26 60 02 F7 AB 8D 09
  177.             FE D9 9C 1F FF 75 93 01 8D 09 FF 90 37 01 80 92 00 14 9D 5B 20 FF
  178.             B9 B2 2E 28 14 7A 02 0E 01 5C 0F 01 03 32 10 33 03 32 10 25 00 10
  179.             13 93 0A B4 BB B6 2C 04 34 12 03 9C 5B 5B 1F 3B 9C 5B 5B 77 64 30
  180.             03 31 14 B4 7A 02 60 02 1A FE 92 9C 20 0F DA 64 29 64 2A 03 2B 14
  181.             6D 03 06 B2 9F 1A 35 03 32 10 33 03 32 10 25 00 10 13 B4 BB 6E 28
  182.             BB BD 6E 28 2C 04 34 12 03 B1 2E 35 FD 82 03 1A FE 17 92 03 23 14
  183.             8D 09 11 DA 64 36 64 37 03 38 14 6D 03 06 B2 A1 14 32 02 1F AD B2
  184.             7A 02 0E 01 5C 0F 01 02 0F 13 19 09 00 19 09
  185.            )
  186.       &WHOLE %LET-LIST PROGRAM-ERROR
  187.       "The lambda list of macro ~S contains an invalid &WHOLE: ~S"
  188.       "Die Lambdaliste des Macros ~S enthΣlt ein unzulΣssiges &WHOLE: ~S"
  189.       "La liste lambda du macro ~S contient un &WHOLE inadmissible : ~S"
  190.       LANGUAGE &OPTIONAL "It will be ignored." "Es wird ignoriert."
  191.       "L'ignorer." "The lambda list of macro ~S contains a superfluous ~S."
  192.       "Die Lambdaliste des Macros ~S enthΣlt ein ⁿberflⁿssiges ~S."
  193.       "La liste lambda du macro ~S contient un ~S superflu." CERROR &REST &BODY
  194.       ANALYZE-REST &KEY %RESTP ANALYZE-KEY &ALLOW-OTHER-KEYS
  195.       "It will be ignored." "Es wird ignoriert." "L'ignorer."
  196.       "The lambda list of macro ~S contains ~S before &KEY."
  197.       "Die Lambdaliste des Macros ~S enthΣlt ~S vor &KEY."
  198.       "La liste lambda du macro ~S contient ~S avant &KEY." &ENVIRONMENT
  199.       "It will be ignored." "Es wird ignoriert." "L'ignorer."
  200.       "The lambda list of macro ~S contains ~S which is illegal here."
  201.       "Die Lambdaliste des Macros ~S enthΣlt ~S, was hier unzulΣssig ist."
  202.       "La liste lambda du macro ~S contient ~S qui est inadmissible ici." &AUX
  203.       ANALYZE-AUX %ARG-COUNT %DEFAULT-FORM 1. CONS-CAR
  204.       "The lambda list of macro ~S contains an invalid element ~S"
  205.       "Die Lambdaliste des Macros ~S enthΣlt ein unzulΣssiges Element: ~S"
  206.       "La liste lambda du macro ~S contient un ΘlΘment inadmissible : ~S" IF
  207.       "The lambda list of macro ~S contains an invalid supplied-variable ~S"
  208.       "Die Lambdaliste des Macros ~S enthΣlt eine unzulΣssige supplied-Variable: ~S"
  209.       "La liste lambda du macro ~S contient une ½supplied-variable╗ indamissible : ~S"
  210.       NOT NULL 0. %MIN-ARGS ANALYZE1 CONS-CDR
  211.       "The lambda list of macro ~S contains an illegal &REST variable: ~S"
  212.       "Die Lambdaliste des Macros ~S enthΣlt eine unzulΣssige &REST-Variable: ~S"
  213.       "La liste lambda du macro ~S contient une variable &REST inadmissible : ~S"
  214.   )  )
  215. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  216.    REMOVE-ENV-ARG
  217.    #Y(REMOVE-ENV-ARG
  218.       #89Y(00 00 00 00 02 00 00 00 00 03 AC 1A 80 41 AD 62 1A 08 94 01 93 02 83
  219.            01 69 01 93 01 24 00 73 AA 9D 5B 78 30 A7 16 01 F6 9C 5B 5A 1A 27 9B
  220.            5B 1F 0B 9B 5B 77 8E 09 05 9B 5B 5A 1B 52 D9 DA DB DC 6D 03 05 AE B0
  221.            32 02 1F 93 00 23 00 60 82 00 9B 20 76 AD 00 14 3F 02 19 04
  222.           )
  223.       &ENVIRONMENT PROGRAM-ERROR
  224.       "In the lambda list of macro ~S, &ENVIRONMENT must be followed by a non-NIL symbol: ~S"
  225.       "In der Lambdaliste des Macros ~S mu▀ nach &ENVIRONMENT ein Symbol (nicht NIL) folgen: ~S"
  226.       "Dans la liste lambda du macro ~S, &ENVIRONMENT doit Ωtre suivi par un symbole autre que NIL : ~S"
  227.       LANGUAGE
  228.   )  )
  229. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  230.    MAKE-LENGTH-TEST
  231.    #Y(MAKE-LENGTH-TEST
  232.       #99Y(00 00 00 00 01 00 01 00 00 08 3A 01 02 C3 F7 6A 01 8E 94 04 0E 02 1B
  233.            22 6A 01 8D 94 20 0E 02 1B 26 6A 01 6A 05 90 01 2D 22 DF C7 14 AE 7A
  234.            02 AD 0E 01 14 72 02 35 60 03 19 03 00 19 03 DB DC AE 7A 02 AD 0E 05
  235.            1A 6B DE C7 1A 60 E0 E1 AD 6A 01 72 02 35 DC B0 7A 02 AF 6A 05 72 02
  236.            35 7A 04 60 02 19 03
  237.           )
  238.       1. %MIN-ARGS %RESTP > LENGTH %ARG-COUNT < /= NOT <=
  239.   )  )
  240. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  241.    MAKE-MACRO-EXPANSION
  242.    #Y(MAKE-MACRO-EXPANSION
  243.       #209Y(00 00 00 00 01 00 00 00 00 02 9C 1F 17 93 01 8E 09 1C 9C 5B 20 29
  244.             D8 E0 E1 CD 14 6D 03 04 9E 5A 14 32 01 1F D8 D9 DA DB 6D 03 04 9E
  245.             1A 72 D8 DD DE CA 1A 66 04 1C 1A 80 73 14 60 01 1A 80 73 93 01 9D
  246.             5B 77 9E 5B 78 AA 63 37 01 30 63 41 03 92 01 06 E3 9D 79 60 01 F7
  247.             AE B0 2F 0C 41 02 D0 10 0E D0 10 0F 00 10 10 00 10 11 00 10 12 00
  248.             10 13 BD EC 65 1B ED 2C 04 16 ED 6E 17 F0 6A 11 71 4C C2 6A 12 71
  249.             4C 65 1B 32 03 23 7B 02 92 01 07 F1 AC F2 AD 60 04 F6 F3 65 1C F4
  250.             ED F5 91 19 02 03 1E 14 7A 03 64 1F 91 19 FF 8A 03 20 14 91 1C FF
  251.             88 00 14 64 21 65 23 B3 7A 03 7A 01 32 03 23 7B 03 7A 03 65 1C 65
  252.             1C 65 19 3F 04 16 02 12 06 19 0A
  253.            )
  254.       PROGRAM-ERROR "Cannot define a macro from that: ~S"
  255.       "Daraus kann kein Macro definiert werden: ~S"
  256.       "Aucun macro n'est dΘfinissable α partir de ~S" LANGUAGE
  257.       "The name of a macro must be a symbol, not ~S"
  258.       "Der Name eines Macros mu▀ ein Symbol sein, nicht: ~S"
  259.       "Le nom d'un macro doit Ωtre un symbole et non ~S"
  260.       "Macro ~S is missing a lambda list."
  261.       "Der Macro ~S hat keine Lambdaliste."
  262.       "Le macro ~S ne possΦde pas de liste lambda." DECLARE REMOVE-ENV-ARG 0.
  263.       %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  264.       (CDR <MACRO-FORM>) <MACRO-FORM> ANALYZE1 MAKE-LENGTH-TEST LET* IF
  265.       (MACRO-CALL-ERROR <MACRO-FORM>) FUNCTION LAMBDA &OPTIONAL <ENV-ARG>
  266.       (DECLARE (CONS <MACRO-FORM>)) ((DECLARE (IGNORE <ENV-ARG>))) BLOCK
  267.   )  )
  268. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 31 84 19 01)
  269.    MAKE-MACRO-EXPANDERCONS
  270.    #Y(MAKE-MACRO-EXPANDERCONS
  271.       #19Y(00 00 00 00 01 00 00 00 00 02 D8 AC 6E 01 30 5F 5C 19 02) MACRO
  272.       MAKE-MACRO-EXPANSION
  273.   )  )
  274.