Changeset 584


Ignore:
Timestamp:
Feb 28, 2004, 9:20:46 AM (16 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-error-system.lisp

    r467 r584  
    498498            ((fixnump fn)               ; restart case
    499499             (throw tag (cons fn values)))
    500             (t (apply fn values))))))   ; restart bind
     500            ((functionp fn)             ; restart bind
     501             (apply fn values))         
     502            (t                          ; with-simple-restart
     503             (throw tag (values nil t)))))))
    501504
    502505(defun invoke-restart-no-return (restart)
Note: See TracChangeset for help on using the changeset viewer.