:use ("CL" "SB!KERNEL" "SB!INT" "SB!EXT")
:export ("%ADD-WITH-CARRY"
"%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
- "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET"
+ "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-REF-WITH-OFFSET"
+ "%BIGNUM-SET" "%BIGNUM-SET-WITH-OFFSET"
"%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
"%DIGIT-LOGICAL-SHIFT-RIGHT"
"%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
"CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
"CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
"DEALLOC-NUMBER-STACK-SPACE"
+ "DEBUG-CATCH-TAG"
"DEF-IR1-TRANSLATOR"
"!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
"DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
"*PRINT-LOCATION-KIND*"
"*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
"*TRACE-VALUES*" "DO-DEBUG-COMMAND"
- "*TRACE-ENCAPSULATE-DEFAULT*"))
+ "*TRACE-ENCAPSULATE-DEFAULT*"
+ "FRAME-HAS-DEBUG-TAG-P"
+ "UNWIND-TO-FRAME-AND-CALL"))
#s(sb-cold:package-data
:name "SB!DI"
"FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION"
"FRAME-DEBUG-FUN" "FRAME-DOWN"
"FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
+ "REPLACE-FRAME-CATCH-TAG"
"FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
"INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
"LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
;; and a mechanism for controlling same at compile time
"MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
- ;; FIXME: This name doesn't match the DEFFOO - vs. -
- ;; DEFINE-FOO convention used in the ANSI spec, and so
- ;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After
- ;; a year or so it can go away completely.
- "DEF-SOURCE-CONTEXT"
-
;; extended declarations..
"FREEZE-TYPE" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
"FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
"FUNDAMENTAL-STREAM"
"STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
- "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
+ "STREAM-CLEAR-OUTPUT" "STREAM-FILE-POSITION" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
"STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
"STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
"STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
:name "SB!INT"
:doc
"private: miscellaneous unsupported extensions to the ANSI spec. Much of
-the stuff in here originated in CMU CL's EXTENSIONS package and is
-retained, possibly temporariliy, because it might be used internally."
+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!GRAY" "SB!FASL" "SB!SYS")
:export (;; lambda list keyword extensions
"&MORE"
"PHYSICALIZE-PATHNAME"
"SANE-DEFAULT-PATHNAME-DEFAULTS"
"SBCL-HOMEDIR-PATHNAME"
+ "SIMPLIFY-NAMESTRING"
;; PCOUNTERs
"FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
"SIGNED-BYTE-WITH-A-BITE-OUT"
"UNSIGNED-BYTE-WITH-A-BITE-OUT"
"SFUNCTION" "UNSIGNED-BYTE*"
+ "CONSTANT-DISPLACEMENT"
;; ..and type predicates
"INSTANCEP"
"DOUBLE-FLOAT-P"
"%DOUBLE-FLOAT" "%DPB" "%EQL" "%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"
+ "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
+ "%FUN-DOC"
+ "%FUN-FUN"
+ "%FUN-NAME"
+ "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
"CONTROL-STACK-POINTER-SAP" "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
"CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE" "CTYPE-OF"
"CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
- "CURRENT-DYNAMIC-SPACE-START" "DATA-VECTOR-REF"
- "DATA-VECTOR-SET" "DECLARATION-TYPE-CONFLICT-ERROR"
+ "CURRENT-DYNAMIC-SPACE-START"
+ "DATA-VECTOR-REF" "DATA-VECTOR-REF-WITH-OFFSET"
+ "DATA-VECTOR-SET" "DATA-VECTOR-SET-WITH-OFFSET"
+ "DECLARATION-TYPE-CONFLICT-ERROR"
"DECODE-DOUBLE-FLOAT"
#!+long-float "DECODE-LONG-FLOAT"
"DECODE-SINGLE-FLOAT"
"RUN-PENDING-FINALIZERS"
"SCALE-DOUBLE-FLOAT"
#!+long-float "SCALE-LONG-FLOAT"
- "SCALE-SINGLE-FLOAT" "SEQUENCE-COUNT" "SEQUENCE-END"
+ "SCALE-SINGLE-FLOAT"
+ "SEQUENCEP" "SEQUENCE-COUNT" "SEQUENCE-END"
"SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
"SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
"SHIFT-TOWARDS-START" "SHRINK-VECTOR" "%SHRINK-VECTOR"
"FDEFN-MAKUNBOUND" "OUTER-FDEFN"
"%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
"*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
- "INFINITE-ERROR-PROTECT"
+ "INFINITE-ERROR-PROTECT"
"FIND-CALLER-NAME-AND-FRAME"
"FIND-INTERRUPTED-NAME-AND-FRAME"
"%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
"PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME"
"%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY"
"DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH"
- "%CODE-ENTRY-POINTS" "%DENOMINATOR"
+ "%CODE-ENTRY-POINTS" "%DENOMINATOR" "%SIMPLE-FUN-XREFS"
"STANDARD-CLASSOID" "CLASSOID-OF"
"MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
"FLOAT-COLD-INIT-OR-REINIT"
"GC-REINIT"
+ "TIME-REINIT"
"SIGNAL-COLD-INIT-OR-REINIT"
"STREAM-COLD-INIT-OR-RESET"
;; Cleanups to run before saving a core
- "DEBUG-DEINIT"
+ "DEBUG-DEINIT"
"FLOAT-DEINIT"
- "FOREIGN-DEINIT"
+ "FOREIGN-DEINIT"
"PROFILE-DEINIT"
;; Note: These are out of lexicographical order
:export ("PROFILE" "REPORT" "RESET" "UNPROFILE"))
#s(sb-cold:package-data
+ :name "SB!SEQUENCE"
+ :doc "semi-public: implements something which might eventually
+be submitted as a CDR"
+ :use ()
+ :export ("DOSEQUENCE"
+
+ "MAKE-SEQUENCE-ITERATOR" "MAKE-SIMPLE-SEQUENCE-ITERATOR"
+
+ "ITERATOR-STEP" "ITERATOR-ENDP" "ITERATOR-ELEMENT"
+ "ITERATOR-INDEX" "ITERATOR-COPY"
+
+ "WITH-SEQUENCE-ITERATOR" "WITH-SEQUENCE-ITERATOR-FUNCTIONS"
+
+ "CANONIZE-TEST" "CANONIZE-KEY"
+
+ "LENGTH" "ELT"
+ "MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
+
+ "COUNT" "COUNT-IF" "COUNT-IF-NOT"
+ "FIND" "FIND-IF" "FIND-IF-NOT"
+ "POSITION" "POSITION-IF" "POSITION-IF-NOT"
+ "SUBSEQ" "COPY-SEQ" "FILL"
+ "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT"
+ "SUBSTITUTE" "SUBSTITUTE-IF" "SUBSTITUTE-IF-NOT"
+ "REPLACE" "REVERSE" "NREVERSE" "REDUCE"
+ "MISMATCH" "SEARCH"
+ "DELETE" "DELETE-IF" "DELETE-IF-NOT"
+ "REMOVE" "REMOVE-IF" "REMOVE-IF-NOT"
+ "DELETE-DUPLICATES" "REMOVE-DUPLICATES" "SORT" "STABLE-SORT"))
+
+ #s(sb-cold:package-data
:name "SB!SYS"
:doc
"private: In theory, this \"contains functions and information
;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
"STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
"SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
+ "SYSTEM-INTERNAL-REAL-TIME"
+ "SYSTEM-INTERNAL-RUN-TIME"
"UNDEFINED-FOREIGN-SYMBOLS-P"
"UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
"WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
"UNIX-FILE-KIND" "UNIX-KILL" "CODESET"
"TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
"FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
- "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG"
+ "UNIX-KILLPG"
"TIOCSIGSEND"
"C-IFLAG" "C-LFLAG" "C-OFLAG"
"C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
#!+ppc "PSEUDO-ATOMIC-FLAG"
"GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
"IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
- "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*"
+ "IMMEDIATE-SC-NUMBER"
"INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
"INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
"INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
"HANDLE-CLEAR-INPUT" "HANDLE-LISTEN" "INT-PTR"
"INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT"
"PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE"
-
- "GET-PROCESS-TIMES" "GET-VERSION-EX")))
+ "WITH-PROCESS-TIMES" "GET-VERSION-EX")))