;; FIXME there may be other structure predicate functions
(member self (list *struct-predicate*))))
-(defun function-arglist (function)
- "Deprecated alias for FUNCTION-LAMBDA-LIST."
+(sb-int:define-deprecated-function :late "1.0.24.5" function-arglist function-lambda-list
+ (function)
(function-lambda-list function))
-(define-compiler-macro function-arglist (function)
- (sb-int:deprecation-warning 'function-arglist 'function-lambda-list)
- `(function-lambda-list ,function))
-
(defun function-lambda-list (function)
"Describe the lambda list for the extended function designator FUNCTION.
Works for special-operators, macros, simple functions, interpreted functions,
even if :PINNED in NIL if the GC has not had the need to mark the the page
as pinned. (GENCGC and :SPACE :DYNAMIC only.)
+ :WRITE-PROTECTED
+ Indicates that the page on which the object starts is write-protected,
+ which indicates for :BOXED objects that it hasn't been written to since
+ the last GC of its generation. (GENCGC and :SPACE :DYNAMIC only.)
+
+ :PAGE
+ The index of the page the object resides on. (GENGC and :SPACE :DYNAMIC
+ only.)
+
For :STACK objects secondary value is the thread on whose stack the object is
allocated.
:write-protected (logbitp 0 flags)
:boxed (logbitp 2 flags)
:pinned (logbitp 5 flags)
- :large (logbitp 6 flags)))))
+ :large (logbitp 6 flags)
+ :page index))))
(list :space space))
#-gencgc
(list :space space))))))