home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / init-small.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-08-14  |  50.7 KB  |  954 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #14Y(00 00 00 00 00 01 D8 D9 70 CF 30 DE 19 01)
  4.    SYSTEM::DEBUG "SYSTEM"
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  7.    (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
  8.      CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
  9.      LOGICAL-PATHNAME LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE
  10.      RATIO RATIONAL READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY
  11.      SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR
  12.      STREAM FILE-STREAM SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM
  13.      TWO-WAY-STREAM ECHO-STREAM STRING-STREAM STRING STRING-CHAR SYMBOL T
  14.      VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE LAMBDA-LIST-KEYWORDS
  15.      LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT
  16.      PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND
  17.      BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2
  18.      BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM
  19.      MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
  20.      LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
  21.      MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
  22.      LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
  23.      MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
  24.      LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
  25.      MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
  26.      LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT
  27.      LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
  28.      LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
  29.      LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
  30.      LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
  31.      LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
  32.      LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
  33.      LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
  34.      SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON
  35.      LONG-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
  36.      SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
  37.      LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT CHAR-FONT-LIMIT
  38.      CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT CHAR-SUPER-BIT
  39.      CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
  40.      ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
  41.      *GENSYM-COUNTER* *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK*
  42.      + ++ +++ - * ** *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT*
  43.      *ERROR-OUTPUT* *QUERY-IO* *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT*
  44.      *READ-BASE* *READ-SUPPRESS* *READTABLE* *PRINT-READABLY* *PRINT-ESCAPE*
  45.      *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE*
  46.      *PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-ARRAY*
  47.      *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS* *LOAD-PATHS*
  48.      *LOAD-VERBOSE* *LOAD-PRINT* *LOAD-ECHO* *LOAD-PATHNAME* *LOAD-TRUENAME*
  49.      *BREAK-ON-WARNINGS* *COMPILE-WARNINGS* *COMPILE-VERBOSE* *COMPILE-PRINT*
  50.      *COMPILE-FILE-PATHNAME* *COMPILE-FILE-TRUENAME* *FEATURES* COERCE TYPE-OF
  51.      UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL SYMBOLP ATOM CONSP LISTP
  52.      NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP CHARACTERP STRINGP
  53.      BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P SIMPLE-BIT-VECTOR-P
  54.      ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP EQ EQL EQUAL EQUALP
  55.      NOT SYMBOL-VALUE SYMBOL-FUNCTION FDEFINITION BOUNDP FBOUNDP SPECIAL-FORM-P
  56.      SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE
  57.      APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL MAPCAN MAPCON VALUES VALUES-LIST
  58.      MACRO-FUNCTION MACROEXPAND MACROEXPAND-1 PROCLAIM GET REMPROP SYMBOL-PLIST
  59.      GETF GET-PROPERTIES SYMBOL-NAME MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP
  60.      SYMBOL-PACKAGE KEYWORDP MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE PACKAGE-NAME
  61.      PACKAGE-NICKNAMES RENAME-PACKAGE PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
  62.      PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES DELETE-PACKAGE INTERN
  63.      FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW
  64.      USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE REQUIRE ZEROP PLUSP
  65.      MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1- CONJUGATE GCD LCM
  66.      EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN
  67.      SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE NUMERATOR
  68.      DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING FTRUNCATE
  69.      FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS
  70.      FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR
  71.      LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2
  72.      BOOLE LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
  73.      BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
  74.      MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
  75.      STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P
  76.      DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
  77.      CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP
  78.      CHAR-NOT-LESSP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
  79.      CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
  80.      CHAR-BIT SET-CHAR-BIT COMPLEMENT ELT SUBSEQ COPY-SEQ LENGTH REVERSE
  81.      NREVERSE MAKE-SEQUENCE CONCATENATE MAP MAP-INTO SOME EVERY NOTANY NOTEVERY
  82.      REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE DELETE-IF
  83.      DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE SUBSTITUTE-IF
  84.      SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND
  85.      FIND-IF FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF
  86.      COUNT-IF-NOT MISMATCH SEARCH SORT STABLE-SORT MERGE CAR CDR CAAR CADR CDAR
  87.      CDDR CAAAR CAADR CADAR CADDR CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR
  88.      CAADDR CADAAR CADADR CADDAR CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR
  89.      CDDADR CDDDAR CDDDDR CONS TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND
  90.      THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST
  91.      LIST* MAKE-LIST APPEND COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC
  92.      NRECONC BUTLAST NBUTLAST LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT
  93.      NSUBST NSUBST-IF NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF
  94.      MEMBER-IF-NOT TAILP ADJOIN UNION NUNION INTERSECTION NINTERSECTION
  95.      SET-DIFFERENCE NSET-DIFFERENCE SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP
  96.      ACONS PAIRLIS ASSOC ASSOC-IF ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT
  97.      MAKE-HASH-TABLE HASH-TABLE-P GETHASH REMHASH MAPHASH CLRHASH
  98.      HASH-TABLE-COUNT HASH-TABLE-REHASH-SIZE HASH-TABLE-REHASH-THRESHOLD
  99.      HASH-TABLE-SIZE HASH-TABLE-TEST SXHASH MAKE-ARRAY VECTOR AREF SVREF
  100.      ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION ARRAY-DIMENSIONS
  101.      ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX ROW-MAJOR-AREF
  102.      ADJUSTABLE-ARRAY-P BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV BIT-NAND
  103.      BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT
  104.      ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND
  105.      VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING>
  106.      STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP
  107.      STRING-NOT-GREATERP STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING
  108.      STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE
  109.      STRING-DOWNCASE STRING-CAPITALIZE NSTRING-UPCASE NSTRING-DOWNCASE
  110.      NSTRING-CAPITALIZE STRING EVAL EVALHOOK APPLYHOOK CONSTANTP
  111.      MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM
  112.      MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM
  113.      MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING STREAMP OPEN-STREAM-P
  114.      INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE CLOSE
  115.      BROADCAST-STREAM-STREAMS CONCATENATED-STREAM-STREAMS
  116.      ECHO-STREAM-INPUT-STREAM ECHO-STREAM-OUTPUT-STREAM SYNONYM-STREAM-SYMBOL
  117.      TWO-WAY-STREAM-INPUT-STREAM TWO-WAY-STREAM-OUTPUT-STREAM
  118.      INTERACTIVE-STREAM-P COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
  119.      SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
  120.      SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READTABLE-CASE
  121.      READ READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
  122.      UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT
  123.      READ-FROM-STRING PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC
  124.      WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING
  125.      WRITE-LINE TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT
  126.      WRITE-BYTE FORMAT Y-OR-N-P YES-OR-NO-P WILD-PATHNAME-P PATHNAME-MATCH-P
  127.      TRANSLATE-PATHNAME LOGICAL-PATHNAME TRANSLATE-LOGICAL-PATHNAME
  128.      LOGICAL-PATHNAME-TRANSLATIONS LOAD-LOGICAL-PATHNAME-TRANSLATIONS
  129.      COMPILE-FILE-PATHNAME PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES
  130.      MAKE-PATHNAME PATHNAMEP PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
  131.      PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING
  132.      DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING
  133.      USER-HOMEDIR-PATHNAME OPEN RENAME-FILE DELETE-FILE PROBE-FILE
  134.      FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH LOAD DIRECTORY ERROR
  135.      CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE DOCUMENTATION VARIABLE
  136.      STRUCTURE TYPE DESCRIBE INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
  137.      GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
  138.      ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
  139.      LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
  140.      MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
  141.      SHORT-SITE-NAME LONG-SITE-NAME IDENTITY EVAL-WHEN QUOTE FUNCTION SETQ
  142.      PROGN LET LET* LOCALLY COMPILER-LET PROGV FLET LABELS MACROLET
  143.      SYMBOL-MACROLET IF BLOCK RETURN-FROM TAGBODY GO MULTIPLE-VALUE-CALL
  144.      MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT THROW DECLARE THE
  145.      LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER DEFCONSTANT AND OR PSETQ
  146.      SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO DEFSETF DEFINE-SETF-METHOD
  147.      PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE OTHERWISE RETURN LOOP DO DO*
  148.      DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-BIND
  149.      MULTIPLE-VALUE-SETQ DEFMACRO REMF DO-SYMBOLS DO-EXTERNAL-SYMBOLS
  150.      DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP DEFSTRUCT WITH-OPEN-STREAM
  151.      WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING WITH-STANDARD-IO-SYNTAX
  152.      WITH-OPEN-FILE CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE
  153.      UNTRACE STEP TIME FORMATTER ENGLISH DEUTSCH FRANCAIS EVAL LOAD COMPILE
  154.      SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE IGNORABLE OPTIMIZE
  155.      SPEED SPACE SAFETY COMPILATION-SPEED DEBUG DECLARATION DYNAMIC-EXTENT
  156.      COMPILE INTERPRETER COMPILER
  157.   ))
  158. #Y(#:TOP-LEVEL-FORM-4 #12Y(00 00 00 00 00 01 D8 D9 31 83 19 01)
  159.    LAMBDA-LIST-KEYWORDS
  160.    (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
  161.   )
  162. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  163.    #.LAMBDA-LIST-KEYWORDS
  164.   )
  165. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01) EXIT
  166.    #.#'SYSTEM::%EXIT
  167.   )
  168. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01) QUIT
  169.    #.#'SYSTEM::%EXIT
  170.   )
  171. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01) BYE
  172.    #.#'SYSTEM::%EXIT
  173.   )
  174. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  175.    (EXIT QUIT BYE)
  176.   )
  177. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  178.    THE-ENVIRONMENT
  179.   )
  180. #Y(#:TOP-LEVEL-FORM-11 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
  181.    (SPECIAL *FEATURES*)
  182.   )
  183. #Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 6A 00 37 01 30 DC 19 01)
  184.    *FEATURES*
  185.   )
  186. #Y(#:TOP-LEVEL-FORM-13 #14Y(00 00 00 00 00 01 6A 00 37 01 30 DA 19 01)
  187.    *FEATURES*
  188.   )
  189. #Y(#:TOP-LEVEL-FORM-14 #14Y(00 00 00 00 00 01 D8 D9 37 01 30 E3 19 01) "SYSTEM"
  190.    ("SYS" "COMPILER")
  191.   )
  192. #Y(#:TOP-LEVEL-FORM-15 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
  193.    (SPECIAL *COMPILING*)
  194.   )
  195. #Y(#:TOP-LEVEL-FORM-16 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *COMPILING*)
  196. #Y(#:TOP-LEVEL-FORM-17 #14Y(00 00 00 00 00 01 D8 37 01 D9 30 E3 19 01) "CLOS"
  197.    ("LISP")
  198.   )
  199. #Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  200.    (SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS
  201.      WITH-ACCESSORS FIND-CLASS CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD
  202.      NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION GENERIC-FLET GENERIC-LABELS
  203.      CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD
  204.      FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS
  205.      METHOD-QUALIFIERS FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT
  206.      DESCRIBE-OBJECT MAKE-INSTANCE INITIALIZE-INSTANCE REINITIALIZE-INSTANCE
  207.      SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS BUILT-IN-CLASS
  208.      STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD
  209.   ))
  210. #Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  211. #Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  212.    (HANDLER-BIND FIND-RESTART COMPUTE-RESTARTS INVOKE-RESTART-INTERACTIVELY
  213.      RESTART CONTINUE END-OF-FILE CONDITION WARNING SERIOUS-CONDITION ERROR
  214.      STORAGE-CONDITION TYPE-ERROR PROGRAM-ERROR CONTROL-ERROR PACKAGE-ERROR
  215.      PRINT-NOT-READABLE STREAM-ERROR END-OF-FILE FILE-ERROR CELL-ERROR
  216.      UNBOUND-VARIABLE UNDEFINED-FUNCTION ARITHMETIC-ERROR DIVISION-BY-ZERO
  217.      FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW
  218.   ))
  219. #Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  220. #Y(#:TOP-LEVEL-FORM-22 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
  221.    (SPECIAL *MSG-LIST*)
  222.   )
  223. #Y(#:TOP-LEVEL-FORM-23 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *MSG-LIST*)
  224. #Y(#:TOP-LEVEL-FORM-24
  225.    #23Y(00 00 00 00 00 01 D8 C4 79 DA AB 31 82 DB AB 31 82 DC AB 31 82 19 02)
  226.    MACRO
  227.    #Y(#:TOP-LEVEL-FORM-24-1
  228.       #33Y(00 02 00 00 00 03 D8 9E 36 00 D9 AD DA 37 01 71 85 AE DB 37 01 71 85
  229.            AF DC 37 01 71 85 60 04 19 03
  230.           )
  231.       #Y(#:TOP-LEVEL-FORM-24-1-1 #13Y(00 00 00 00 C0 1B 00 00 00 00 00 19 01))
  232.       LANGUAGE ENGLISH DEUTSCH FRANCAIS
  233.      )
  234.    ENGLISH DEUTSCH FRANCAIS
  235.   )
  236. #Y(#:TOP-LEVEL-FORM-25 #15Y(00 00 00 00 00 01 D8 D9 DA 37 01 30 76 19 01) #\#
  237.    #\L
  238.    #Y(#:TOP-LEVEL-FORM-25-1
  239.       #153Y(00 03 00 00 00 04 00 2A 01 7E 04 00 00 AA 6C 00 01 AB 6C 01 01 01
  240.             03 AF 6C 02 01 A0 33 DB 9F 73 1A 0A 9B FA 1A 2A 9B F9 1A 26 16 01
  241.             DC A0 33 67 06 00 37 03 30 7C DC A0 73 AB DD 37 04 8B 38 62 AB DE
  242.             37 04 8B 38 5F AB DF 37 04 8C 38 02 9B F8 B1 6C 08 01 A2 33 E1 A1
  243.             33 F7 62 67 08 00 37 03 70 7E 24 0A 45 67 07 00 37 03 30 7C 16 02
  244.             0E 0B 1C 1F 14 37 01 70 ED E4 72 02 13 6A 0B 6E 0D E6 A0 79 E7 A0
  245.             79 E8 A0 79 7A 03 7A 03 0E 11 5C 0F 11 EA AC AE AD 60 04 19 0A
  246.            )
  247.       #Y(SKIP-UNTIL
  248.          #29Y(00 01 00 00 00 02 62 68 00 01 37 03 7F 7C 00 AC AB 35 01 1C 72 AA
  249.               68 00 01 30 7D 19 03
  250.              )
  251.          NIL
  252.         )
  253.       #Y(READ-STRING
  254.          #48Y(00 01 00 00 00 02 D9 01 02 1A 0A AC AC 70 4E 81 02 13 02 9C F6 68
  255.               00 01 37 03 7F 7C 01 14 AF C5 33 1C 68 AA 23 03 64 AB 68 00 01 30
  256.               7D 9D 19 05
  257.              )
  258.          NIL ""
  259.          #1=#Y(MATCH-P
  260.                #61Y(00 02 00 00 00 03 AB 24 00 0A AC C4 59 1D 2C AC C5 59 1D 27
  261.                     AB 24 03 0F AC C4 59 1D 1E AC C5 59 1D 19 AC C7 59 1D 14 AB
  262.                     24 05 0A AC 30 20 1D 0B AC C7 59 1D 06 AC AC 31 03 19 03 19
  263.                     03
  264.                    )
  265.                :WHITE #\Space #\Newline :WHITE-OR-END #\} :ALPHA-OR-END
  266.               )
  267.          #\\
  268.         )
  269.       #Y(#:TOP-LEVEL-FORM-25-1-1 #12Y(00 01 00 00 00 02 AB D9 C5 33 19 02) NIL
  270.          :ALPHA-OR-END #1#
  271.         )
  272.       :WHITE #\" "DEUTSCH" "ENGLISH" "FRANCAIS"
  273.       #Y(#:TOP-LEVEL-FORM-25-1-2 #12Y(00 01 00 00 00 02 AB D9 C5 33 19 02) NIL
  274.          :ALPHA-OR-END #1#
  275.         )
  276.       :WHITE-OR-END #\} *LOAD-INPUT-STREAM* ".lsp" LINE-NUMBER DEUTSCH ENGLISH
  277.       FRANCAIS *MSG-LIST* LANGUAGE
  278.   )  )
  279. #Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
  280.    EXPORTED-LISP-SYMBOL-P
  281.    #Y(EXPORTED-LISP-SYMBOL-P
  282.       #73Y(00 01 00 00 00 02 AB 71 8C D8 70 CF 91 00 23 16 01 1D 34 DA 70 CF 9B
  283.            1E 2C AB AB 30 D8 41 02 AB A1 59 1E 1F AA C4 59 19 06 AA C4 59 16 03
  284.            1D 17 1A 61 AB AB 30 D8 41 02 AB A1 59 1B 6C 16 03 1D 06 1A 50 19 06
  285.            19 04 19 03
  286.           )
  287.       "LISP" :EXTERNAL "COMMON-LISP"
  288.   )  )
  289. #Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
  290.    REMOVE-OLD-DEFINITIONS
  291.    #Y(REMOVE-OLD-DEFINITIONS
  292.       #112Y(00 01 00 00 00 02 AB 8B 54 80 4C AB 8B 53 04 AB 8C 5A 1A AB 88 05
  293.             16 DE DF E0 6D 03 04 E1 E2 E3 6D 03 04 AD 6E 0C AE AF 70 5A 2C 05
  294.             0D AB 30 57 AB E6 31 89 AB E7 37 01 8E 84 06 AB E8 62 2C 03 11 AB
  295.             EA 37 01 8E 84 05 AB EA 63 31 88 AB EB 37 01 8D 84 0E 00 19 02 D8
  296.             D9 DA DB 6D 03 04 AD 32 01 1F EC ED EE 6D 03 04 AC 2F 17 AB 2E 18
  297.             19 02
  298.            )
  299.       ERROR "~S is a special form and may not be redefined."
  300.       "~S ist eine Special-Form und darf nicht umdefiniert werden."
  301.       "~S est une forme spéciale et ne peut pas être redéfinie." LANGUAGE
  302.       EXPORTED-LISP-SYMBOL-P "The old definition will be lost"
  303.       "Die alte Definition wird weggeworfen."
  304.       "L'ancienne définition sera perdue." "Redefining the COMMON LISP ~A ~S"
  305.       "D~2@*~:[ie~;er~]~0@* COMMON-LISP-~A ~S wird umdefiniert."
  306.       "L~2@*~:[a~;e~]~0@* ~A ~S de COMMON-LISP va être redéfini~:[e~;~]."
  307.       FBOUND-STRING CERROR MACRO DOCUMENTATION-STRINGS FUNCTION
  308.       %SET-DOCUMENTATION INLINE-EXPANSION TRACED-DEFINITION
  309.       "DEFUN/DEFMACRO: redefining ~S; it was traced!"
  310.       "DEFUN/DEFMACRO: ~S war getraced und wird umdefiniert!"
  311.       "DEFUN/DEFMACRO : ~S était tracée et est redéfinie!" WARN UNTRACE2
  312.   )  )
  313. #Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
  314.    %THE-ENVIRONMENT
  315.    #Y(%THE-ENVIRONMENT
  316.       #19Y(00 02 00 00 00 03 AB C3 5E 14 C4 5E 14 AC C3 5F 9C 19 03) 0. 2.
  317.   )  )
  318. #Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D8 D9 31 82 19 01)
  319.    %THE-ENVIRONMENT-ERROR
  320.    #Y(%THE-ENVIRONMENT-ERROR
  321.       #17Y(00 00 00 00 00 01 D8 D9 DA DB 6D 03 04 DD 32 01 1F) PROGRAM-ERROR
  322.       "~S is impossible in compiled code"
  323.       "~S ist in compiliertem Code unmöglich."
  324.       "~S est impossible dans du code compilé." LANGUAGE THE-ENVIRONMENT
  325.   )  )
  326. #Y(#:TOP-LEVEL-FORM-30 #14Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 19 01)
  327.    THE-ENVIRONMENT MACRO
  328.    #Y(THE-ENVIRONMENT #9Y(00 02 00 00 00 03 C3 19 03)
  329.       (PROGN (EVAL-WHEN ((NOT EVAL)) (%THE-ENVIRONMENT-ERROR))
  330.         (LET ((*EVALHOOK* #'%THE-ENVIRONMENT)) 0.)
  331.   )  ))
  332. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  333.    BLOCK-NAME REMOVE-OLD-DEFINITIONS
  334.    #Y(BLOCK-NAME #17Y(00 01 00 00 00 02 9C 1F 05 9C 5B 5A 19 02 9C 19 02))
  335.   )
  336. #Y(#:TOP-LEVEL-FORM-32-1 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  337.    (SPECIAL *KEYWORD-PACKAGE*)
  338.   )
  339. #Y(#:TOP-LEVEL-FORM-32-2 #14Y(00 00 00 00 00 01 D8 30 CF 0F 01 3D 19 01)
  340.    "KEYWORD" *KEYWORD-PACKAGE*
  341.   )
  342. #Y(#:TOP-LEVEL-FORM-32-3 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  343.    (SPECIAL *FENV*)
  344.   )
  345. #Y(#:TOP-LEVEL-FORM-32-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  346.    FENV-ASSOC REMOVE-OLD-DEFINITIONS
  347.    #Y(FENV-ASSOC
  348.       #80Y(00 02 00 00 00 03 92 01 80 43 14 8D 26 0F DA DB AD DC DD DE DF E0 6D
  349.            03 09 B1 32 05 1F AB 71 48 71 98 D8 1A 15 AD AB 31 97 5E 19 05 AE AE
  350.            9D 5E 14 8D 04 71 D9 AB 81 02 35 00 AA AC 90 01 2D 6C AE AE 9D 5E 14
  351.            28 02 07 00 91 01 FF BD 02 19 03
  352.           )
  353.       0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
  354.       "~S is an invalid function environment"
  355.       "~S ist kein korrektes Function-Environment."
  356.       "~S n'est pas un environnement de fonctions correct." LANGUAGE
  357.   )  )
  358. #Y(#:TOP-LEVEL-FORM-32-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  359.    GLOBAL-IN-FENV-P REMOVE-OLD-DEFINITIONS
  360.    #Y(GLOBAL-IN-FENV-P #14Y(00 02 00 00 00 03 AC AC 6F 00 02 59 19 03)
  361.       FENV-ASSOC
  362.   )  )
  363. #Y(#:TOP-LEVEL-FORM-32-6 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  364.    (SPECIAL *VENV*)
  365.   )
  366. #Y(#:TOP-LEVEL-FORM-32-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  367.    VENV-ASSOC REMOVE-OLD-DEFINITIONS
  368.    #Y(VENV-ASSOC
  369.       #86Y(00 02 00 00 00 03 92 01 80 40 14 8D 26 0F DA DB AD DC DD DE DF E0 6D
  370.            03 09 B1 32 05 1F AB 71 48 71 98 D8 1A 13 AD AB 31 97 5E 19 05 AE AE
  371.            9D 5E 21 73 D9 AB 81 02 35 00 AA AC 90 01 2D 6E AE AE 9D 5E 14 28 02
  372.            07 00 91 01 40 AC 30 52 1E 05 AC 2E 0A 19 03 19 03
  373.           )
  374.       0. 2. TYPE-ERROR :DATUM :EXPECTED-TYPE (OR NULL SIMPLE-VECTOR)
  375.       "~S is an invalid variable environment"
  376.       "~S ist kein korrektes Variablen-Environment."
  377.       "~S n'est pas un environnement de variables correct." LANGUAGE
  378.       %SYMBOL-VALUE
  379.   )  )
  380. #Y(#:TOP-LEVEL-FORM-32-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  381.    %EXPAND-CONS REMOVE-OLD-DEFINITIONS
  382.    #Y(%EXPAND-CONS
  383.       #25Y(00 05 00 00 00 06 91 03 0A 91 01 07 AF 00 14 3F 02 19 06 AE 9E 79 02
  384.            1A 75
  385.   )  )    )
  386. #Y(#:TOP-LEVEL-FORM-32-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  387.    %EXPAND-FORM REMOVE-OLD-DEFINITIONS
  388.    #Y(%EXPAND-FORM
  389.       #1224Y(00 01 00 00 00 02 9C 20 84 3F 62 AC 8E 08 0A AC 6A 00 2F 01 F6 14
  390.              87 02 07 AC 00 14 3F 02 19 03 AA DB 71 2E 02 1A 74 9C 25 07 84 08
  391.              97 08 44 AE 05 00 03 77 62 CB 1A 82 56 AD 00 1A 84 4C E4 E5 E6 E7
  392.              6D 03 10 D4 1A 80 57 9B 1F 05 93 00 23 0B 6D EA EB EC ED 6D 03 10
  393.              D4 1A 84 3F 05 00 03 5B 77 6A 05 6F 06 AA 02 21 07 AA 8D 0C 03 91
  394.              00 59 05 00 03 78 62 3F 02 16 01 1A 83 F4 97 08 44 AE E2 62 05 00
  395.              03 5B 5B 20 3C 05 00 03 5B 77 87 04 4B 05 00 03 5B 5A 20 14 E4 EE
  396.              EF F0 6D 03 10 D4 14 66 00 03 05 00 03 5B 77 32 03 1F 97 08 44 05
  397.              01 03 78 05 01 03 5B 77 2E 19 40 05 01 03 5B 78 62 45 1A 83 AB 97
  398.              08 44 05 01 03 78 05 01 03 5B 77 62 97 08 44 05 02 03 5B 78 05 02
  399.              03 5B 5B 77 2E 19 40 05 02 03 5B 5B 78 62 45 1A 83 32 F3 F4 F5 A1
  400.              5B 5B 79 30 5E 42 14 7A 02 60 02 1A 83 88 F2 9F 5B 77 37 03 8B B7
  401.              65 97 08 44 AE 05 00 03 77 62 CB 1A 81 79 0E 00 10 00 A1 5B 78 2E
  402.              1E 97 08 44 B1 05 00 06 77 62 97 08 44 05 01 06 78 05 01 06 5B 77
  403.              2E 1F 1A 20 0E 00 10 00 A1 5B 78 2E 1E 97 08 44 B1 05 00 06 77 62
  404.              97 08 44 05 01 06 78 05 01 06 5B 77 2E 20 40 05 01 06 5B 78 2E 09
  405.              1A 80 5B 0E 00 10 00 94 06 2E 1E 97 08 44 B1 05 00 06 77 62 05 00
  406.              06 78 2E 09 1A 80 43 0E 00 10 00 A1 5B 5B 78 2E 1E 97 08 44 B1 64
  407.              21 62 97 08 44 05 01 06 78 05 01 06 5B 77 62 97 08 44 05 02 06 5B
  408.              78 05 02 06 5B 5B 77 27 FE 5A 40 05 02 06 5B 77 2E 22 05 02 06 5B
  409.              5B 78 2E 09 40 45 40 45 40 45 11 19 04 98 23 9F 5B 77 72 00 17 98
  410.              24 A0 5B 77 32 00 17 13 F5 05 00 03 5B 5B 79 6B FE 26 63 3F 02 11
  411.              18 01 19 04 97 08 44 AE 05 00 03 77 62 05 00 03 78 2E 25 1A 82 76
  412.              97 08 44 B0 05 00 05 77 62 97 08 44 05 01 05 78 05 01 05 5B 77 62
  413.              66 01 01 66 01 00 45 40 45 19 06 9C 1A 1C 9C 5A 1A 18 9E 5B 78 2E
  414.              09 41 02 A0 5B 77 AC 89 26 4A 9C 1F 68 9C 5B 1C 67 F5 9D 5C 14 63
  415.              3F 02 19 06 03 29 1A 07 93 03 23 28 77 03 2A 14 AA 70 5A AB A1 5B
  416.              79 6A 00 6A 05 72 02 00 75 02 6B FD A7 63 3F 02 19 05 94 03 87 27
  417.              5B 97 08 44 AE 05 00 03 77 62 05 00 03 78 2E 2B 1A 81 F5 64 2D 9F
  418.              1A 80 95 9E 5B 77 87 2C 74 97 08 44 AE 64 2E 62 CB 5D 44 05 01 03
  419.              78 05 01 03 5B 77 62 1A 81 7B 97 08 44 AE 05 00 03 77 62 05 00 03
  420.              78 2E 2F 1A 81 C0 00 1A 81 D4 9E 5B 5A 1A 81 CA 9E 5B 1C 72 9E 5B
  421.              5B 1C 71 97 08 44 AE 05 00 03 5A 1A 81 9A 03 1D 1A 80 40 9E 5B 5A
  422.              1C 76 9E 5B 77 6E 30 97 08 44 AF 05 00 04 77 62 97 08 44 05 01 04
  423.              78 05 01 04 5B 77 2E 31 40 64 32 05 01 00 36 00 10 05 05 01 04 5B
  424.              78 2E 09 11 40 45 40 45 19 05 9E 5B 5A 1B 0A 03 1D 14 9F 5B 5B 5C
  425.              1A 81 69 9E 5B 77 6E 30 64 32 9C 36 00 10 05 97 08 44 B2 05 00 07
  426.              77 62 97 08 44 05 01 07 78 05 01 07 5B 77 2E 31 40 05 01 07 5B 78
  427.              2E 09 40 45 40 45 11 19 05 9E 5B 77 62 1A 2F E4 64 34 64 35 03 36
  428.              1A 80 49 E4 64 37 64 38 03 39 1A 80 75 93 01 9B 1F 67 93 00 8E 08
  429.              62 9B 5B 1F 5E AA 6E 33 93 01 9E 5C 5C F7 16 01 82 01 9C 20 62 91
  430.              01 55 64 32 6A 05 9D 79 31 4A 36 00 10 05 03 1D 1A 80 5A 9E 5B 77
  431.              62 1A 30 E4 64 3B 64 3C 03 3D 14 6D 03 10 9D 1A 34 93 01 9B 1F 6D
  432.              93 00 8E 08 68 9B 5B 1F 64 9B 5B 5B 1B 5F 9B 5B 77 6E 3A 93 01 9E
  433.              5C 5C F7 16 01 82 01 9C 20 5B 92 01 10 E4 64 3E 64 3F 03 40 14 6D
  434.              03 10 9E 14 32 01 1F 64 32 6A 00 9D 79 31 4A 36 00 10 00 03 41 14
  435.              A4 5B 5B 79 6B FC 0B 63 3F 02 11 19 06 97 08 44 AE 05 00 03 77 62
  436.              97 08 44 05 01 03 78 05 01 03 5B 77 2E 42 40 05 01 03 5B 78 2E 09
  437.              40 45 1A 80 4B CB 1A 3A AA AE 6A 00 6A 05 32 02 00 1A 80 4D AB 8E
  438.              08 04 AB 8B 54 69 AB 8E 08 06 AB 7F 5A 00 1B 62 CB 1A 19 93 01 AA
  439.              88 04 80 64 AA 6A 05 6F 06 AA 02 21 FB CD AA 8D 0C 03 91 00 13 CB
  440.              5D 44 AE 05 00 01 14 62 05 00 03 78 2E 09 40 45 19 04 9B 1F 18 93
  441.              00 24 0B 13 94 00 AE 0E 05 14 35 02 14 27 FB 7E 14 02 14 3F 02 19
  442.              04 EA 64 43 64 44 64 45 6D 03 10 03 46 14 0E 05 1A 24 97 08 44 AD
  443.              66 00 00 2E 19 40 05 00 02 78 2E 09 40 45 19 03 9B 20 69 E4 64 47
  444.              64 48 64 49 6D 03 10 64 46 A0 14 32 02 1F
  445.             )
  446.       *VENV* VENV-ASSOC SYMBOL-MACRO-P 0. FUNCTION-NAME-P *FENV* FENV-ASSOC
  447.       #S(HASH-TABLE EQ (%HANDLER-BIND . 983.) (SYMBOL-MACROLET . 879.)
  448.          (MACROLET . 803.) (LABELS . 738.) (FLET . 681.) (PROGN . 656.)
  449.          (TAGBODY . 628.) (MULTIPLE-VALUE-SETQ . 599.) (PSETQ . 570.)
  450.          (SETQ . 570.) (BLOCK . 504.) (COND . 446.) (COMPILER-LET . 411.)
  451.          (MULTIPLE-VALUE-BIND . 339.) (LOCALLY . 313.) (LET* . 270.)
  452.          (LET . 236.) (EVAL-WHEN . 214.) (FUNCTION . 82.)
  453.          (LOAD-TIME-VALUE . 15.) (DECLARE . 15.) (GO . 15.) (QUOTE . 15.)
  454.          (THE . 2.) (RETURN-FROM . 2.)
  455.         )
  456.       %EXPAND-CONS %EXPAND-LIST FUNCTION MACRO PROGRAM-ERROR
  457.       "~S: ~S is illegal since ~S is a local macro"
  458.       "~S: ~S unzulässig, da ~S ein lokaler Macro ist"
  459.       "~S : ~S est illégal car ~S est un macro local" LANGUAGE %EXPAND ERROR
  460.       "~S: invalid function environment ~S"
  461.       "~S: Falscher Aufbau eines Function-Environment: ~S"
  462.       "~S : mauvais environnement de fonction ~S"
  463.       "~S: ~S is invalid since ~S is not a symbol"
  464.       "~S: ~S unzulässig, da ~S kein Symbol"
  465.       "~S : ~S est illégal car ~S n'est pas un symbole" %EXPAND-LAMBDA COMPILE
  466.       VALUES-LIST QUOTE PROGN %EXPAND-SPECIAL-DECLARATIONS %EXPAND-VARSPEZ
  467.       %EXPAND-VARSPEZ* MULTIPLE-VALUE-BIND %EXPAND-LEXICAL-VARIABLES
  468.       %EXPAND-VARSPEC-VAR %EXPAND-VARSPEC-VAL %EXPAND-COND %RETURN-P
  469.       %EXPAND-SETQLIST-MACROP SETQ SETF PSETF %EXPAND-SETQLIST
  470.       %EXPAND-VARLIST-MACROP MULTIPLE-VALUE-SETF MULTIPLE-VALUE-SETQ
  471.       %EXPAND-TAGBODY %EXPAND-FUNDEFS-1 %EXPAND-FUNDEFS-2 #.#'VECTOR
  472.       MAKE-MACRO-EXPANDERCONS "illegal syntax in MACROLET: ~S"
  473.       "Falsche Syntax in MACROLET: ~S" "syntaxe illégale dans MACROLET : ~S"
  474.       "code after MACROLET contains a dotted list, ending with ~S"
  475.       "Dotted list im Code von MACROLET, endet mit ~S"
  476.       "Le code de MACROLET contient une paire pointée, terminée par ~S"
  477.       MAKE-SYMBOL-MACRO "illegal syntax in SYMBOL-MACROLET: ~S"
  478.       "Falsche Syntax in SYMBOL-MACROLET: ~S"
  479.       "syntaxe illégale dans SYMBOL-MACROLET : ~S"
  480.       "code after SYMBOL-MACROLET contains a dotted list, ending with ~S"
  481.       "Dotted list im Code von SYMBOL-MACROLET, endet mit ~S"
  482.       "Le code de SYMBOL-MACROLET contient une paire pointée, terminée par ~S"
  483.       LOCALLY %EXPAND-HANDLERS "bad function environment occurred in ~S: ~S"
  484.       "Falscher Aufbau eines Function-Environment in ~S: ~S"
  485.       "mauvais environnement de fonction dans ~S : ~S" %EXPAND-FORM
  486.       "~S: invalid form ~S" "~S: ~S ist keine korrekte Form"
  487.       "~S : forme Lisp incorrecte ~S"
  488.   )  )
  489. #Y(#:TOP-LEVEL-FORM-32-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  490.    %EXPAND-LIST REMOVE-OLD-DEFINITIONS
  491.    #Y(%EXPAND-LIST
  492.       #50Y(00 01 00 00 00 02 9C 1F 20 97 05 44 AC 05 00 01 77 2E 06 40 05 00 01
  493.            78 27 6C 40 45 19 02 D8 D9 DA DB 6D 03 04 AD 32 01 1F 91 01 72 01 02
  494.            3F 02 19 02
  495.           )
  496.       PROGRAM-ERROR "code contains a dotted list, ending with ~S"
  497.       "Dotted list im Code, endet mit ~S"
  498.       "une paire pointée dans le code, terminée par ~S" LANGUAGE %EXPAND-CONS
  499.       %EXPAND-FORM
  500.   )  )
  501. #Y(#:TOP-LEVEL-FORM-32-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  502.    %EXPAND-LEXICAL-VARIABLES REMOVE-OLD-DEFINITIONS
  503.    #Y(%EXPAND-LEXICAL-VARIABLES
  504.       #53Y(00 01 00 00 00 02 91 01 03 00 19 02 D8 62 AD 1A 0E 93 00 AA 62 7A 02
  505.            AD 7F A6 02 16 01 82 00 9B 20 6F 16 01 AA 7F A7 00 6A 01 7A 01 32 02
  506.            24 36 00 0F 01 19 02
  507.           )
  508.       #.#'VECTOR *VENV*
  509.   )  )
  510. #Y(#:TOP-LEVEL-FORM-32-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  511.    %EXPAND-SPECIAL-DECLARATIONS REMOVE-OLD-DEFINITIONS
  512.    #Y(%EXPAND-SPECIAL-DECLARATIONS
  513.       #89Y(00 01 00 00 00 02 AB 62 6A 00 6A 01 72 02 00 30 62 41 02 62 AB 71 4A
  514.            AA 1A 33 94 00 AA 1A 11 AA 83 06 16 01 1A 08 93 00 AA 8D 08 73 16 01
  515.            82 00 9B 20 73 16 03 1A 14 93 00 9B 1F 0D AA 37 01 30 A0 5B 1B 05 93
  516.            00 23 02 51 16 01 82 00 9B 20 67 16 02 AA 71 4A 2E 03 19 05
  517.           )
  518.       *VENV* *FENV* SPECIAL %EXPAND-LEXICAL-VARIABLES
  519.   )  )
  520. #Y(#:TOP-LEVEL-FORM-32-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  521.    %EXPAND-LAMBDA REMOVE-OLD-DEFINITIONS
  522.    #Y(%EXPAND-LAMBDA
  523.       #39Y(00 01 00 00 00 02 93 01 24 00 10 97 07 44 AC D8 62 05 00 01 78 2E 08
  524.            40 45 19 02 D9 DA DB DC 6D 03 05 DE AE 32 02 1F
  525.           )
  526.       LAMBDA PROGRAM-ERROR "~S: ~S should be a lambda expression"
  527.       "~S: ~S sollte LAMBDA-Ausdruck sein"
  528.       "~S : ~S devrait être une expression LAMBDA" LANGUAGE %EXPAND-FORM
  529.       %EXPAND-CONS %EXPAND-LAMBDABODY
  530.   )  )
  531. #Y(#:TOP-LEVEL-FORM-32-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  532.    %EXPAND-LAMBDABODY REMOVE-OLD-DEFINITIONS
  533.    #Y(%EXPAND-LAMBDABODY
  534.       #92Y(00 01 00 00 00 02 94 01 9B 1F 10 93 00 AA 8E 06 06 93 00 C3 59 1B 35
  535.            16 01 1B 3B 0E 02 10 02 93 05 6E 03 D8 D9 B2 7A 02 7A 02 94 07 2E 04
  536.            7B 02 63 3F 02 11 19 03 93 00 C4 59 16 03 1C 5D 1A 16 93 00 AA 8D 06
  537.            70 16 03 1C 51 1A 0A 94 00 AA 8D 06 6E 16 02 1C 45 AC 62 3F 02 19 03
  538.           )
  539.       DECLARE SOURCE *VENV* %EXPAND-LAMBDALIST %EXPAND-LIST
  540.   )  )
  541. #Y(#:TOP-LEVEL-FORM-32-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  542.    %EXPAND-LAMBDALIST REMOVE-OLD-DEFINITIONS
  543.    #Y(%EXPAND-LAMBDALIST
  544.       #75Y(00 01 00 00 00 02 9C 1F 39 97 05 44 AC 05 00 01 77 2E 06 40 05 00 01
  545.            77 AA DF E0 37 02 8B B7 0B AA 6E 09 62 6A 0A 32 03 00 0F 0A 16 01 05
  546.            00 01 78 27 53 40 45 19 02 D8 D9 DA DB 6D 03 04 AD 32 01 1F 91 01 72
  547.            01 02 3F 02 19 02
  548.           )
  549.       PROGRAM-ERROR "lambda list must not end with the atom ~S"
  550.       "Lambdaliste darf nicht mit dem Atom ~S enden"
  551.       "La liste lambda ne peut pas se terminer par l'atome ~S" LANGUAGE
  552.       %EXPAND-CONS %EXPAND-PARSPEZ #.LAMBDA-LIST-KEYWORDS #.#'EQ
  553.       %EXPAND-VARSPEC-VAR *VENV*
  554.   )  )
  555. #Y(#:TOP-LEVEL-FORM-32-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  556.    %EXPAND-PARSPEZ REMOVE-OLD-DEFINITIONS
  557.    #Y(%EXPAND-PARSPEZ
  558.       #54Y(00 01 00 00 00 02 9C 1F 27 9C 5B 1F 23 97 00 44 AC 05 00 01 77 62 97
  559.            00 44 05 01 01 78 05 01 01 5B 77 2E 01 40 05 01 01 5B 78 62 45 40 45
  560.            19 02 AB 62 3F 02 19 02
  561.           )
  562.       %EXPAND-CONS %EXPAND-FORM
  563.   )  )
  564. #Y(#:TOP-LEVEL-FORM-32-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  565.    %EXPAND-VARSPEZ REMOVE-OLD-DEFINITIONS
  566.    #Y(%EXPAND-VARSPEZ
  567.       #76Y(00 01 00 01 00 08 3C 01 9D 1F 2D 97 08 44 AD 05 00 02 77 2E 09 40 05
  568.            00 02 78 62 05 00 02 77 6E 0A 05 00 01 7B 02 27 5E 40 45 19 03 D8 D9
  569.            DA DB 6D 03 04 DD AF 32 02 1F 91 02 71 DE 6A 07 9E 79 31 4A 36 00 0F
  570.            07 01 02 3F 02 19 03
  571.           )
  572.       PROGRAM-ERROR "~S: variable list ends with the atom ~S"
  573.       "~S: Variablenliste endet mit dem Atom ~S"
  574.       "~S : La liste de variables se termine par l'atome ~S" LANGUAGE LET
  575.       #.#'VECTOR *VENV* %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR
  576.   )  )
  577. #Y(#:TOP-LEVEL-FORM-32-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  578.    %EXPAND-VARSPEZ* REMOVE-OLD-DEFINITIONS
  579.    #Y(%EXPAND-VARSPEZ*
  580.       #65Y(00 01 00 00 00 02 9C 1F 2F 97 06 44 AC 05 00 01 77 2E 07 40 05 00 01
  581.            77 6E 08 62 6A 09 32 03 00 0F 09 05 00 01 78 27 5E 40 45 19 02 D8 D9
  582.            DA DB 6D 03 04 DD AE 32 02 1F 91 01 71 01 02 3F 02 19 02
  583.           )
  584.       PROGRAM-ERROR "~S: variable list ends with the atom ~S"
  585.       "~S: Variablenliste endet mit dem Atom ~S"
  586.       "~S : La liste de variables se termine par l'atome ~S" LANGUAGE LET*
  587.       %EXPAND-CONS %EXPAND-PARSPEZ %EXPAND-VARSPEC-VAR *VENV*
  588.   )  )
  589. #Y(#:TOP-LEVEL-FORM-32-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  590.    %EXPAND-VARSPEC-VAR REMOVE-OLD-DEFINITIONS
  591.    #Y(%EXPAND-VARSPEC-VAR #16Y(00 01 00 00 00 02 9C 1F 04 9C 5A 19 02 9C 19 02)
  592.   )  )
  593. #Y(#:TOP-LEVEL-FORM-32-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  594.    %EXPAND-VARSPEC-VAL REMOVE-OLD-DEFINITIONS
  595.    #Y(%EXPAND-VARSPEC-VAL
  596.       #19Y(00 01 00 00 00 02 9C 1F 07 9C 5B 77 30 5E 19 02 00 19 02)
  597.   )  )
  598. #Y(#:TOP-LEVEL-FORM-32-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  599.    %EXPAND-COND REMOVE-OLD-DEFINITIONS
  600.    #Y(%EXPAND-COND
  601.       #36Y(00 01 00 00 00 02 9C 1F 15 97 00 44 AC 05 00 01 77 2E 01 40 05 00 01
  602.            78 27 6C 40 45 19 02 AB 62 3F 02 19 02
  603.           )
  604.       %EXPAND-CONS %EXPAND-LIST
  605.   )  )
  606. #Y(#:TOP-LEVEL-FORM-32-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  607.    %RETURN-P REMOVE-OLD-DEFINITIONS
  608.    #Y(%RETURN-P
  609.       #66Y(00 02 00 00 00 03 9C 1F 33 93 01 9B 1F 28 93 00 24 00 06 9B 5B 77 9F
  610.            21 26 9B 5A 1F 07 AD 93 01 27 64 1B 1B 93 00 24 01 06 9B 5B 77 9F 21
  611.            07 AD 94 01 27 52 1B 09 16 01 82 01 1A 4A 00 19 03 02 19 04
  612.           )
  613.       RETURN-FROM BLOCK
  614.   )  )
  615. #Y(#:TOP-LEVEL-FORM-32-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  616.    %EXPAND-VARLIST-MACROP REMOVE-OLD-DEFINITIONS
  617.    #Y(%EXPAND-VARLIST-MACROP
  618.       #34Y(00 01 00 00 00 02 AB 31 06 1E 15 93 01 8E 08 0A 93 01 6A 00 6F 01 2E
  619.            02 1D 06 94 01 28 01 03 66 19 02
  620.           )
  621.       *VENV* VENV-ASSOC SYMBOL-MACRO-P
  622.   )  )
  623. #Y(#:TOP-LEVEL-FORM-32-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  624.    %EXPAND-SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
  625.    #Y(%EXPAND-SETQLIST-MACROP
  626.       #41Y(00 01 00 00 00 02 AB 31 06 1E 1C 94 01 31 06 1E 16 93 01 8E 08 0A 93
  627.            01 6A 00 6F 01 2E 02 1D 07 9C 5B 78 28 01 03 5F 19 02
  628.           )
  629.       *VENV* VENV-ASSOC SYMBOL-MACRO-P
  630.   )  )
  631. #Y(#:TOP-LEVEL-FORM-32-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  632.    %EXPAND-SETQLIST REMOVE-OLD-DEFINITIONS
  633.    #Y(%EXPAND-SETQLIST
  634.       #56Y(00 01 00 00 00 02 9C 1F 29 9C 5B 1F 25 97 00 44 AC 05 00 01 77 62 97
  635.            00 44 05 01 01 78 05 01 01 5B 77 2E 01 40 05 01 01 5B 78 27 5A 40 45
  636.            40 45 19 02 AB 62 3F 02 19 02
  637.           )
  638.       %EXPAND-CONS %EXPAND-FORM
  639.   )  )
  640. #Y(#:TOP-LEVEL-FORM-32-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  641.    %EXPAND-TAGBODY REMOVE-OLD-DEFINITIONS
  642.    #Y(%EXPAND-TAGBODY
  643.       #77Y(00 01 00 00 00 02 9C 1F 21 9C 5A 1F 23 93 01 2E 01 41 02 9C 1F 2D 97
  644.            00 44 AE 66 00 01 66 00 00 05 00 03 78 27 60 40 45 19 04 AB 62 3F 02
  645.            19 02 97 00 44 AC 05 00 01 77 62 05 00 01 78 27 47 40 45 19 02 94 03
  646.            6B FF BE 63 3F 02 19 04
  647.           )
  648.       %EXPAND-CONS %EXPAND-FORM
  649.   )  )
  650. #Y(#:TOP-LEVEL-FORM-32-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  651.    %EXPAND-FUNDEFS-1 REMOVE-OLD-DEFINITIONS
  652.    #Y(%EXPAND-FUNDEFS-1
  653.       #65Y(00 01 00 00 00 02 9C 1F 24 93 01 9B 1F 09 93 00 88 06 04 9B 5B 20 1F
  654.            D8 DF E0 E1 6D 03 04 9D 14 32 01 1F D8 D9 DA DB 6D 03 04 9E 1A 72 91
  655.            01 73 6A 05 60 01 19 02 93 00 62 94 04 27 49 61 02 19 03
  656.           )
  657.       PROGRAM-ERROR "FLET/LABELS: code contains a dotted list, ending with ~S"
  658.       "FLET/LABELS: Dotted list im Code, endet mit ~S"
  659.       "FLET/LABELS : une paire pointée dans le code, terminée par ~S" LANGUAGE
  660.       *FENV* FUNCTION-NAME-P "illegal syntax in FLET/LABELS: ~S"
  661.       "Falsche Syntax in FLET/LABELS: ~S"
  662.       "syntaxe incorrecte dans FLET/LABELS : ~S"
  663.   )  )
  664. #Y(#:TOP-LEVEL-FORM-32-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  665.    %EXPAND-FUNDEFS-2 REMOVE-OLD-DEFINITIONS
  666.    #Y(%EXPAND-FUNDEFS-2
  667.       #51Y(00 01 00 00 00 02 9C 1F 24 93 01 97 00 44 AD 97 00 44 66 01 00 05 01
  668.            00 77 62 05 01 00 78 2E 01 40 45 40 05 00 02 78 27 5D 40 45 19 03 AB
  669.            62 3F 02 19 02
  670.           )
  671.       %EXPAND-CONS %EXPAND-LAMBDABODY
  672.   )  )
  673. #Y(#:TOP-LEVEL-FORM-32-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  674.    %EXPAND-HANDLERS REMOVE-OLD-DEFINITIONS
  675.    #Y(%EXPAND-HANDLERS
  676.       #51Y(00 01 00 00 00 02 9C 1F 24 93 01 97 00 44 AD 97 00 44 66 01 00 05 01
  677.            00 77 62 05 01 00 78 2E 01 40 45 40 05 00 02 78 27 5D 40 45 19 03 AB
  678.            62 3F 02 19 02
  679.           )
  680.       %EXPAND-CONS %EXPAND-LIST
  681.   )  )
  682. #Y(#:TOP-LEVEL-FORM-32-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  683.    %EXPAND-LAMBDABODY-MAIN REMOVE-OLD-DEFINITIONS
  684.    #Y(%EXPAND-LAMBDABODY-MAIN
  685.       #19Y(00 03 00 00 00 04 9D 10 00 9F 10 01 B3 2E 02 12 02 19 04) *VENV*
  686.       *FENV* %EXPAND-LAMBDABODY
  687.   )  )
  688. #Y(#:TOP-LEVEL-FORM-32-31 #9Y(00 00 00 00 00 01 3D 19 01))
  689. #Y(#:TOP-LEVEL-FORM-33-1 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  690.    (SPECIAL *LOAD-PATHS*)
  691.   )
  692. #Y(#:TOP-LEVEL-FORM-33-2 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-PATHS*
  693.   )
  694. #Y(#:TOP-LEVEL-FORM-33-3 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  695.    (SPECIAL *SOURCE-FILE-TYPES*)
  696.   )
  697. #Y(#:TOP-LEVEL-FORM-33-4 #12Y(00 00 00 00 00 01 C3 0F 01 3D 19 01)
  698.    (#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
  699.         :TYPE "lsp" :VERSION NIL
  700.    )  )
  701.    *SOURCE-FILE-TYPES*
  702.   )
  703. #Y(#:TOP-LEVEL-FORM-33-5 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  704.    (SPECIAL *COMPILED-FILE-TYPES*)
  705.   )
  706. #Y(#:TOP-LEVEL-FORM-33-6 #12Y(00 00 00 00 00 01 C3 0F 01 3D 19 01)
  707.    (#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
  708.         :TYPE "fas" :VERSION NIL
  709.    )  )
  710.    *COMPILED-FILE-TYPES*
  711.   )
  712. #Y(#:TOP-LEVEL-FORM-33-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  713.    SEARCH-FILE REMOVE-OLD-DEFINITIONS
  714.    #Y(SEARCH-FILE
  715.       #49Y(00 02 00 00 00 03 62 AC 71 49 1A 1B AA 60 01 1A 0D 93 00 AF AB 37 02
  716.            70 F3 AA 8B F8 6F 00 F6 AD 7F A6 02 16 01 82 00 9B 20 67 16 01 AA 30
  717.            A7 19 04
  718.   )  )    )
  719. #Y(#:TOP-LEVEL-FORM-33-8 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  720.    (SPECIAL *LOAD-VERBOSE*)
  721.   )
  722. #Y(#:TOP-LEVEL-FORM-33-9 #12Y(00 00 00 00 00 01 02 0F 00 3D 19 01)
  723.    *LOAD-VERBOSE*
  724.   )
  725. #Y(#:TOP-LEVEL-FORM-33-10 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  726.    (SPECIAL *LOAD-PRINT*)
  727.   )
  728. #Y(#:TOP-LEVEL-FORM-33-11 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
  729.    *LOAD-PRINT*
  730.   )
  731. #Y(#:TOP-LEVEL-FORM-33-12 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  732.    (SPECIAL *LOAD-ECHO*)
  733.   )
  734. #Y(#:TOP-LEVEL-FORM-33-13 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-ECHO*
  735.   )
  736. #Y(#:TOP-LEVEL-FORM-33-14 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  737.    (SPECIAL *LOAD-PATHNAME*)
  738.   )
  739. #Y(#:TOP-LEVEL-FORM-33-15 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
  740.    *LOAD-PATHNAME*
  741.   )
  742. #Y(#:TOP-LEVEL-FORM-33-16 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  743.    (SPECIAL *LOAD-TRUENAME*)
  744.   )
  745. #Y(#:TOP-LEVEL-FORM-33-17 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
  746.    *LOAD-TRUENAME*
  747.   )
  748. #Y(#:TOP-LEVEL-FORM-33-18 #12Y(00 00 00 00 00 01 D8 30 5D 3D 19 01)
  749.    (SPECIAL *LOAD-INPUT-STREAM*)
  750.   )
  751. #Y(#:TOP-LEVEL-FORM-33-19 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01)
  752.    *LOAD-INPUT-STREAM*
  753.   )
  754. #Y(#:TOP-LEVEL-FORM-33-20 #12Y(00 00 00 00 00 01 D8 30 57 3D 19 01) LOAD)
  755. #Y(#:TOP-LEVEL-FORM-33-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  756.    LOAD REMOVE-OLD-DEFINITIONS
  757.    #Y(LOAD
  758.       #337Y(00 01 00 00 80 1C 00 05 00 00 3A 05 03 0E 05 FB 3A 04 03 0E 06 FA
  759.             3A 03 02 7D 03 3A 02 03 0E 07 F8 3C 01 B0 8D 18 80 98 B0 7F E9 06
  760.             14 E0 E1 37 01 62 8B FB 1B B0 6A 0A 6A 0B 72 02 23 6F 0C AA 8B 96
  761.             80 80 86 00 07 14 E0 E1 37 02 30 FB 16 01 14 92 00 80 F6 91 03 80
  762.             71 9B 14 B2 8D 1C 80 72 00 14 B3 8D 1C 80 6F 00 10 0E 0E 0F 10 0F
  763.             0E 10 10 10 A4 10 11 A8 0F 12 92 14 1D 37 01 30 90 EB EC ED 6D 03
  764.             16 37 03 30 8D BF 37 01 30 88 EF F0 F1 6D 03 16 37 03 30 8D 52 80
  765.             66 92 13 04 37 01 30 90 B9 62 F2 37 01 70 78 AA F2 8D 03 2E AA 8D
  766.             0B 33 92 13 33 AA 01 05 2C 06 1B 14 35 00 1A 2B A1 1A FF 8C 00 16
  767.             01 1A FF 86 AA 6A 0D 31 72 1A FF 88 A3 1A FF 8B B3 30 F7 1A FF 8C
  768.             16 01 55 92 14 80 51 1A 2E 9B 1A 53 AA 30 5E 42 F6 92 16 08 92 00
  769.             05 77 37 01 30 86 16 01 92 13 FF A4 1A FF 9D 66 00 0E 37 01 31 7D
  770.             66 00 0D 37 01 31 7D 54 92 14 21 37 01 30 90 F4 F5 64 1E 6D 03 16
  771.             37 03 30 8D BF 37 01 30 88 64 1F 64 20 64 21 6D 03 16 37 03 30 8D
  772.             02 12 04 19 0A 64 22 64 23 B3 64 24 64 25 64 26 6D 03 16 B5 32 03
  773.             1F 91 04 6B 00 19 08
  774.            )
  775.       :VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE*
  776.       *LOAD-PRINT* *LOAD-ECHO* :INPUT-IMMUTABLE STRING-CHAR *SOURCE-FILE-TYPES*
  777.       *COMPILED-FILE-TYPES* SEARCH-FILE *STANDARD-OUTPUT* *LOAD-TRUENAME*
  778.       *PACKAGE* *READTABLE* *LOAD-PATHNAME* *LOAD-INPUT-STREAM*
  779.       ";; Loading file " ";; Datei " ";; Chargement du fichier " LANGUAGE
  780.       " ..." " wird geladen..." " ..." "EOF" COMPILE-FORM ";; Loading of file "
  781.       ";; Datei " ";; Le fichier " " is finished." " ist geladen."
  782.       " est chargé." FILE-ERROR :PATHNAME "A file with name ~A does not exist"
  783.       "Eine Datei mit Namen ~A gibt es nicht."
  784.       "Il n'existe pas de fichier de nom ~A."
  785.   )  )
  786. #Y(#:TOP-LEVEL-FORM-33-22 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
  787.    DEFUN MACRO
  788.    #Y(DEFUN
  789.       #128Y(00 02 00 00 00 03 9D 5B 1F 25 9D 5B 5B 1F 20 9D 5B 77 9E 5B 5B 77
  790.             9F 5B 5B 78 AC 8E 08 1C AC 8C 54 22 D8 E1 E2 E3 6D 03 04 C8 14 AF
  791.             32 02 1F D8 D9 DA DB 6D 03 04 DD 32 01 1F D8 DE DF E0 6D 03 04 C8
  792.             1A 66 AA 63 B0 30 62 41 03 E4 E5 E6 B2 7A 02 E7 E8 E6 B8 7A 02 E9
  793.             7A 03 7A 04 EA E6 B3 7A 02 EB B4 EC B5 ED EE B9 7A 02 A6 7B 02 EF
  794.             B9 A8 7B 02 7A 04 7A 03 7A 03 E6 B3 7A 02 60 04 19 09
  795.            )
  796.       PROGRAM-ERROR "~S: missing function name and/or parameter list"
  797.       "~S: Funktionsname und/oder Parameterliste fehlt"
  798.       "~S : Le nom de fonction et/ou la liste de paramètre manque" LANGUAGE
  799.       DEFUN "~S: ~S is not a symbol." "~S: ~S ist kein Symbol."
  800.       "~S : ~S n'est pas un symbole."
  801.       "~S: special form ~S cannot be redefined."
  802.       "~S: Spezialform ~S kann nicht umdefiniert werden."
  803.       "~S : La forme spéciale ~S ne peut pas être redéfinie." PROGN %PUT QUOTE
  804.       'DEFINITION CONS (THE-ENVIRONMENT) %PUTD FUNCTION LAMBDA DECLARE IN-DEFUN
  805.       BLOCK
  806.   )  )
  807. #Y(#:TOP-LEVEL-FORM-33-23 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01) DO
  808.    MACRO
  809.    #Y(DO
  810.       #160Y(00 02 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 9C 1F 2D 01 02
  811.             37 01 71 90 37 01 71 90 AE 62 B4 30 62 41 02 A3 1F 80 42 93 08 82
  812.             09 9B 1F 1C 9B 5B 1F 1B 9B 5B 5B 20 1A 9B 14 83 06 16 01 1A 64 D8
  813.             D9 DA DB 6D 03 04 DD 32 01 1F 9B 1A 6B 9B 5A 1A 67 93 00 9C 5B 77
  814.             7A 02 83 06 9B 5B 5B 77 93 01 A2 61 02 FB 16 01 1A FF BA DE 62 DF
  815.             B2 71 4A E0 A0 79 E1 E2 B3 7A 02 B4 B3 E3 B8 31 4A 79 B6 E4 93 13
  816.             E2 BB 7A 02 7A 03 E5 62 E6 04 16 5B 79 7A 03 7A 04 32 02 23 7B 03
  817.             7A 04 60 03 19 0C
  818.            )
  819.       PROGRAM-ERROR "exit clause in ~S must be a list"
  820.       "Exitclause in ~S muß Liste sein."
  821.       "La clause de sortie dans ~S doit être une liste." LANGUAGE DO BLOCK LET
  822.       DECLARE TAGBODY GO PSETQ OR RETURN-FROM PROGN
  823.   )  )
  824. #Y(#:TOP-LEVEL-FORM-33-24 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
  825.    DOTIMES MACRO
  826.    #Y(DOTIMES
  827.       #66Y(00 02 00 00 00 03 9D 5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B
  828.            78 AA 62 B1 30 62 41 02 37 01 71 90 D8 B1 D9 DA B4 7A 02 7A 03 AC B2
  829.            7A 02 7A 02 DB B3 AE 7A 03 B1 7A 02 DC A0 79 A1 61 04 19 0A
  830.           )
  831.       DO 0. 1+ >= DECLARE
  832.   )  )
  833. #Y(#:TOP-LEVEL-FORM-33-25 #9Y(00 00 00 00 00 01 3D 19 01))
  834. #Y(#:TOP-LEVEL-FORM-34 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defseq" LOAD)
  835. #Y(#:TOP-LEVEL-FORM-35 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "backquot" LOAD)
  836. #Y(#:TOP-LEVEL-FORM-36-1 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
  837.    BACKQUOTE MACRO #Y(BACKQUOTE #12Y(00 01 00 01 00 08 9D 5B 5B 5A 19 03))
  838.   )
  839. #Y(#:TOP-LEVEL-FORM-36-2 #9Y(00 00 00 00 00 01 3D 19 01))
  840. #Y(#:TOP-LEVEL-FORM-37 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defmacro" LOAD)
  841. #Y(#:TOP-LEVEL-FORM-38-1 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
  842.    DEFMACRO MACRO
  843.    #Y(DEFMACRO
  844.       #91Y(00 01 00 01 00 08 94 02 2E 00 41 04 D9 62 DA DB DC DD B2 7A 02 7A 02
  845.            91 05 31 00 14 E0 DD B4 7A 02 E1 E2 B7 7A 03 7A 03 7A 01 32 02 23 7B
  846.            03 DA E3 E4 DD B3 7A 02 E5 E1 DD BA 7A 02 D1 7B 02 7A 04 7A 03 DD B1
  847.            7A 02 60 05 19 07 DE DD B3 7A 02 DF DD B3 7A 02 7A 04 60 01 1A 40
  848.           )
  849.       MAKE-MACRO-EXPANSION LET EVAL-WHEN (COMPILE LOAD EVAL)
  850.       REMOVE-OLD-DEFINITIONS QUOTE %SET-DOCUMENTATION 'FUNCTION %PUTD CONS
  851.       'MACRO (EVAL) %PUT 'DEFINITION ((THE-ENVIRONMENT))
  852.   )  )
  853. #Y(#:TOP-LEVEL-FORM-38-2 #15Y(00 00 00 00 00 01 D8 D9 C5 79 31 82 3D 19 01)
  854.    DEFUN MACRO
  855.    #Y(DEFUN
  856.       #294Y(00 02 00 00 00 03 9D 5B 1F 1C 9D 5B 77 88 06 22 9D 5B 5B 20 80 63
  857.             D8 E2 E3 E4 6D 03 04 C8 14 A0 5B 5A 14 32 02 1F D8 D9 DA DB 6D 03
  858.             04 DD A0 5B 1A 70 D8 DF E0 E1 6D 03 04 C8 1A 62 E5 A1 1A 80 58 64
  859.             20 64 21 64 22 E5 B8 7A 02 E5 B2 7A 02 7A 03 7A 03 64 20 64 23 64
  860.             24 B2 64 25 E5 B4 7A 02 7A 04 7A 03 60 02 1A 80 84 64 27 B0 64 28
  861.             E5 B4 7A 02 7A 04 60 01 1A 80 7A 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78
  862.             AA 63 B0 30 62 41 03 A0 1F FF AD E6 E7 E5 A3 5B 77 7A 02 60 02 14
  863.             7A 02 AF E8 E9 B3 7A 02 A0 7B 02 EA B3 6E 13 A2 7B 02 7A 03 EC 62
  864.             ED AE 7A 02 0E 16 1C 25 0E 17 1C 21 B4 6A 18 F1 37 02 8C B7 18 0E
  865.             1A 1B 14 0E 1B 1B 10 0E 1C 1B 0C 0E 1D 1B 08 6A 1E 6A 1F 8D 03 FF
  866.             64 64 20 64 26 64 22 E5 B8 7A 02 7A 02 7A 03 60 01 14 91 06 FF 77
  867.             00 14 64 29 B1 64 2A B9 64 2B A5 79 7A 03 7A 03 64 20 64 2C 64 24
  868.             B4 64 2D 64 2E E5 C1 7A 02 03 2F 7B 02 7A 04 7A 03 E5 B9 7A 02 7A
  869.             03 32 03 23 61 03 19 0B
  870.            )
  871.       PROGRAM-ERROR "~S: cannot define a function from that: ~S"
  872.       "~S: Daraus kann keine Funktion definiert werden: ~S"
  873.       "~S : Pas de définition de fonction possible à partir de: ~S" LANGUAGE
  874.       DEFUN FUNCTION-NAME-P
  875.       "~S: the name of a function must be a symbol, not ~S"
  876.       "~S: Der Name einer Funktion muß ein Symbol sein, nicht: ~S"
  877.       "~S : Le nom d'une fonction doit être un symbole et non ~S"
  878.       "~S: function ~S is missing a lambda list"
  879.       "~S: Die Funktion ~S hat keine Lambdaliste."
  880.       "~S : Il manque une liste lambda à la fonction ~S." QUOTE LOAD-TIME-VALUE
  881.       GET-SETF-SYMBOL DECLARE IN-DEFUN BLOCK BLOCK-NAME LET
  882.       REMOVE-OLD-DEFINITIONS *COMPILING* *COMPILING-FROM-FILE*
  883.       *INLINE-FUNCTIONS* #.#'EQ *VENV* *FENV* *BENV* *GENV* *DENV*
  884.       *TOPLEVEL-DENV* EVAL-WHEN (COMPILE) C-DEFUN (LOAD) %PUT 'INLINE-EXPANSION
  885.       (COMPILE) %SET-DOCUMENTATION 'FUNCTION %PUTD FUNCTION LAMBDA (EVAL)
  886.       'DEFINITION CONS ((THE-ENVIRONMENT))
  887.   )  )
  888. #Y(#:TOP-LEVEL-FORM-38-3 #9Y(00 00 00 00 00 01 3D 19 01))
  889. #Y(#:TOP-LEVEL-FORM-39
  890.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) MACRO-EXPANDER
  891.    REMOVE-OLD-DEFINITIONS MACRO
  892.    #Y(MACRO-EXPANDER #13Y(00 01 00 01 00 08 94 02 AA 2E 00 19 04)
  893.       MAKE-MACRO-EXPANSION
  894.   )  )
  895. #Y(#:TOP-LEVEL-FORM-40 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "macros1" LOAD)
  896. #Y(#:TOP-LEVEL-FORM-41 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "macros2" LOAD)
  897. #Y(#:TOP-LEVEL-FORM-42 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs1" LOAD)
  898. #Y(#:TOP-LEVEL-FORM-43 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "timezone" LOAD)
  899. #Y(#:TOP-LEVEL-FORM-44 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "places" LOAD)
  900. #Y(#:TOP-LEVEL-FORM-45 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "floatpri" LOAD)
  901. #Y(#:TOP-LEVEL-FORM-46 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "type" LOAD)
  902. #Y(#:TOP-LEVEL-FORM-47 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defstruc" LOAD)
  903. #Y(#:TOP-LEVEL-FORM-48 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "format" LOAD)
  904. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  905.    SEARCH-FILE REMOVE-OLD-DEFINITIONS
  906.    #Y(SEARCH-FILE
  907.       #171Y(00 02 00 00 00 03 00 2A 01 7E 02 00 00 AD 37 01 30 EE 58 14 92 00
  908.             0A D8 67 02 00 32 00 17 0B 01 00 AE D9 37 02 7F F3 04 62 DA DB B1
  909.             37 01 70 EC DC 37 02 8B B7 0B DD 6A 06 32 00 17 79 62 1A 80 63 00
  910.             1A 78 B0 6C 07 01 AB 37 05 80 54 00 92 00 80 49 14 62 1A 10 86 01
  911.             00 14 98 08 9D 5B 5B 5A 76 00 30 AE 82 01 AB 8C 96 6C 16 02 E1 AB
  912.             E2 E3 37 02 71 68 32 00 17 19 0A 86 01 00 B1 AB 37 02 70 F3 37 03
  913.             70 F3 AA AE DC 37 02 8B B7 12 AA 63 63 70 FC 91 05 FF AD 91 00 FF
  914.             B7 16 01 AA 83 03 16 01 82 01 AB 8C 96 51 00 19 08
  915.            )
  916.       #.#'PATHNAME-TYPE
  917.       #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
  918.          :TYPE "*" :VERSION NIL
  919.         )
  920.       #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE) :NAME NIL
  921.          :TYPE NIL :VERSION NIL
  922.         )
  923.       :PARENT #.#'EQUAL #.#'PATHNAME *LOAD-PATHS*
  924.       #Y(SEARCH-FILE-1
  925.          #22Y(00 01 00 00 00 02 93 01 37 01 70 EE 68 00 01 D9 37 02 30 B7 19 02
  926.              )
  927.          NIL #.#'STRING-EQUAL
  928.         )
  929.       ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
  930.   )  )
  931. #Y(#:TOP-LEVEL-FORM-50 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "user1" LOAD)
  932. #Y(#:TOP-LEVEL-FORM-51 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "user2" LOAD)
  933. #Y(#:TOP-LEVEL-FORM-52 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "trace" LOAD)
  934. #Y(#:TOP-LEVEL-FORM-53 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "config" LOAD)
  935. ;;#Y(#:TOP-LEVEL-FORM-54 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "compiler" LOAD)
  936. ;;#Y(#:TOP-LEVEL-FORM-55 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "disassem" LOAD)
  937. #Y(#:TOP-LEVEL-FORM-56 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs2" LOAD)
  938. ;;#Y(#:TOP-LEVEL-FORM-57 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "loop" LOAD)
  939. ;;#Y(#:TOP-LEVEL-FORM-58 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "clos" LOAD)
  940. ;;#Y(#:TOP-LEVEL-FORM-59 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "conditio" LOAD)
  941. ;;#Y(#:TOP-LEVEL-FORM-60 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "defs3" LOAD)
  942. ;;#Y(#:TOP-LEVEL-FORM-61 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "gstream" LOAD)
  943. #Y(#:TOP-LEVEL-FORM-62
  944.    #19Y(00 00 00 00 00 01 D8 D9 8B D8 03 00 19 01 DA 2E 03 19 01) "%LIBCALL"
  945.    "SYS" "affi1" LOAD
  946.   )
  947. ;;#Y(#:TOP-LEVEL-FORM-63 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "screen" LOAD)
  948. #Y(#:TOP-LEVEL-FORM-64
  949.    #18Y(00 00 00 00 00 01 D8 8B CF 03 00 19 01 D9 2E 02 19 01) "STDWIN"
  950.    "stdwin2" LOAD
  951.   )
  952. #Y(#:TOP-LEVEL-FORM-65 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) "rexx1" LOAD)
  953. #Y(#:TOP-LEVEL-FORM-66 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "USER")
  954.