diff --git a/conditions/restart-case.lsp b/conditions/restart-case.lsp index b11424b9d5f59881660d973896b9720ed5028f38..ff4f3c113a88eb335a3e43f96c110c302359a171 100644 --- a/conditions/restart-case.lsp +++ b/conditions/restart-case.lsp @@ -308,3 +308,11 @@ (declare (special x)) y)))) :good) + +(deftest restart-case.37 + (progn + (define-condition x () ((y :initarg :y))) + (handler-bind ((x (lambda (c) (slot-value c 'y)))) + (restart-case + (signal 'x :y 1)))) + nil)