(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)
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