/[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.48 by pw, Sat Feb 8 17:16:06 1997 UTC revision 1.49 by pw, Thu May 8 20:52:43 1997 UTC
# Line 1200  Line 1200 
1200                                     ',expected-type ',keys)))                                     ',expected-type ',keys)))
1201                        (go ,again))))))))                        (go ,again))))))))
1202        `(let ((,keyform-value ,keyform))        `(let ((,keyform-value ,keyform))
1203             ,keyform-value ; prevent warnings when key not used eg (case key (t))
1204           (cond           (cond
1205            ,@(nreverse clauses)            ,@(nreverse clauses)
1206            ,@(if errorp            ,@(if errorp

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

  ViewVC Help
Powered by ViewVC 1.1.5