"*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"
"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"
;; 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"
;; 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"
;; error-reporting facilities
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
+ "SIMPLE-PARSE-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"
+ "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
;; stuff for hinting to the compiler
"NAMED-LAMBDA"
"UNSUPPORTED-OPERATOR"
;; ..and DEFTYPEs..
- "INDEX"
-
+ "INDEX" "LOAD/STORE-INDEX"
+ "SIGNED-BYTE-WITH-A-BITE-OUT"
+ "UNSIGNED-BYTE-WITH-A-BITE-OUT"
;; ..and type predicates
"INSTANCEP"
"DOUBLE-FLOATP"
"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"
"%ATAN" "%ATAN2" "%ATANH"
"%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%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"
"DOUBLE-FLOAT-SIGNIFICAND"
"DOUBLE-FLOAT-P" "FLOAT-WAIT"
"DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
+ "END-TOO-LARGE-ERROR"
"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"
"ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
"LIST-TO-SIMPLE-STRING*" "LIST-TO-BIT-VECTOR*"
"LIST-TO-VECTOR*"
+ "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
"LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS"
"LONG-FLOAT-HIGH-BITS"
"LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P"
"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*"
"PUNT-PRINT-IF-TOO-LONG"
- "READER-PACKAGE-ERROR"
+ "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR"
"SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT"
"SCALE-SINGLE-FLOAT"
"SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
"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>" "PORT"
"READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
"REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
"REMOVE-PORT-OBJECT"
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"
"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*"
"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"