home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / defs3.fas < prev    next >
Text File  |  1996-06-17  |  16KB  |  260 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1-1 #14Y(00 00 00 00 00 01 D8 D9 62 30 E2 3D 19 01)
  3.    "COMMON-LISP" ("CL")
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-1-2 #13Y(00 00 00 00 00 01 D8 D9 30 DE 3D 19 01)
  6.    (#:MAKE-PACKAGE #:FLET #:LABELS #:MACROLET) "COMMON-LISP"
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-1-3 #13Y(00 00 00 00 00 01 D8 D9 30 DF 3D 19 01)
  9.    ("LISP" "CLOS") "COMMON-LISP"
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-1-4 #11Y(00 00 00 00 00 01 D8 30 CF 19 01) "COMMON-LISP")
  12. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01)
  13.    "COMMON-LISP"
  14.   )
  15. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  16.    (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
  17.      CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
  18.      LOGICAL-PATHNAME LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE
  19.      RATIO RATIONAL READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY
  20.      SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR
  21.      STREAM FILE-STREAM SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM
  22.      TWO-WAY-STREAM ECHO-STREAM STRING-STREAM STRING STRING-CHAR SYMBOL T
  23.      VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE RESTART CONDITION
  24.      WARNING SERIOUS-CONDITION ERROR SIMPLE-CONDITION SIMPLE-WARNING
  25.      SIMPLE-ERROR STORAGE-CONDITION TYPE-ERROR SIMPLE-TYPE-ERROR PROGRAM-ERROR
  26.      CONTROL-ERROR PACKAGE-ERROR PRINT-NOT-READABLE STREAM-ERROR END-OF-FILE
  27.      FILE-ERROR CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION ARITHMETIC-ERROR
  28.      DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW
  29.      BUILT-IN-CLASS STANDARD-CLASS STANDARD-GENERIC-FUNCTION STANDARD-METHOD
  30.      STANDARD-OBJECT STRUCTURE-CLASS LAMBDA-LIST-KEYWORDS
  31.      LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT
  32.      PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND
  33.      BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2
  34.      BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM
  35.      MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
  36.      LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
  37.      MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
  38.      LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
  39.      MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
  40.      LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
  41.      MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
  42.      LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT
  43.      LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
  44.      LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
  45.      LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
  46.      LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
  47.      LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
  48.      LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
  49.      LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
  50.      SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON
  51.      LONG-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
  52.      SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
  53.      LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT CHAR-FONT-LIMIT
  54.      CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT CHAR-SUPER-BIT
  55.      CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
  56.      ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
  57.      *GENSYM-COUNTER* *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK*
  58.      + ++ +++ - * ** *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT*
  59.      *ERROR-OUTPUT* *QUERY-IO* *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT*
  60.      *READ-BASE* *READ-SUPPRESS* *READTABLE* *PRINT-READABLY* *PRINT-ESCAPE*
  61.      *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE*
  62.      *PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-ARRAY*
  63.      *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS* *LOAD-VERBOSE*
  64.      *LOAD-PRINT* *LOAD-PATHNAME* *LOAD-TRUENAME* *BREAK-ON-WARNINGS*
  65.      *COMPILE-VERBOSE* *COMPILE-PRINT* *COMPILE-FILE-PATHNAME*
  66.      *COMPILE-FILE-TRUENAME* *FEATURES* *BREAK-ON-SIGNALS* *DEBUGGER-HOOK*
  67.      COERCE TYPE-OF UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL SYMBOLP
  68.      ATOM CONSP LISTP NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP
  69.      CHARACTERP STRINGP BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P
  70.      SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP
  71.      EQ EQL EQUAL EQUALP NOT SYMBOL-VALUE SYMBOL-FUNCTION FDEFINITION BOUNDP
  72.      FBOUNDP SPECIAL-FORM-P SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD
  73.      GET-SETF-METHOD-MULTIPLE-VALUE APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL
  74.      MAPCAN MAPCON VALUES VALUES-LIST MACRO-FUNCTION MACROEXPAND MACROEXPAND-1
  75.      PROCLAIM GET REMPROP SYMBOL-PLIST GETF GET-PROPERTIES SYMBOL-NAME
  76.      MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP SYMBOL-PACKAGE KEYWORDP
  77.      MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE PACKAGE-NAME PACKAGE-NICKNAMES
  78.      RENAME-PACKAGE PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
  79.      PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES DELETE-PACKAGE INTERN
  80.      FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW
  81.      USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE REQUIRE ZEROP PLUSP
  82.      MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1- CONJUGATE GCD LCM
  83.      EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN
  84.      SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE NUMERATOR
  85.      DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING FTRUNCATE
  86.      FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS
  87.      FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR
  88.      LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2
  89.      BOOLE LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
  90.      BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
  91.      MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
  92.      STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P
  93.      DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
  94.      CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP
  95.      CHAR-NOT-LESSP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
  96.      CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
  97.      CHAR-BIT SET-CHAR-BIT COMPLEMENT CONSTANTLY ELT SUBSEQ COPY-SEQ LENGTH
  98.      REVERSE NREVERSE MAKE-SEQUENCE CONCATENATE MAP MAP-INTO SOME EVERY NOTANY
  99.      NOTEVERY REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE
  100.      DELETE-IF DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE
  101.      SUBSTITUTE-IF SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF
  102.      NSUBSTITUTE-IF-NOT FIND FIND-IF FIND-IF-NOT POSITION POSITION-IF
  103.      POSITION-IF-NOT COUNT COUNT-IF COUNT-IF-NOT MISMATCH SEARCH SORT
  104.      STABLE-SORT MERGE CAR CDR CAAR CADR CDAR CDDR CAAAR CAADR CADAR CADDR
  105.      CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR CAADDR CADAAR CADADR CADDAR
  106.      CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR CDDADR CDDDAR CDDDDR CONS
  107.      TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND THIRD FOURTH FIFTH SIXTH
  108.      SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST LIST* MAKE-LIST APPEND
  109.      COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC NRECONC BUTLAST NBUTLAST
  110.      LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT NSUBST NSUBST-IF
  111.      NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT TAILP ADJOIN
  112.      UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE NSET-DIFFERENCE
  113.      SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP ACONS PAIRLIS ASSOC ASSOC-IF
  114.      ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT MAKE-HASH-TABLE HASH-TABLE-P
  115.      GETHASH REMHASH MAPHASH CLRHASH HASH-TABLE-COUNT HASH-TABLE-REHASH-SIZE
  116.      HASH-TABLE-REHASH-THRESHOLD HASH-TABLE-SIZE HASH-TABLE-TEST SXHASH
  117.      MAKE-ARRAY VECTOR AREF SVREF ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION
  118.      ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX
  119.      ROW-MAJOR-AREF ADJUSTABLE-ARRAY-P BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV
  120.      BIT-NAND BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT
  121.      ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND
  122.      VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING>
  123.      STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP
  124.      STRING-NOT-GREATERP STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING
  125.      STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE
  126.      STRING-DOWNCASE STRING-CAPITALIZE NSTRING-UPCASE NSTRING-DOWNCASE
  127.      NSTRING-CAPITALIZE STRING EVAL EVALHOOK APPLYHOOK CONSTANTP
  128.      MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM
  129.      MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM
  130.      MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING STREAMP OPEN-STREAM-P
  131.      INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE CLOSE
  132.      BROADCAST-STREAM-STREAMS CONCATENATED-STREAM-STREAMS
  133.      ECHO-STREAM-INPUT-STREAM ECHO-STREAM-OUTPUT-STREAM SYNONYM-STREAM-SYMBOL
  134.      TWO-WAY-STREAM-INPUT-STREAM TWO-WAY-STREAM-OUTPUT-STREAM
  135.      INTERACTIVE-STREAM-P COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
  136.      SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
  137.      SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READTABLE-CASE
  138.      READ READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
  139.      UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT
  140.      READ-FROM-STRING PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC
  141.      WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING
  142.      WRITE-LINE TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT
  143.      WRITE-BYTE FORMAT Y-OR-N-P YES-OR-NO-P WILD-PATHNAME-P PATHNAME-MATCH-P
  144.      TRANSLATE-PATHNAME LOGICAL-PATHNAME TRANSLATE-LOGICAL-PATHNAME
  145.      LOGICAL-PATHNAME-TRANSLATIONS LOAD-LOGICAL-PATHNAME-TRANSLATIONS
  146.      COMPILE-FILE-PATHNAME PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES
  147.      MAKE-PATHNAME PATHNAMEP PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
  148.      PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING
  149.      DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING
  150.      USER-HOMEDIR-PATHNAME OPEN RENAME-FILE DELETE-FILE PROBE-FILE
  151.      FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH LOAD DIRECTORY ERROR
  152.      CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE
  153.      FUNCTION-LAMBDA-EXPRESSION DOCUMENTATION VARIABLE STRUCTURE TYPE DESCRIBE
  154.      DESCRIBE-OBJECT INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
  155.      GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
  156.      ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
  157.      LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
  158.      MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
  159.      SHORT-SITE-NAME LONG-SITE-NAME IDENTITY ADD-METHOD CALL-NEXT-METHOD
  160.      CLASS-NAME CLASS-OF COMPUTE-APPLICABLE-METHODS FIND-CLASS FIND-METHOD
  161.      FUNCTION-KEYWORDS INITIALIZE-INSTANCE MAKE-INSTANCE METHOD-QUALIFIERS
  162.      NEXT-METHOD-P NO-APPLICABLE-METHOD NO-NEXT-METHOD PRINT-OBJECT
  163.      REINITIALIZE-INSTANCE REMOVE-METHOD SHARED-INITIALIZE SLOT-BOUNDP
  164.      SLOT-EXISTS-P SLOT-MAKUNBOUND SLOT-MISSING SLOT-UNBOUND SLOT-VALUE SIGNAL
  165.      MAKE-CONDITION COMPUTE-RESTARTS RESTART-NAME FIND-RESTART INVOKE-RESTART
  166.      INVOKE-RESTART-INTERACTIVELY ABORT CONTINUE MUFFLE-WARNING STORE-VALUE
  167.      USE-VALUE INVOKE-DEBUGGER SIMPLE-CONDITION-FORMAT-STRING
  168.      SIMPLE-CONDITION-FORMAT-ARGUMENTS TYPE-ERROR-DATUM
  169.      TYPE-ERROR-EXPECTED-TYPE PACKAGE-ERROR-PACKAGE PRINT-NOT-READABLE-OBJECT
  170.      STREAM-ERROR-STREAM FILE-ERROR-PATHNAME CELL-ERROR-NAME
  171.      ARITHMETIC-ERROR-OPERATION ARITHMETIC-ERROR-OPERANDS EVAL-WHEN QUOTE
  172.      FUNCTION SETQ PROGN LET LET* LOCALLY COMPILER-LET PROGV FLET LABELS
  173.      MACROLET SYMBOL-MACROLET IF BLOCK RETURN-FROM TAGBODY GO
  174.      MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT THROW
  175.      DECLARE THE LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER DEFCONSTANT
  176.      AND OR PSETQ SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO DEFSETF
  177.      DEFINE-SETF-METHOD PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE OTHERWISE
  178.      RETURN LOOP DO DO* DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST
  179.      MULTIPLE-VALUE-BIND MULTIPLE-VALUE-SETQ NTH-VALUE DEFMACRO
  180.      DESTRUCTURING-BIND DECLAIM REMF DEFPACKAGE DO-SYMBOLS DO-EXTERNAL-SYMBOLS
  181.      DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP WITH-HASH-TABLE-ITERATOR
  182.      DEFSTRUCT WITH-OPEN-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING
  183.      WITH-STANDARD-IO-SYNTAX PRINT-UNREADABLE-OBJECT WITH-OPEN-FILE CHECK-TYPE
  184.      ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE UNTRACE STEP TIME LOOP-FINISH
  185.      FORMATTER DEFCLASS DEFGENERIC DEFMETHOD GENERIC-FLET GENERIC-FUNCTION
  186.      GENERIC-LABELS WITH-ACCESSORS WITH-SLOTS CHECK-TYPE ASSERT ETYPECASE
  187.      CTYPECASE ECASE CCASE HANDLER-CASE IGNORE-ERRORS HANDLER-BIND
  188.      DEFINE-CONDITION WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND
  189.      WITH-CONDITION-RESTARTS LAMBDA &OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX
  190.      &BODY &WHOLE &ENVIRONMENT EVAL LOAD COMPILE SPECIAL TYPE FTYPE FUNCTION
  191.      INLINE NOTINLINE IGNORE IGNORABLE OPTIMIZE SPEED SPACE SAFETY
  192.      COMPILATION-SPEED DEBUG DECLARATION DYNAMIC-EXTENT STANDARD
  193.   ))
  194. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  195. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  196.    COMMON-LISP:MAKE-PACKAGE REMOVE-OLD-DEFINITIONS
  197.    #Y(COMMON-LISP:MAKE-PACKAGE
  198.       #24Y(00 01 00 00 80 1C 00 02 00 00 3C 02 3A 01 02 C5 F7 AD AD AD 30 E1 19
  199.            04
  200.           )
  201.       :NICKNAMES :USE ("COMMON-LISP")
  202.   )  )
  203. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  204.    EXPAND-FUNDEFS REMOVE-OLD-DEFINITIONS
  205.    #Y(EXPAND-FUNDEFS
  206.       #111Y(00 03 00 00 00 04 62 9E 1F 80 5B 93 03 82 04 9B 1F 04 9B 5B 20 24
  207.             D8 DD DE DF 6D 03 04 B1 9E 14 32 02 1F D8 D9 DA DB 6D 03 04 B0 A1
  208.             1A 71 E0 9F 79 60 01 1A 17 14 60 01 1A 17 9B 5B 78 63 AF 30 62 41
  209.             03 93 03 9F 5B 77 91 03 63 00 14 91 03 65 00 14 E1 93 08 A3 7B 02
  210.             7A 01 32 03 23 7B 02 83 04 16 04 1A FF A1 91 03 FF B9 AA 31 4A 19
  211.             05
  212.            )
  213.       PROGRAM-ERROR "code after ~S contains a dotted list, ending with ~S"
  214.       "Dotted list im Code von ~S, endet mit ~S"
  215.       "Le code de ~S contient une paire pointée, terminée par ~S" LANGUAGE
  216.       "Illegal function definition syntax in ~S: ~S"
  217.       "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
  218.       "Mauvaise syntaxe de définition de fonction dans ~S : ~S" DECLARE BLOCK
  219.   )  )
  220. #Y(#:TOP-LEVEL-FORM-7
  221.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) COMMON-LISP:FLET
  222.    REMOVE-OLD-DEFINITIONS MACRO
  223.    #Y(COMMON-LISP:FLET
  224.       #59Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 1D 9D 5B 77 9E 5B 78 AA
  225.            62 AF 30 62 41 02 DA DB AF B2 6D 03 04 9E 7B 02 91 01 08 15 19 07 AC
  226.            2E 01 19 03 DD DE 9E 79 AC 60 03 19 08
  227.           )
  228.       2. MACRO-CALL-ERROR FLET COMMON-LISP:FLET EXPAND-FUNDEFS LOCALLY DECLARE
  229.   )  )
  230. #Y(#:TOP-LEVEL-FORM-8
  231.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  232.    COMMON-LISP:LABELS REMOVE-OLD-DEFINITIONS MACRO
  233.    #Y(COMMON-LISP:LABELS
  234.       #59Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 1D 9D 5B 77 9E 5B 78 AA
  235.            62 AF 30 62 41 02 DA DB AF B2 6D 03 04 9E 7B 02 91 01 08 15 19 07 AC
  236.            2E 01 19 03 DD DE 9E 79 AC 60 03 19 08
  237.           )
  238.       2. MACRO-CALL-ERROR LABELS COMMON-LISP:LABELS EXPAND-FUNDEFS LOCALLY
  239.       DECLARE
  240.   )  )
  241. #Y(#:TOP-LEVEL-FORM-9
  242.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  243.    COMMON-LISP:MACROLET REMOVE-OLD-DEFINITIONS MACRO
  244.    #Y(COMMON-LISP:MACROLET
  245.       #55Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 17 9D 5B 77 9E 5B 78 AA
  246.            62 AF 30 62 41 02 DA AE 91 02 0A 9E 61 02 19 07 AC 2E 01 19 03 DB DC
  247.            9F 79 A0 7B 02 60 01 1A 6C
  248.           )
  249.       2. MACRO-CALL-ERROR MACROLET LOCALLY DECLARE
  250.   )  )
  251. #Y(#:TOP-LEVEL-FORM-10-1 #14Y(00 00 00 00 00 01 D8 D9 62 30 E2 3D 19 01)
  252.    "COMMON-LISP-USER" ("CL-USER")
  253.   )
  254. #Y(#:TOP-LEVEL-FORM-10-2 #13Y(00 00 00 00 00 01 D8 D9 30 DF 3D 19 01)
  255.    ("COMMON-LISP") "COMMON-LISP-USER"
  256.   )
  257. #Y(#:TOP-LEVEL-FORM-10-3 #11Y(00 00 00 00 00 01 D8 30 CF 19 01)
  258.    "COMMON-LISP-USER"
  259.   )
  260.