Re: %active-restart

Hyperspec says:

---
:test-function

Value is evaluated in the current lexical environment and should  
return a function of one argument, a condition, which returns true if  
the restart is to be considered visible.
---

nil is not a condition.

-Alan

On Aug 25, 2005, at 4:59 PM, Alan Ruttenberg wrote:

> (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
>