"*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"
"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"
"*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"
;; weak pointers and finalization
"CANCEL-FINALIZATION"
- "FINALIZE"
+ "FINALIZE"
"HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
"WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
;; 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
"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
;; 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"
"DEFENUM"
"DEFPRINTER"
"AVER" "ENFORCE-TYPE"
+ "AWHEN" "ACOND" "IT"
;; ..and CONDITIONs..
"BUG"
"UNSUPPORTED-OPERATOR"
-
+
;; ..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:
"WHITESPACE-CHAR-P"
"LISTEN-SKIP-WHITESPACE"
"PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
- "PARSE-BODY"
+ "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"
"SYMBOL-SELF-EVALUATING-P"
"PRINT-PRETTY-ON-STREAM-P"
"LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
- "POSITIVE-PRIMEP"
+ "POSITIVE-PRIMEP"
+ "EVAL-IN-LEXENV"
;; 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"))
"%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"
"BYTE-SPECIFIER"
"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"
"END-TOO-LARGE-ERROR"
"ERROR-NUMBER-OR-LOSE"
"*!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"
"ANSI-STREAM-IN-INDEX"
"ANSI-STREAM-MISC" "ANSI-STREAM-N-BIN"
"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"
- "LONG-FLOAT-RADIX" "LONG-WORDS"
+ #!+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"
"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-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-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"
"CLASS-CELL-TYPEP"
"FIND-CLASS-CELL" "EXTRACT-FUN-TYPE"
"FUNCALLABLE-STRUCTURE-CLASS"
- "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT"
+ "%RANDOM-DOUBLE-FLOAT"
+ #!+long-float "%RANDOM-LONG-FLOAT"
"%RANDOM-SINGLE-FLOAT"
"RANDOM-PCL-CLASS"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK"
"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"
: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"
"NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
"OBJECT-SET-OPERATION"
"OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
- "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"))
"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"
"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-SINGLE-FLOAT-WIDETAG"
"SIMPLE-ARRAY-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
"SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
projects / sbcl.git / blobdiff