/[cmucl]/src/code/macros.lisp
ViewVC logotype

Diff of /src/code/macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by dtc, Fri Apr 14 03:50:24 2000 UTC revision 1.62 by dtc, Thu Jul 6 18:36:38 2000 UTC
# Line 497  Line 497 
497             (declare (ignore ,@dummy-list))             (declare (ignore ,@dummy-list))
498             ,keeper))             ,keeper))
499        (once-only ((n n))        (once-only ((n n))
500          `(case (the fixnum ,n)          `(case (the (values fixnum &rest t) ,n)
501             (0 (nth-value 0 ,form))             (0 (nth-value 0 ,form))
502             (1 (nth-value 1 ,form))             (1 (nth-value 1 ,form))
503             (2 (nth-value 2 ,form))             (2 (nth-value 2 ,form))
504             (T (nth (the fixnum ,n) (multiple-value-list ,form)))))))             (T (nth (the (values fixnum &rest t) ,n)
505                            (multiple-value-list ,form)))))))
506    
507    
508  ;;;; SETF and friends.  ;;;; SETF and friends.

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

  ViewVC Help
Powered by ViewVC 1.1.5