[Bug-openmcl] invoke-restart

[bryan o'connor]

invoke-restart was returning two values (nil T) when the
restart function was nil.  do you recall a reason why?
(perhaps to distinguish a restart function returning
nil from a null restart function?)

			...bryan

-------------- next part --------------
Index: level-1/l1-error-system.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/level-1/l1-error-system.lisp,v
retrieving revision 1.5
diff -c -r1.5 l1-error-system.lisp
*** level-1/l1-error-system.lisp	20 Jan 2004 00:33:13 -0000	1.5
--- level-1/l1-error-system.lisp	24 Jan 2004 20:54:48 -0000
***************
*** 491,497 ****
      (let ((fn (%restart-action restart)))
        (cond ((null fn)                  ; simple restart
               (unless (null values) (%err-disp $xtminps))
!              (throw tag (values nil T)))
              ((fixnump fn)               ; restart case
               (throw tag (cons fn values)))
              (t (apply fn values))))))   ; restart bind
--- 491,497 ----
      (let ((fn (%restart-action restart)))
        (cond ((null fn)                  ; simple restart
               (unless (null values) (%err-disp $xtminps))
!              (throw tag nil))
              ((fixnump fn)               ; restart case
               (throw tag (cons fn values)))
              (t (apply fn values))))))   ; restart bind
-------------- next part --------------