home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / macros3.fas < prev    next >
Text File  |  1996-06-17  |  7KB  |  113 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.    (ETHE LETF LETF*)
  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) ETHE
  9.    REMOVE-OLD-DEFINITIONS MACRO
  10.    #Y(ETHE
  11.       #77Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 3A 9D 5B 77 9E 5B 5B 77 37 01
  12.            71 90 DA AD DB AD DC B0 7A 02 7A 02 7A 01 DD DE B0 DF B4 7A 02 7A 03
  13.            E0 B1 7A 02 E1 E2 E3 DF B6 7A 02 B5 DF B9 7A 02 7A 06 7A 04 7A 03 60
  14.            03 19 06 AC 2E 01 19 03
  15.           )
  16.       3. MACRO-CALL-ERROR THE LET MULTIPLE-VALUE-LIST IF %THE QUOTE VALUES-LIST
  17.       ERROR-OF-TYPE 'ERROR
  18.       (LANGUAGE
  19.         "The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] , that's not of type ~S."
  20.         "Die Form ~S lieferte ~:[keine Werte~;~:*~{~S~^ ; ~}~] , das ist nicht vom Typ ~S."
  21.         "La forme ~S a rendu ~:[aucune valeur~;~:*~{~S~^ ; ~}~] , ceci n'est pas de type ~S."
  22.   )  ))
  23. #Y(#:TOP-LEVEL-FORM-5
  24.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LETF*
  25.    REMOVE-OLD-DEFINITIONS MACRO
  26.    #Y(LETF*
  27.       #55Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 1B 9D 5B 77 9E 5B 78 AA
  28.            62 AF 30 62 41 02 91 00 10 00 14 AE AB AE 2C 03 03 3E 19 08 AC 2E 01
  29.            19 03 DA 9C 79 60 01 1A 6A
  30.           )
  31.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF*
  32.   )  )
  33. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  34.    EXPAND-LETF* REMOVE-OLD-DEFINITIONS
  35.    #Y(EXPAND-LETF*
  36.       #380Y(00 03 00 00 00 04 9E 1F 27 93 03 01 02 9D 1F 81 19 9D 5B 1F 05 9D
  37.             5B 5B 1C 27 D8 E3 E4 E5 6D 03 04 9F 14 32 01 1F D8 D9 DA DB 6D 03
  38.             04 A0 1A 72 91 03 73 DD 62 AE AE 32 02 23 7B 02 63 3F 02 19 04 86
  39.             02 01 9D 5B 5A F6 9C 1F 14 93 01 24 06 0F AB 71 48 24 07 09 9C 5B
  40.             5A F7 E0 AB 60 02 F6 9C 1F 80 CB 93 01 24 09 80 C5 AB 71 48 24 0A
  41.             80 BE 9C 5B 5B 5A F7 E1 9D 5B 77 AC 60 03 F6 1A 60 DD AE AE 7A 02
  42.             9E 5B 5A 79 9E 5B 5B 61 02 1A 13 91 00 6D DD AE AE 7A 02 7A 01 B3
  43.             AE 7A 01 32 02 23 61 02 14 02 1A 80 7E E8 94 04 AE B4 AF 7A 01 32
  44.             02 23 7B 03 00 1A 80 6D E7 AE 8F 00 28 69 01 04 94 07 1A 30 93 00
  45.             82 01 2E 11 41 05 93 02 AB 7A 02 EA B0 B0 72 01 17 B5 30 A6 5C FF
  46.             37 01 71 90 AA 83 09 AA 93 04 AE 37 03 70 AF 83 08 16 01 AB 83 06
  47.             16 05 9B 20 4D DD AF 71 4A B8 E8 B1 71 4A B6 BC EB EC B5 71 4A BA
  48.             7A 01 32 02 23 79 B4 31 4A 7B 02 7A 01 32 02 23 7B 03 7A 01 32 02
  49.             23 61 02 16 04 F6 02 14 3F 02 19 09 9D F7 7C 00 94 06 B0 B0 27 FE
  50.             D1 41 02 9E 1F FF 54 93 03 23 0E FF 77 AD 2E 11 41 05 37 01 71 90
  51.             DD EA B1 B1 72 01 17 93 05 AE 7A 02 AD B6 7A 02 7A 02 72 02 24 B9
  52.             EB EC AF 93 09 B3 37 03 70 AF B7 7A 03 B1 7A 03 7A 01 32 02 23 7B
  53.             02 63 3F 02 19 0F
  54.            )
  55.       PROGRAM-ERROR "LETF* code contains a dotted list, ending with ~S"
  56.       "Dotted List im Code von LETF*, endet mit ~S"
  57.       "Dans le code de LETF*, occurence d'une paire pointée terminée en ~S"
  58.       LANGUAGE LET* VALUES-LIST 2. MULTIPLE-VALUE-LIST THE 3.
  59.       "illegal syntax in LETF* binding: ~S"
  60.       "Falsche Syntax in Bindung zu LETF* : ~S"
  61.       "Syntaxe illégale dans une liaison pour LETF* : ~S" VALUES #.#'SYMBOLP
  62.       MULTIPLE-VALUE-BIND GET-SETF-METHOD #.#'LIST UNWIND-PROTECT PROGN
  63.   )  )
  64. #Y(#:TOP-LEVEL-FORM-7
  65.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LETF
  66.    REMOVE-OLD-DEFINITIONS MACRO
  67.    #Y(LETF
  68.       #256Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 1E 9D 5B 77 9E 5B 78
  69.             AA 62 AF 30 62 41 02 91 00 13 00 14 62 AF 2E 03 41 04 AD 80 4A 03
  70.             1A 2B AC 2E 01 19 03 DA 9C 79 60 01 1A 67 AD 62 1A 80 8B 93 00 A2
  71.             5A 5B 77 7A 02 83 07 AC B0 37 06 C7 F8 C8 F7 DE 80 52 05 82 06 16
  72.             03 9E 1F 80 73 9E 5A 77 AA 8E 08 06 AA 31 8A 58 1B 50 16 01 1C 80
  73.             61 1A 68 DF E0 AF AE 32 02 23 79 9F 7B 02 60 01 F7 7D 00 92 04 80
  74.             59 E1 AF B3 AE 32 02 23 7B 02 60 01 F7 7D 00 92 06 80 4B E2 B1 B3
  75.             AE 32 02 23 7B 02 60 01 F7 7D 00 92 05 3D E3 B0 B3 AE 32 02 23 7B
  76.             02 60 01 F7 7D 00 92 00 38 1A 2D 9C 5A 19 0F 86 01 00 5B 77 9E 21
  77.             FF 77 82 01 AB 8C 96 71 16 03 AD 80 4A 03 B1 62 91 03 FF 97 91 04
  78.             FF A7 91 06 FF B5 91 05 43 92 00 09 92 07 50 9C 5A 77 24 07 4A E2
  79.             62 B3 E0 A0 79 7A 01 32 02 23 61 02 19 0F
  80.            )
  81.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF #.#'SECOND #.#'EQ 1.
  82.       UNWIND-PROTECT PROGN LET* LET LETF*
  83.   )  )
  84. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  85.    EXPAND-LETF REMOVE-OLD-DEFINITIONS
  86.    #Y(EXPAND-LETF
  87.       #344Y(00 01 00 00 00 02 9C 1F 27 93 01 01 02 9D 1F 81 03 9D 5B 1F 05 9D
  88.             5B 5B 1C 1F D8 E2 E3 E4 6D 03 04 9F 14 32 01 1F D8 D9 DA DB 6D 03
  89.             04 9E 1A 72 91 01 73 01 04 3F 04 19 02 86 02 01 9D 5B 5A F6 9C 1F
  90.             14 93 01 24 05 0F AB 71 48 24 06 09 9C 5B 5A F7 DF AB 60 02 F6 9C
  91.             1F 80 BD 93 01 24 08 80 B7 AB 71 48 24 09 80 B0 9C 5B 5B 5A F7 E0
  92.             9D 5B 77 AC 60 03 F6 1A 60 37 01 71 90 AA B0 7A 02 A0 79 B1 AC 7A
  93.             02 A0 5C 1A 2D 62 94 06 1A 0C 93 00 37 01 71 90 83 02 16 01 82 00
  94.             9B 20 71 16 01 AA 7F A7 00 E5 9C 79 B0 7A 02 A0 79 E7 94 08 AD 72
  95.             01 17 AF 32 02 24 14 AE AE 3F 04 19 0A E6 B0 8F 00 28 46 01 04 94
  96.             09 1A 30 93 00 82 01 2E 10 41 05 93 02 AB 7A 02 E7 B0 B0 72 01 17
  97.             B5 30 A6 5C FF 37 01 71 90 AA 83 09 AA 93 04 AE 37 03 70 AF 83 08
  98.             16 01 AB 83 06 16 05 9B 20 4D AE E5 A0 79 B5 7A 02 A5 79 70 A6 B2
  99.             AE B3 70 A6 AE B3 70 A6 3F 04 19 0E 9D F7 7C 00 94 04 27 FE E9 41
  100.             04 A0 1F FF 54 93 05 23 0D FF 94 AF 2E 10 41 05 37 01 71 90 E7 B0
  101.             B0 72 01 17 93 04 AD 7A 02 AC B7 7A 02 7A 02 72 02 24 B3 AC 93 06
  102.             B0 37 03 70 AF A5 79 AF A5 79 3F 04 19 0F
  103.            )
  104.       PROGRAM-ERROR "LETF code contains a dotted list, ending with ~S"
  105.       "Dotted List im Code von LETF, endet mit ~S"
  106.       "Dans le code de LETF, occurence d'une paire pointée terminée en ~S"
  107.       LANGUAGE VALUES-LIST 2. MULTIPLE-VALUE-LIST THE 3.
  108.       "illegal syntax in LETF binding: ~S"
  109.       "Falsche Syntax in Bindung zu LETF : ~S"
  110.       "Syntaxe illégale dans une liaison pour LETF : ~S" VALUES #.#'SYMBOLP
  111.       #.#'LIST GET-SETF-METHOD
  112.   )  )
  113.