/[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.70 by pw, Wed Jun 13 14:43:51 2001 UTC revision 1.71 by toy, Tue Dec 4 22:27:42 2001 UTC
# Line 1480  Line 1480 
1480    (cond ((numberp count)    (cond ((numberp count)
1481           `(do ((,var 0 (1+ ,var)))           `(do ((,var 0 (1+ ,var)))
1482                ((>= ,var ,count) ,result)                ((>= ,var ,count) ,result)
1483              (declare (type unsigned-byte ,var))              (declare (type (integer 0 ,count) ,var))
1484              ,@body))              ,@body))
1485          (t (let ((v1 (gensym)))          (t (let ((v1 (gensym)))
1486               `(do ((,var 0 (1+ ,var)) (,v1 ,count))               `(do ((,var 0 (1+ ,var)) (,v1 ,count))

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5