;;;; the specifications of target packages, except for a few things
;;;; which are handled elsewhere by other mechanisms:
-;;;; * the creation of the trivial SB-SLOT-ACCESSOR-NAME package
-;;;; * any SHADOWing and nickname hackery
+;;;; * any SHADOWing and nickname hackery;
;;;; * the standard, non-SBCL-specific packages COMMON-LISP,
-;;;; COMMON-LISP-USER, and KEYWORD
+;;;; COMMON-LISP-USER, and KEYWORD.
;;;;
;;;; The packages are named SB!FOO here and elsewhere in
;;;; cross-compilation, in order to avoid collision with possible
"*BACKEND-SUBFEATURES*"
"*BACKEND-T-PRIMITIVE-TYPE*"
- "*CODE-SEGMENT*"
+ "*CODE-SEGMENT*"
"*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"
+ "*LEXENV*"
"*SETF-ASSUMED-FBOUNDP*"
"*SUPPRESS-VALUES-DECLARATION*"
"CHECK-FIXNUM" "CHECK-FUN"
"CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL" "CHECK-UNSIGNED-BYTE-32"
"CLOSURE-INIT" "CLOSURE-REF"
- "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
+ "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
+ "COMPILE-IN-LEXENV"
"COMPILE-LAMBDA-FOR-DEFUN"
"%COMPILER-DEFUN" "COMPILER-ERROR"
"COMPONENT" "COMPONENT-HEADER-LENGTH"
"COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
- "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
+ "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
"CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
"CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
- "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
+ "DEALLOC-NUMBER-STACK-SPACE"
"DEF-IR1-TRANSLATOR"
"!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
"DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
"PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
"FAST-SYMBOL-VALUE" "FOLDABLE"
"FORCE-TN-TO-STACK"
+ "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
+ "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
"GET-VECTOR-SUBTYPE"
"HALT"
"IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
"IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
"IR2-PHYSENV-NUMBER-STACK-P"
"KNOWN-CALL-LOCAL" "KNOWN-RETURN"
- "LAMBDA-INDEPENDENT-OF-LEXENV-P"
- "LAMBDA-WITH-LEXENV" "LOCATION=" "LTN-ANNOTATE"
+ "LAMBDA-WITH-LEXENV" "LEXENV-FIND"
+ "LOCATION=" "LTN-ANNOTATE"
"MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
"MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
"MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
"MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
"MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
"MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE"
+ "MAYBE-INLINE-SYNTACTIC-CLOSURE"
"META-PRIMITIVE-TYPE-OR-LOSE"
"META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
"MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
"*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
"*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
"*TRACE-FRAME*" "*TRACED-FUN-LIST*"
- "ARG" "BACKTRACE" "INTERNAL-DEBUG" "VAR"
+ "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"
"*PRINT-LOCATION-KIND*"
"*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
"*TRACE-VALUES*" "DO-DEBUG-COMMAND"
"SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
:export ("*ASSEMBLER-ROUTINES*"
"+BACKEND-FASL-FILE-IMPLEMENTATION+"
+ "BUILD-ID-CORE-ENTRY-TYPE-CODE"
"*FASL-FILE-TYPE*"
"CLOSE-FASL-OUTPUT"
"DUMP-ASSEMBLER-ROUTINES"
"DUMP-OBJECT"
+ "DYNAMIC-CORE-SPACE-ID"
+ "END-CORE-ENTRY-TYPE-CODE"
"FASL-CONSTANT-ALREADY-DUMPED-P"
"+FASL-FILE-VERSION+"
"FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
"FASL-OUTPUT" "FASL-OUTPUT-P"
"FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
"FASL-VALIDATE-STRUCTURE"
+ "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
"*!LOAD-TIME-VALUES*"
"LOAD-TYPE-PREDICATE"
+ "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
"OPEN-FASL-OUTPUT"
+ "READ-ONLY-CORE-SPACE-ID"
"*!REVERSED-COLD-TOPLEVELS*"
- "*STATIC-FOREIGN-SYMBOLS*"))
+ "STATIC-CORE-SPACE-ID"
+ "*STATIC-FOREIGN-SYMBOLS*"
+ "VERSION-CORE-ENTRY-TYPE-CODE"))
;; This package is a grab bag for things which used to be internal
;; symbols in package COMMON-LISP. Lots of these symbols are accessed
;; an existing package (e.g. KERNEL or SYS or EXT or FASL), I
;; (WHN 19990223) encourage maintainers to move them there..
;;
- ;; ..except that it's getting so big and crowded that maybe it
- ;; should be split up, too.
+ ;; ..except that it's getting so big and crowded that maybe it should
+ ;; be split up, too.
#s(sb-cold:package-data
:name "SB!IMPL"
:doc "private: a grab bag of implementation details"
;; hairy compiles.
"*COMPILE-PROGRESS*"
- ;; There is no one right way to do DESCRIBE.
- "*DESCRIBE-INDENTATION-STEP*"
-
;; It can be handy to be able to evaluate expressions involving
;; the thing under examination by CL:INSPECT.
"*INSPECTED*"
;; WITH-STANDARD-IO-SYNTAX or something.)
"*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
- ;; KLUDGE: CMU CL had
- ;; "*IGNORE-FLOATING-POINT-UNDERFLOW*", which seemed
- ;; like a reasonable idea but doesn't seem to be supported
- ;; now? -- WHN 19991206
-
;; extended declarations..
"FREEZE-TYPE" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
"*USE-IMPLEMENTATION-TYPES*"
"*DERIVE-FUNCTION-TYPES*"
+ ;; ..and inspector of compiler policy
+ "DESCRIBE-COMPILER-POLICY"
+
;; a special form for breaking out of our "declarations
;; are assertions" default
"TRULY-THE"
;; weak pointers and finalization
"CANCEL-FINALIZATION"
- "FINALIZE"
+ "FINALIZE"
"HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
"WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
;; want to do this stuff.
"FLOAT-DENORMALIZED-P"
"FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
- "FLOATING-POINT-INVALID"
"FLOAT-INFINITY-P"
"SHORT-FLOAT-NEGATIVE-INFINITY"
"SHORT-FLOAT-POSITIVE-INFINITY"
;; saving Lisp images
"SAVE-LISP-AND-DIE"
+ ;; provided for completeness to make it more convenient
+ ;; to use command-line --disable-debugger functionality
+ ;; in oddball situations (like building core files using
+ ;; scripts which run unattended, when the core files are
+ ;; intended for interactive use)
+ "DISABLE-DEBUGGER"
+ "ENABLE-DEBUGGER"
+
;; miscellaneous useful supported extensions
"QUIT"
-
+ "*MODULE-PROVIDER-FUNCTIONS*"
+
;; RUN-PROGRAM is not only useful for users, but also
;; useful to implement parts of SBCL itself, so we're
;; going to have to implement it anyway, so we might
;; hash mixing operations
"MIX" "MIXF"
-
+
;; I'm not convinced that FDEFINITIONs are the ideal
;; solution, so exposing ways to peek into the system
;; seems undesirable, since it makes it harder to get
;; error-reporting facilities
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
+ "SIMPLE-PARSE-ERROR"
"SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
"SIMPLE-STYLE-WARNING"
+ "SPECIAL-FORM-FUNCTION"
"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"
+ "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
;; stuff for hinting to the compiler
"NAMED-LAMBDA"
-
+
;; other variations on DEFFOO stuff useful for bootstrapping
;; and cross-compiling
"DEFMACRO-MUNDANELY"
"FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
"INCF-PCOUNTER"
"INCF-PCOUNTER-OR-FIXNUM"
- "MAKE-PCOUNTER"
+ "MAKE-PCOUNTER"
"PCOUNTER"
"PCOUNTER->INTEGER"
"PCOUNTER-OR-FIXNUM->INTEGER"
;; miscellaneous non-standard but handy user-level functions..
"ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
"%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
- "SANE-PACKAGE"
+ "SANE-PACKAGE"
"CYCLIC-LIST-P"
"COMPOUND-OBJECT-P"
"SWAPPED-ARGS-FUN"
"ANY/TYPE" "EVERY/TYPE"
+ "EQUAL-BUT-NO-CAR-RECURSION"
"TYPE-BOUND-NUMBER"
"CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
"PSXHASH"
"%BREAK"
"NTH-BUT-WITH-SANE-ARG-ORDER"
"DEPRECATION-WARNING"
+ "BIT-VECTOR-="
;; ..and macros..
"COLLECT"
"DEFENUM"
"DEFPRINTER"
"AVER" "ENFORCE-TYPE"
+ "AWHEN" "ACOND" "IT"
+ "!DEF-BOOLEAN-ATTRIBUTE"
;; ..and CONDITIONs..
"BUG"
"UNSUPPORTED-OPERATOR"
-
- ;; ..and DEFTYPEs..
- "INDEX"
+ ;; ..and DEFTYPEs..
+ "INDEX" "LOAD/STORE-INDEX"
+ "SIGNED-BYTE-WITH-A-BITE-OUT"
+ "UNSIGNED-BYTE-WITH-A-BITE-OUT"
;; ..and type predicates
"INSTANCEP"
- "DOUBLE-FLOATP"
+ "DOUBLE-FLOAT-P"
"LOGICAL-PATHNAME-P"
- "LONG-FLOATP"
- "SHORT-FLOATP"
- "SINGLE-FLOATP"
+ "LONG-FLOAT-P"
+ "SHORT-FLOAT-P"
+ "SINGLE-FLOAT-P"
"FIXNUMP"
"BIGNUMP"
- "RATIOP"
+ "RATIOP"
;; encapsulation
"ARG-LIST"
;; hash caches
"DEFINE-HASH-CACHE"
"DEFUN-CACHED"
+ "DEFINE-CACHED-SYNONYM"
;; time
"FORMAT-DECODED-TIME"
;; cross-compilation bootstrap hacks which turn into
;; placeholders in a target system
- "UNCROSS"
+ "UNCROSS"
;; might as well be shared among the various files which
;; need it:
"C-STRINGS->STRING-LIST"
;; misc. utilities used internally
- "LEGAL-FUN-NAME-P"
+ "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
"FUN-NAME-BLOCK-NAME"
"FUN-NAME-INLINE-EXPANSION"
"WHITESPACE-CHAR-P"
"LISTEN-SKIP-WHITESPACE"
"PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
+ "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
"PROPER-LIST-OF-LENGTH-P"
"LIST-OF-LENGTH-AT-LEAST-P"
"LIST-WITH-LENGTH-P"
"ABOUT-TO-MODIFY-SYMBOL-VALUE"
"SYMBOL-SELF-EVALUATING-P"
"PRINT-PRETTY-ON-STREAM-P"
+ "ARRAY-READABLY-PRINTABLE-P"
"LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
- "POSITIVE-PRIMEP"
+ "POSITIVE-PRIMEP"
+ "EVAL-IN-LEXENV"
+ "DEBUG-NAMIFY"
;; These could be moved back into SB!EXT if someone has
;; compelling reasons, but hopefully we can get by
;; hackery to help set up for cold init
"!BEGIN-COLLECTING-COLD-INIT-FORMS"
- "!COLD-INIT-FORMS"
+ "!COLD-INIT-FORMS"
"COLD-FSET"
- "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"))
+ "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
+
+ ;; hooks for contrib/ stuff we're insufficiently sure
+ ;; about to add to SB!EXT
+ "*REPL-PROMPT-FUN*"
+ "*REPL-READ-FORM-FUN*"))
;; FIXME: This package is awfully huge. It'd probably be good to
;; split it. There's at least one natural way to split it: the
"%ARRAY-FILL-POINTER-P"
"%ASIN" "%ASINH"
"%ATAN" "%ATAN2" "%ATANH"
- "%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%CLOSURE-FUN"
+ "%CALLER-FRAME-AND-PC" "%CHECK-BOUND"
+ "%CHECK-VECTOR-SEQUENCE-BOUNDS" "%CLOSURE-FUN"
"%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
- "%COSH" "%DEPOSIT-FIELD" "%DETECT-STACK-EXHAUSTION"
+ "%COSH" "%DATA-VECTOR-AND-INDEX"
+ "%DEPOSIT-FIELD"
"%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
"%FIND-POSITION" "%FIND-POSITION-VECTOR-MACRO"
"%FIND-POSITION-IF" "%FIND-POSITION-IF-VECTOR-MACRO"
"%FIND-POSITION-IF-NOT" "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
"%FUN-DOC" "%FUN-NAME"
"%HYPOT" "%LDB"
- "%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT"
+ "%LOG" "%LOGB" "%LOG10" "%LOG1P"
+ #!+long-float "%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"
"*CURRENT-LEVEL-IN-PRINT*" "*EMPTY-TYPE*"
"*GC-INHIBIT*"
"*NEED-TO-COLLECT-GARBAGE*"
- "*PRETTY-PRINTER*" "*CONTROL-STACK-EXHAUSTION-SAP*"
+ "*CONTROL-STACK-EXHAUSTION-SAP*"
"*UNIVERSAL-TYPE*" "*UNIVERSAL-FUN-TYPE*"
"*UNPARSE-FUN-TYPE-SIMPLIFY*" "*WILD-TYPE*"
"32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1"
"ARRAY-TYPE-P"
"ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX"
"ASSERT-ERROR" "BASE-CHAR-P"
- "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND"
- "BIT-BASH-ANDC1"
- "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY"
- "BIT-BASH-EQV"
- "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR"
- "BIT-BASH-NOT"
- "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET"
- "BIT-BASH-XOR"
+ "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY"
"BIT-INDEX" "BOGUS-ARG-TO-VALUES-LIST-ERROR"
"BOOLE-CODE"
+ "BOUNDING-INDICES-BAD-ERROR"
"BYTE-SPECIFIER"
"%BYTE-BLT"
"CALLABLE" "CASE-BODY-ERROR"
"CODE-COMPONENT" "CODE-COMPONENT-P"
"CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
"CODE-INSTRUCTIONS"
- "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUN" "COERCE-TO-LEXENV"
- "COERCE-TO-LIST" "COERCE-TO-SIMPLE-STRING"
- "COERCE-TO-SIMPLE-VECTOR" "COERCE-TO-VECTOR"
+ "COERCE-TO-FUN" "COERCE-TO-LEXENV"
+ "COERCE-TO-LIST" "COERCE-TO-VECTOR"
"*COLD-INIT-COMPLETE-P*"
"COMPLEX-DOUBLE-FLOAT-P"
- "COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P"
+ "COMPLEX-FLOAT-P"
+ #!+long-float "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"
"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"
+ #!+long-float "DECODE-LONG-FLOAT"
+ "DECODE-SINGLE-FLOAT"
"DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
"!DEFSTRUCT-WITH-ALTERNATE-METACLASS"
"DESCEND-INTO"
"DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
"DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS"
"DOUBLE-FLOAT-SIGNIFICAND"
- "DOUBLE-FLOAT-P" "FLOAT-WAIT"
+ "FLOAT-WAIT"
"DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
+ "EFFECTIVE-FIND-POSITION-TEST" "EFFECTIVE-FIND-POSITION-KEY"
"ERROR-NUMBER-OR-LOSE"
"FAILED-%WITH-ARRAY-DATA"
"FDEFINITION-OBJECT"
"WIDETAG-OF"
"HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
"HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
- "HANDLE-CIRCULARITY" "IGNORE-IT"
+ "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT"
"ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT"
"INDEX-OR-MINUS-1"
"INDEX-TOO-LARGE-ERROR"
"*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
"*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
"INTEGER-DECODE-DOUBLE-FLOAT"
- "INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT"
+ #!+long-float "INTEGER-DECODE-LONG-FLOAT"
+ "INTEGER-DECODE-SINGLE-FLOAT"
"INTERNAL-ERROR" "INTERNAL-TIME"
"INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
"INTERSECTION-TYPE-TYPES"
"JUST-DUMP-IT-NORMALLY"
"KEY-INFO" "KEY-INFO-NAME"
"KEY-INFO-P" "KEY-INFO-TYPE"
- "LAYOUT-DEPTHOID"
- "LAYOUT-INVALID-ERROR" "LEXENV"
+ "LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
+ "LEXENV" "LEXENV-DESIGNATOR"
"LINE-LENGTH"
"ANSI-STREAM"
"ANSI-STREAM-BIN" "ANSI-STREAM-BOUT"
+ "ANSI-STREAM-CLOSE"
+ "ANSI-STREAM-ELEMENT-TYPE"
"ANSI-STREAM-IN" "ANSI-STREAM-IN-BUFFER"
"ANSI-STREAM-IN-INDEX"
+ "ANSI-STREAM-INPUT-STREAM-P"
"ANSI-STREAM-MISC" "ANSI-STREAM-N-BIN"
+ "ANSI-STREAM-OPEN-STREAM-P"
"ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
- "LIST-TO-SIMPLE-STRING*" "LIST-TO-BIT-VECTOR*"
+ "ANSI-STREAM-OUTPUT-STREAM-P"
"LIST-TO-VECTOR*"
- "LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS"
- "LONG-FLOAT-HIGH-BITS"
- "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P"
- "LONG-FLOAT-RADIX" "LONG-WORDS"
+ "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
+ #!+long-float "LONG-FLOAT-EXPONENT"
+ #!+long-float "LONG-FLOAT-EXP-BITS"
+ #!+long-float "LONG-FLOAT-HIGH-BITS"
+ #!+long-float "LONG-FLOAT-LOW-BITS"
+ #!+long-float "LONG-FLOAT-MID-BITS"
+ "LONG-WORDS"
"LRA" "LRA-CODE-HEADER" "LRA-P"
"MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
"MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
"MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE"
- "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT"
+ "MAKE-KEY-INFO" "MAKE-LISP-OBJ"
+ #!+long-float "MAKE-LONG-FLOAT"
"MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE"
- "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE"
+ "MAKE-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
+ "MAKE-NUMERIC-TYPE"
"MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
"%MAKE-INSTANCE"
"MAKE-VALUE-CELL"
"MUTATOR-SELF"
"NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
"NATIVE-BYTE-ORDER" "NEGATE"
- "NEVER-SUBTYPEP" "NIL-FUN-RETURNED-ERROR"
+ "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
+ "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
+ "NIL-FUN-RETURNED-ERROR"
"NOT-<=-ERROR" "NOT-=-ERROR"
"NOT-DUMPED-AT-ALL"
"NUMERIC-CONTAGION" "NUMERIC-TYPE"
"OBJECT-NOT-COMPLEX-ERROR"
"OBJECT-NOT-COMPLEX-FLOAT-ERROR"
"OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
- "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
+ #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
"OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
"OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
;; FIXME: It's confusing using "complex" to mean
"OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
"OBJECT-NOT-INSTANCE-ERROR"
"OBJECT-NOT-INTEGER-ERROR"
- "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-LONG-FLOAT-ERROR"
+ "OBJECT-NOT-LIST-ERROR"
+ #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
"OBJECT-NOT-NUMBER-ERROR"
"OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
"OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
"OBJECT-NOT-SIGNED-BYTE-32-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
- "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
+ #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-ERROR"
- "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
+ #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
+ "OBJECT-NOT-SIMPLE-ARRAY-NIL-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
"PACKAGE-DOC-STRING"
"PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
"PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
- "PARSE-DEFMACRO" "PARSE-LAMBDA-LIST" "PARSE-UNKNOWN-TYPE"
+ "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
"PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
- #+x86 "*PSEUDO-ATOMIC-ATOMIC*"
- #+x86 "*PSEUDO-ATOMIC-INTERRUPTED*"
+ #!+x86 "*PSEUDO-ATOMIC-ATOMIC*"
+ #!+x86 "*PSEUDO-ATOMIC-INTERRUPTED*"
"PUNT-PRINT-IF-TOO-LONG"
- "READER-PACKAGE-ERROR"
- "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT"
+ "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR"
+ "SCALE-DOUBLE-FLOAT"
+ #!+long-float "SCALE-LONG-FLOAT"
"SCALE-SINGLE-FLOAT"
+ "SEQUENCE-COUNT"
"SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
"SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
"SHIFT-TOWARDS-START" "SHRINK-VECTOR" "SIGNED-BYTE-32-P"
"SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
- "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
+ #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
"SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
- "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-LONG-FLOAT-P"
+ "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
+ #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
+ "SIMPLE-ARRAY-NIL-P"
"SIMPLE-ARRAY-P"
"SIMPLE-ARRAY-SINGLE-FLOAT-P"
"SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
"SIMPLE-PACKAGE-ERROR"
"SIMPLE-UNBOXED-ARRAY"
"SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
- "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-P"
+ "SINGLE-FLOAT-INT-EXPONENT"
"SINGLE-FLOAT-SIGNIFICAND"
- "SINGLE-VALUE-TYPE" "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
+ "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
+ "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
"SPECIFIER-TYPE" "STACK-REF"
"STREAMLIKE" "STRINGABLE"
"STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
"%INSTANCE-LENGTH"
"%INSTANCE-REF" "%INSTANCE-SET"
- "STRING-TO-SIMPLE-STRING"
"SYSTEM-AREA-CLEAR"
"SYSTEM-AREA-COPY" "TWO-ARG-*"
"TWO-ARG-+" "TWO-ARG--"
"VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"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-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
"WITH-ARRAY-DATA"
"WRONG-NUMBER-OF-INDICES-ERROR"
"LAYOUT-PURE" "DSD-RAW-TYPE"
"DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
"DD-COPIER" "UNDEFINE-FUN-NAME" "DD-TYPE"
- "CLASS-STATE" "INSTANCE"
+ "CLASSOID-STATE" "INSTANCE"
"*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT"
"DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
- "DD-NAME" "CLASS-SUBCLASSES"
- "CLASS-LAYOUT" "CLASS-%NAME"
+ "DD-NAME" "CLASSOID-SUBCLASSES"
+ "CLASSOID-LAYOUT" "CLASSOID-NAME"
"DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
"%CODE-CODE-SIZE" "DD-SLOTS"
+ "DD-INCLUDE"
"%IMAGPART" "DSD-ACCESSOR-NAME"
"%CODE-DEBUG-INFO" "DSD-%NAME"
- "LAYOUT-CLASS" "LAYOUT-INVALID"
+ "LAYOUT-CLASSOID" "LAYOUT-INVALID"
"%SIMPLE-FUN-NAME" "DSD-TYPE" "%INSTANCEP"
"DEFSTRUCT-SLOT-DESCRIPTION" "%SIMPLE-FUN-ARGLIST"
"%SIMPLE-FUN-NEXT" "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE-NAME"
- "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
+ "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
"%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
"LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"
- "STRUCTURE-CLASS-P" "DSD-INDEX"
+ "STRUCTURE-CLASSOID-P" "DSD-INDEX"
"%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
"%SIMPLE-FUN-TYPE" "PROCLAIM-AS-FUN-NAME"
"BECOME-DEFINED-FUN-NAME"
- "%NUMERATOR" "CLASS-TYPEP"
+ "%NUMERATOR" "CLASSOID-TYPEP"
"DSD-READ-ONLY"
+ "DSD-DEFAULT"
"LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
"%DENOMINATOR"
- "MAKE-STANDARD-CLASS"
- "CLASS-CELL-TYPEP"
- "FIND-CLASS-CELL" "EXTRACT-FUN-TYPE"
- "FUNCALLABLE-STRUCTURE-CLASS"
- "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT"
+
+ "STANDARD-CLASSOID"
+ "CLASSOID-OF"
+ "MAKE-STANDARD-CLASSOID"
+ "CLASSOID-CELL-TYPEP"
+ "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
+ "FUNCALLABLE-STRUCTURE-CLASSOID"
+ "%RANDOM-DOUBLE-FLOAT"
+ #!+long-float "%RANDOM-LONG-FLOAT"
"%RANDOM-SINGLE-FLOAT"
- "RANDOM-PCL-CLASS"
+ "RANDOM-PCL-CLASSOID"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK"
- "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-CLOS-HASH-MAX"
- "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
+ "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID" "LAYOUT-CLOS-HASH-MAX"
+ "CLASSOID-CELL-NAME" "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
+ "BUILT-IN-CLASSOID-TRANSLATION"
"RANDOM-LAYOUT-CLOS-HASH"
- "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
+ "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
"FUNCALLABLE-INSTANCE-FUN"
"%FUNCALLABLE-INSTANCE-LAYOUT"
- "BASIC-STRUCTURE-CLASS"
- "CLASS-CELL-CLASS"
- "FUNCALLABLE-STRUCTURE-CLASS-P" "REGISTER-LAYOUT"
+ "BASIC-STRUCTURE-CLASSOID"
+ "CLASSOID-CELL-CLASSOID"
+ "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
- "MAKE-RANDOM-PCL-CLASS" "INSTANCE-LAMBDA"
+ "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
"%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
"%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
- "MAKE-UNDEFINED-CLASS" "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
- "REDEFINE-LAYOUT-WARNING" "SLOT-CLASS"
- "INSURED-FIND-CLASS" "ORDER-LAYOUT-INHERITS"
+ "BUILT-IN-CLASSOID"
+ "MAKE-UNDEFINED-CLASSOID" "FIND-CLASSOID" "CLASSOID"
+ "CLASSOID-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
+ "REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
+ "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
"STD-COMPUTE-CLASS-PRECEDENCE-LIST"
;; symbols from former SB!CONDITIONS
"SHOW-CONDITION" "CASE-FAILURE"
"NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
"DESCRIBE-CONDITION"
-
+
"!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
"!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
"!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
;; in this package. -- WHN 19990911
"STRING>=*" "STRING>*" "STRING=*"
"STRING<=*" "STRING<*" "STRING/=*"
- "SHORT-FLOAT-P" "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
+ "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
"%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
"%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD"
"%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET"
:use ("CL")
:export ())
- #!+mp
- #s(sb-cold:package-data
- :name "SB!MP"
- :doc "public (but unstable): multiprocessing support"
- :export ("*ALL-PROCESSES*" "*CURRENT-PROCESS*"
- "*CURRENT-STACK-GROUP*" "*INITIAL-STACK-GROUP*"
- "*MULTI-PROCESSING*" "ALL-PROCESSES"
- "ATOMIC-DECF" "ATOMIC-INCF" "ATOMIC-POP"
- "ATOMIC-PUSH" "CURRENT-PROCESS"
- "DESTROY-PROCESS" "DISABLE-PROCESS"
- "ENABLE-PROCESS" "INIT-STACK-GROUPS"
- "LOCK" "MAKE-STACK-GROUP" "MAKE-LOCK"
- "MAKE-PROCESS" "PROCESS-ACTIVE-P" "PROCESS-ALIVE-P"
- "PROCESS-IDLE-TIME" "PROCESS-INTERRUPT"
- "PROCESS-NAME" "PROCESS-PRESET"
- "PROCESS-REAL-TIME" "PROCESS-RUN-TIME"
- "PROCESS-STATE" "PROCESS-WAIT-UNTIL-FD-USABLE"
- "PROCESS-WAIT" "PROCESS-WAIT-WITH-TIMEOUT"
- "PROCESS-WHOSTATE" "PROCESS-YIELD" "PROCESSP"
- "RESTART-PROCESS" "SHOW-PROCESSES"
- "STACK-GROUP-RESUME" "WITHOUT-SCHEDULING"
- "WITH-LOCK-HELD"))
-
#s(sb-cold:package-data
:name "SB!PCL"
:doc
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."
- ;; 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!INT" "SB!EXT" "SB!WALKER")
+ :use ("CL" "SB!INT" "SB!EXT" "SB!WALKER" "SB!KERNEL")
:import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "%FUN-DOC"
"PACKAGE-DOC-STRING"
"PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
"PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))
+ ;; FIXME: should we now reexport CLASS and friends, too?
+ ;; Probably. See if AMOP has a list of exported symbols.
:reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
"COMPUTE-APPLICABLE-METHODS"
"ENSURE-GENERIC-FUNCTION"
:name "SB!PRETTY"
:doc "private: implementation of pretty-printing"
:use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
- :export ("PRETTY-STREAM" "PRETTY-STREAM-P" "!PPRINT-COLD-INIT"))
+ :export ("OUTPUT-PRETTY-OBJECT"
+ "PRETTY-STREAM" "PRETTY-STREAM-P"
+ "!PPRINT-COLD-INIT"))
#s(sb-cold:package-data
:name "SB!PROFILE"
"*STDERR*" "*STDIN*"
"*STDOUT*" "*TASK-DATA*"
"*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
- "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER"
- "ADD-PORT-OBJECT"
+ "ADD-FD-HANDLER"
"ALLOCATE-SYSTEM-MEMORY"
"BEEP" "BITS"
- "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
+ "BYTES" "C-PROCEDURE"
"COMPILER-VERSION"
"DEALLOCATE-SYSTEM-MEMORY"
"DEFAULT-INTERRUPT"
"DEPORT-BOOLEAN" "DEPORT-INTEGER"
- "FROB-DO-BODY" "DOUBLE-FLOAT-RADIX"
+ "FROB-DO-BODY"
"ENABLE-INTERRUPT" "ENUMERATION"
- "FD-STREAM" "FD-STREAM-FD"
- "FD-STREAM-P"
+ "FD-STREAM-FD" "FD-STREAM-P"
"FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
"GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
"NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
"OBJECT-SET-OPERATION"
"OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
- "PARSE-BODY" "POINTER"
- "POINTER<" "POINTER>" "PORT"
+ "POINTER" "POINTER<" "POINTER>"
"READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
- "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
- "REMOVE-PORT-OBJECT"
+ "REMOVE-FD-HANDLER"
"RESOLVE-LOADED-ASSEMBLER-REFERENCES"
"SAP+" "SAP-" "SAP-INT"
"SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
"SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
"SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
"SERVE-EVENT" "SERVER" "SERVER-MESSAGE"
- "SHORT-FLOAT-RADIX"
"SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
"SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
- "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"
- "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
+ "WITH-INTERRUPTS" "WITHOUT-GCING"
"WITHOUT-INTERRUPTS" "WORDS"
"ALLOCATE-SYSTEM-MEMORY-AT"
"GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))
no guarantees of interface stability."
:use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
:export (;; wrappers around Unix stuff to give just what Lisp needs
- "UID-USERNAME"
+ "UID-USERNAME" "UID-HOMEDIR"
;; stuff with a one-to-one mapping to Unix constructs
"D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
"COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG"
"COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
"COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
- "COMPLEX-LONG-FLOAT-IMAG-SLOT" "COMPLEX-LONG-FLOAT-REAL-SLOT"
- "COMPLEX-LONG-FLOAT-SIZE" "COMPLEX-LONG-FLOAT-WIDETAG"
- "COMPLEX-LONG-REG-SC-NUMBER" "COMPLEX-LONG-STACK-SC-NUMBER"
+ #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT"
+ #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT"
+ #!+long-float "COMPLEX-LONG-FLOAT-SIZE"
+ #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
+ #!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
+ #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
"COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
"COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
"COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
"INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
"INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
"INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
- "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
+ ;; FIXME: Possibly these other parameters (see
+ ;; compiler/{x86,sparc}/parms.lisp) should be defined
+ ;; conditionally on #!+LONG-FLOAT)
+ "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
"LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
"LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
- "LONG-FLOAT-SIZE" "LONG-FLOAT-TRAPPING-NAN-BIT"
- "LONG-FLOAT-WIDETAG"
- "LONG-FLOAT-VALUE-SLOT" "LONG-REG-SC-NUMBER"
- "LONG-STACK-SC-NUMBER"
+ #!+long-float "LONG-FLOAT-SIZE"
+ "LONG-FLOAT-TRAPPING-NAN-BIT"
+ #!+long-float "LONG-FLOAT-WIDETAG"
+ #!+long-float "LONG-FLOAT-VALUE-SLOT"
+ #!+long-float "LONG-REG-SC-NUMBER"
+ #!+long-float "LONG-STACK-SC-NUMBER"
"LOWTAG-LIMIT" "LOWTAG-MASK"
"LRA-SAVE-OFFSET"
"MEMORY-USAGE" "MOST-POSITIVE-COST"
"PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
"PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
"PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
- "PRIMITIVE-OBJECT-VARIABLE-LENGTH" "PRINT-ALLOCATED-OBJECTS"
+ "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS"
"RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
"RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
"*READ-ONLY-SPACE-FREE-POINTER*"
"SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
"SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
"SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
- "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
+ #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
"SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
"SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
- "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
+ #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
+ "SIMPLE-ARRAY-NIL-WIDETAG"
"SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
"SIMPLE-ARRAY-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
"BINDING-STACK-START" "BINDING-STACK-END"
"CONTROL-STACK-START" "CONTROL-STACK-END"
"DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
+ #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
#!-gencgc "DYNAMIC-0-SPACE-START"
#!-gencgc "DYNAMIC-0-SPACE-END"
#!-gencgc "DYNAMIC-1-SPACE-START"
projects / sbcl.git / blobdiff