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

Diff of /src/compiler/macros.lisp

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

revision 1.51 by gerd, Sat Apr 19 20:52:42 2003 UTC revision 1.52 by gerd, Wed Sep 24 09:48:18 2003 UTC
# Line 680  Line 680 
680              (,n-last (block-last ,n-block)))              (,n-last (block-last ,n-block)))
681         (do* ((,cont-var (node-cont ,n-last) ,n-next)         (do* ((,cont-var (node-cont ,n-last) ,n-next)
682               (,node-var ,n-last (continuation-use ,cont-var))               (,node-var ,n-last (continuation-use ,cont-var))
683               (,n-next (node-prev ,node-var) (node-prev ,node-var)))               (,n-next (and ,node-var (node-prev ,node-var))
684              (())                        (and ,node-var (node-prev ,node-var))))
685                ((null ,node-var))
686           ,@body           ,@body
687           (when (eq ,n-next ,n-start)           (when (eq ,n-next ,n-start)
688             (return nil))))))             (return nil))))))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

  ViewVC Help
Powered by ViewVC 1.1.5