%active-restart

(defun %active-restart (name)
   (dolist (cluster %restarts%)
     (dolist (restart cluster)
       (let* ((rname (%restart-name restart))
          (rtest (%restart-test restart)))
     (when (and (or (eq restart name) (eq rname name))
            (or (null rtest) (funcall rtest nil)))
       (return-from %active-restart (values restart cluster))))))
   (error 'inactive-restart :restart-name name))

This calls the restart-test on nil instead of the condition in  
question. Is that correct?

-Alan