[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Packages
I don't know why Scott sent this to me since you are the package guru.
What is DEFPACKAGE anyway? I figured you should decide if you want to
adopt this guy's package arrangement or not, and he also is trying to slip
in some code with lispm stuff in it.
Bill
------- Forwarded Message
Date: Sun, 18 Aug 91 00:23 BST
From: Simon Leinen <simon@liasun3>
To: Bill_Chiles@CHILES.SLISP.CS.CMU.EDU
Subject: ANSI Common Lisp packages
Reply-to: simon@liasun6.epfl.ch
Full-Name: Simon Leinen
Here are my package definitions for COMMON-LISP and COMMON-LISP-USER
in CMU Common Lisp. Maybe they are useful for someone who wants to
enhance ANSI compatibility. Note that the environment functions from
CLtL2 are missing -- X3J13 threw them out of the proposal.
- --
Simon.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File Name: cl-packages.lisp
;;; Description: ANSI Packages for CMU CL
;;; Author: Simon Leinen (simon@liasun6)
;;; Date Created: 10-Jul-91
;;; RCS $Header$
;;; RCS $Log$
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defpackage "COMMON-LISP"
(:nicknames "CL")
(:shadow "REAL")
(:use "LISP" "PCL" "CONDITIONS" "XP")
(:import-from "EXTENSIONS"
"IGNORABLE"
"REALP"
"FLOATING-POINT-INEXACT")
(:import-from "CONDITIONS"
"CELL-ERROR-NAME"
"FLOATING-POINT-INVALID-OPERATION")
(:import-from "PCL"
"GENERIC-FUNCTION"
"ALLOCATE-INSTANCE"
"DESCRIBE-OBJECT"
"METHOD-COMBINATION"
"MAKE-METHOD"
"CLASS"
"METHOD")
(:import-from "LISP"
"*READ-EVAL*"
"CONCATENATED-STREAM-STREAMS"
"ECHO-STREAM-OUTPUT-STREAM"
"SYNONYM-STREAM-SYMBOL"
"SYNONYM-STREAM"
"ECHO-STREAM"
"CONCATENATED-STREAM"
"TWO-WAY-STREAM-OUTPUT-STREAM"
"BROADCAST-STREAM"
"*PRINT-READABLY*"
"HASH-TABLE-REHASH-SIZE"
"BROADCAST-STREAM-STREAMS"
"TWO-WAY-STREAM-INPUT-STREAM"
"HASH-TABLE-REHASH-THRESHOLD"
"HASH-TABLE-SIZE"
"ECHO-STREAM-INPUT-STREAM"
"TWO-WAY-STREAM")
(:import-from "KERNEL"
"LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT")
(:export
"&ALLOW-OTHER-KEYS"
"&AUX"
"&BODY"
"&ENVIRONMENT"
"&KEY"
"&OPTIONAL"
"&REST"
"&WHOLE"
"*"
"**"
"***"
"*BREAK-ON-SIGNALS*"
"*COMPILE-FILE-PATHNAME*"
"*COMPILE-FILE-TRUENAME*"
"*COMPILE-PRINT*"
"*COMPILE-VERBOSE*"
"*DEBUG-IO*"
"*DEBUGGER-HOOK*"
"*DEFAULT-PATHNAME-DEFAULTS*"
"*ERROR-OUTPUT*"
"*FEATURES*"
"*GENSYM-COUNTER*"
"*LOAD-PATHNAME*"
"*LOAD-PRINT*"
"*LOAD-TRUENAME*"
"*LOAD-VERBOSE*"
"*MACROEXPAND-HOOK*"
"*PACKAGE*"
"*PRINT-ARRAY*"
"*PRINT-BASE*"
"*PRINT-CASE*"
"*PRINT-CIRCLE*"
"*PRINT-ESCAPE*"
"*PRINT-GENSYM*"
"*PRINT-LENGTH*"
"*PRINT-LEVEL*"
"*PRINT-LINES*"
"*PRINT-MISER-WIDTH*"
"*PRINT-PPRINT-DISPATCH*"
"*PRINT-PRETTY*"
"*PRINT-RADIX*"
"*PRINT-READABLY*"
"*PRINT-RIGHT-MARGIN*"
"*QUERY-IO*"
"*RANDOM-STATE*"
"*READ-BASE*"
"*READ-DEFAULT-FLOAT-FORMAT*"
"*READ-EVAL*"
"*READ-SUPPRESS*"
"*READTABLE*"
"*STANDARD-INPUT*"
"*STANDARD-OUTPUT*"
"*TERMINAL-IO*"
"*TRACE-OUTPUT*"
"+"
"++"
"+++"
"-"
"/"
"//"
"///"
"/="
"1+"
"1-"
"<"
"<="
"="
">"
">="
"ABORT"
"ABS"
"ACONS"
"ACOS"
"ACOSH"
"ADD-METHOD"
"ADJOIN"
"ADJUST-ARRAY"
"ADJUSTABLE-ARRAY-P"
"ALLOCATE-INSTANCE"
"ALPHA-CHAR-P"
"ALPHANUMERICP"
"AND"
"APPEND"
"APPLY"
"APROPOS"
"APROPOS-LIST"
"AREF"
"ARITHMETIC-ERROR"
"ARITHMETIC-ERROR-OPERANDS"
"ARITHMETIC-ERROR-OPERATION"
"ARRAY"
"ARRAY-DIMENSION"
"ARRAY-DIMENSION-LIMIT"
"ARRAY-DIMENSIONS"
"ARRAY-DISPLACEMENT"
"ARRAY-ELEMENT-TYPE"
"ARRAY-HAS-FILL-POINTER-P"
"ARRAY-IN-BOUNDS-P"
"ARRAY-RANK"
"ARRAY-RANK-LIMIT"
"ARRAY-ROW-MAJOR-INDEX"
"ARRAY-TOTAL-SIZE"
"ARRAY-TOTAL-SIZE-LIMIT"
"ARRAYP"
"ASH"
"ASIN"
"ASINH"
"ASSERT"
"ASSOC"
"ASSOC-IF"
"ASSOC-IF-NOT"
"ATAN"
"ATANH"
"ATOM"
"BASE-CHAR"
"BASE-STRING"
"BIGNUM"
"BIT"
"BIT-AND"
"BIT-ANDC1"
"BIT-ANDC2"
"BIT-EQV"
"BIT-IOR"
"BIT-NAND"
"BIT-NOR"
"BIT-NOT"
"BIT-ORC1"
"BIT-ORC2"
"BIT-VECTOR"
"BIT-VECTOR-P"
"BIT-XOR"
"BLOCK"
"BOOLE"
"BOOLE-1"
"BOOLE-2"
"BOOLE-AND"
"BOOLE-ANDC1"
"BOOLE-ANDC2"
"BOOLE-C1"
"BOOLE-C2"
"BOOLE-CLR"
"BOOLE-EQV"
"BOOLE-IOR"
"BOOLE-NAND"
"BOOLE-NOR"
"BOOLE-ORC1"
"BOOLE-ORC2"
"BOOLE-SET"
"BOOLE-XOR"
"BOTH-CASE-P"
"BOUNDP"
"BREAK"
"BROADCAST-STREAM"
"BROADCAST-STREAM-STREAMS"
"BUILT-IN-CLASS"
"BUTLAST"
"BYTE"
"BYTE-POSITION"
"BYTE-SIZE"
"CAAAAR"
"CAAADR"
"CAAAR"
"CAADAR"
"CAADDR"
"CAADR"
"CAAR"
"CADAAR"
"CADADR"
"CADAR"
"CADDAR"
"CADDDR"
"CADDR"
"CADR"
"CALL-ARGUMENTS-LIMIT"
"CALL-METHOD"
"CALL-NEXT-METHOD"
"CAR"
"CASE"
"CATCH"
"CCASE"
"CDAAAR"
"CDAADR"
"CDAAR"
"CDADAR"
"CDADDR"
"CDADR"
"CDAR"
"CDDAAR"
"CDDADR"
"CDDAR"
"CDDDAR"
"CDDDDR"
"CDDDR"
"CDDR"
"CDR"
"CEILING"
"CELL-ERROR"
"CELL-ERROR-NAME"
"CERROR"
"CHANGE-CLASS"
"CHAR"
"CHAR-CODE"
"CHAR-CODE-LIMIT"
"CHAR-DOWNCASE"
"CHAR-EQUAL"
"CHAR-GREATERP"
"CHAR-INT"
"CHAR-LESSP"
"CHAR-NAME"
"CHAR-NOT-EQUAL"
"CHAR-NOT-GREATERP"
"CHAR-NOT-LESSP"
"CHAR-UPCASE"
"CHAR/="
"CHAR<"
"CHAR<="
"CHAR="
"CHAR>"
"CHAR>="
"CHARACTER"
"CHARACTERP"
"CHECK-TYPE"
"CIS"
"CLASS"
"CLASS-NAME"
"CLASS-OF"
"CLEAR-INPUT"
"CLEAR-OUTPUT"
"CLOSE"
"CLRHASH"
"CODE-CHAR"
"COERCE"
"COMPILATION-SPEED"
"COMPILE"
"COMPILE-FILE"
"COMPILE-FILE-PATHNAME"
"COMPILED-FUNCTION"
"COMPILED-FUNCTION-P"
"COMPILER-MACRO"
"COMPILER-MACRO-FUNCTION"
"COMPLEMENT"
"COMPLEX"
"COMPLEXP"
"COMPUTE-APPLICABLE-METHODS"
"COMPUTE-RESTARTS"
"CONCATENATE"
"CONCATENATED-STREAM"
"CONCATENATED-STREAM-STREAMS"
"COND"
"CONDITION"
"CONJUGATE"
"CONS"
"CONSP"
"CONSTANTLY"
"CONSTANTP"
"CONTINUE"
"CONTROL-ERROR"
"COPY-ALIST"
"COPY-LIST"
"COPY-PPRINT-DISPATCH"
"COPY-READTABLE"
"COPY-SEQ"
"COPY-STRUCTURE"
"COPY-SYMBOL"
"COPY-TREE"
"COS"
"COSH"
"COUNT"
"COUNT-IF"
"COUNT-IF-NOT"
"CTYPECASE"
"DEBUG"
"DECF"
"DECLAIM"
"DECLARATION"
"DECLARE"
"DECODE-FLOAT"
"DECODE-UNIVERSAL-TIME"
"DEFCLASS"
"DEFCONSTANT"
"DEFGENERIC"
"DEFINE-COMPILER-MACRO"
"DEFINE-CONDITION"
"DEFINE-METHOD-COMBINATION"
"DEFINE-MODIFY-MACRO"
"DEFINE-SETF-EXPANDER"
"DEFMACRO"
"DEFMETHOD"
"DEFPACKAGE"
"DEFPARAMETER"
"DEFSETF"
"DEFSTRUCT"
"DEFTYPE"
"DEFUN"
"DEFVAR"
"DELETE"
"DELETE-DUPLICATES"
"DELETE-FILE"
"DELETE-IF"
"DELETE-IF-NOT"
"DELETE-PACKAGE"
"DENOMINATOR"
"DEPOSIT-FIELD"
"DESCRIBE"
"DESCRIBE-OBJECT"
"DESTRUCTURING-BIND"
"DIGIT-CHAR"
"DIGIT-CHAR-P"
"DIRECTORY"
"DIRECTORY-NAMESTRING"
"DISASSEMBLE"
"DIVISION-BY-ZERO"
"DO"
"DO*"
"DO-ALL-SYMBOLS"
"DO-EXTERNAL-SYMBOLS"
"DO-SYMBOLS"
"DOCUMENTATION"
"DOLIST"
"DOTIMES"
"DOUBLE-FLOAT"
"DOUBLE-FLOAT-EPSILON"
"DOUBLE-FLOAT-NEGATIVE-EPSILON"
"DPB"
"DRIBBLE"
"DYNAMIC-EXTENT"
"ECASE"
"ECHO-STREAM"
"ECHO-STREAM-INPUT-STREAM"
"ECHO-STREAM-OUTPUT-STREAM"
"ED"
"EIGHTH"
"ELT"
"ENCODE-UNIVERSAL-TIME"
"END-OF-FILE"
"ENDP"
"ENOUGH-NAMESTRING"
"ENSURE-GENERIC-FUNCTION"
"EQ"
"EQL"
"EQUAL"
"EQUALP"
"ERROR"
"ETYPECASE"
"EVAL"
"EVAL-WHEN"
"EVENP"
"EVERY"
"EXP"
"EXPORT"
"EXPT"
"EXTENDED-CHAR"
"FBOUNDP"
"FCEILING"
"FDEFINITION"
"FFLOOR"
"FIFTH"
"FILE-AUTHOR"
"FILE-ERROR"
"FILE-ERROR-PATHNAME"
"FILE-LENGTH"
"FILE-NAMESTRING"
"FILE-POSITION"
"FILE-STREAM"
"FILE-STRING-LENGTH"
"FILE-WRITE-DATE"
"FILL"
"FILL-POINTER"
"FIND"
"FIND-ALL-SYMBOLS"
"FIND-CLASS"
"FIND-IF"
"FIND-IF-NOT"
"FIND-METHOD"
"FIND-PACKAGE"
"FIND-RESTART"
"FIND-SYMBOL"
"FINISH-OUTPUT"
"FIRST"
"FIXNUM"
"FLET"
"FLOAT"
"FLOAT-DIGITS"
"FLOAT-PRECISION"
"FLOAT-RADIX"
"FLOAT-SIGN"
"FLOATING-POINT-INEXACT"
"FLOATING-POINT-INVALID-OPERATION"
"FLOATING-POINT-OVERFLOW"
"FLOATING-POINT-UNDERFLOW"
"FLOATP"
"FLOOR"
"FMAKUNBOUND"
"FORCE-OUTPUT"
"FORMAT"
"FORMATTER"
"FOURTH"
"FRESH-LINE"
"FROUND"
"FTRUNCATE"
"FTYPE"
"FUNCALL"
"FUNCTION"
"FUNCTION-KEYWORDS"
"FUNCTION-LAMBDA-EXPRESSION"
"FUNCTIONP"
"GCD"
"GENERIC-FLET"
"GENERIC-FUNCTION"
"GENERIC-LABELS"
"GENSYM"
"GENTEMP"
"GET"
"GET-DECODED-TIME"
"GET-DISPATCH-MACRO-CHARACTER"
"GET-INTERNAL-REAL-TIME"
"GET-INTERNAL-RUN-TIME"
"GET-MACRO-CHARACTER"
"GET-OUTPUT-STREAM-STRING"
"GET-PROPERTIES"
"GET-SETF-EXPANSION"
"GET-UNIVERSAL-TIME"
"GETF"
"GETHASH"
"GO"
"GRAPHIC-CHAR-P"
"HANDLER-BIND"
"HANDLER-CASE"
"HASH-TABLE"
"HASH-TABLE-COUNT"
"HASH-TABLE-P"
"HASH-TABLE-REHASH-SIZE"
"HASH-TABLE-REHASH-THRESHOLD"
"HASH-TABLE-SIZE"
"HASH-TABLE-TEST"
"HOST-NAMESTRING"
"IDENTITY"
"IF"
"IGNORABLE"
"IGNORE"
"IGNORE-ERRORS"
"IMAGPART"
"IMPORT"
"IN-PACKAGE"
"INCF"
"INITIALIZE-INSTANCE"
"INLINE"
"INPUT-STREAM-P"
"INSPECT"
"INTEGER"
"INTEGER-DECODE-FLOAT"
"INTEGER-LENGTH"
"INTEGERP"
"INTERACTIVE-STREAM-P"
"INTERN"
"INTERNAL-TIME-UNITS-PER-SECOND"
"INTERSECTION"
"INVALID-METHOD-ERROR"
"INVOKE-DEBUGGER"
"INVOKE-RESTART"
"INVOKE-RESTART-INTERACTIVELY"
"ISQRT"
"KEYWORD"
"KEYWORDP"
"LABELS"
"LAMBDA"
"LAMBDA-LIST-KEYWORDS"
"LAMBDA-PARAMETERS-LIMIT"
"LAST"
"LCM"
"LDB"
"LDB-TEST"
"LDIFF"
"LEAST-NEGATIVE-DOUBLE-FLOAT"
"LEAST-NEGATIVE-LONG-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
"LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT"
"LEAST-NEGATIVE-SHORT-FLOAT"
"LEAST-NEGATIVE-SINGLE-FLOAT"
"LEAST-POSITIVE-DOUBLE-FLOAT"
"LEAST-POSITIVE-LONG-FLOAT"
"LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
"LEAST-POSITIVE-NORMALIZED-LONG-FLOAT"
"LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
"LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT"
"LEAST-POSITIVE-SHORT-FLOAT"
"LEAST-POSITIVE-SINGLE-FLOAT"
"LENGTH"
"LET"
"LET*"
"LISP-IMPLEMENTATION-TYPE"
"LISP-IMPLEMENTATION-VERSION"
"LIST"
"LIST*"
"LIST-ALL-PACKAGES"
"LIST-LENGTH"
"LISTEN"
"LISTP"
"LOAD"
"LOAD-LOGICAL-PATHNAME-TRANSLATIONS"
"LOAD-TIME-VALUE"
"LOCALLY"
"LOG"
"LOGAND"
"LOGANDC1"
"LOGANDC2"
"LOGBITP"
"LOGCOUNT"
"LOGEQV"
"LOGICAL-PATHNAME"
"LOGICAL-PATHNAME-TRANSLATIONS"
"LOGIOR"
"LOGNAND"
"LOGNOR"
"LOGNOT"
"LOGORC1"
"LOGORC2"
"LOGTEST"
"LOGXOR"
"LONG-FLOAT"
"LONG-FLOAT-EPSILON"
"LONG-FLOAT-NEGATIVE-EPSILON"
"LONG-SITE-NAME"
"LOOP"
"LOOP-FINISH"
"LOWER-CASE-P"
"MACHINE-INSTANCE"
"MACHINE-TYPE"
"MACHINE-VERSION"
"MACRO-FUNCTION"
"MACROEXPAND"
"MACROEXPAND-1"
"MACROLET"
"MAKE-ARRAY"
"MAKE-BROADCAST-STREAM"
"MAKE-CONCATENATED-STREAM"
"MAKE-CONDITION"
"MAKE-DISPATCH-MACRO-CHARACTER"
"MAKE-ECHO-STREAM"
"MAKE-HASH-TABLE"
"MAKE-INSTANCE"
"MAKE-INSTANCES-OBSOLETE"
"MAKE-LIST"
"MAKE-LOAD-FORM"
"MAKE-LOAD-FORM-SAVING-SLOTS"
"MAKE-METHOD"
"MAKE-PACKAGE"
"MAKE-PATHNAME"
"MAKE-RANDOM-STATE"
"MAKE-SEQUENCE"
"MAKE-STRING"
"MAKE-STRING-INPUT-STREAM"
"MAKE-STRING-OUTPUT-STREAM"
"MAKE-SYMBOL"
"MAKE-SYNONYM-STREAM"
"MAKE-TWO-WAY-STREAM"
"MAKUNBOUND"
"MAP"
"MAP-INTO"
"MAPC"
"MAPCAN"
"MAPCAR"
"MAPCON"
"MAPHASH"
"MAPL"
"MAPLIST"
"MASK-FIELD"
"MAX"
"MEMBER"
"MEMBER-IF"
"MEMBER-IF-NOT"
"MERGE"
"MERGE-PATHNAMES"
"METHOD"
"METHOD-COMBINATION"
"METHOD-COMBINATION-ERROR"
"METHOD-QUALIFIERS"
"MIN"
"MINUSP"
"MISMATCH"
"MOD"
"MOST-NEGATIVE-DOUBLE-FLOAT"
"MOST-NEGATIVE-FIXNUM"
"MOST-NEGATIVE-LONG-FLOAT"
"MOST-NEGATIVE-SHORT-FLOAT"
"MOST-NEGATIVE-SINGLE-FLOAT"
"MOST-POSITIVE-DOUBLE-FLOAT"
"MOST-POSITIVE-FIXNUM"
"MOST-POSITIVE-LONG-FLOAT"
"MOST-POSITIVE-SHORT-FLOAT"
"MOST-POSITIVE-SINGLE-FLOAT"
"MUFFLE-WARNING"
"MULTIPLE-VALUE-BIND"
"MULTIPLE-VALUE-CALL"
"MULTIPLE-VALUE-LIST"
"MULTIPLE-VALUE-PROG1"
"MULTIPLE-VALUE-SETQ"
"MULTIPLE-VALUES-LIMIT"
"NAME-CHAR"
"NAMESTRING"
"NBUTLAST"
"NCONC"
"NEXT-METHOD-P"
"NIL"
"NINTERSECTION"
"NINTH"
"NO-APPLICABLE-METHOD"
"NO-NEXT-METHOD"
"NOT"
"NOTANY"
"NOTEVERY"
"NOTINLINE"
"NRECONC"
"NREVERSE"
"NSET-DIFFERENCE"
"NSET-EXCLUSIVE-OR"
"NSTRING-CAPITALIZE"
"NSTRING-DOWNCASE"
"NSTRING-UPCASE"
"NSUBLIS"
"NSUBST"
"NSUBST-IF"
"NSUBST-IF-NOT"
"NSUBSTITUTE"
"NSUBSTITUTE-IF"
"NSUBSTITUTE-IF-NOT"
"NTH"
"NTH-VALUE"
"NTHCDR"
"NULL"
"NUMBER"
"NUMBERP"
"NUMERATOR"
"NUNION"
"ODDP"
"OPEN"
"OPEN-STREAM-P"
"OPTIMIZE"
"OR"
"OTHERWISE"
"OUTPUT-STREAM-P"
"PACKAGE"
"PACKAGE-ERROR"
"PACKAGE-ERROR-PACKAGE"
"PACKAGE-NAME"
"PACKAGE-NICKNAMES"
"PACKAGE-SHADOWING-SYMBOLS"
"PACKAGE-USE-LIST"
"PACKAGE-USED-BY-LIST"
"PACKAGEP"
"PAIRLIS"
"PARSE-ERROR"
"PARSE-INTEGER"
"PARSE-NAMESTRING"
"PATHNAME"
"PATHNAME-DEVICE"
"PATHNAME-DIRECTORY"
"PATHNAME-HOST"
"PATHNAME-MATCH-P"
"PATHNAME-NAME"
"PATHNAME-TYPE"
"PATHNAME-VERSION"
"PATHNAMEP"
"PEEK-CHAR"
"PHASE"
"PI"
"PLUSP"
"POP"
"POSITION"
"POSITION-IF"
"POSITION-IF-NOT"
"PPRINT"
"PPRINT-DISPATCH"
"PPRINT-EXIT-IF-LIST-EXHAUSTED"
"PPRINT-FILL"
"PPRINT-INDENT"
"PPRINT-LINEAR"
"PPRINT-LOGICAL-BLOCK"
"PPRINT-NEWLINE"
"PPRINT-POP"
"PPRINT-TAB"
"PPRINT-TABULAR"
"PRIN1"
"PRIN1-TO-STRING"
"PRINC"
"PRINC-TO-STRING"
"PRINT"
"PRINT-NOT-READABLE"
"PRINT-NOT-READABLE-OBJECT"
"PRINT-OBJECT"
"PRINT-UNREADABLE-OBJECT"
"PROBE-FILE"
"PROCLAIM"
"PROG"
"PROG*"
"PROG1"
"PROG2"
"PROGN"
"PROGRAM-ERROR"
"PROGV"
"PSETF"
"PSETQ"
"PUSH"
"PUSHNEW"
"QUOTE"
"RANDOM"
"RANDOM-STATE"
"RANDOM-STATE-P"
"RASSOC"
"RASSOC-IF"
"RASSOC-IF-NOT"
"RATIO"
"RATIONAL"
"RATIONALIZE"
"RATIONALP"
"READ"
"READ-BYTE"
"READ-CHAR"
"READ-CHAR-NO-HANG"
"READ-DELIMITED-LIST"
"READ-FROM-STRING"
"READ-LINE"
"READ-PRESERVING-WHITESPACE"
"READER-ERROR"
"READTABLE"
"READTABLE-CASE"
"READTABLEP"
"REAL"
"REALP"
"REALPART"
"REDUCE"
"REINITIALIZE-INSTANCE"
"REM"
"REMF"
"REMHASH"
"REMOVE"
"REMOVE-DUPLICATES"
"REMOVE-IF"
"REMOVE-IF-NOT"
"REMOVE-METHOD"
"REMPROP"
"RENAME-FILE"
"RENAME-PACKAGE"
"REPLACE"
"REST"
"RESTART"
"RESTART-BIND"
"RESTART-CASE"
"RESTART-NAME"
"RETURN"
"RETURN-FROM"
"REVAPPEND"
"REVERSE"
"ROOM"
"ROTATEF"
"ROUND"
"ROW-MAJOR-AREF"
"RPLACA"
"RPLACD"
"SAFETY"
"SATISFIES"
"SBIT"
"SCALE-FLOAT"
"SCHAR"
"SEARCH"
"SECOND"
"SEQUENCE"
"SERIOUS-CONDITION"
"SET"
"SET-DIFFERENCE"
"SET-DISPATCH-MACRO-CHARACTER"
"SET-EXCLUSIVE-OR"
"SET-MACRO-CHARACTER"
"SET-PPRINT-DISPATCH"
"SET-SYNTAX-FROM-CHAR"
"SETF"
"SETQ"
"SEVENTH"
"SHADOW"
"SHADOWING-IMPORT"
"SHARED-INITIALIZE"
"SHIFTF"
"SHORT-FLOAT"
"SHORT-FLOAT-EPSILON"
"SHORT-FLOAT-NEGATIVE-EPSILON"
"SHORT-SITE-NAME"
"SIGNAL"
"SIGNED-BYTE"
"SIGNUM"
"SIMPLE-ARRAY"
"SIMPLE-BASE-STRING"
"SIMPLE-BIT-VECTOR"
"SIMPLE-BIT-VECTOR-P"
"SIMPLE-CONDITION"
"SIMPLE-CONDITION-FORMAT-ARGUMENTS"
"SIMPLE-CONDITION-FORMAT-CONTROL"
"SIMPLE-ERROR"
"SIMPLE-STRING"
"SIMPLE-STRING-P"
"SIMPLE-TYPE-ERROR"
"SIMPLE-VECTOR"
"SIMPLE-VECTOR-P"
"SIMPLE-WARNING"
"SIN"
"SINGLE-FLOAT"
"SINGLE-FLOAT-EPSILON"
"SINGLE-FLOAT-NEGATIVE-EPSILON"
"SINH"
"SIXTH"
"SLEEP"
"SLOT-BOUNDP"
"SLOT-EXISTS-P"
"SLOT-MAKUNBOUND"
"SLOT-MISSING"
"SLOT-UNBOUND"
"SLOT-VALUE"
"SOFTWARE-TYPE"
"SOFTWARE-VERSION"
"SOME"
"SORT"
"SPACE"
"SPECIAL"
"SPECIAL-OPERATOR-P"
"SPEED"
"SQRT"
"STABLE-SORT"
"STANDARD"
"STANDARD-CHAR"
"STANDARD-CHAR-P"
"STANDARD-CLASS"
"STANDARD-GENERIC-FUNCTION"
"STANDARD-METHOD"
"STANDARD-OBJECT"
"STEP"
"STORAGE-CONDITION"
"STORE-VALUE"
"STREAM"
"STREAM-ELEMENT-TYPE"
"STREAM-ERROR"
"STREAM-ERROR-STREAM"
"STREAM-EXTERNAL-FORMAT"
"STREAMP"
"STRING"
"STRING-CAPITALIZE"
"STRING-DOWNCASE"
"STRING-EQUAL"
"STRING-GREATERP"
"STRING-LEFT-TRIM"
"STRING-LESSP"
"STRING-NOT-EQUAL"
"STRING-NOT-GREATERP"
"STRING-NOT-LESSP"
"STRING-RIGHT-TRIM"
"STRING-STREAM"
"STRING-TRIM"
"STRING-UPCASE"
"STRING/="
"STRING<"
"STRING<="
"STRING="
"STRING>"
"STRING>="
"STRINGP"
"STRUCTURE"
"STRUCTURE-CLASS"
"STRUCTURE-OBJECT"
"STYLE-WARNING"
"SUBLIS"
"SUBSEQ"
"SUBSETP"
"SUBST"
"SUBST-IF"
"SUBST-IF-NOT"
"SUBSTITUTE"
"SUBSTITUTE-IF"
"SUBSTITUTE-IF-NOT"
"SUBTYPEP"
"SVREF"
"SXHASH"
"SYMBOL"
"SYMBOL-FUNCTION"
"SYMBOL-MACROLET"
"SYMBOL-NAME"
"SYMBOL-PACKAGE"
"SYMBOL-PLIST"
"SYMBOL-VALUE"
"SYMBOLP"
"SYNONYM-STREAM"
"SYNONYM-STREAM-SYMBOL"
"T"
"TAGBODY"
"TAILP"
"TAN"
"TANH"
"TENTH"
"TERPRI"
"THE"
"THIRD"
"THROW"
"TIME"
"TRACE"
"TRANSLATE-LOGICAL-PATHNAME"
"TRANSLATE-PATHNAME"
"TREE-EQUAL"
"TRUENAME"
"TRUNCATE"
"TWO-WAY-STREAM"
"TWO-WAY-STREAM-INPUT-STREAM"
"TWO-WAY-STREAM-OUTPUT-STREAM"
"TYPE"
"TYPE-ERROR"
"TYPE-ERROR-DATUM"
"TYPE-ERROR-EXPECTED-TYPE"
"TYPE-OF"
"TYPECASE"
"TYPEP"
"UNBOUND-SLOT"
"UNBOUND-SLOT-INSTANCE"
"UNBOUND-VARIABLE"
"UNDEFINED-FUNCTION"
"UNEXPORT"
"UNINTERN"
"UNION"
"UNLESS"
"UNREAD-CHAR"
"UNSIGNED-BYTE"
"UNTRACE"
"UNUSE-PACKAGE"
"UNWIND-PROTECT"
"UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
"UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
"UPGRADED-ARRAY-ELEMENT-TYPE"
"UPGRADED-COMPLEX-PART-TYPE"
"UPPER-CASE-P"
"USE-PACKAGE"
"USE-VALUE"
"USER-HOMEDIR-PATHNAME"
"VALUES"
"VALUES-LIST"
"VARIABLE"
"VECTOR"
"VECTOR-POP"
"VECTOR-PUSH"
"VECTOR-PUSH-EXTEND"
"VECTORP"
"WARN"
"WARNING"
"WHEN"
"WILD-PATHNAME-P"
"WITH-ACCESSORS"
"WITH-COMPILATION-UNIT"
"WITH-CONDITION-RESTARTS"
"WITH-HASH-TABLE-ITERATOR"
"WITH-INPUT-FROM-STRING"
"WITH-OPEN-FILE"
"WITH-OPEN-STREAM"
"WITH-OUTPUT-TO-STRING"
"WITH-PACKAGE-ITERATOR"
"WITH-SIMPLE-RESTART"
"WITH-SLOTS"
"WITH-STANDARD-IO-SYNTAX"
"WRITE"
"WRITE-BYTE"
"WRITE-CHAR"
"WRITE-LINE"
"WRITE-STRING"
"WRITE-TO-STRING"
"Y-OR-N-P"
"YES-OR-NO-P"
"ZEROP"
))
(defpackage "COMMON-LISP-USER"
(:nicknames "CL-USER")
(:use "COMMON-LISP"))
(deftype cl:real (&optional min max)
(declare (ignore min max))
`lisp:real)
(declaim (declaration dynamic-extent))
(defun print-unreadable-object-function (object stream type identity function)
(declare #+lispm
(sys:downward-funarg function))
(princ "#<" stream)
(when type
(let ((type (type-of object))
(pcl-package (find-package "PCL")))
;; Handle pcl type-of lossage
(when (and pcl-package
(symbolp type)
(eq (symbol-package type) pcl-package)
(string-equal (symbol-name type) "STD-INSTANCE"))
(setq type
(funcall (intern (symbol-name 'class-name) pcl-package)
(funcall (intern (symbol-name 'class-of) pcl-package)
object))))
(prin1 type stream)))
(when (and type function) (princ " " stream))
(when function (funcall function))
(when (and (or type function) identity) (princ " " stream))
(when identity (princ "???" stream))
(princ ">" stream)
nil)
(defmacro print-unreadable-object
((object stream &key type identity) &body body)
(if body
`(flet ((.print-unreadable-object-body. () ,@body))
(print-unreadable-object-function
,object ,stream ,type ,identity #'.print-unreadable-object-body.))
`(print-unreadable-object-function ,object ,stream ,type ,identity nil)))
------- End of Forwarded Message