- (cond ((and (consp function) (eq (car function) 'function))
- `(%funcall ,function ,@args))
- ((constant-global-fun-name-p function)
- `(%funcall (global-function ,(second function)) ,@args))
- (t
- (values nil t))))
+ (if (and (consp function) (eq (car function) 'function))
+ `(%funcall ,function ,@args)
+ (let ((name (constant-global-fun-name function)))
+ (if name
+ `(%funcall (global-function ,name) ,@args)
+ (values nil t)))))