/[cmucl]/src/compiler/checkgen.lisp
ViewVC logotype

Diff of /src/compiler/checkgen.lisp

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

revision 1.33 by gerd, Thu May 8 14:52:04 2003 UTC revision 1.34 by rtoy, Fri Dec 9 15:50:20 2005 UTC
# Line 329  Line 329 
329              ((and (mv-combination-p dest)              ((and (mv-combination-p dest)
330                    (eq (basic-combination-kind dest) :local))                    (eq (basic-combination-kind dest) :local))
331               (assert (values-type-p atype))               (assert (values-type-p atype))
332               (assert (null (args-type-required atype)))               (maybe-negate-check cont (append (args-type-required atype)
333               (maybe-negate-check cont (args-type-optional atype) force-hairy))                                                (args-type-optional atype))
334                                     force-hairy))
335              ((or (exit-p dest) (return-p dest) (mv-combination-p dest))              ((or (exit-p dest) (return-p dest) (mv-combination-p dest))
336               (values :too-hairy nil))               (values :too-hairy nil))
337              (t              (t

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5