:use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
:export ( ;; Information about how the program was invoked is
;; nonstandard but very useful.
- "*POSIX-ARGV*" "*CORE-PATHNAME*"
+ "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
"POSIX-GETENV" "POSIX-ENVIRON"
;; Atomic operations
"SBCL-HOMEDIR-PATHNAME"
"SIMPLIFY-NAMESTRING"
- ;; PCOUNTERs
- "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
- "INCF-PCOUNTER"
- "INCF-PCOUNTER-OR-FIXNUM"
- "MAKE-PCOUNTER"
- "PCOUNTER"
- "PCOUNTER->INTEGER"
- "PCOUNTER-OR-FIXNUM->INTEGER"
- "PCOUNTER-P"
"*N-BYTES-FREED-OR-PURIFIED*"
;; miscellaneous non-standard but handy user-level functions..
"%CHECK-BOUND"
"%CHECK-GENERIC-SEQUENCE-BOUNDS"
"%CHECK-VECTOR-SEQUENCE-BOUNDS"
- "%CLOSURE-FUN" "%CLOSURE-INDEX-REF"
"%COMPARE-AND-SWAP-CAR"
"%COMPARE-AND-SWAP-CDR"
"%COMPARE-AND-SWAP-INSTANCE-REF"
"%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-FUN"
- "%FUN-NAME"
"%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
"%LAST0"
"%LAST1"
"POINTER-HASH"
#!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
"PUNT-PRINT-IF-TOO-LONG"
+ "RANDOM-DOCUMENTATION"
"RAW-INSTANCE-SLOTS-EQUALP"
"READER-IMPOSSIBLE-NUMBER-ERROR"
"READER-EOF-ERROR"
"UB64-BASH-COPY" "SYSTEM-AREA-UB64-COPY"
"COPY-UB64-TO-SYSTEM-AREA" "COPY-UB64-FROM-SYSTEM-AREA"
+ ;; SIMPLE-FUN type and accessors
+ "SIMPLE-FUN"
+ "SIMPLE-FUN-P"
+ "%SIMPLE-FUN-ARGLIST"
+ "%SIMPLE-FUN-DOC"
+ "%SIMPLE-FUN-INFO"
+ "%SIMPLE-FUN-NAME"
+ "%SIMPLE-FUN-NEXT"
+ "%SIMPLE-FUN-SELF"
+ "%SIMPLE-FUN-TYPE"
+ "%SIMPLE-FUN-XREFS"
+
+ ;; CLOSURE type and accessors
+ "CLOSURE"
+ "CLOSUREP"
+ "DO-CLOSURE-VALUES"
+ "%CLOSURE-FUN"
+ "%CLOSURE-INDEX-REF"
+ "%CLOSURE-VALUES"
+
+ ;; Abstract function accessors
+ "%FUN-DOC"
+ "%FUN-FUN"
+ "%FUN-LAMBDA-LIST"
+ "%FUN-NAME"
+
"FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
"FDEFN-MAKUNBOUND" "OUTER-FDEFN"
"%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
"DD-RAW-LENGTH" "NOTE-NAME-DEFINED" "%CODE-CODE-SIZE"
"DD-SLOTS" "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
"%IMAGPART" "DSD-ACCESSOR-NAME" "%CODE-DEBUG-INFO"
- "LAYOUT-CLASSOID" "LAYOUT-INVALID" "%SIMPLE-FUN-NAME"
+ "LAYOUT-CLASSOID" "LAYOUT-INVALID"
"DSD-TYPE" "%INSTANCEP" "DEFSTRUCT-SLOT-DESCRIPTION"
- "%SIMPLE-FUN-ARGLIST" "%SIMPLE-FUN-NEXT"
"DD-PREDICATE-NAME"
"CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
"%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
- "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"
+ "LAYOUT-OF" "%REALPART"
"STRUCTURE-CLASSOID-P" "DSD-INDEX" "STRUCTURE-CLASSOID"
- "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH" "%SIMPLE-FUN-TYPE"
+ "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
"PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME"
"%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY"
"DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH"
- "%CODE-ENTRY-POINTS" "%DENOMINATOR" "%SIMPLE-FUN-XREFS"
+ "%CODE-ENTRY-POINTS" "%DENOMINATOR"
"%OTHER-POINTER-P"
"STANDARD-CLASSOID" "CLASSOID-OF"
#!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
#!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
#!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
+ #!-x86-64 #!-x86-64
"COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
+ #!+x86-64
+ "COMPLEX-SINGLE-FLOAT-DATA-SLOT"
"COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
"COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
"COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
:export ("INTERPRETED-FUNCTION"
"INTERPRETED-FUNCTION-P"
"INTERPRETED-FUNCTION-NAME"
+ "INTERPRETED-FUNCTION-DEBUG-NAME"
"INTERPRETED-FUNCTION-LAMBDA-LIST"
+ "INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST"
"INTERPRETED-FUNCTION-DOCUMENTATION"
"INTERPRETED-FUNCTION-BODY"
"INTERPRETED-FUNCTION-SOURCE-LOCATION"