#!+(and (not sb-fluid) (not sb-xc-host))
(global-var
(case (global-var-kind leaf)
- (:global-function (eq (symbol-package (leaf-source-name leaf))
- *cl-package*)))))))
+ (:global-function (let ((name (leaf-source-name leaf)))
+ (when (consp name)
+ (aver (eq (first name) 'setf))
+ (setq name (second name)))
+ (eq (symbol-package name)
+ *cl-package*))))))))
;;; If we have a non-set LET var with a single use, then (if possible)
;;; replace the variable reference's CONT with the arg continuation.