#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.