home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
init.fas
< prev
next >
Wrap
Text File
|
1996-06-17
|
52KB
|
954 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 #14Y(00 00 00 00 00 01 D8 D9 70 CF 30 DE 19 01)
SYSTEM::DEBUG "SYSTEM"
)
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
LOGICAL-PATHNAME LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE
RATIO RATIONAL READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY
SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR
STREAM FILE-STREAM SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM
TWO-WAY-STREAM ECHO-STREAM STRING-STREAM STRING STRING-CHAR SYMBOL T
VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE LAMBDA-LIST-KEYWORDS
LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT
PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND
BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2
BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM
MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT
LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON
LONG-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT CHAR-FONT-LIMIT
CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT CHAR-SUPER-BIT
CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
*GENSYM-COUNTER* *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK*
+ ++ +++ - * ** *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT*
*ERROR-OUTPUT* *QUERY-IO* *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT*
*READ-BASE* *READ-SUPPRESS* *READTABLE* *PRINT-READABLY* *PRINT-ESCAPE*
*PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE*
*PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-ARRAY*
*READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS* *LOAD-PATHS*
*LOAD-VERBOSE* *LOAD-PRINT* *LOAD-ECHO* *LOAD-PATHNAME* *LOAD-TRUENAME*
*BREAK-ON-WARNINGS* *COMPILE-WARNINGS* *COMPILE-VERBOSE* *COMPILE-PRINT*
*COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* *FEATURES* COERCE TYPE-OF
UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL SYMBOLP ATOM CONSP LISTP
NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP CHARACTERP STRINGP
BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P SIMPLE-BIT-VECTOR-P
ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP EQ EQL EQUAL EQUALP
NOT SYMBOL-VALUE SYMBOL-FUNCTION FDEFINITION BOUNDP FBOUNDP SPECIAL-FORM-P
SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE
APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL MAPCAN MAPCON VALUES VALUES-LIST
MACRO-FUNCTION MACROEXPAND MACROEXPAND-1 PROCLAIM GET REMPROP SYMBOL-PLIST
GETF GET-PROPERTIES SYMBOL-NAME MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP
SYMBOL-PACKAGE KEYWORDP MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE PACKAGE-NAME
PACKAGE-NICKNAMES RENAME-PACKAGE PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES DELETE-PACKAGE INTERN
FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW
USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE REQUIRE ZEROP PLUSP
MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1- CONJUGATE GCD LCM
EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN
SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE NUMERATOR
DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING FTRUNCATE
FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS
FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR
LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2
BOOLE LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P
DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP
CHAR-NOT-LESSP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
CHAR-BIT SET-CHAR-BIT COMPLEMENT ELT SUBSEQ COPY-SEQ LENGTH REVERSE
NREVERSE MAKE-SEQUENCE CONCATENATE MAP MAP-INTO SOME EVERY NOTANY NOTEVERY
REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE DELETE-IF
DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE SUBSTITUTE-IF
SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND
FIND-IF FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF
COUNT-IF-NOT MISMATCH SEARCH SORT STABLE-SORT MERGE CAR CDR CAAR CADR CDAR
CDDR CAAAR CAADR CADAR CADDR CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR
CAADDR CADAAR CADADR CADDAR CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR
CDDADR CDDDAR CDDDDR CONS TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND
THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST
LIST* MAKE-LIST APPEND COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC
NRECONC BUTLAST NBUTLAST LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT
NSUBST NSUBST-IF NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF
MEMBER-IF-NOT TAILP ADJOIN UNION NUNION INTERSECTION NINTERSECTION
SET-DIFFERENCE NSET-DIFFERENCE SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP
ACONS PAIRLIS ASSOC ASSOC-IF ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT
MAKE-HASH-TABLE HASH-TABLE-P GETHASH REMHASH MAPHASH CLRHASH
HASH-TABLE-COUNT HASH-TABLE-REHASH-SIZE HASH-TABLE-REHASH-THRESHOLD
HASH-TABLE-SIZE HASH-TABLE-TEST SXHASH MAKE-ARRAY VECTOR AREF SVREF
ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION ARRAY-DIMENSIONS
ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX ROW-MAJOR-AREF
ADJUSTABLE-ARRAY-P BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV BIT-NAND
BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT
ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND
VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING>
STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP
STRING-NOT-GREATERP STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING
STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE
STRING-DOWNCASE STRING-CAPITALIZE NSTRING-UPCASE NSTRING-DOWNCASE
NSTRING-CAPITALIZE STRING EVAL EVALHOOK APPLYHOOK CONSTANTP
MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM
MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM
MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING STREAMP OPEN-STREAM-P
INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE CLOSE
BROADCAST-STREAM-STREAMS CONCATENATED-STREAM-STREAMS
ECHO-STREAM-INPUT-STREAM ECHO-STREAM-OUTPUT-STREAM SYNONYM-STREAM-SYMBOL
TWO-WAY-STREAM-INPUT-STREAM TWO-WAY-STREAM-OUTPUT-STREAM
INTERACTIVE-STREAM-P COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READTABLE-CASE
READ READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT
READ-FROM-STRING PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC
WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING
WRITE-LINE TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT
WRITE-BYTE FORMAT Y-OR-N-P YES-OR-NO-P WILD-PATHNAME-P PATHNAME-MATCH-P
TRANSLATE-PATHNAME LOGICAL-PATHNAME TRANSLATE-LOGICAL-PATHNAME
LOGICAL-PATHNAME-TRANSLATIONS LOAD-LOGICAL-PATHNAME-TRANSLATIONS
COMPILE-FILE-PATHNAME PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES
MAKE-PATHNAME PATHNAMEP PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING
DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING
USER-HOMEDIR-PATHNAME OPEN RENAME-FILE DELETE-FILE PROBE-FILE
FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH LOAD DIRECTORY ERROR
CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE DOCUMENTATION VARIABLE
STRUCTURE TYPE DESCRIBE INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
SHORT-SITE-NAME LONG-SITE-NAME IDENTITY EVAL-WHEN QUOTE FUNCTION SETQ
PROGN LET LET* LOCALLY COMPILER-LET PROGV FLET LABELS MACROLET
SYMBOL-MACROLET IF BLOCK RETURN-FROM TAGBODY GO MULTIPLE-VALUE-CALL
MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT THROW DECLARE THE
LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER DEFCONSTANT AND OR PSETQ
SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO DEFSETF DEFINE-SETF-METHOD
PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE OTHERWISE RETURN LOOP DO DO*
DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-BIND
MULTIPLE-VALUE-SETQ DEFMACRO REMF DO-SYMBOLS DO-EXTERNAL-SYMBOLS
DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP DEFSTRUCT WITH-OPEN-STREAM
WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING WITH-STANDARD-IO-SYNTAX
WITH-OPEN-FILE CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE
UNTRACE STEP TIME FORMATTER ENGLISH DEUTSCH FRANCAIS EVAL LOAD COMPILE
SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE IGNORABLE OPTIMIZE
SPEED SPACE SAFETY COMPILATION-SPEED DEBUG DECLARATION DYNAMIC-EXTENT
COMPILE INTERPRETER COMPILER
))
#Y(#:TOP-LEVEL-FORM-4 #12Y(00 00 00 00 00 01 D8 D9 31 83 19 01)
LAMBDA-LIST-KEYWORDS
(&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
)
#Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
#.LAMBDA-LIST-KEYWORDS
)
#Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01) EXIT
#.#'SYSTEM::%EXIT
)
#Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01) QUIT
#.#'SYSTEM::%EXIT
)
#Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01) BYE
#.#'SYSTEM::%EXIT
)
#Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(EXIT QUIT BYE)
)
#Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
THE-ENVIRONMENT
)
#Y(#:TOP-LEVEL-FORM-11 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
(SPECIAL *FEATURES*)
)
#Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 6A 00 37 01 30 DC 19 01)
*FEATURES*
)
#Y(#:TOP-LEVEL-FORM-13 #14Y(00 00 00 00 00 01 6A 00 37 01 30 DA 19 01)
*FEATURES*
)
#Y(#:TOP-LEVEL-FORM-14 #14Y(00 00 00 00 00 01 D8 D9 37 01 30 E3 19 01) "SYSTEM"
("SYS" "COMPILER")
)
#Y(#:TOP-LEVEL-FORM-15 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
(SPECIAL *COMPILING*)
)
#Y(#:TOP-LEVEL-FORM-16 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *COMPILING*)
#Y(#:TOP-LEVEL-FORM-17 #14Y(00 00 00 00 00 01 D8 37 01 D9 30 E3 19 01) "CLOS"
("LISP")
)
#Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS
WITH-ACCESSORS FIND-CLASS CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD
NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION GENERIC-FLET GENERIC-LABELS
CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD
FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS
METHOD-QUALIFIERS FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT
DESCRIBE-OBJECT MAKE-INSTANCE INITIALIZE-INSTANCE REINITIALIZE-INSTANCE
SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS BUILT-IN-CLASS
STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD
))
#Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(HANDLER-BIND FIND-RESTART COMPUTE-RESTARTS INVOKE-RESTART-INTERACTIVELY
RESTART CONTINUE END-OF-FILE CONDITION WARNING SERIOUS-CONDITION ERROR
STORAGE-CONDITION TYPE-ERROR PROGRAM-ERROR CONTROL-ERROR PACKAGE-ERROR
PRINT-NOT-READABLE STREAM-ERROR END-OF-FILE FILE-ERROR CELL-ERROR
UNBOUND-VARIABLE UNDEFINED-FUNCTION ARITHMETIC-ERROR DIVISION-BY-ZERO
FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW
))
#Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-22 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
(SPECIAL *MSG-LIST*)
)
#Y(#:TOP-LEVEL-FORM-23 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *MSG-LIST*)
#Y(#:TOP-LEVEL-FORM-24
#23Y(00 00 00 00 00 01 D8 C4 79 DA AB 31 82 DB AB 31 82 DC AB 31 82 19 02)
MACRO
#Y(#:TOP-LEVEL-FORM-24-1
#33Y(00 02 00 00 00 03 D8 9E 36 00 D9 AD DA 37 01 71 85 AE DB 37 01 71 85
AF DC 37 01 71 85 60 04 19 03
)
#Y(#:TOP-LEVEL-FORM-24-1-1 #13Y(00 00 00 00 C0 1B 00 00 00 00 00 19 01))
LANGUAGE ENGLISH DEUTSCH FRANCAIS
)
ENGLISH DEUTSCH FRANCAIS
)
#Y(#:TOP-LEVEL-FORM-25 #15Y(00 00 00 00 00 01 D8 D9 DA 37 01 30 76 19 01) #\#
#\L
#Y(#:TOP-LEVEL-FORM-25-1
#153Y(00 03 00 00 00 04 00 2A 01 7E 04 00 00 AA 6C 00 01 AB 6C 01 01 01
03 AF 6C 02 01 A0 33 DB 9F 73 1A 0A 9B FA 1A 2A 9B F9 1A 26 16 01
DC A0 33 67 06 00 37 03 30 7C DC A0 73 AB DD 37 04 8B 38 62 AB DE
37 04 8B 38 5F AB DF 37 04 8C 38 02 9B F8 B1 6C 08 01 A2 33 E1 A1
33 F7 62 67 08 00 37 03 70 7E 24 0A 45 67 07 00 37 03 30 7C 16 02
0E 0B 1C 1F 14 37 01 70 ED E4 72 02 13 6A 0B 6E 0D E6 A0 79 E7 A0
79 E8 A0 79 7A 03 7A 03 0E 11 5C 0F 11 EA AC AE AD 60 04 19 0A
)
#Y(SKIP-UNTIL
#29Y(00 01 00 00 00 02 62 68 00 01 37 03 7F 7C 00 AC AB 35 01 1C 72 AA
68 00 01 30 7D 19 03
)
NIL
)
#Y(READ-STRING
#48Y(00 01 00 00 00 02 D9 01 02 1A 0A AC AC 70 4E 81 02 13 02 9C F6 68
00 01 37 03 7F 7C 01 14 AF C5 33 1C 68 AA 23 03 64 AB 68 00 01 30
7D 9D 19 05
)
NIL ""
#1=#Y(MATCH-P
#61Y(00 02 00 00 00 03 AB 24 00 0A AC C4 59 1D 2C AC C5 59 1D 27
AB 24 03 0F AC C4 59 1D 1E AC C5 59 1D 19 AC C7 59 1D 14 AB
24 05 0A AC 30 20 1D 0B AC C7 59 1D 06 AC AC 31 03 19 03 19
03
)
:WHITE #\Space #\Newline :WHITE-OR-END #\} :ALPHA-OR-END
)
#\\
)
#Y(#:TOP-LEVEL-FORM-25-1-1 #12Y(00 01 00 00 00 02 AB D9 C5 33 19 02) NIL
:ALPHA-OR-END #1#
)
:WHITE #\" "DEUTSCH" "ENGLISH" "FRANCAIS"
#Y(#:TOP-LEVEL-FORM-25-1-2 #12Y(00 01 00 00 00 02 AB D9 C5 33 19 02) NIL
:ALPHA-OR-END #1#
)
:WHITE-OR-END #\} *LOAD-INPUT-STREAM* ".lsp" LINE-NUMBER DEUTSCH ENGLISH
FRANCAIS *MSG-LIST* LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
EXPORTED-LISP-SYMBOL-P
#Y(EXPORTED-LISP-SYMBOL-P
#73Y(00 01 00 00 00 02 AB 71 8C D8 70 CF 91 00 23 16 01 1D 34 DA 70 CF 9B
1E 2C AB AB 30 D8 41 02 AB A1 59 1E 1F AA C4 59 19 06 AA C4 59 16 03
1D 17 1A 61 AB AB 30 D8 41 02 AB A1 59 1B 6C 16 03 1D 06 1A 50 19 06
19 04 19 03
)
"LISP" :EXTERNAL "COMMON-LISP"
) )
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
REMOVE-OLD-DEFINITIONS
#Y(REMOVE-OLD-DEFINITIONS
#112Y(00 01 00 00 00 02 AB 8B 54 80 4C AB 8B 53 04 AB 8C 5A 1A AB 88 05
16 DE DF E0 6D 03 04 E1 E2 E3 6D 03 04 AD 6E 0C AE AF 70 5A 2C 05
0D AB 30 57 AB E6 31 89 AB E7 37 01 8E 84 06 AB E8 62 2C 03 11 AB
EA 37 01 8E 84 05 AB EA 63 31 88 AB EB 37 01 8D 84 0E 00 19 02 D8
D9 DA DB 6D 03 04 AD 32 01 1F EC ED EE 6D 03 04 AC 2F 17 AB 2E 18
19 02
)
ERROR "~S is a special form and may not be redefined."
"~S ist eine Special-Form und darf nicht umdefiniert werden."
"~S est une forme spéciale et ne peut pas être redéfinie." LANGUAGE
EXPORTED-LISP-SYMBOL-P "The old definition will be lost"
"Die alte Definition wird weggeworfen."
"L'ancienne définition sera perdue." "Redefining the COMMON LISP ~A ~S"
"D~2@*~:[ie~;er~]~0@* COMMON-LISP-~A ~S wird umdefiniert."
"L~2@*~:[a~;e~]~0@* ~A ~S de COMMON-LISP va être redéfini~:[e~;~]."
FBOUND-STRING CERROR MACRO DOCUMENTATION-STRINGS FUNCTION
%SET-DOCUMENTATION INLINE-EXPANSION TRACED-DEFINITION
"DEFUN/DEFMACRO: redefining ~S; it was traced!"
"DEFUN/DEFMACRO: ~S war getraced und wird umdefiniert!"
"DEFUN/DEFMACRO : ~S était tracée et est redéfinie!" WARN UNTRACE2
) )
#Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
%THE-ENVIRONMENT
#Y(%THE-ENVIRONMENT
#19Y(00 02 00 00 00 03 AB C3 5E 14 C4 5E 14 AC C3 5F 9C 19 03) 0. 2.
) )
#Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
%THE-ENVIRONMENT-ERROR
#Y(%THE-ENVIRONMENT-ERROR
#17Y(00 00 00 00 00 01 D8 D9 DA DB 6D 03 04 DD 32 01 1F) PROGRAM-ERROR
"~S is impossible in compiled code"
"~S ist in compiliertem Code unmöglich."
"~S est impossible dans du code compilé." LANGUAGE THE-ENVIRONMENT
) )
#Y(#:TOP-LEVEL-FORM-30 #14Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 19 01)
THE-ENVIRONMENT MACRO
#Y(THE-ENVIRONMENT #9Y(00 02 00 00 00 03 C3 19 03)
(PROGN (EVAL-WHEN ((NOT EVAL)) (%THE-ENVIRONMENT-ERROR))
(LET ((*EVALHOOK* #'%THE-ENVIRONMENT)) 0.)
) ))
#Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BLOCK-NAME REMOVE-OLD-DEFINITIONS
#Y(BLOCK-NAME #17Y(00 01 00 00 00 02 9C 1F 05 9C 5B 5A 19 02 9C 19 02))
)
#Y(#:TOP-LEVEL-FORM-32-1 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *KEYWORD-PACKAGE*)
)
#Y(#:TOP-LEVEL-FORM-32-2 #14Y(00 00 00 00 00 01 D8 30 CF 0F 01 3D 19 01)
"KEYWORD" *KEYWORD-PACKAGE*
)
#Y(#:TOP-LEVEL-FORM-32-3 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *FENV*)
)
#Y(#:TOP-LEVEL-FORM-32-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
FENV-ASSOC REMOVE-OLD-DEFINITIONS
#Y(FENV-ASSOC
#80Y(00 02 00 00 00 03 92 01 80 43 14 8D 26 0F DA DB AD DC DD DE DF E0 6D
03 09 B1 32 05 1F AB 71 48 71 98 D8 1A 15 AD AB 31 97 5E 19 05 AE AE
9D 5E 14 8D 04 71 D9 AB 81 02 35 00 AA AC 90 01 2D 6C AE AE 9D 5E 14
28 02 07 00 91 01 FF BD 02 19 03
)
0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
"~S is an invalid function environment"
"~S ist kein korrektes Function-Environment."
"~S n'est pas un environnement de fonctions correct." LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-32-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
#Y(GLOBAL-IN-FENV-P #14Y(00 02 00 00 00 03 AC AC 6F 00 02 59 19 03)
FENV-ASSOC
) )
#Y(#:TOP-LEVEL-FORM-32-6 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *VENV*)
)
#Y(#:TOP-LEVEL-FORM-32-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
VENV-ASSOC REMOVE-OLD-DEFINITIONS
#Y(VENV-ASSOC
#86Y(00 02 00 00 00 03 92 01 80 40 14 8D 26 0F DA DB AD DC DD DE DF E0 6D
03 09 B1 32 05 1F AB 71 48 71 98 D8 1A 13 AD AB 31 97 5E 19 05 AE AE
9D 5E 21 73 D9 AB 81 02 35 00 AA AC 90 01 2D 6E AE AE 9D 5E 14 28 02
07 00 91 01 40 AC 30 52 1E 05 AC 2E 0A 19 03 19 03
)
0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
"~S is an invalid variable environment"
"~S ist kein korrektes Variablen-Environment."
"~S n'est pas un environnement de variables correct." LANGUAGE
%SYMBOL-VALUE
) )
#Y(#:TOP-LEVEL-FORM-32-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-CONS REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-CONS
#25Y(00 05 00 00 00 06 91 03 0A 91 01 07 AF 00 14 3F 02 19 06 AE 9E 79 02
1A 75
) ) )
#Y(#:TOP-LEVEL-FORM-32-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-FORM REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-FORM
#1224Y(00 01 00 00 00 02 9C 20 84 3F 62 AC 8E 08 0A AC 6A 00 2F 01 F6 14
87 02 07 AC 00 14 3F 02 19 03 AA DB 71 2E 02 1A 74 9C 25 07 84 08
97 08 44 AE 05 00 03 77 62 CB 1A 82 56 AD 00 1A 84 4C E4 E5 E6 E7
6D 03 10 D4 1A 80 57 9B 1F 05 93 00 23 0B 6D EA EB EC ED 6D 03 10
D4 1A 84 3F 05 00 03 5B 77 6A 05 6F 06 AA 02 21 07 AA 8D 0C 03 91
00 59 05 00 03 78 62 3F 02 16 01 1A 83 F4 97 08 44 AE E2 62 05 00
03 5B 5B 20 3C 05 00 03 5B 77 87 04 4B 05 00 03 5B 5A 20 14 E4 EE
EF F0 6D 03 10 D4 14 66 00 03 05 00 03 5B 77 32 03 1F 97 08 44 05
01 03 78 05 01 03 5B 77 2E 19 40 05 01 03 5B 78 62 45 1A 83 AB 97
08 44 05 01 03 78 05 01 03 5B 77 62 97 08 44 05 02 03 5B 78 05 02
03 5B 5B 77 2E 19 40 05 02 03 5B 5B 78 62 45 1A 83 32 F3 F4 F5 A1
5B 5B 79 30 5E 42 14 7A 02 60 02 1A 83 88 F2 9F 5B 77 37 03 8B B7
65 97 08 44 AE 05 00 03 77 62 CB 1A 81 79 0E 00 10 00 A1 5B 78 2E
1E 97 08 44 B1 05 00 06 77 62 97 08 44 05 01 06 78 05 01 06 5B 77
2E 1F 1A 20 0E 00 10 00 A1 5B 78 2E 1E 97 08 44 B1 05 00 06 77 62
97 08 44 05 01 06 78 05 01 06 5B 77 2E 20 40 05 01 06 5B 78 2E 09
1A 80 5B 0E 00 10 00 94 06 2E 1E 97 08 44 B1 05 00 06 77 62 05 00
06 78 2E 09 1A 80 43 0E 00 10 00 A1 5B 5B 78 2E 1E 97 08 44 B1 64
21 62 97 08 44 05 01 06 78 05 01 06 5B 77 62 97 08 44 05 02 06 5B
78 05 02 06 5B 5B 77 27 FE 5A 40 05 02 06 5B 77 2E 22 05 02 06 5B
5B 78 2E 09 40 45 40 45 40 45 11 19 04 98 23 9F 5B 77 72 00 17 98
24 A0 5B 77 32 00 17 13 F5 05 00 03 5B 5B 79 6B FE 26 63 3F 02 11
18 01 19 04 97 08 44 AE 05 00 03 77 62 05 00 03 78 2E 25 1A 82 76
97 08 44 B0 05 00 05 77 62 97 08 44 05 01 05 78 05 01 05 5B 77 62
66 01 01 66 01 00 45 40 45 19 06 9C 1A 1C 9C 5A 1A 18 9E 5B 78 2E
09 41 02 A0 5B 77 AC 89 26 4A 9C 1F 68 9C 5B 1C 67 F5 9D 5C 14 63
3F 02 19 06 03 29 1A 07 93 03 23 28 77 03 2A 14 AA 70 5A AB A1 5B
79 6A 00 6A 05 72 02 00 75 02 6B FD A7 63 3F 02 19 05 94 03 87 27
5B 97 08 44 AE 05 00 03 77 62 05 00 03 78 2E 2B 1A 81 F5 64 2D 9F
1A 80 95 9E 5B 77 87 2C 74 97 08 44 AE 64 2E 62 CB 5D 44 05 01 03
78 05 01 03 5B 77 62 1A 81 7B 97 08 44 AE 05 00 03 77 62 05 00 03
78 2E 2F 1A 81 C0 00 1A 81 D4 9E 5B 5A 1A 81 CA 9E 5B 1C 72 9E 5B
5B 1C 71 97 08 44 AE 05 00 03 5A 1A 81 9A 03 1D 1A 80 40 9E 5B 5A
1C 76 9E 5B 77 6E 30 97 08 44 AF 05 00 04 77 62 97 08 44 05 01 04
78 05 01 04 5B 77 2E 31 40 64 32 05 01 00 36 00 10 05 05 01 04 5B
78 2E 09 11 40 45 40 45 19 05 9E 5B 5A 1B 0A 03 1D 14 9F 5B 5B 5C
1A 81 69 9E 5B 77 6E 30 64 32 9C 36 00 10 05 97 08 44 B2 05 00 07
77 62 97 08 44 05 01 07 78 05 01 07 5B 77 2E 31 40 05 01 07 5B 78
2E 09 40 45 40 45 11 19 05 9E 5B 77 62 1A 2F E4 64 34 64 35 03 36
1A 80 49 E4 64 37 64 38 03 39 1A 80 75 93 01 9B 1F 67 93 00 8E 08
62 9B 5B 1F 5E AA 6E 33 93 01 9E 5C 5C F7 16 01 82 01 9C 20 62 91
01 55 64 32 6A 05 9D 79 31 4A 36 00 10 05 03 1D 1A 80 5A 9E 5B 77
62 1A 30 E4 64 3B 64 3C 03 3D 14 6D 03 10 9D 1A 34 93 01 9B 1F 6D
93 00 8E 08 68 9B 5B 1F 64 9B 5B 5B 1B 5F 9B 5B 77 6E 3A 93 01 9E
5C 5C F7 16 01 82 01 9C 20 5B 92 01 10 E4 64 3E 64 3F 03 40 14 6D
03 10 9E 14 32 01 1F 64 32 6A 00 9D 79 31 4A 36 00 10 00 03 41 14
A4 5B 5B 79 6B FC 0B 63 3F 02 11 19 06 97 08 44 AE 05 00 03 77 62
97 08 44 05 01 03 78 05 01 03 5B 77 2E 42 40 05 01 03 5B 78 2E 09
40 45 1A 80 4B CB 1A 3A AA AE 6A 00 6A 05 32 02 00 1A 80 4D AB 8E
08 04 AB 8B 54 69 AB 8E 08 06 AB 7F 5A 00 1B 62 CB 1A 19 93 01 AA
88 04 80 64 AA 6A 05 6F 06 AA 02 21 FB CD AA 8D 0C 03 91 00 13 CB
5D 44 AE 05 00 01 14 62 05 00 03 78 2E 09 40 45 19 04 9B 1F 18 93
00 24 0B 13 94 00 AE 0E 05 14 35 02 14 27 FB 7E 14 02 14 3F 02 19
04 EA 64 43 64 44 64 45 6D 03 10 03 46 14 0E 05 1A 24 97 08 44 AD
66 00 00 2E 19 40 05 00 02 78 2E 09 40 45 19 03 9B 20 69 E4 64 47
64 48 64 49 6D 03 10 64 46 A0 14 32 02 1F
)
*VENV* VENV-ASSOC SYMBOL-MACRO-P 0. FUNCTION-NAME-P *FENV* FENV-ASSOC
#S(HASH-TABLE EQ (%HANDLER-BIND . 983.) (SYMBOL-MACROLET . 879.)
(MACROLET . 803.) (LABELS . 738.) (FLET . 681.) (PROGN . 656.)
(TAGBODY . 628.) (MULTIPLE-VALUE-SETQ . 599.) (PSETQ . 570.)
(SETQ . 570.) (BLOCK . 504.) (COND . 446.) (COMPILER-LET . 411.)
(MULTIPLE-VALUE-BIND . 339.) (LOCALLY . 313.) (LET* . 270.)
(LET . 236.) (EVAL-WHEN . 214.) (FUNCTION . 82.)
(LOAD-TIME-VALUE . 15.) (DECLARE . 15.) (GO . 15.) (QUOTE . 15.)
(THE . 2.) (RETURN-FROM . 2.)
)
%EXPAND-CONS %EXPAND-LIST FUNCTION MACRO PROGRAM-ERROR
"~S: ~S is illegal since ~S is a local macro"
"~S: ~S unzulässig, da ~S ein lokaler Macro ist"
"~S : ~S est illégal car ~S est un macro local" LANGUAGE %EXPAND ERROR
"~S: invalid function environment ~S"
"~S: Falscher Aufbau eines Function-Environment: ~S"
"~S : mauvais environnement de fonction ~S"
"~S: ~S is invalid since ~S is not a symbol"
"~S: ~S unzulässig, da ~S kein Symbol"
"~S : ~S est illégal car ~S n'est pas un symbole" %EXPAND-LAMBDA COMPILE
VALUES-LIST QUOTE PROGN %EXPAND-SPECIAL-DECLARATIONS %EXPAND-VARSPEZ
%EXPAND-VARSPEZ* MULTIPLE-VALUE-BIND %EXPAND-LEXICAL-VARIABLES
%EXPAND-VARSPEC-VAR %EXPAND-VARSPEC-VAL %EXPAND-COND %RETURN-P
%EXPAND-SETQLIST-MACROP SETQ SETF PSETF %EXPAND-SETQLIST
%EXPAND-VARLIST-MACROP MULTIPLE-VALUE-SETF MULTIPLE-VALUE-SETQ
%EXPAND-TAGBODY %EXPAND-FUNDEFS-1 %EXPAND-FUNDEFS-2 #.#'VECTOR
MAKE-MACRO-EXPANDERCONS "illegal syntax in MACROLET: ~S"
"Falsche Syntax in MACROLET: ~S" "syntaxe illégale dans MACROLET : ~S"
"code after MACROLET contains a dotted list, ending with ~S"
"Dotted list im Code von MACROLET, endet mit ~S"
"Le code de MACROLET contient une paire pointée, terminée par ~S"
MAKE-SYMBOL-MACRO "illegal syntax in SYMBOL-MACROLET: ~S"
"Falsche Syntax in SYMBOL-MACROLET: ~S"
"syntaxe illégale dans SYMBOL-MACROLET : ~S"
"code after SYMBOL-MACROLET contains a dotted list, ending with ~S"
"Dotted list im Code von SYMBOL-MACROLET, endet mit ~S"
"Le code de SYMBOL-MACROLET contient une paire pointée, terminée par ~S"
LOCALLY %EXPAND-HANDLERS "bad function environment occurred in ~S: ~S"
"Falscher Aufbau eines Function-Environment in ~S: ~S"
"mauvais environnement de fonction dans ~S : ~S" %EXPAND-FORM
"~S: invalid form ~S" "~S: ~S ist keine korrekte Form"
"~S : forme Lisp incorrecte ~S"
) )
#Y(#:TOP-LEVEL-FORM-32-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-LIST REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-LIST
#50Y(00 01 00 00 00 02 9C 1F 20 97 05 44 AC 05 00 01 77 2E 06 40 05 00 01
78 27 6C 40 45 19 02 D8 D9 DA DB 6D 03 04 AD 32 01 1F 91 01 72 01 02
3F 02 19 02
)
PROGRAM-ERROR "code contains a dotted list, ending with ~S"
"Dotted list im Code, endet mit ~S"
"une paire pointée dans le code, terminée par ~S" LANGUAGE %EXPAND-CONS
%EXPAND-FORM
) )
#Y(#:TOP-LEVEL-FORM-32-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-LEXICAL-VARIABLES REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-LEXICAL-VARIABLES
#53Y(00 01 00 00 00 02 91 01 03 00 19 02 D8 62 AD 1A 0E 93 00 AA 62 7A 02
AD 7F A6 02 16 01 82 00 9B 20 6F 16 01 AA 7F A7 00 6A 01 7A 01 32 02
24 36 00 0F 01 19 02
)
#.#'VECTOR *VENV*
) )
#Y(#:TOP-LEVEL-FORM-32-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-SPECIAL-DECLARATIONS REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-SPECIAL-DECLARATIONS
#89Y(00 01 00 00 00 02 AB 62 6A 00 6A 01 72 02 00 30 62 41 02 62 AB 71 4A
AA 1A 33 94 00 AA 1A 11 AA 83 06 16 01 1A 08 93 00 AA 8D 08 73 16 01
82 00 9B 20 73 16 03 1A 14 93 00 9B 1F 0D AA 37 01 30 A0 5B 1B 05 93
00 23 02 51 16 01 82 00 9B 20 67 16 02 AA 71 4A 2E 03 19 05
)
*VENV* *FENV* SPECIAL %EXPAND-LEXICAL-VARIABLES
) )
#Y(#:TOP-LEVEL-FORM-32-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-LAMBDA REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-LAMBDA
#39Y(00 01 00 00 00 02 93 01 24 00 10 97 07 44 AC D8 62 05 00 01 78 2E 08
40 45 19 02 D9 DA DB DC 6D 03 05 DE AE 32 02 1F
)
LAMBDA PROGRAM-ERROR "~S: ~S should be a lambda expression"
"~S: ~S sollte LAMBDA-Ausdruck sein"
"~S : ~S devrait être une expression LAMBDA" LANGUAGE %EXPAND-FORM
%EXPAND-CONS %EXPAND-LAMBDABODY
) )
#Y(#:TOP-LEVEL-FORM-32-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-LAMBDABODY REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-LAMBDABODY
#92Y(00 01 00 00 00 02 94 01 9B 1F 10 93 00 AA 8E 06 06 93 00 C3 59 1B 35
16 01 1B 3B 0E 02 10 02 93 05 6E 03 D8 D9 B2 7A 02 7A 02 94 07 2E 04
7B 02 63 3F 02 11 19 03 93 00 C4 59 16 03 1C 5D 1A 16 93 00 AA 8D 06
70 16 03 1C 51 1A 0A 94 00 AA 8D 06 6E 16 02 1C 45 AC 62 3F 02 19 03
)
DECLARE SOURCE *VENV* %EXPAND-LAMBDALIST %EXPAND-LIST
) )
#Y(#:TOP-LEVEL-FORM-32-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-LAMBDALIST REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-LAMBDALIST
#75Y(00 01 00 00 00 02 9C 1F 39 97 05 44 AC 05 00 01 77 2E 06 40 05 00 01
77 AA DF E0 37 02 8B B7 0B AA 6E 09 62 6A 0A 32 03 00 0F 0A 16 01 05
00 01 78 27 53 40 45 19 02 D8 D9 DA DB 6D 03 04 AD 32 01 1F 91 01 72
01 02 3F 02 19 02
)
PROGRAM-ERROR "lambda list must not end with the atom ~S"
"Lambdaliste darf nicht mit dem Atom ~S enden"
"La liste lambda ne peut pas se terminer par l'atome ~S" LANGUAGE
%EXPAND-CONS %EXPAND-PARSPEZ #.LAMBDA-LIST-KEYWORDS #.#'EQ
%EXPAND-VARSPEC-VAR *VENV*
) )
#Y(#:TOP-LEVEL-FORM-32-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-PARSPEZ REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-PARSPEZ
#54Y(00 01 00 00 00 02 9C 1F 27 9C 5B 1F 23 97 00 44 AC 05 00 01 77 62 97
00 44 05 01 01 78 05 01 01 5B 77 2E 01 40 05 01 01 5B 78 62 45 40 45
19 02 AB 62 3F 02 19 02
)
%EXPAND-CONS %EXPAND-FORM
) )
#Y(#:TOP-LEVEL-FORM-32-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-VARSPEZ REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-VARSPEZ
#76Y(00 01 00 01 00 08 3C 01 9D 1F 2D 97 08 44 AD 05 00 02 77 2E 09 40 05
00 02 78 62 05 00 02 77 6E 0A 05 00 01 7B 02 27 5E 40 45 19 03 D8 D9
DA DB 6D 03 04 DD AF 32 02 1F 91 02 71 DE 6A 07 9E 79 31 4A 36 00 0F
07 01 02 3F 02 19 03
)
PROGRAM-ERROR "~S: variable list ends with the atom ~S"
"~S: Variablenliste endet mit dem Atom ~S"
"~S : La liste de variables se termine par l'atome ~S" LANGUAGE LET
#.#'VECTOR *VENV* %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR
) )
#Y(#:TOP-LEVEL-FORM-32-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-VARSPEZ* REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-VARSPEZ*
#65Y(00 01 00 00 00 02 9C 1F 2F 97 06 44 AC 05 00 01 77 2E 07 40 05 00 01
77 6E 08 62 6A 09 32 03 00 0F 09 05 00 01 78 27 5E 40 45 19 02 D8 D9
DA DB 6D 03 04 DD AE 32 02 1F 91 01 71 01 02 3F 02 19 02
)
PROGRAM-ERROR "~S: variable list ends with the atom ~S"
"~S: Variablenliste endet mit dem Atom ~S"
"~S : La liste de variables se termine par l'atome ~S" LANGUAGE LET*
%EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR *VENV*
) )
#Y(#:TOP-LEVEL-FORM-32-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-VARSPEC-VAR REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-VARSPEC-VAR #16Y(00 01 00 00 00 02 9C 1F 04 9C 5A 19 02 9C 19 02)
) )
#Y(#:TOP-LEVEL-FORM-32-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-VARSPEC-VAL REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-VARSPEC-VAL
#19Y(00 01 00 00 00 02 9C 1F 07 9C 5B 77 30 5E 19 02 00 19 02)
) )
#Y(#:TOP-LEVEL-FORM-32-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-COND REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-COND
#36Y(00 01 00 00 00 02 9C 1F 15 97 00 44 AC 05 00 01 77 2E 01 40 05 00 01
78 27 6C 40 45 19 02 AB 62 3F 02 19 02
)
%EXPAND-CONS %EXPAND-LIST
) )
#Y(#:TOP-LEVEL-FORM-32-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%RETURN-P REMOVE-OLD-DEFINITIONS
#Y(%RETURN-P
#66Y(00 02 00 00 00 03 9C 1F 33 93 01 9B 1F 28 93 00 24 00 06 9B 5B 77 9F
21 26 9B 5A 1F 07 AD 93 01 27 64 1B 1B 93 00 24 01 06 9B 5B 77 9F 21
07 AD 94 01 27 52 1B 09 16 01 82 01 1A 4A 00 19 03 02 19 04
)
RETURN-FROM BLOCK
) )
#Y(#:TOP-LEVEL-FORM-32-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-VARLIST-MACROP REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-VARLIST-MACROP
#34Y(00 01 00 00 00 02 AB 31 06 1E 15 93 01 8E 08 0A 93 01 6A 00 6F 01 2E
02 1D 06 94 01 28 01 03 66 19 02
)
*VENV* VENV-ASSOC SYMBOL-MACRO-P
) )
#Y(#:TOP-LEVEL-FORM-32-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-SETQLIST-MACROP
#41Y(00 01 00 00 00 02 AB 31 06 1E 1C 94 01 31 06 1E 16 93 01 8E 08 0A 93
01 6A 00 6F 01 2E 02 1D 07 9C 5B 78 28 01 03 5F 19 02
)
*VENV* VENV-ASSOC SYMBOL-MACRO-P
) )
#Y(#:TOP-LEVEL-FORM-32-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-SETQLIST REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-SETQLIST
#56Y(00 01 00 00 00 02 9C 1F 29 9C 5B 1F 25 97 00 44 AC 05 00 01 77 62 97
00 44 05 01 01 78 05 01 01 5B 77 2E 01 40 05 01 01 5B 78 27 5A 40 45
40 45 19 02 AB 62 3F 02 19 02
)
%EXPAND-CONS %EXPAND-FORM
) )
#Y(#:TOP-LEVEL-FORM-32-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-TAGBODY REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-TAGBODY
#77Y(00 01 00 00 00 02 9C 1F 21 9C 5A 1F 23 93 01 2E 01 41 02 9C 1F 2D 97
00 44 AE 66 00 01 66 00 00 05 00 03 78 27 60 40 45 19 04 AB 62 3F 02
19 02 97 00 44 AC 05 00 01 77 62 05 00 01 78 27 47 40 45 19 02 94 03
6B FF BE 63 3F 02 19 04
)
%EXPAND-CONS %EXPAND-FORM
) )
#Y(#:TOP-LEVEL-FORM-32-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-FUNDEFS-1 REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-FUNDEFS-1
#65Y(00 01 00 00 00 02 9C 1F 24 93 01 9B 1F 09 93 00 88 06 04 9B 5B 20 1F
D8 DF E0 E1 6D 03 04 9D 14 32 01 1F D8 D9 DA DB 6D 03 04 9E 1A 72 91
01 73 6A 05 60 01 19 02 93 00 62 94 04 27 49 61 02 19 03
)
PROGRAM-ERROR "FLET/LABELS: code contains a dotted list, ending with ~S"
"FLET/LABELS: Dotted list im Code, endet mit ~S"
"FLET/LABELS : une paire pointée dans le code, terminée par ~S" LANGUAGE
*FENV* FUNCTION-NAME-P "illegal syntax in FLET/LABELS: ~S"
"Falsche Syntax in FLET/LABELS: ~S"
"syntaxe incorrecte dans FLET/LABELS : ~S"
) )
#Y(#:TOP-LEVEL-FORM-32-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-FUNDEFS-2 REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-FUNDEFS-2
#51Y(00 01 00 00 00 02 9C 1F 24 93 01 97 00 44 AD 97 00 44 66 01 00 05 01
00 77 62 05 01 00 78 2E 01 40 45 40 05 00 02 78 27 5D 40 45 19 03 AB
62 3F 02 19 02
)
%EXPAND-CONS %EXPAND-LAMBDABODY
) )
#Y(#:TOP-LEVEL-FORM-32-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-HANDLERS REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-HANDLERS
#51Y(00 01 00 00 00 02 9C 1F 24 93 01 97 00 44 AD 97 00 44 66 01 00 05 01
00 77 62 05 01 00 78 2E 01 40 45 40 05 00 02 78 27 5D 40 45 19 03 AB
62 3F 02 19 02
)
%EXPAND-CONS %EXPAND-LIST
) )
#Y(#:TOP-LEVEL-FORM-32-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
%EXPAND-LAMBDABODY-MAIN REMOVE-OLD-DEFINITIONS
#Y(%EXPAND-LAMBDABODY-MAIN
#19Y(00 03 00 00 00 04 9D 10 00 9F 10 01 B3 2E 02 12 02 19 04) *VENV*
*FENV* %EXPAND-LAMBDABODY
) )
#Y(#:TOP-LEVEL-FORM-32-31 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-33-1 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-PATHS*)
)
#Y(#:TOP-LEVEL-FORM-33-2 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-PATHS*
)
#Y(#:TOP-LEVEL-FORM-33-3 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *SOURCE-FILE-TYPES*)
)
#Y(#:TOP-LEVEL-FORM-33-4 #12Y(00 00 00 00 00 01 C3 0F 01 3D 19 01)
(#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "lsp" :VERSION NIL
) )
*SOURCE-FILE-TYPES*
)
#Y(#:TOP-LEVEL-FORM-33-5 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *COMPILED-FILE-TYPES*)
)
#Y(#:TOP-LEVEL-FORM-33-6 #12Y(00 00 00 00 00 01 C3 0F 01 3D 19 01)
(#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "fas" :VERSION NIL
) )
*COMPILED-FILE-TYPES*
)
#Y(#:TOP-LEVEL-FORM-33-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
SEARCH-FILE REMOVE-OLD-DEFINITIONS
#Y(SEARCH-FILE
#49Y(00 02 00 00 00 03 62 AC 71 49 1A 1B AA 60 01 1A 0D 93 00 AF AB 37 02
70 F3 AA 8B F8 6F 00 F6 AD 7F A6 02 16 01 82 00 9B 20 67 16 01 AA 30
A7 19 04
) ) )
#Y(#:TOP-LEVEL-FORM-33-8 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-VERBOSE*)
)
#Y(#:TOP-LEVEL-FORM-33-9 #12Y(00 00 00 00 00 01 02 0F 00 3D 19 01)
*LOAD-VERBOSE*
)
#Y(#:TOP-LEVEL-FORM-33-10 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-PRINT*)
)
#Y(#:TOP-LEVEL-FORM-33-11 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
*LOAD-PRINT*
)
#Y(#:TOP-LEVEL-FORM-33-12 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-ECHO*)
)
#Y(#:TOP-LEVEL-FORM-33-13 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-ECHO*
)
#Y(#:TOP-LEVEL-FORM-33-14 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-PATHNAME*)
)
#Y(#:TOP-LEVEL-FORM-33-15 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
*LOAD-PATHNAME*
)
#Y(#:TOP-LEVEL-FORM-33-16 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-TRUENAME*)
)
#Y(#:TOP-LEVEL-FORM-33-17 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
*LOAD-TRUENAME*
)
#Y(#:TOP-LEVEL-FORM-33-18 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
(SPECIAL *LOAD-INPUT-STREAM*)
)
#Y(#:TOP-LEVEL-FORM-33-19 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
*LOAD-INPUT-STREAM*
)
#Y(#:TOP-LEVEL-FORM-33-20 #12Y(00 00 00 00 00 01 D8 30 57 3D 19 01) LOAD)
#Y(#:TOP-LEVEL-FORM-33-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
LOAD REMOVE-OLD-DEFINITIONS
#Y(LOAD
#337Y(00 01 00 00 80 1C 00 05 00 00 3A 05 03 0E 05 FB 3A 04 03 0E 06 FA
3A 03 02 7D 03 3A 02 03 0E 07 F8 3C 01 B0 8D 18 80 98 B0 7F E9 06
14 E0 E1 37 01 62 8B FB 1B B0 6A 0A 6A 0B 72 02 23 6F 0C AA 8B 96
80 80 86 00 07 14 E0 E1 37 02 30 FB 16 01 14 92 00 80 F6 91 03 80
71 9B 14 B2 8D 1C 80 72 00 14 B3 8D 1C 80 6F 00 10 0E 0E 0F 10 0F
0E 10 10 10 A4 10 11 A8 0F 12 92 14 1D 37 01 30 90 EB EC ED 6D 03
16 37 03 30 8D BF 37 01 30 88 EF F0 F1 6D 03 16 37 03 30 8D 52 80
66 92 13 04 37 01 30 90 B9 62 F2 37 01 70 78 AA F2 8D 03 2E AA 8D
0B 33 92 13 33 AA 01 05 2C 06 1B 14 35 00 1A 2B A1 1A FF 8C 00 16
01 1A FF 86 AA 6A 0D 31 72 1A FF 88 A3 1A FF 8B B3 30 F7 1A FF 8C
16 01 55 92 14 80 51 1A 2E 9B 1A 53 AA 30 5E 42 F6 92 16 08 92 00
05 77 37 01 30 86 16 01 92 13 FF A4 1A FF 9D 66 00 0E 37 01 31 7D
66 00 0D 37 01 31 7D 54 92 14 21 37 01 30 90 F4 F5 64 1E 6D 03 16
37 03 30 8D BF 37 01 30 88 64 1F 64 20 64 21 6D 03 16 37 03 30 8D
02 12 04 19 0A 64 22 64 23 B3 64 24 64 25 64 26 6D 03 16 B5 32 03
1F 91 04 6B 00 19 08
)
:VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE*
*LOAD-PRINT* *LOAD-ECHO* :INPUT-IMMUTABLE STRING-CHAR *SOURCE-FILE-TYPES*
*COMPILED-FILE-TYPES* SEARCH-FILE *STANDARD-OUTPUT* *LOAD-TRUENAME*
*PACKAGE* *READTABLE* *LOAD-PATHNAME* *LOAD-INPUT-STREAM*
";; Loading file " ";; Datei " ";; Chargement du fichier " LANGUAGE
" ..." " wird geladen..." " ..." "EOF" COMPILE-FORM ";; Loading of file "
";; Datei " ";; Le fichier " " is finished." " ist geladen."
" est chargé." FILE-ERROR :PATHNAME "A file with name ~A does not exist"
"Eine Datei mit Namen ~A gibt es nicht."
"Il n'existe pas de fichier de nom ~A."
) )
#Y(#:TOP-LEVEL-FORM-33-22 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
DEFUN MACRO
#Y(DEFUN
#128Y(00 02 00 00 00 03 9D 5B 1F 25 9D 5B 5B 1F 20 9D 5B 77 9E 5B 5B 77
9F 5B 5B 78 AC 8E 08 1C AC 8C 54 22 D8 E1 E2 E3 6D 03 04 C8 14 AF
32 02 1F D8 D9 DA DB 6D 03 04 DD 32 01 1F D8 DE DF E0 6D 03 04 C8
1A 66 AA 63 B0 30 62 41 03 E4 E5 E6 B2 7A 02 E7 E8 E6 B8 7A 02 E9
7A 03 7A 04 EA E6 B3 7A 02 EB B4 EC B5 ED EE B9 7A 02 A6 7B 02 EF
B9 A8 7B 02 7A 04 7A 03 7A 03 E6 B3 7A 02 60 04 19 09
)
PROGRAM-ERROR "~S: missing function name and/or parameter list"
"~S: Funktionsname und/oder Parameterliste fehlt"
"~S : Le nom de fonction et/ou la liste de paramètre manque" LANGUAGE
DEFUN "~S: ~S is not a symbol." "~S: ~S ist kein Symbol."
"~S : ~S n'est pas un symbole."
"~S: special form ~S cannot be redefined."
"~S: Spezialform ~S kann nicht umdefiniert werden."
"~S : La forme spéciale ~S ne peut pas être redéfinie." PROGN %PUT QUOTE
'DEFINITION CONS (THE-ENVIRONMENT) %PUTD FUNCTION LAMBDA DECLARE IN-DEFUN
BLOCK
) )
#Y(#:TOP-LEVEL-FORM-33-23 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01) DO
MACRO
#Y(DO
#160Y(00 02 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 9C 1F 2D 01 02
37 01 71 90 37 01 71 90 AE 62 B4 30 62 41 02 A3 1F 80 42 93 08 82
09 9B 1F 1C 9B 5B 1F 1B 9B 5B 5B 20 1A 9B 14 83 06 16 01 1A 64 D8
D9 DA DB 6D 03 04 DD 32 01 1F 9B 1A 6B 9B 5A 1A 67 93 00 9C 5B 77
7A 02 83 06 9B 5B 5B 77 93 01 A2 61 02 FB 16 01 1A FF BA DE 62 DF
B2 71 4A E0 A0 79 E1 E2 B3 7A 02 B4 B3 E3 B8 31 4A 79 B6 E4 93 13
E2 BB 7A 02 7A 03 E5 62 E6 04 16 5B 79 7A 03 7A 04 32 02 23 7B 03
7A 04 60 03 19 0C
)
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 DO BLOCK LET
DECLARE TAGBODY GO PSETQ OR RETURN-FROM PROGN
) )
#Y(#:TOP-LEVEL-FORM-33-24 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
DOTIMES MACRO
#Y(DOTIMES
#66Y(00 02 00 00 00 03 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 D8 B1 D9 DA B4 7A 02 7A 03 AC B2
7A 02 7A 02 DB B3 AE 7A 03 B1 7A 02 DC A0 79 A1 61 04 19 0A
)
DO 0. 1+ >= DECLARE
) )
#Y(#:TOP-LEVEL-FORM-33-25 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-34 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defseq" LOAD)
#Y(#:TOP-LEVEL-FORM-35 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "backquot" LOAD)
#Y(#:TOP-LEVEL-FORM-36-1 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
BACKQUOTE MACRO #Y(BACKQUOTE #12Y(00 01 00 01 00 08 9D 5B 5B 5A 19 03))
)
#Y(#:TOP-LEVEL-FORM-36-2 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-37 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defmacro" LOAD)
#Y(#:TOP-LEVEL-FORM-38-1 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
DEFMACRO MACRO
#Y(DEFMACRO
#91Y(00 01 00 01 00 08 94 02 2E 00 41 04 D9 62 DA DB DC DD B2 7A 02 7A 02
91 05 31 00 14 E0 DD B4 7A 02 E1 E2 B7 7A 03 7A 03 7A 01 32 02 23 7B
03 DA E3 E4 DD B3 7A 02 E5 E1 DD BA 7A 02 D1 7B 02 7A 04 7A 03 DD B1
7A 02 60 05 19 07 DE DD B3 7A 02 DF DD B3 7A 02 7A 04 60 01 1A 40
)
MAKE-MACRO-EXPANSION LET EVAL-WHEN (COMPILE LOAD EVAL)
REMOVE-OLD-DEFINITIONS QUOTE %SET-DOCUMENTATION 'FUNCTION %PUTD CONS
'MACRO (EVAL) %PUT 'DEFINITION ((THE-ENVIRONMENT))
) )
#Y(#:TOP-LEVEL-FORM-38-2 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
DEFUN MACRO
#Y(DEFUN
#294Y(00 02 00 00 00 03 9D 5B 1F 1C 9D 5B 77 88 06 22 9D 5B 5B 20 80 63
D8 E2 E3 E4 6D 03 04 C8 14 A0 5B 5A 14 32 02 1F D8 D9 DA DB 6D 03
04 DD A0 5B 1A 70 D8 DF E0 E1 6D 03 04 C8 1A 62 E5 A1 1A 80 58 64
20 64 21 64 22 E5 B8 7A 02 E5 B2 7A 02 7A 03 7A 03 64 20 64 23 64
24 B2 64 25 E5 B4 7A 02 7A 04 7A 03 60 02 1A 80 84 64 27 B0 64 28
E5 B4 7A 02 7A 04 60 01 1A 80 7A 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78
AA 63 B0 30 62 41 03 A0 1F FF AD E6 E7 E5 A3 5B 77 7A 02 60 02 14
7A 02 AF E8 E9 B3 7A 02 A0 7B 02 EA B3 6E 13 A2 7B 02 7A 03 EC 62
ED AE 7A 02 0E 16 1C 25 0E 17 1C 21 B4 6A 18 F1 37 02 8C B7 18 0E
1A 1B 14 0E 1B 1B 10 0E 1C 1B 0C 0E 1D 1B 08 6A 1E 6A 1F 8D 03 FF
64 64 20 64 26 64 22 E5 B8 7A 02 7A 02 7A 03 60 01 14 91 06 FF 77
00 14 64 29 B1 64 2A B9 64 2B A5 79 7A 03 7A 03 64 20 64 2C 64 24
B4 64 2D 64 2E E5 C1 7A 02 03 2F 7B 02 7A 04 7A 03 E5 B9 7A 02 7A
03 32 03 23 61 03 19 0B
)
PROGRAM-ERROR "~S: cannot define a function from that: ~S"
"~S: Daraus kann keine Funktion definiert werden: ~S"
"~S : Pas de définition de fonction possible à partir de: ~S" LANGUAGE
DEFUN FUNCTION-NAME-P
"~S: the name of a function must be a symbol, not ~S"
"~S: Der Name einer Funktion muß ein Symbol sein, nicht: ~S"
"~S : Le nom d'une fonction doit être un symbole et non ~S"
"~S: function ~S is missing a lambda list"
"~S: Die Funktion ~S hat keine Lambdaliste."
"~S : Il manque une liste lambda à la fonction ~S." QUOTE LOAD-TIME-VALUE
GET-SETF-SYMBOL DECLARE IN-DEFUN BLOCK BLOCK-NAME LET
REMOVE-OLD-DEFINITIONS *COMPILING* *COMPILING-FROM-FILE*
*INLINE-FUNCTIONS* #.#'EQ *VENV* *FENV* *BENV* *GENV* *DENV*
*TOPLEVEL-DENV* EVAL-WHEN (COMPILE) C-DEFUN (LOAD) %PUT 'INLINE-EXPANSION
(COMPILE) %SET-DOCUMENTATION 'FUNCTION %PUTD FUNCTION LAMBDA (EVAL)
'DEFINITION CONS ((THE-ENVIRONMENT))
) )
#Y(#:TOP-LEVEL-FORM-38-3 #9Y(00 00 00 00 00 01 3D 19 01))
#Y(#:TOP-LEVEL-FORM-39
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) MACRO-EXPANDER
REMOVE-OLD-DEFINITIONS MACRO
#Y(MACRO-EXPANDER #13Y(00 01 00 01 00 08 94 02 AA 2E 00 19 04)
MAKE-MACRO-EXPANSION
) )
#Y(#:TOP-LEVEL-FORM-40 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "macros1" LOAD)
#Y(#:TOP-LEVEL-FORM-41 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "macros2" LOAD)
#Y(#:TOP-LEVEL-FORM-42 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs1" LOAD)
#Y(#:TOP-LEVEL-FORM-43 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "timezone" LOAD)
#Y(#:TOP-LEVEL-FORM-44 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "places" LOAD)
#Y(#:TOP-LEVEL-FORM-45 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "floatpri" LOAD)
#Y(#:TOP-LEVEL-FORM-46 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "type" LOAD)
#Y(#:TOP-LEVEL-FORM-47 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defstruc" LOAD)
#Y(#:TOP-LEVEL-FORM-48 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "format" LOAD)
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SEARCH-FILE REMOVE-OLD-DEFINITIONS
#Y(SEARCH-FILE
#171Y(00 02 00 00 00 03 00 2A 01 7E 02 00 00 AD 37 01 30 EE 58 14 92 00
0A D8 67 02 00 32 00 17 0B 01 00 AE D9 37 02 7F F3 04 62 DA DB B1
37 01 70 EC DC 37 02 8B B7 0B DD 6A 06 32 00 17 79 62 1A 80 63 00
1A 78 B0 6C 07 01 AB 37 05 80 54 00 92 00 80 49 14 62 1A 10 86 01
00 14 98 08 9D 5B 5B 5A 76 00 30 AE 82 01 AB 8C 96 6C 16 02 E1 AB
E2 E3 37 02 71 68 32 00 17 19 0A 86 01 00 B1 AB 37 02 70 F3 37 03
70 F3 AA AE DC 37 02 8B B7 12 AA 63 63 70 FC 91 05 FF AD 91 00 FF
B7 16 01 AA 83 03 16 01 82 01 AB 8C 96 51 00 19 08
)
#.#'PATHNAME-TYPE
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE "*" :VERSION NIL
)
#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
:TYPE NIL :VERSION NIL
)
:PARENT #.#'EQUAL #.#'PATHNAME *LOAD-PATHS*
#Y(SEARCH-FILE-1
#22Y(00 01 00 00 00 02 93 01 37 01 70 EE 68 00 01 D9 37 02 30 B7 19 02
)
NIL #.#'STRING-EQUAL
)
ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
) )
#Y(#:TOP-LEVEL-FORM-50 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "user1" LOAD)
#Y(#:TOP-LEVEL-FORM-51 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "user2" LOAD)
#Y(#:TOP-LEVEL-FORM-52 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "trace" LOAD)
#Y(#:TOP-LEVEL-FORM-53 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "config" LOAD)
#Y(#:TOP-LEVEL-FORM-54 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "compiler" LOAD)
#Y(#:TOP-LEVEL-FORM-55 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "disassem" LOAD)
#Y(#:TOP-LEVEL-FORM-56 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs2" LOAD)
#Y(#:TOP-LEVEL-FORM-57 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "loop" LOAD)
#Y(#:TOP-LEVEL-FORM-58 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "clos" LOAD)
#Y(#:TOP-LEVEL-FORM-59 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "conditio" LOAD)
#Y(#:TOP-LEVEL-FORM-60 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs3" LOAD)
#Y(#:TOP-LEVEL-FORM-61 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "gstream" LOAD)
#Y(#:TOP-LEVEL-FORM-62
#19Y(00 00 00 00 00 01 D8 D9 8B D8 03 00 19 01 DA 2E 03 19 01) "%LIBCALL"
"SYS" "affi1" LOAD
)
#Y(#:TOP-LEVEL-FORM-63 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "screen" LOAD)
#Y(#:TOP-LEVEL-FORM-64
#18Y(00 00 00 00 00 01 D8 8B CF 03 00 19 01 D9 2E 02 19 01) "STDWIN"
"stdwin2" LOAD
)
#Y(#:TOP-LEVEL-FORM-65 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "rexx1" LOAD)
#Y(#:TOP-LEVEL-FORM-66 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "USER")