/[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.7 by ram, Sat May 12 21:12:58 1990 UTC revision 1.8 by ram, Wed May 23 15:04:49 1990 UTC
# Line 1421  Line 1421 
1421    (cond ((numberp count)    (cond ((numberp count)
1422           `(do ((,var 0 (1+ ,var)))           `(do ((,var 0 (1+ ,var)))
1423                ((>= ,var ,count) ,result)                ((>= ,var ,count) ,result)
1424                (declare (type unsigned-byte ,var))
1425              ,@body))              ,@body))
1426          (t (let ((v1 (gensym)))          (t (let ((v1 (gensym)))
1427               `(do ((,var 0 (1+ ,var)) (,v1 ,count))               `(do ((,var 0 (1+ ,var)) (,v1 ,count))
1428                    ((>= ,var ,v1) ,result)                    ((>= ,var ,v1) ,result)
1429                    (declare (type unsigned-byte ,var))
1430                  ,@body)))))                  ,@body)))))
1431    
1432    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5