home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
macros1.fas
< prev
next >
Wrap
Text File
|
1996-06-17
|
16KB
|
346 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(MAPCAP MAPLAP)
)
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFVAR
REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFVAR
#152Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 2B 9D 5B 77 9E 5B 5B 1B
28 00 14 9F 5B 5B 58 58 14 A0 5B 5B 5B 77 AD 8E 08 1D AD 8C 61 80
48 DB E1 E2 E3 6D 03 07 CB 14 B0 32 02 1F AC 2E 02 19 03 9E 5B 5B
5A 1A 53 DB DC DD DE 6D 03 07 CB 1A 66 E8 E9 E6 B3 7A 02 7A 02 EA
E6 B4 7A 02 B3 7A 03 7A 03 60 01 1A 20 EB E6 B3 7A 02 EC E6 B2 7A
02 7A 04 60 01 1A 15 E4 62 E5 E6 E7 B2 7A 02 7A 02 7A 02 91 04 4B
00 14 91 04 5C 00 14 E6 B3 7A 02 7A 01 32 03 23 61 03 19 07
)
2. 4. MACRO-CALL-ERROR PROGRAM-ERROR
"~S: non-symbol ~S can't be a variable"
"~S: Nur Symbole können Variablen sein, nicht ~S"
"~S : Seuls les symboles peuvent servir de variable et non ~S" LANGUAGE
DEFVAR "~S: the constant ~S must not be redefined to be a variable"
"~S: Die Konstante ~S darf nicht zu einer Variablen umdefiniert werden."
"~S : La constante ~S ne peut pas être redéfinie en variable." LET
PROCLAIM QUOTE SPECIAL UNLESS BOUNDP SET %SET-DOCUMENTATION 'VARIABLE
) )
#Y(#:TOP-LEVEL-FORM-5
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFPARAMETER
REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFPARAMETER
#117Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 21 9D 5B 77 9E 5B 5B 77
9F 5B 5B 5B 77 AC 8E 08 16 AC 8C 61 2C DB E1 E2 E3 6D 03 07 CB 14
AF 32 02 1F AC 2E 02 19 03 DB DC DD DE 6D 03 07 CB 1A 6C E9 E6 B2
7A 02 EA E6 B2 7A 02 7A 04 60 01 1A 18 E4 62 E5 E6 E7 B1 7A 02 7A
02 7A 02 E8 E6 B1 7A 02 B0 7A 03 91 04 59 00 14 E6 B2 7A 02 7A 01
32 02 23 61 04 19 06
)
3. 4. MACRO-CALL-ERROR PROGRAM-ERROR
"~S: non-symbol ~S can't be a variable"
"~S: Nur Symbole können Variablen sein, nicht ~S"
"~S : Seuls les symboles peuvent servir de variable et non ~S." LANGUAGE
DEFPARAMETER "~S: the constant ~S must not be redefined to be a variable"
"~S: Die Konstante ~S darf nicht zu einer Variablen umdefiniert werden."
"~S : La constante ~S ne peut pas être redéfinie en variable." LET
PROCLAIM QUOTE SPECIAL SET %SET-DOCUMENTATION 'VARIABLE
) )
#Y(#:TOP-LEVEL-FORM-6
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFCONSTANT
REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFCONSTANT
#158Y(00 01 00 01 00 08 D8 AD 71 48 D9 90 02 31 80 6D 9D 5B 77 9E 5B 5B
77 9F 5B 5B 5B 77 AC 8E 08 80 61 37 01 71 90 E1 62 E2 E3 E4 E5 B3
7A 02 E5 B3 7A 02 7A 03 7A 03 E1 AE B1 7A 02 7A 01 E6 E7 E5 B5 7A
02 7A 02 E8 E9 B5 B4 EA E5 BA 7A 02 7A 02 7A 04 EB E5 B8 7A 02 E5
BC 7A 02 7A 03 7A 03 7A 03 EC E5 B5 7A 02 B2 7A 03 91 08 22 00 14
E5 B6 7A 02 7A 01 32 02 23 7B 04 60 04 19 07 AC 2E 02 19 03 DB DC
DD DE 6D 03 07 E0 AF 32 02 1F ED E5 B6 7A 02 EE E5 B6 7A 02 7A 04
60 01 1A 4F
)
3. 4. MACRO-CALL-ERROR PROGRAM-ERROR
"~S: non-symbol ~S can't be a defined constant"
"~S: Nur Symbole können als Konstanten definiert werden, nicht ~S"
"~S : Seuls les symboles peuvent servir de constante et non ~S." LANGUAGE
DEFCONSTANT LET EVAL-WHEN (COMPILE) C-PROCLAIM-CONSTANT QUOTE IF
CONSTANTP UNLESS CONSTANT-EQL SYMBOL-VALUE CONSTANT-WARNING
%PROCLAIM-CONSTANT %SET-DOCUMENTATION 'VARIABLE
) )
#Y(#:TOP-LEVEL-FORM-7
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) CONSTANT-EQL
REMOVE-OLD-DEFINITIONS MACRO
#Y(CONSTANT-EQL
#35Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 10 9D 5B 5B 77 9E 5B 5B 5B 77
DA AC AC 60 03 19 05 AC 2E 01 19 03
)
4. MACRO-CALL-ERROR EQL
) )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
LOOSE-CONSTANT-EQL REMOVE-OLD-DEFINITIONS
#Y(LOOSE-CONSTANT-EQL
#24Y(00 02 00 00 00 03 AC 71 2A AC 71 2A 31 04 1E 06 AC AC 31 04 19 03 19
03
) ) )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CONSTANT-WARNING REMOVE-OLD-DEFINITIONS
#Y(CONSTANT-WARNING
#22Y(00 02 00 00 00 03 D8 D9 DA 6D 03 03 AC AE AF 70 51 2C 04 04 19 03)
"~S redefines the constant ~S. Its old value was ~S."
"In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
"~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
WARN
) )
#Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) AND MACRO
#Y(AND
#70Y(00 01 00 01 00 08 94 02 92 00 08 9B 5B 1C 07 62 AB 1A 15 02 19 04 9B
5A 19 04 93 00 D8 AB 7A 02 C4 79 83 02 16 01 82 00 9B 20 6F 16 01 AA
7F A7 00 AA 37 01 70 A0 63 AD 37 01 30 A0 77 7A 02 30 AB DA 9C 5C 19
05
)
NOT (NIL) COND
) )
#Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) OR MACRO
#Y(OR
#48Y(00 01 00 01 00 08 94 02 92 00 1E 9B 5B 1C 1D D8 AB 72 00 17 AA 37 01
70 A0 63 AD 37 01 30 A0 77 7A 02 30 AB D9 9C 5C 19 05 00 19 04 9B 5A
19 04
)
#.#'LIST COND
) )
#Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PROG1 MACRO
#Y(PROG1
#47Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 1C 9D 5B 77 9E 5B 78 37 01 71
90 DA AB AE 7A 02 7A 01 AD AD 7A 01 32 02 23 61 02 19 06 AC 2E 01 19
03
)
2. MACRO-CALL-ERROR LET
) )
#Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PROG2 MACRO
#Y(PROG2
#60Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 5B 77 9F 5B
5B 78 37 01 71 90 DA 62 DB B0 DA AF B2 7A 02 7A 01 B1 B1 7A 01 32 02
23 7B 02 7A 03 60 03 19 07 AC 2E 01 19 03
)
3. MACRO-CALL-ERROR LET PROGN
) )
#Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) WHEN MACRO
#Y(WHEN
#34Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 0F 9D 5B 77 9E 5B 78 DA AC DB
9E 79 60 03 19 05 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR IF PROGN
) )
#Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) UNLESS
MACRO
#Y(UNLESS
#37Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 12 9D 5B 77 9E 5B 78 DA DB AD
7A 02 DC 9E 79 60 03 19 05 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR IF NOT PROGN
) )
#Y(#:TOP-LEVEL-FORM-16
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) RETURN
REMOVE-OLD-DEFINITIONS MACRO
#Y(RETURN
#29Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 30 0A 9D 5B 77 DA 62 AC 60 03 19
04 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR RETURN-FROM
) )
#Y(#:TOP-LEVEL-FORM-17
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LOOP
REMOVE-OLD-DEFINITIONS MACRO
#Y(LOOP
#32Y(00 01 00 01 00 08 94 02 37 01 71 90 D8 62 D9 AD AF DA B0 7A 02 7A 01
32 02 23 7B 02 60 03 19 05
)
BLOCK TAGBODY GO
) )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DO/DO*-EXPAND REMOVE-OLD-DEFINITIONS
#Y(DO/DO*-EXPAND
#161Y(00 07 00 00 00 00 A1 1F 36 01 02 37 01 71 90 37 01 71 90 B3 62 B4
30 62 41 03 92 01 06 DD 9D 79 60 01 F7 A9 1F 80 42 93 0E 82 0F 9B
1F 1C 9B 5B 1F 1B 9B 5B 5B 20 1A 9B 14 83 07 16 01 1A 64 D8 D9 DA
DB 6D 03 04 AF 32 01 1F 9B 1A 6B 9B 5A 1A 67 93 00 9C 5B 77 7A 02
83 07 9B 5B 5B 77 93 01 A3 61 02 FC 16 01 1A FF BA DE 62 B5 B3 71
4A AF DF B4 E0 93 15 E1 B7 7A 02 7A 03 B4 BB B9 31 4A 79 E1 B9 7A
02 B8 E2 62 E3 04 1C 5B 79 7A 03 7A 04 32 02 23 7B 03 7A 01 32 02
23 7B 02 60 03 19 0F
)
PROGRAM-ERROR "exit clause in ~S must be a list"
"Exitclause in ~S muß Liste sein."
"La clause de sortie dans ~S doit être une liste." LANGUAGE DECLARE BLOCK
TAGBODY IF GO RETURN-FROM PROGN
) )
#Y(#:TOP-LEVEL-FORM-19 #11Y(00 00 00 00 00 01 D8 30 57 19 01) DO)
#Y(#:TOP-LEVEL-FORM-20
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DO
REMOVE-OLD-DEFINITIONS MACRO
#Y(DO
#44Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 17 9D 5B 77 9E 5B 5B 77
9F 5B 5B 78 AC AC AC B1 DA DB DC 2C 07 05 19 06 AC 2E 01 19 03
)
3. MACRO-CALL-ERROR DO LET PSETQ DO/DO*-EXPAND
) )
#Y(#:TOP-LEVEL-FORM-21
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DO*
REMOVE-OLD-DEFINITIONS MACRO
#Y(DO*
#44Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 17 9D 5B 77 9E 5B 5B 77
9F 5B 5B 78 AC AC AC B1 DA DB DC 2C 07 05 19 06 AC 2E 01 19 03
)
3. MACRO-CALL-ERROR DO* LET* SETQ DO/DO*-EXPAND
) )
#Y(#:TOP-LEVEL-FORM-22
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DOLIST
REMOVE-OLD-DEFINITIONS MACRO
#Y(DOLIST
#117Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 5C 9D 5B 5A 77 9E
5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 62 41 02 37 01
71 90 DA AB B1 DB AE 7A 02 7A 03 B2 C7 79 7A 02 DD AD 7A 02 B1 8B
61 2E DE B4 CA 79 7A 01 E0 E1 B7 7A 02 A3 7B 02 B4 60 04 14 7A 02
E0 E2 AF 7A 02 A1 7B 02 E3 B5 E4 B1 7A 02 7A 03 A2 61 05 19 0A AC
2E 01 19 03 A2 1A 60
)
2. MACRO-CALL-ERROR DO* CDR (NIL) ENDP LET (NIL) DECLARE IGNORABLE LIST
SETQ CAR
) )
#Y(#:TOP-LEVEL-FORM-23 #11Y(00 00 00 00 00 01 D8 30 57 19 01) DOTIMES)
#Y(#:TOP-LEVEL-FORM-24
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DOTIMES
REMOVE-OLD-DEFINITIONS MACRO
#Y(DOTIMES
#124Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 4A 9D 5B 5A 77 9E
5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 62 41 02 92 00
06 DA 9C 79 60 01 F6 AE 8B 61 29 37 01 71 90 DB B1 DC DD B4 7A 02
7A 03 AC B2 7A 02 7A 02 DE B3 AE 7A 03 B1 7A 02 AE B0 32 02 23 61
03 19 0A AC 2E 01 19 03 DB B0 DC DD B3 7A 02 7A 03 7A 01 DE B2 B2
7A 03 B0 7A 02 AD AF 32 02 23 61 03 19 09
)
2. MACRO-CALL-ERROR DECLARE DO 0. 1+ >=
) )
#Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PSETQ MACRO
#Y(PSETQ
#73Y(00 01 00 01 00 08 94 02 01 02 AC 92 00 21 9B 5B 1C 2B 37 01 71 90 DE
93 02 AC 7A 03 83 03 AA 9D 5B 77 7A 02 83 02 16 01 9B 5B 5B F6 91 00
5F 62 83 02 DF AC 71 4A AE 31 4A 5C 5C 19 07 D8 D9 DA DB 6D 03 04 DD
B3 32 02 1F
)
PROGRAM-ERROR "~S called with an odd number of arguments: ~S"
"~S mit einer ungeraden Anzahl von Argumenten aufgerufen: ~S"
"~S fut appellé avec un nombre impair d'arguments : ~S" LANGUAGE PSETQ
SETQ LET
) )
#Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
MULTIPLE-VALUE-LIST MACRO
#Y(MULTIPLE-VALUE-LIST
#29Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 0A 9D 5B 77 DA DB AC 60 03 19
04 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR MULTIPLE-VALUE-CALL #'LIST
) )
#Y(#:TOP-LEVEL-FORM-27 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
MULTIPLE-VALUE-BIND MACRO
#Y(MULTIPLE-VALUE-BIND
#76Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 14 9D 5B 77 9E 5B 5B 77 9F 5B
5B 78 37 01 71 90 62 AE 62 1A 13 AC 2E 01 19 03 86 01 00 14 DA AF 7A
02 7A 02 83 02 82 01 AB 8C 96 6E 16 02 DB AC DC B0 7A 02 7A 02 AC 31
4A 79 9F 61 02 19 08
)
3. MACRO-CALL-ERROR POP LET* MULTIPLE-VALUE-LIST
) )
#Y(#:TOP-LEVEL-FORM-28 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
MULTIPLE-VALUE-SETQ MACRO
#Y(MULTIPLE-VALUE-SETQ
#82Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 10 9D 5B 77 9E 5B 5B 77 37 01
71 90 62 AD 62 1A 1B AC 2E 01 19 03 DE AD 31 4A 5C 1A 23 86 01 00 DA
AB DB B0 7A 02 7A 03 83 02 82 01 AB 8C 96 6D 16 02 DC AC DD AF 7A 02
7A 02 7A 01 91 02 57 00 14 60 03 19 07
)
3. MACRO-CALL-ERROR SETQ POP LET* MULTIPLE-VALUE-LIST PROG1
) )
#Y(#:TOP-LEVEL-FORM-29 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) LOCALLY
MACRO #Y(LOCALLY #15Y(00 01 00 01 00 08 94 02 D8 62 9D 61 02 19 04) LET)
)
#Y(#:TOP-LEVEL-FORM-30
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) CASE
REMOVE-OLD-DEFINITIONS MACRO
#Y(CASE
#133Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 43 9D 5B 77 9E 5B 78 37
01 71 90 DA AB AE 7A 02 7A 01 DB 62 AF 9B 1F 80 52 93 00 94 01 9C
1F 29 93 01 AA 02 21 3A AA 23 0A 36 AA 8D 0D 38 E8 B3 D2 14 AD 7A
02 60 03 14 9E 5B 5C 16 02 F6 83 01 82 00 1A 51 AC 2E 01 19 03 DC
DD DE DF 6D 03 08 E1 32 01 1F DC E3 E4 E5 6D 03 08 E1 AD 32 02 1F
91 01 71 02 1A 51 E6 B3 D2 1A 46 16 01 AA 30 A7 16 01 79 60 03 19
06
)
2. MACRO-CALL-ERROR LET COND PROGRAM-ERROR "~S: missing key list"
"~S: Keylist fehlt." "~S : la liste d'objects-clé manque." LANGUAGE CASE
OTHERWISE "~S: the ~S clause must be the last one"
"~S: Die ~S-Klausel muß die letzte sein."
"~S : La clause ~S doit être la dernière." MEMBER QUOTE EQL
) )
#Y(#:TOP-LEVEL-FORM-31
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PROG
REMOVE-OLD-DEFINITIONS MACRO
#Y(PROG
#62Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 78 AA
62 AF 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB 62 DC B0 AE DD A2 79
7A 01 32 02 23 7B 02 60 03 19 07 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR DECLARE BLOCK LET TAGBODY
) )
#Y(#:TOP-LEVEL-FORM-32
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) PROG*
REMOVE-OLD-DEFINITIONS MACRO
#Y(PROG*
#62Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 78 AA
62 AF 30 62 41 02 92 00 06 DA 9C 79 60 01 F6 DB 62 DC B0 AE DD A2 79
7A 01 32 02 23 7B 02 60 03 19 07 AC 2E 01 19 03
)
2. MACRO-CALL-ERROR DECLARE BLOCK LET* TAGBODY
) )
#Y(#:TOP-LEVEL-FORM-33 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) COND MACRO
#Y(COND
#33Y(00 01 00 01 00 08 94 02 37 01 71 90 AB AB 2F 00 41 02 91 00 03 9C 19
07 D9 AD 7A 01 AD 60 03 19 07
)
IFIFY LET
) )
#Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
IFIFY REMOVE-OLD-DEFINITIONS
#Y(IFIFY
#181Y(00 02 00 00 00 03 91 02 13 01 02 3F 02 19 03 D8 D9 DA DB 6D 03 04
9F 1A 14 92 02 6D 9D 1F 70 9D 5A 20 80 58 D8 DD DE DF 6D 03 04 9F
5A 14 32 01 1F E0 A0 5A 5B 5C 1A 3D 9F 5A 5B 5B 1B 73 9F 5A 5B 5A
1A 31 9F 5A 77 8B 5E 6E 9C 1A 80 51 E0 A2 5A 5B 5C 1A 80 45 9F 5A
77 8B 61 68 E1 A0 5A 77 A1 5A 5B 5B 1B 68 A1 5A 5B 5A 1A 2F 9F 5A
77 8C 5E 07 9F 5A 5A 14 00 1A 37 9C 1A 23 94 02 AC 27 FF 97 41 02
9F 5A 5B 1B 4D 9F 5A 77 8B 61 5D 9F 5A 5A 20 0F E1 A0 5A 77 A1 5A
5A 14 AE 60 04 14 9C 1A 0D E1 E2 AF A2 5A 77 7A 03 AF AE 7A 04 02
14 3F 02 19 05
)
PROGRAM-ERROR "Not a list of COND clauses: ~S"
"Das ist keine Liste von COND-Klauseln: ~S"
"Ceci n'est pas une liste de clauses COND : ~S" LANGUAGE
"The atom ~S must not be used as a COND clause."
"Das ist ein Atom und daher nicht als COND-Klausel verwendbar: ~S"
"Ceci est une atome et n'est donc pas utilisable comme clause COND : ~S"
PROGN IF SETQ
) )
#Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAPCAP REMOVE-OLD-DEFINITIONS
#Y(MAPCAP
#60Y(00 01 00 00 01 17 62 AD 62 AE 1A 22 16 01 AA 30 A7 16 01 76 00 71 49
AB 81 02 24 00 1A 69 93 00 93 00 82 01 AC AC 30 AC 69 00 83 01 82 00
9B 1F 5B 9B 5A 20 69 16 03 AA 30 A7 19 04
) ) )
#Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAPLAP REMOVE-OLD-DEFINITIONS
#Y(MAPLAP
#56Y(00 01 00 00 01 17 62 AD 62 AE 1A 1E 16 01 AA 30 A7 16 01 76 00 71 49
AB 81 02 24 00 1A 69 93 00 AB 9D 5A 78 30 AC 83 01 82 00 9B 1F 5F 9B
5A 20 6D 16 03 AA 30 A7 19 04
) ) )