: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"
"%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"
"FDEFN-MAKUNBOUND" "OUTER-FDEFN"
"%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
"*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
- "INFINITE-ERROR-PROTECT" "FIND-CALLER-NAME-AND-FRAME"
+ "INFINITE-ERROR-PROTECT"
+ "FIND-CALLER-NAME-AND-FRAME"
+ "FIND-INTERRUPTED-NAME-AND-FRAME"
"%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
"OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
"INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
"!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
"!CONSTANTP-COLD-INIT"
+ "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" "FOREIGN-DEINIT" "PROFILE-DEINIT"
+ "DEBUG-DEINIT"
+ "FLOAT-DEINIT"
+ "FOREIGN-DEINIT"
+ "PROFILE-DEINIT"
;; Note: These are out of lexicographical order
;; because in CMU CL they were defined as
;; 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")))