gistfile1.lisp

(do ((n 0 (1+ n)))
    ((= n 10))
  (if (zerop (mod n 5))
      (format t "~&~a" n)
      (format t "~a" n)))

(let ((l '#1=("~&~a" "~a" "~a" "~a" "~a" . #1#)))
  (do ((n 0 (1+ n))
       (l l (cdr l)))
      ((= n 10))
    (format t (car l) n)))