Changeset 832

Timestamp:

Jun 23, 2004, 10:30:00 AM (20 years ago)

Author:

Gary Byers

Message:

INVOKE-RESTART-INTERACTIVELY works with SIMPLE-RESTARTs again.

File:

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

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

@@ -518 +518 @@
             ((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)))))))