home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
defs2.fas
< prev
next >
Wrap
Text File
|
1996-06-17
|
15KB
|
284 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)
(NTH-VALUE FUNCTION-LAMBDA-EXPRESSION DEFPACKAGE DEFINE-SYMBOL-MACRO
PRINT-UNREADABLE-OBJECT DECLAIM DESTRUCTURING-BIND COMPLEMENT CONSTANTLY
WITH-STANDARD-IO-SYNTAX WITH-HASH-TABLE-ITERATOR
))
#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) NTH-VALUE
REMOVE-OLD-DEFINITIONS MACRO
#Y(NTH-VALUE
#115Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 1C 9D 5B 77 9E 5B 5B 77 AB
8E 0E 07 AB DA 8F 01 32 80 46 E2 AC E3 AD 7A 02 60 03 19 05 AC 2E
01 19 03 DC AB 60 02 19 05 AB DA 8F 01 2D 74 37 01 71 90 AA 7A 01
62 AE 1A 0E 37 01 71 90 AA 83 03 AA 83 02 16 01 85 00 AA 8E 92 6E
DD AD B0 DE DF A1 79 7A 02 B1 60 05 19 09 AB DB 8F 01 2F 49 E0 AB
CC 61 02 19 05
)
3. MACRO-CALL-ERROR 0. 127. PROG1 MULTIPLE-VALUE-BIND DECLARE IGNORE
PROGN (NIL) NTH MULTIPLE-VALUE-LIST
) )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FUNCTION-LAMBDA-EXPRESSION REMOVE-OLD-DEFINITIONS
#Y(FUNCTION-LAMBDA-EXPRESSION
#77Y(00 01 00 00 00 02 AB 8E 0B 04 AB 8D 1F 2A AB 8E 0C 2B D8 AC D9 31 2E
79 AC DA 71 2E AD DB 71 2E AE DC 71 2E AF DD 71 2E B0 DE 71 2E 72 05
00 AD DF 31 2E 14 3F 03 19 02 62 63 00 1A 76 E0 E1 AD E2 E3 E4 E5 E6
6D 03 0F E8 B2 32 06 1F
)
LAMBDA 1. 4. 5. 6. 7. 8. 0. TYPE-ERROR :DATUM :EXPECTED-TYPE FUNCTION
"~S: ~S is not a function" "~S: ~S ist keine Funktion."
"~S : ~S n'est pas une fonction." LANGUAGE FUNCTION-LAMBDA-EXPRESSION
) )
#Y(#:TOP-LEVEL-FORM-6
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFPACKAGE
REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFPACKAGE
#623Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 49 00 2A 01 9E 5B 5A 0B
00 00 9E 5B 78 AB 6C 02 01 67 02 00 C6 33 0B 02 00 9D 2A 01 01 06
DC 01 02 00 0B 09 00 14 B4 6C 05 01 B7 62 AB 8B 96 81 56 86 01 00
14 8D 0D 81 0D DF F0 F1 F2 6D 03 0B E4 67 13 00 CF 14 AF 32 04 1F
AC 2E 01 19 03 9B 5A 25 06 80 E0 DF E0 E1 E2 6D 03 0B E4 67 13 00
D0 1A 80 DE 91 0C 6E 7D 0C 1A 81 00 DF E6 E7 E8 6D 03 0B E4 67 13
00 D4 1A 80 C7 91 0B 6E 7D 0B 1A 80 E9 94 00 62 1A 0A 86 01 00 14
C6 73 83 0C 82 01 AB 8C 96 72 16 02 1A 80 D1 94 00 62 1A 0D 86 01
00 14 04 11 73 A0 73 83 0B 82 01 AB 8C 96 6F 16 02 1A 80 B6 9B 5B
77 C6 73 9C 5B 78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83 0B
82 01 AB 8C 96 6D 16 03 1A 80 93 94 00 62 1A 0A 86 01 00 14 C6 73
83 09 82 01 AB 8C 96 72 16 02 7C 06 1A 80 79 9B 5B 77 C6 73 9C 5B
78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83 08 82 01 AB 8C 96
6D 16 03 1A 80 56 94 00 62 1A 0D 86 01 00 14 04 11 73 A0 73 83 06
82 01 AB 8C 96 6F 16 02 1A 3C 94 00 62 1A 31 DF EA EB EC 6D 03 0B
E4 67 13 00 9F 5A 14 32 03 1F 93 00 8D 8D FF 03 DF ED EE EF 6D 03
0B E4 67 13 00 CF 1A FE EA 86 01 00 14 04 11 73 83 05 82 01 AB 8C
96 71 16 02 82 01 1A FE BB 64 21 64 1F 64 22 B6 72 00 17 7A 02 67
12 00 7A 03 60 01 1A 80 42 16 02 7E 02 0B 00 AA AC 32 00 19 16 01
B1 80 4A 07 B0 80 4A 06 AF 80 4A 05 91 03 03 AE 31 4A FA AC 80 4A
02 AB 80 4A 01 AA 80 4A 00 F3 F4 F5 67 10 00 64 1E 64 1F B7 7A 02
03 20 7B 04 91 09 FF A9 00 14 62 B4 1A 23 64 24 64 1F B5 7A 02 67
14 00 7A 03 60 01 1A 20 93 00 64 23 93 01 94 02 67 17 00 7A 04 83
02 16 01 82 00 9B 20 6A 16 01 AA 7F A7 00 91 09 51 00 14 62 B3 1A
13 93 00 64 25 93 01 94 02 67 19 00 7A 04 83 02 16 01 82 00 9B 20
6A 16 01 AA 7F A7 00 62 B3 1A 20 64 27 64 1F B4 7A 02 67 17 00 7A
03 60 01 1A 1D 93 00 64 26 AB 67 19 00 7A 03 83 02 16 01 82 00 9B
20 6D 16 01 AA 7F A7 00 91 08 54 00 14 64 28 67 17 00 7A 02 7A 01
32 07 23 61 03 19 11
)
2. MACRO-CALL-ERROR
#Y(LISP::DEFPACKAGE-CHECK-SYMNAME
#37Y(00 01 00 00 00 02 AB 8D 09 13 AB 8D 08 12 D9 DA DB DC 6D 03 05 DE
68 00 01 AF 32 03 1F 9C 19 02 AB 31 8C 19 02
)
NIL PROGRAM-ERROR
"~S ~A: symbol name ~S should be a string or a symbol"
"~S ~A: Symbol-Name muß ein String oder Symbol sein, nicht ~S."
"~S ~A : Le nom d'un symbole doit être une chaîne ou un symbole et non ~S."
LANGUAGE DEFPACKAGE
)
#Y(LISP::DEFPACKAGE-CHECK-PACKNAME
#34Y(00 01 00 00 00 02 AB 8D 09 10 AB 8D 08 0F D8 D9 DA DB 6D 03 04 DD
AE 32 02 1F 9C 19 02 AB 31 8C 19 02
)
PROGRAM-ERROR "~S: package name ~S should be a string or a symbol"
"~S: Package-Name muß ein String oder Symbol sein, nicht ~S."
"~S : Le nom d'un paquetage doit être une chaîne ou un symbole et non ~S."
LANGUAGE DEFPACKAGE
)
("LISP")
#Y(LISP::DEFPACKAGE-RECORD-SYMNAME
#42Y(00 01 00 00 00 02 AB 68 00 01 D9 37 02 8B B7 0B AB 07 00 01 5C 0C
00 01 9C 19 02 DA DB DC DD 6D 03 06 DF 68 01 01 AF 32 03 1F
)
NIL #.#'STRING= PROGRAM-ERROR
"~S ~A: the symbol ~A must not be specified more than once"
"~S ~A: Symbol ~A darf nur einmal aufgeführt werden."
"~S ~A : Le symbole ~A ne peut être mentionné qu'une seule fois."
LANGUAGE DEFPACKAGE
)
#S(HASH-TABLE EQ (:EXPORT . 221.) (:INTERN . 195.) (:IMPORT-FROM . 160.)
(:USE . 134.) (:SHADOWING-IMPORT-FROM . 99.) (:SHADOW . 72.)
(:NICKNAMES . 48.) (:DOCUMENTATION . 40.) (:SIZE . 17.)
)
PROGRAM-ERROR "~S ~A: the ~S option must not be given more than once"
"~S ~A: Die Option ~S darf nur einmal angegeben werden."
"~S ~A : L'option ~S ne doit apparaître qu'une seule fois." LANGUAGE
DEFPACKAGE :SIZE "~S ~A: the ~S option must not be given more than once"
"~S ~A: Die Option ~S darf nur einmal angegeben werden."
"~S ~A : L'option ~S ne doit apparaître qu'une seule fois."
:DOCUMENTATION "~S ~A: unknown option ~S"
"~S ~A: Die Option ~S gibt es nicht." "~S ~A : Option ~S non reconnue."
"~S ~A: invalid syntax in ~S option: ~S"
"~S ~A: Falsche Syntax in ~S-Option: ~S"
"~S ~A : Mauvaise syntaxe dans l'option ~S: ~S"
"~S ~A: not a ~S option: ~S" "~S ~A: Das ist keine ~S-Option: ~S"
"~S ~A : Ceci n'est pas une option ~S: ~S" EVAL-WHEN (LOAD COMPILE EVAL)
%IN-PACKAGE :NICKNAMES QUOTE (:USE 'NIL) SHADOW #.#'MAKE-SYMBOL
SHADOWING-IMPORT-CERROR USE-PACKAGE IMPORT-CERROR INTERN INTERN-EXPORT
FIND-PACKAGE
) )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FIND-SYMBOL-CERROR REMOVE-OLD-DEFINITIONS
#Y(FIND-SYMBOL-CERROR
#42Y(00 03 00 00 00 04 AD AD 30 D8 41 02 91 00 18 D8 D9 DA 6D 03 03 DC DD
DE 6D 03 03 DF B0 B2 B4 2C 06 08 AF AF 7F D7 01 9C 19 06
)
"This symbol will be created." "Dieses Symbol wird erzeugt."
"Ce symbole sera créé." LANGUAGE "~S ~A: There is no symbol ~A::~A ."
"~S ~A: Es gibt kein Symbol ~A::~A ."
"~S ~A : Il n'y a pas de symbole ~A::~A ." DEFPACKAGE CERROR
) )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SHADOWING-IMPORT-CERROR REMOVE-OLD-DEFINITIONS
#Y(SHADOWING-IMPORT-CERROR
#17Y(00 03 00 00 00 04 AD AD AD 6D 03 00 AC 30 DD 19 04)
FIND-SYMBOL-CERROR
) )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
IMPORT-CERROR REMOVE-OLD-DEFINITIONS
#Y(IMPORT-CERROR #17Y(00 03 00 00 00 04 AD AD AD 6D 03 00 AC 30 DC 19 04)
FIND-SYMBOL-CERROR
) )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INTERN-EXPORT REMOVE-OLD-DEFINITIONS
#Y(INTERN-EXPORT
#36Y(00 02 00 00 00 03 62 AD 1A 0C 93 00 AA AF 70 D7 83 02 16 01 82 00 9B
20 71 16 01 AA 7F A7 00 AC 30 DA 19 03
) ) )
#Y(#:TOP-LEVEL-FORM-11
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
DEFINE-SYMBOL-MACRO REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFINE-SYMBOL-MACRO
#84Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 35 9D 5B 77 9E 5B 5B 77 AB 8E
08 2F E0 62 E1 E2 E3 E4 B1 7A 02 7A 02 E5 E4 B2 7A 02 7A 02 E6 E4 B3
7A 02 E7 E4 B4 7A 02 7A 02 7A 03 7A 05 E4 AF 7A 02 60 04 19 05 AC 2E
01 19 03 DA DB DC DD 6D 03 06 DF AE 32 02 1F
)
3. MACRO-CALL-ERROR PROGRAM-ERROR
"~S: the name of a symbol macro must be a symbol, not ~S"
"~S: Der Name eines Symbol-Macros muß ein Symbol sein, nicht: ~S"
"~S : Le nom d'un macro symbole doit être un symbole et non ~S" LANGUAGE
DEFINE-SYMBOL-MACRO LET EVAL-WHEN (COMPILE LOAD EVAL)
CHECK-NOT-SPECIAL-VARIABLE-P QUOTE MAKUNBOUND SET MAKE-SYMBOL-MACRO
) )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CHECK-NOT-SPECIAL-VARIABLE-P REMOVE-OLD-DEFINITIONS
#Y(CHECK-NOT-SPECIAL-VARIABLE-P
#25Y(00 01 00 00 00 02 AB 8D 8F 03 00 19 02 D8 D9 DA DB 6D 03 04 DD AE 32
02 1F
)
ERROR "~S: the symbol ~S names a global variable"
"~S: Das Symbol ~S benennt eine globale Variable."
"~S : Le symbole ~S est le nom d'une variable globale." LANGUAGE
DEFINE-SYMBOL-MACRO
) )
#Y(#:TOP-LEVEL-FORM-13
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
PRINT-UNREADABLE-OBJECT REMOVE-OLD-DEFINITIONS MACRO
#Y(PRINT-UNREADABLE-OBJECT
#55Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 1A 9D 5B 77 9E 5B 5A 5B 78 9F
5B 78 AB DA 30 63 DB 91 01 0C 00 14 9F 61 02 19 06 AC 2E 01 19 03 DC
DD 62 9F 7B 02 60 02 1A 6B
)
2. MACRO-CALL-ERROR (:IDENTITY :TYPE) WRITE-UNREADABLE FUNCTION LAMBDA
) )
#Y(#:TOP-LEVEL-FORM-14
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DECLAIM
REMOVE-OLD-DEFINITIONS MACRO
#Y(DECLAIM
#41Y(00 01 00 01 00 08 94 02 D8 62 AC 1A 0F 93 00 D9 DA AC 7A 02 7A 02 83
02 16 01 82 00 9B 20 6E 16 01 AA 30 A7 16 01 5C 19 04
)
PROGN PROCLAIM QUOTE
) )
#Y(#:TOP-LEVEL-FORM-15
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
DESTRUCTURING-BIND REMOVE-OLD-DEFINITIONS MACRO
#Y(DESTRUCTURING-BIND
#139Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 72 9D 5B 77 9E 5B
5B 77 9F 5B 5B 78 AA 62 B0 30 62 41 02 92 00 06 DA 9C 79 60 01 F6
C6 10 04 C6 10 05 00 10 06 00 10 07 00 10 08 00 10 09 C0 E2 E3 E2
2C 04 0C E2 DB 6F 0D E6 6A 07 71 4A BF 6A 08 71 4A C2 32 03 23 7B
02 92 01 16 E7 AC E8 E2 E9 6A 05 0E 06 1B 21 0E 04 79 7A 02 7A 03
AD 60 04 F6 EA E2 65 19 7A 02 7A 01 AC 60 03 16 02 12 06 19 08 AC
2E 01 19 03 00 1A 5E
)
3. MACRO-CALL-ERROR DECLARE 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST
%KEYWORD-TESTS %DEFAULT-FORM <DESTRUCTURING-FORM> DESTRUCTURING-BIND
ANALYZE1 MAKE-LENGTH-TEST LET* IF DESTRUCTURING-ERROR QUOTE LET
) )
#Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DESTRUCTURING-ERROR REMOVE-OLD-DEFINITIONS
#Y(DESTRUCTURING-ERROR
#28Y(00 02 00 00 00 03 93 01 94 02 D8 D9 DA DB 6D 03 04 AC AE AE 71 03 AF
AF B4 32 05 1F
)
ERROR
"The object to be destructured should be a list with ~:[at least ~*~S~;~:[from ~S to ~S~;~S~]~] elements, not ~4@*~S."
"Das zu zerlegende Objekt sollte eine Liste mit ~:[mindestens ~*~S~;~:[~S bis ~S~;~S~]~] Elementen sein, nicht ~4@*~S."
"L'objet à démonter devrait être une liste ~:[d'au moins ~*~S~;de ~:[~S à ~S~;~S~]~] éléments et non ~4@*~S."
LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPLEMENT REMOVE-OLD-DEFINITIONS
#Y(COMPLEMENT #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
#Y(LISP::COMPLEMENT-1 #15Y(00 00 00 00 01 16 68 00 01 9D 36 00 58 19 02)
NIL
) ) )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CONSTANTLY REMOVE-OLD-DEFINITIONS
#Y(CONSTANTLY #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
#Y(LISP::CONSTANTLY-1 #11Y(00 00 00 00 01 16 07 00 01 19 02) NIL)
) )
#Y(#:TOP-LEVEL-FORM-19
#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
D9 AB 31 83 C4 19 02
)
#1="COMMON-LISP-USER" *COMMON-LISP-USER-PACKAGE*
(DEFCONSTANT *COMMON-LISP-USER-PACKAGE* (FIND-PACKAGE #1#)) CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-20
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
WITH-STANDARD-IO-SYNTAX REMOVE-OLD-DEFINITIONS MACRO
#Y(WITH-STANDARD-IO-SYNTAX
#39Y(00 01 00 01 00 08 3C 01 94 02 AA 62 AE 30 62 41 02 D8 D9 91 02 0A 00
14 AE 32 02 23 61 02 19 06 DA 9E 79 60 01 1A 70
)
LET
((*PACKAGE* *COMMON-LISP-USER-PACKAGE*) (*PRINT-ARRAY* T)
(*PRINT-BASE* 10.) (*PRINT-CASE* ':UPCASE) (*PRINT-CIRCLE* NIL)
(*PRINT-ESCAPE* T) (*PRINT-GENSYM* T) (*PRINT-LENGTH* NIL)
(*PRINT-LEVEL* NIL) (*PRINT-PRETTY* NIL) (*PRINT-RADIX* NIL)
(*PRINT-READABLY* T) (*PRINT-CLOSURE* NIL) (*PRINT-RPARS* T)
(*PRINT-INDENT-LISTS* 2.) (*PRIN-STREAM* NIL) (*PRIN-LINELENGTH* 79.)
(*READ-BASE* 10.) (*READ-DEFAULT-FLOAT-FORMAT* 'SINGLE-FLOAT)
(*READ-SUPPRESS* NIL) (*READTABLE* (COPY-READTABLE NIL))
)
DECLARE
) )
#Y(#:TOP-LEVEL-FORM-21
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
WITH-HASH-TABLE-ITERATOR REMOVE-OLD-DEFINITIONS MACRO
#Y(WITH-HASH-TABLE-ITERATOR
#81Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 33 9D 5B 5A 77 9E 5B 5A 5B 77
9F 5B 78 AC 8E 08 28 37 01 71 90 DF AB E0 AF 7A 02 7A 02 7A 01 E1 B0
62 E2 E3 B1 7A 02 7A 02 7A 03 7A 01 A0 7B 02 60 03 19 07 AC 2E 01 19
03 DA DB DC 6D 03 05 DE AE 32 02 1E
)
2. MACRO-CALL-ERROR "~S: macro name should be a symbol, not ~S"
"~S: Macroname muß ein Symbol sein, nicht ~S"
"~S : le nom de macro n'est pas un symbole: ~S" LANGUAGE
WITH-HASH-TABLE-ITERATOR LET HASH-TABLE-ITERATOR MACROLET QUOTE
HASH-TABLE-ITERATE
) )
#Y(#:TOP-LEVEL-FORM-22
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) LAMBDA
REMOVE-OLD-DEFINITIONS MACRO
#Y(LAMBDA
#25Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 06 DA AD 60 02 19 03 AC 2E 01
19 03
)
2. MACRO-CALL-ERROR FUNCTION
) )