(global-var
(case (global-var-kind leaf)
(: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*))))))))
+ (eq (symbol-package (fun-name-block-name 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.