[armedbear-ticket] [armedbear] #298: Can't invoke a restart with a test

[armedbear]

#298: Can't invoke a restart with a test
-----------------------+----------------------------------------------------
 Reporter:  sboukarev  |       Owner:  somebody
     Type:  defect     |      Status:  new     
 Priority:  major      |   Milestone:          
Component:  other      |     Version:          
 Keywords:             |  
-----------------------+----------------------------------------------------
 (defun test ()
   (handler-bind ((error
                    (lambda (e)
                      (invoke-restart (find-restart 'restart e)))))
     (restart-case
         (error "error")
       (restart ()
         :report "Try to receive data again"
         :test (lambda (c) (typep (print c) 'error))
         (print "restart")))))

 #<SIMPLE-ERROR {2FFB36C2}>
 NIL
 NIL
 Restart #<RESTART RESTART {2623592}> is not active.

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/298>
armedbear <http://common-lisp.net/project/armedbear>
armedbear