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