:doc "private: stuff for implementing ALIENs and friends"
:use ("CL")
:export ("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
-
"%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
"%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
"%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
"ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
"ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
"ALIEN-TYPE-P" "ALIEN-TYPEP"
- "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
+ "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
"ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
"ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
"ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
"VARIABLE-LENGTH"
"SEGMENT-COLLECT-DYNAMIC-STATISTICS"
- ;; FIXME: These are in the SB-ASSEM package now, but
+ ;; FIXME: These are in the SB-ASSEM package now, but
;; (left over from CMU CL) are defined in files which
;; are IN-PACKAGE SB-C. It would probably be cleaner
;; to move at least most of them to files which are
#s(sb-cold:package-data
:name "SB!C"
:doc "private: implementation of the compiler"
+ ;; (It seems strange to have the compiler USE SB-ALIEN-INTERNALS,
+ ;; but the point seems to be to be able to express things like
+ ;; SB-C:DEFTRANSFORM SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN without
+ ;; having to use a bunch of package prefixes, by putting them
+ ;; in the SB-C package. Maybe it'd be tidier to define an SB-ALIEN-COMP
+ ;; package for this? But it seems like a fairly low priority.)
+ ;; (Probably the same considerations also explain why BIGNUM is
+ ;;in the USE list.)
:use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
#!+sb-dyncount "SB-DYNCOUNT"
"SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
"*COUNT-VOP-USAGES*" "*ELSEWHERE*"
"*FASL-HEADER-STRING-START-STRING*"
"*FASL-HEADER-STRING-STOP-CHAR-CODE*"
- "*SETF-ASSUMED-FBOUNDP*"
+ "*SETF-ASSUMED-FBOUNDP*"
"*SUPPRESS-VALUES-DECLARATION*"
"ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
"CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
"DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
"DEF-IR1-TRANSLATOR" "DEF-PRIMITIVE-TRANSLATOR"
- "DEF-PRIMITIVE-TYPE" "DEF-PRIMITIVE-TYPE-ALIAS"
+ "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
"DEF-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
"DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUNCTION"
"DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
;; FIXME: Why not just put this stuff into SB-ALIEN? Or maybe
;; just glom this and SB-ALIEN together into SB-FFI?
:doc "public: some types used with ALIENs"
- :use ("CL" "SB!SYS" "SB!ALIEN-INTERNALS" "SB!ALIEN")
+ :use ("CL" "SB!SYS" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!INT" "SB!EXT")
:reexport ("FLOAT" "CHAR")
- :export ("C-STRING" "DOUBLE" "INT" "LONG"
+ :export ("C-STRING" "DOUBLE" "GET-ERRNO" "INT" "LONG"
"SHORT" "UNSIGNED-CHAR" "UNSIGNED-INT"
"UNSIGNED-LONG" "UNSIGNED-SHORT" "VOID"))
:use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
"SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
:export ("*COLLECT-DYNAMIC-STATISTICS*" "COUNT-ME"
- "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
+ "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
"IR2-COMPONENT-DYNCOUNT-INFO"
"DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
:use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!C-CALL" "SB!DEBUG" "SB!EXT"
"SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
- ;; FIXME: It seems to me that this could go away, with its contents moved
- ;; into SB!KERNEL, like the implementation of the rest of the class system.
-;; #s(sb-cold:package-data
-;; :name "SB!CONDITIONS"
-;; :doc "private: the implementation of the condition system"
-;; :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL"))
-
#s(sb-cold:package-data
:name "SB!DEBUG"
:doc
debugger interface mixed with various low-level implementation stuff
like *STACK-TOP-HINT*"
:use ("CL" "SB!EXT" "SB!INT" "SB!SYS")
- :export ("*AUTO-EVAL-IN-FRAME*" "*DEBUG-CONDITION*"
- "*DEBUG-PRINT-LENGTH*" "*DEBUG-PRINT-LEVEL*"
+ :export ("*AUTO-EVAL-IN-FRAME*" "*DEBUG-BEGINNER-HELP-P*"
+ "*DEBUG-CONDITION*"
+ "*DEBUG-PRINT-LENGTH*" "*DEBUG-PRINT-LEVEL*"
"*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
"*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
"*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
:doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
;; FIXME: Why don't we just USE-PACKAGE %KERNEL here instead of importing?
:use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!INT" "SB!SYS" "SB!GRAY")
- ;; FIXME: If we advertise these as extensions, they should be in the
- ;; SB!EXT package (and perhaps re-exported from the %KERNEL
- ;; package) rather than in some other package and reexported from
- ;; SB!EXT.
- :import-from (("SB!KERNEL" "WEAK-POINTER-P"))
- :reexport ("LOAD-FOREIGN" "LOAD-1-FOREIGN" "WEAK-POINTER-P")
+ :reexport ("LOAD-FOREIGN" "LOAD-1-FOREIGN")
:export (;; Information about how the program was invoked is
;; nonstandard but very useful.
"*POSIX-ARGV*" "POSIX-GETENV" "POSIX-ENVIRON"
;; People have various good reasons to mess with the GC.
"*AFTER-GC-HOOKS*" "*BEFORE-GC-HOOKS*"
"*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
- "*GC-VERBOSE*"
"BYTES-CONSED-BETWEEN-GCS"
"GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
"*GC-RUN-TIME*"
;; FIXME: These seem like the right thing, but are they
;; consistent with ANSI? (And actually maybe they're not
;; quite the right thing; it might be better to also do
- ;; WITH-STANDARD-IO-SYNTAX or something.)
+ ;; WITH-STANDARD-IO-SYNTAX or something.)
"*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
;; KLUDGE: CMU CL had
;; extended declarations..
"FREEZE-TYPE" "INHIBIT-WARNINGS"
- "MAYBE-INLINE" "OPTIMIZE-INTERFACE"
+ "MAYBE-INLINE"
;; ..and variables to control compiler policy
"*INLINE-EXPANSION-LIMIT*"
;; are assertions" default
"TRULY-THE"
- ;; This is something which must exist inside any Common Lisp
- ;; implementation, and which someone writing a customized toplevel
- ;; might well want. It seems perverse to hide it from
- ;; them..
+ ;; This is something which must exist inside any Common Lisp
+ ;; implementation, and which someone writing a customized toplevel
+ ;; might well want. It seems perverse to hide it from
+ ;; them..
"INTERACTIVE-EVAL"
;; weak pointers and finalization
- "FINALIZE" "CANCEL-FINALIZATION"
- ;; FIXME: "WEAK-POINTER-P" here once it moves from %KERNEL
+ "CANCEL-FINALIZATION"
+ "FINALIZE"
"HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
- "WEAK-POINTER" "WEAK-POINTER-VALUE"
+ "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
;; If the user knows we're doing IEEE, he might reasonably
;; want to do this stuff.
"FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
"FLOATING-POINT-INVALID"
"FLOAT-INFINITY-P"
- #!+sb-infinities "SHORT-FLOAT-NEGATIVE-INFINITY"
- #!+sb-infinities "SHORT-FLOAT-POSITIVE-INFINITY"
- #!+sb-infinities "SINGLE-FLOAT-NEGATIVE-INFINITY"
- #!+sb-infinities "SINGLE-FLOAT-POSITIVE-INFINITY"
- #!+sb-infinities "DOUBLE-FLOAT-NEGATIVE-INFINITY"
- #!+sb-infinities "DOUBLE-FLOAT-POSITIVE-INFINITY"
- #!+sb-infinities "LONG-FLOAT-NEGATIVE-INFINITY"
- #!+sb-infinities "LONG-FLOAT-POSITIVE-INFINITY"
+ "SHORT-FLOAT-NEGATIVE-INFINITY"
+ "SHORT-FLOAT-POSITIVE-INFINITY"
+ "SINGLE-FLOAT-NEGATIVE-INFINITY"
+ "SINGLE-FLOAT-POSITIVE-INFINITY"
+ "DOUBLE-FLOAT-NEGATIVE-INFINITY"
+ "DOUBLE-FLOAT-POSITIVE-INFINITY"
+ "LONG-FLOAT-NEGATIVE-INFINITY"
+ "LONG-FLOAT-POSITIVE-INFINITY"
;; hacks to work around system limitations
"*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
"STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR"
"STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"))
- ;; FIXME: It looks as though it's no longer important to have INSPECT be
- ;; a separate package. INSPECT functionality is in the ANSI spec, and we
- ;; might as well implement it with everything else.
- #s(sb-cold:package-data
- :name "SB!INSPECT"
- :doc "private: implementation of INSPECT"
- :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT")
- :export ("*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS"
- "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT"))
-
#s(sb-cold:package-data
:name "SB!INT"
:doc
the stuff in here originated in CMU CL's EXTENSIONS package and is
retained, possibly temporariliy, because it might be used internally."
:use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!SYS" "SB!GRAY")
- ;; FIXME: RATIOP should probably not go through this package but be
- ;; called directly from SB!KERNEL, unless it's implemented as
- ;; TYPEP X 'RATIO in which case it doesn't need to be in SB!KERNEL.
- ;; And BIGNUMP and FIXNUMP should probably just be in this package,
- ;; even if they have low-level-optimized implementations. (Their
- ;; *meanings* aren't low-level, even if their implementations are.)
- :import-from (("SB!KERNEL" "BIGNUMP" "FIXNUMP" "RATIOP"))
- :reexport ("BIGNUMP" "FIXNUMP" "RATIOP")
:export ("*AFTER-SAVE-INITIALIZATIONS*" "*BEFORE-SAVE-INITIALIZATIONS*"
"*ALL-MODIFIER-NAMES*"
;; hash mixing operations
"MIX" "MIXF"
+
+ ;; optimization idioms
+ "*OPTIMIZE-BYTE-COMPILATION*"
+ "*OPTIMIZE-EXTERNAL-DESPITE-BYTE-COMPILATION*"
;; Arguably there's no one right value for the system
;; prompt. But Common Lisp makes it easy for you to write
;; rid of FDEFINITIONs entirely later.
"*SETF-FDEFINITION-HOOK*"
- ;; non-standard but widely useful user-level functions..
- "ASSQ" "DELQ" "MEMQ"
- "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
+ ;; error-reporting facilities
+ "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
+ "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
+ "SIMPLE-STYLE-WARNING"
+ "STYLE-WARN"
+
+ ;; bootstrapping magic, to make things happen both in
+ ;; the cross-compilation host compiler's environment and
+ ;; in the cross-compiler's environment
+ "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
+
+ ;; miscellaneous non-standard but handy user-level functions..
+ "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
+ "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
"SANE-PACKAGE"
"CIRCULAR-LIST-P"
-
- ;; ..and macros..
+ "SWAPPED-ARGS-FUN"
+ "ANY/TYPE" "EVERY/TYPE"
+ "TYPE-BOUND-NUMBER"
+ "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
+ "PSXHASH"
+ "%BREAK"
+
+ ;; ..and macros..
"COLLECT"
"DO-ANONYMOUS" "DOHASH" "DOVECTOR"
- "ITERATE"
- "LETF" "LETF*"
+ "NAMED-LET"
"ONCE-ONLY"
"DEFENUM"
"DEFPRINTER"
- "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
+ "AVER" "AVER-TYPE" "ENFORCE-TYPE"
;; ..and DEFTYPEs..
"INDEX"
"LONG-FLOATP"
"SHORT-FLOATP"
"SINGLE-FLOATP"
+ "FIXNUMP"
+ "BIGNUMP"
+ "RATIOP"
;; encapsulation
"ARGUMENT-LIST"
"RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
;; symbol-hacking idioms
- "CONCAT-PNAMES" "KEYWORDICATE" "SYMBOLICATE"
+ "KEYWORDICATE" "SYMBOLICATE"
;; search lists (FIXME: should go away)
"ENUMERATE-SEARCH-LIST"
;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
"CONSTANT-ARGUMENT"
- ;; FIXME: Maybe this isn't used any more? And if it is,
- ;; it probably needs a better name, since SPECIAL things
- ;; are such a nice source of sneaky bugs.
- "E"
-
;; various internal defaults
"*DEFAULT-PACKAGE-USE-LIST*"
"DEFAULT-INIT-CHAR"
;; used for FORMAT tilde paren
"MAKE-CASE-FROB-STREAM"
+ ;; helpers for C library calls
+ "STRERROR" "SIMPLE-PERROR"
+
;; debuggers' little helpers
#!+sb-show "*/SHOW*"
+ #!+sb-show "HEXSTR"
"/SHOW" "/NOSHOW"
"/XHOW" "/NOXHOW"
"/SHOW0" "/NOSHOW0"
+ "/HEXSTR" "/NOHEXSTR"
+ "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
;; cross-compilation bootstrap hacks which turn into
;; placeholders in a target system
;; need it:
"*EOF-OBJECT*"
+ ;; alien interface utilities
+ "C-STRINGS->STRING-LIST"
+
;; misc. utilities used internally
"LEGAL-FUNCTION-NAME-P"
"FUNCTION-NAME-BLOCK-NAME"
- #!-sb-infinities "INFINITE"
+ "WHITESPACE-CHAR-P"
"LISTEN-SKIP-WHITESPACE"
"PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
"PROPER-LIST-OF-LENGTH-P"
"LIST-OF-LENGTH-AT-LEAST-P"
"READ-SEQUENCE-OR-DIE"
- "RENAME-KEYWORD-ARGS"
+ "RENAME-KEY-ARGS"
"REQUIRED-ARGUMENT"
- "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package %UNIX
+ "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
"FEATUREP"
"FLUSH-STANDARD-OUTPUT-STREAMS"
"MAKE-GENSYM-LIST"
"DEFCONSTANT-EQX"
"ABOUT-TO-MODIFY"
+ "PRINT-PRETTY-ON-STREAM-P"
;; These could be moved back into SB!EXT if someone has
;; compelling reasons, but hopefully we can get by
"UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
"UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
+ ;; a sort of quasi unbound tag for use in hash tables
+ "+EMPTY-HT-SLOT+"
+
;; not used any more, I think -- WHN 19991206
- #+nil
+ #+nil
("SERVE-BUTTON-PRESS"
"SERVE-BUTTON-RELEASE" "SERVE-CIRCULATE-NOTIFY"
"SERVE-CIRCULATE-REQUEST" "SERVE-CLIENT-MESSAGE"
#s(sb-cold:package-data
:name "SB!ITERATE"
- :doc "private: implementation of an iteration facility used by PCL"
- :use ("CL" "SB!WALKER")
+ :doc "private: an iteration facility used to implement PCL"
+ :use ("CL" "SB!WALKER" "SB!INT" "SB!EXT")
:export ("ITERATE" "ITERATE*" "GATHERING" "GATHER"
"WITH-GATHERING" "INTERVAL" "ELEMENTS"
"LIST-ELEMENTS" "LIST-TAILS" "PLIST-ELEMENTS"
:use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
"SB!EXT" "SB!INT" "SB!SYS" "SB!GRAY")
:import-from (("SB!C-CALL" "VOID"))
- :reexport ("DEF!STRUCT" "DEF!MACRO" "VOID")
+ :reexport ("DEF!STRUCT" "DEF!MACRO" "VOID" "WEAK-POINTER-P")
:export ("%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
"%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION"
"%ARRAY-DISPLACED-P"
"%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
"%COSH" "%DEPOSIT-FIELD"
"%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
- "%FUNCTION-HEADER-ARGLIST"
- "%FUNCTION-HEADER-NAME" "%FUNCTION-HEADER-TYPE"
"%HYPOT" "%INSTANCE-SET-CONDITIONAL" "%LDB"
"%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO"
"%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" "%MAP-TO-LIST-ARITY-1"
- "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR"
+ "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR"
"%MAP-TO-NIL-ON-VECTOR" "%MASK-FIELD" "%NEGATE" "%POW"
"%PUTHASH" "%RAW-BITS" "%RAW-REF-COMPLEX-DOUBLE"
"%RAW-REF-COMPLEX-LONG"
"CLOSED-FLAME"
"CODE-COMPONENT" "CODE-COMPONENT-P"
"CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
- "CODE-INSTRUCTIONS" "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUNCTION"
+ "CODE-INSTRUCTIONS"
+ "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUNCTION"
"COERCE-TO-LIST" "COERCE-TO-SIMPLE-STRING"
"COERCE-TO-SIMPLE-VECTOR" "COERCE-TO-VECTOR"
"*COLD-INIT-COMPLETE-P*"
"!COLD-INIT-FORMS" "COMPLEX-DOUBLE-FLOAT-P"
"COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P"
"COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P"
+ "COMPOUND-TYPE" "COMPOUND-TYPE-P" "COMPOUND-TYPE-TYPES"
"CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE"
"CONS-TYPE-P"
"CONSED-SEQUENCE" "CONSTANT" "CONSTANT-TYPE"
"CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE"
"CONTAINING-INTEGER-TYPE"
"CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
- "COPY-NUMERIC-TYPE" "COPY-TO-SYSTEM-AREA"
- "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
+ "COPY-TO-SYSTEM-AREA"
+ "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
"CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
"CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
"DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
- "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT" "DESCEND-INTO"
+ "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT"
+ "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
+ "DESCEND-INTO"
"DIVISION-BY-ZERO-ERROR"
"DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
"DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS"
"INDEX-TOO-LARGE-ERROR" "INTEGER-DECODE-DOUBLE-FLOAT"
"INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT"
"INTERNAL-ERROR" "INTERNAL-TIME"
+ "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
+ "INTERSECTION-TYPE-TYPES"
"INVALID-ARGUMENT-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
"INVALID-UNWIND-ERROR" "IRRATIONAL"
"JUST-DUMP-IT-NORMALLY"
"MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE"
"MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE"
"MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
- "%MAKE-INSTANCE" "MAKE-UNION-TYPE" "MAKE-VALUES-TYPE"
+ "%MAKE-INSTANCE"
+ "MAKE-VALUES-TYPE"
"MAYBE-GC" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
- "MEMBER-TYPE-P" "MERGE-BITS"
+ "MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
"DEFMACRO-MUNDANELY" "MUTATOR-SELF"
"NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
"NATIVE-BYTE-ORDER" "NEGATE"
"OBJECT-NOT-TYPE-ERROR"
"OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
"OBJECT-NOT-VECTOR-ERROR" "OBJECT-NOT-WEAK-POINTER-ERROR"
- "ODD-KEYWORD-ARGUMENTS-ERROR"
+ "ODD-KEY-ARGUMENTS-ERROR"
"OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
"PACKAGE-DOC-STRING"
"PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
"TWO-ARG-GCD" "TWO-ARG-IOR"
"TWO-ARG-LCM" "TWO-ARG-XOR"
"TYPE-DIFFERENCE" "TYPE-EXPAND"
- "TYPE-INTERSECT"
- "TYPE-INTERSECTION" "TYPE-SPECIFIER"
- "TYPE-UNION" "TYPE/=" "TYPE="
- "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
+ "TYPE-INTERSECTION" "TYPE-INTERSECTION2"
+ "TYPE-APPROX-INTERSECTION2"
+ "TYPE-SPECIFIER" "TYPE-UNION" "TYPE/=" "TYPE="
+ "TYPES-EQUAL-OR-INTERSECT"
+ "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
"UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P"
"UNION-TYPE-TYPES" "UNKNOWN-ERROR"
- "UNKNOWN-KEYWORD-ARGUMENT-ERROR"
+ "UNKNOWN-KEY-ARGUMENT-ERROR"
"UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
"UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
"UNSIGNED-BYTE-32-P" "VALUES-SPECIFIER-TYPE"
"VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
- "VALUES-TYPE" "VALUES-TYPE-ALLOWP" "VALUES-TYPE-INTERSECT"
+ "VALUES-TYPE"
"VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
"VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL"
"VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
- "VALUES-TYPES" "VALUES-TYPES-INTERSECT" "VECTOR-T-P"
+ "VALUES-TYPES" "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
"VECTOR-TO-VECTOR*" "VECTOR-TO-SIMPLE-STRING*"
"VECTOR-TO-BIT-VECTOR*" "VECTOR-TO-SIMPLE-BIT-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
"%COERCE-CALLABLE-TO-FUNCTION"
"FUNCTION-SUBTYPE" "*MAXIMUM-ERROR-DEPTH*"
"%SET-SYMBOL-PLIST" "INFINITE-ERROR-PROTECT"
- "FIND-CALLER-NAME"
+ "FIND-CALLER-NAME-AND-FRAME"
"%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
"OUTPUT-SYMBOL-NAME"
"FSET" "RAW-DEFINITION"
"INVOKE-MACROEXPAND-HOOK"
"DEFAULT-STRUCTURE-PRINT"
- "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP" "TARGET-FIXNUMP"
+ "LAYOUT" "LAYOUT-LENGTH"
"LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
"%COMPILER-DEFSTRUCT"
"%COMPILER-ONLY-DEFSTRUCT" "FUNCTION-%COMPILER-ONLY-DEFSTRUCT"
"DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
- "BIGNUMP" "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
+ "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
"CLASS-STATE" "INSTANCE"
- "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT"
+ "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT"
"DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
"DD-NAME" "CLASS-SUBCLASSES"
"CLASS-LAYOUT" "CLASS-%NAME"
"STRUCTURE-CLASS-P" "DSD-INDEX"
"%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
"%FUNCTION-TYPE" "PROCLAIM-AS-FUNCTION-NAME"
+ "BECOME-DEFINED-FUNCTION-NAME"
"%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP"
"STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY"
"LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
"MAKE-UNDEFINED-CLASS" "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
"BYTE-FUNCTION-TYPE"
"REDEFINE-LAYOUT-WARNING" "SLOT-CLASS"
- "INSURED-FIND-CLASS" "CONDITION-FUNCTION-NAME"
-
- ;; FIXME: These error-handling things probably belong
- ;; the SB-INT package, not here.
- "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
- "SIMPLE-PROGRAM-ERROR" "SIMPLE-STYLE-WARNING" "STYLE-WARN"
+ "INSURED-FIND-CLASS"
;; symbols from former SB!CONDITIONS
"*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
"NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
"DESCRIBE-CONDITION"
- "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
+ "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
"!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
"!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
"!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
"!READER-COLD-INIT"
"STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
"!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
- "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
+ "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
"!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
- "!CLASS-FINALIZE" "GC-COLD-INIT-OR-REINIT"
+ "!CLASS-FINALIZE" "GC-COLD-INIT-OR-REINIT"
;; These belong in an "SB!LOAD" package someday.
"*STATIC-FOREIGN-SYMBOLS*" "*ASSEMBLER-ROUTINES*"
extensions, but even they are not guaranteed to be present in
later versions of SBCL, and the other stuff in here is
definitely not guaranteed to be present in later versions of SBCL."
- :use ("CL" "SB!ITERATE" "SB!WALKER")
+ ;; FIXME: SB-PCL should probably USE-PACKAGE SB-KERNEL, since SB-PCL
+ ;; is built on SB-KERNEL, and in the absence of USE-PACKAGE, it ends
+ ;; up using a thundering herd of explicit prefixes to get to
+ ;; SB-KERNEL symbols. However, it'll probably be too messy to do
+ ;; this until the duplicate SB-PCL:CLASS/CL:CLASS hierarchy kludge
+ ;; is unscrewed, since until it is there are too many things which
+ ;; conflict between the two packages.
+ :use ("CL" "SB!ITERATE" "SB!WALKER" "SB!INT" "SB!EXT")
:import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "FUNCTION-DOC"
"PACKAGE-DOC-STRING"
"PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
- "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
- "SB!INT" "SB!EXT"))
+ "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))
:reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
"COMPUTE-APPLICABLE-METHODS"
"ENSURE-GENERIC-FUNCTION"
"%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
"%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE"
"%STANDARD-CHAR-P"
- "*BEEP-FUNCTION*"
"*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
"*STDERR*" "*STDIN*"
"*STDOUT*" "*TASK-DATA*"
"ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER"
"ADD-PORT-OBJECT"
"ALLOCATE-SYSTEM-MEMORY"
- "BEEP" "BITS" "STRUCTURE!OBJECT"
- "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
+ "BEEP" "BITS"
"BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
"COMPILER-VERSION"
"DEALLOCATE-SYSTEM-MEMORY"
"GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
"INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
- "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MAP-PORT"
+ "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
"NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
- "NULL-TERMINATED-STRING" "OBJECT-SET-OPERATION"
+ "OBJECT-SET-OPERATION"
"OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
- "PARSE-BODY" "PERQ-STRING" "POINTER"
- "POINTER<" "POINTER>" "PORT" "POSITIVE-PRIMEP" "PUSH-USING-SETQ"
+ "PARSE-BODY" "POINTER"
+ "POINTER<" "POINTER>" "PORT" "POSITIVE-PRIMEP"
"READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
"REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
"REMOVE-PORT-OBJECT"
"SHORT-FLOAT-RADIX"
"SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
"SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
- "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET"
+ "SINGLE-FLOAT-RADIX"
+ ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
+ "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
+ "SYMBOL-MACRO-LET"
"SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" "VECTOR-SAP"
"WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
"WITH-FD-HANDLER"
"DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD"
"F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN"
"FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC"
- "F_OK" "GET-UNIX-ERROR-MSG" "GET-ERRNO" "GID-T"
- "INO-T" "IT-INTERVAL" "IT-VALUE"
- "ITIMERVAL" "UNIX-SETITIMER" "UNIX-GETITIMER"
+ "F_OK" "GID-T"
+ "INO-T" "UNIX-SETITIMER" "UNIX-GETITIMER"
"KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET"
"KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET"
"L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR"
"O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
- "RLIM-MAX" "RLIMIT" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
+ "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
"RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
"RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
"RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
"SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
"SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE"
"ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME"
- "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T" "T-BRKC"
- "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC"
- "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCHARS"
+ "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T"
"TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH"
"TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ"
"TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP"
- "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD" "TTY-LCASE"
- "TTY-RAW" "TTY-TANDEM" "TV-SEC" "TV-USEC" "TZ-DSTTIME"
+ "TIOCSWINSZ" "TV-SEC" "TV-USEC" "TZ-DSTTIME"
"TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND"
"UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT"
"UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2"
"UNIX-UID" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE"
"WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
"WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
- "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
- "EALREADY" "SIGPIPE" "EACCES" "CHECK" "SIGXCPU" "EOPNOTSUPP"
- "SIGFPE" "SIGHUP" "ENOTSOCK" "OPEN-DIR" "SIGMASK" "EINTR"
+ "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
+ "EALREADY" "SIGPIPE" "CHECK" "SIGXCPU" "EOPNOTSUPP"
+ "SIGFPE" "SIGHUP" "ENOTSOCK" "SIGMASK" "EINTR"
"SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE"
"EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL"
"EDOM" "UNIX-SIGPAUSE" "EDQUOT" "FD-SETSIZE" "SIGTSTP"
"UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK"
"ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH"
"EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE"
- "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET" "SIGMSG"
+ "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET"
"ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK"
"EADDRINUSE" "SIGBUS" "ERESTART" "TTY-PROCESS-GROUP"
"UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP"
"UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED"
- "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "CLOSE-DIR" "EISDIR"
- "SIGTTIN" "UNIX-KILL" "ENOTDIR" "EHOSTDOWN" "E2BIG" "ESPIPE"
+ "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "EISDIR"
+ "SIGTTIN" "UNIX-KILL" "EHOSTDOWN" "E2BIG" "ESPIPE"
"UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS"
- "UNIX-SIGNAL-DESCRIPTION" "SIGXFSZ" "EINPROGRESS" "ENOENT"
+ "SIGXFSZ" "EINPROGRESS" "ENOENT"
"EPROTONOSUPPORT" "UNIX-SIGBLOCK" "SIGIO" "ENOMEM" "SIGEMT"
"EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK"
"EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY"
- "READ-DIR" "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE"
+ "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE"
"SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
"ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
"ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"
"FUNCALLABLE-INSTANCE-HEADER-TYPE"
"FUNCALLABLE-INSTANCE-INFO-OFFSET"
"FUNCTION-ARGLIST-SLOT" "FUNCTION-CODE-OFFSET"
- "FUNCTION-END-BREAKPOINT-TRAP" "FUNCTION-HEADER-ARGLIST-SLOT"
- "FUNCTION-HEADER-CODE-OFFSET" "FUNCTION-HEADER-NAME-SLOT"
+ "FUNCTION-END-BREAKPOINT-TRAP"
+ "FUNCTION-HEADER-CODE-OFFSET"
"FUNCTION-HEADER-NEXT-SLOT" "FUNCTION-HEADER-SELF-SLOT"
"FUNCTION-HEADER-TYPE" "FUNCTION-HEADER-TYPE-SLOT"
"FUNCTION-NAME-SLOT" "FUNCTION-NEXT-SLOT" "FUNCTION-POINTER-TYPE"
#s(sb-cold:package-data
:name "SB!WALKER"
:doc "internal: a code walker used by PCL"
- :use ("CL")
+ :use ("CL" "SB!INT" "SB!EXT")
:export ("DEFINE-WALKER-TEMPLATE" "WALK-FORM"
"*WALK-FORM-EXPAND-MACROS-P*"
"VARIABLE-LEXICAL-P" "VARIABLE-SPECIAL-P"
projects / sbcl.git / blobdiff