CL-USER 9 > (defun x (c)
              (let ((i 4))     ; defining/binding local variable i
                (loop while (< i 10) do
                      (print i)
                      (incf i))))
X

CL-USER 10 > (x :foobar)

4 
5 
6 
7 
8 
9 
NIL