Re: %active-restart

Sorry I missed this.

I'm not sure if this is correct (though I also have to confess that I
remember how any of this works at most once a year.)

Exactly how CCL::%ACTIVE-RESTART behaves isn't necessarily of direct
concern (since it's a random internal function), but it would be of
concern if it causes some public function to misbehave.  Can you think
of a case where it does so ?

(Sorry if I'm missing the obvious.)

On Thu, 25 Aug 2005, 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
> _______________________________________________
> Bug-openmcl mailing list
> [email protected]
> http://clozure.com/mailman/listinfo/bug-openmcl
>
>