#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