"DEFINITION-SOURCE-CHARACTER-OFFSET"
"DEFINITION-SOURCE-FILE-WRITE-DATE"
"DEFINITION-SOURCE-PLIST"
- "DEFINITION-NOT-FOUND" "DEFINITION-NAME"
"FIND-FUNCTION-CALLEES"
"FIND-FUNCTION-CALLERS"
"MAP-ROOT"
(case type
((:variable)
(when (and (symbolp name)
- (eq (sb-int:info :variable :kind name) :special))
+ (member (sb-int:info :variable :kind name)
+ '(:global :special)))
(translate-source-location (sb-int:info :source-location type name))))
((:constant)
(when (and (symbolp name)
(lambda (obj header size)
(when (= sb-vm:code-header-widetag header)
(funcall fn obj size)))
- space
- t)))
+ space)))
(declaim (inline map-caller-code-components))
(defun map-caller-code-components (function spaces fn)
For :HEAP objects the secondary value is a plist:
:SPACE
- Inficates the heap segment the object is allocated in.
+ Indicates the heap segment the object is allocated in.
:GENERATION
Is the current generation of the object: 0 for nursery, 6 for pseudo-static