nil))
-(declaim (ftype (sfunction (symbol &optional (or null lexenv))
+(declaim (ftype (sfunction ((or symbol cons) &optional (or null lexenv))
(values (member nil :function :macro :special-form)
boolean
list))
(let ((policy (sb-c::lexenv-policy env)))
(collect ((res))
(dolist (name sb-c::*policy-qualities*)
- (res (list name (cdr (assoc name policy)))))
+ (res (list name (sb-c::policy-quality policy name))))
(loop for (name . nil) in sb-c::*policy-dependent-qualities*
do (res (list name (sb-c::policy-quality policy name))))
(res))))