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

(defun test1 ()
  (loop
     for i of-type fixnum from 0))

(defun test2 ()
  (let ((i 0))
    (declare (type fixnum i))
    (loop
       do
	 (incf i))))

(defun test3 ()
  (let ((i 0))
    (declare (type fixnum i))
    (loop
       do
	 (setf i (1+ i)))))
