
(declaim (optimize (speed 3) (safety 1) (debug 1)))

(defun test1 ()
  (loop
     for i of-type fixnum from 0
     do
       (when (> 9 i)
	 (finish-loop))))

(defun test2 ()
  (let ((i 0))
    (declare (type fixnum i))
    (loop
       do
	 (when (> 9 i)
	   (finish-loop))
	 (incf i))))

(defun test3 ()
  (let ((i 0))
    (declare (type fixnum i))
    (loop
       do
	 (when (> 9 i)
	   (finish-loop))
	 (setf i (1+ i)))))
