Changeset 15018

Timestamp:

Oct 12, 2011, 8:54:45 AM (13 years ago)

Author:

gz

Message:

Make invoke-restart-no-return accept and pass on values

File:

• trunk/source/level-1/l1-error-system.lisp (modified) (1 diff)

trunk/source/level-1/l1-error-system.lisp

@@ -670 +670 @@
              (throw tag (values nil t)))))))
 
-(defun invoke-restart-no-return (restart)
-  (invoke-restart restart)
+(defun invoke-restart-no-return (restart &rest values)
+  (declare (dynamic-extent values))
+  (apply #'invoke-restart restart values)
   (error 'restart-failure :restart restart))