Changeset 467

Timestamp:

Feb 2, 2004, 8:15:53 AM (21 years ago)

Author:

Gary Byers

Message:

Bryan O'Connor's change to INVOKE-RESTART: throw NIL if simple-restart/null
fn.

File:

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

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

@@ -495 +495 @@
       (cond ((null fn)                  ; simple restart
              (unless (null values) (%err-disp $xtminps))
-             (throw tag (values nil T)))
+             (throw tag nil))
             ((fixnump fn)               ; restart case
              (throw tag (cons fn values)))