Changeset 15018 for trunk/source/level-1


Ignore:
Timestamp:
Oct 12, 2011, 3:54:45 PM (8 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

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

    r14851 r15018  
    670670             (throw tag (values nil t)))))))
    671671
    672 (defun invoke-restart-no-return (restart)
    673   (invoke-restart restart)
     672(defun invoke-restart-no-return (restart &rest values)
     673  (declare (dynamic-extent values))
     674  (apply #'invoke-restart restart values)
    674675  (error 'restart-failure :restart restart))
    675676
Note: See TracChangeset for help on using the changeset viewer.