Changeset 3592

Timestamp:

09/07/03 01:31:36 (19 years ago)

Author:

piso

Message:

DOTIMES

File:

• trunk/j/src/org/armedbear/lisp/boot.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/boot.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.101 2003-08-26 14:39:34 piso Exp $
+;;; $Id: boot.lisp,v 1.102 2003-09-07 01:31:36 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -319 +319 @@
 
 
+;;; DOTIMES (from CMUCL)
+(defmacro dotimes ((var count &optional (result nil)) &body body)
+  (cond ((numberp count)
+         `(do ((,var 0 (1+ ,var)))
+              ((>= ,var ,count) ,result)
+            ,@body))
+        (t (let ((v1 (gensym)))
+             `(do ((,var 0 (1+ ,var)) (,v1 ,count))
+                  ((>= ,var ,v1) ,result)
+                ,@body)))))
+
+
 ;;; DOLIST (from CMUCL)