/[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.18 by ram, Wed Jan 30 15:50:26 1991 UTC revision 1.19 by ram, Thu Jan 31 17:31:23 1991 UTC
# Line 427  Line 427 
427            (push (gensym) dummy-list))            (push (gensym) dummy-list))
428          `(multiple-value-bind (,@dummy-list ,wendy)          `(multiple-value-bind (,@dummy-list ,wendy)
429                                ,form                                ,form
430             (declare (ingore ,@dummy-list))             (declare (ignore ,@dummy-list))
431             ,wendy))             ,wendy))
432        `(nth ,n (multiple-value-list ,form))))        `(nth ,n (multiple-value-list ,form))))
433    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5