Changeset 584

Timestamp:

Feb 28, 2004, 1:20:46 AM (21 years ago)

Author:

Gary Byers

Message:

INVOKE-RESTART recognizes simple restarts (from Bryan O'Connor.)

File:

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

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

@@ -498 +498 @@
             ((fixnump fn)               ; restart case
              (throw tag (cons fn values)))
-            (t (apply fn values))))))   ; restart bind
+            ((functionp fn)             ; restart bind
+             (apply fn values))         
+            (t                          ; with-simple-restart
+             (throw tag (values nil t)))))))
 
 (defun invoke-restart-no-return (restart)