Name: Anonymous 2011-12-22 2:21
(defun dot-print (x)
(if (or (zerop x)
(minusp x))
nil
(progn
(format t ".")
(dot-print (1- x)))))
(defun dot-print (x)
(when (plusp x)
(format t ".")
(dot-print (1- x))))(defun dot-print (x)
(dotimes (i x)
(format t ".")))