(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")