LispForum

another solution: (defun alpha (start end fname) (with-open-file (*standard-output* fname :direction :output :if-exists :supersede) (loop for i from start to end do (format t "~{~a~4t~a~4t~a~%~}" (list i (code-char i) (prin1-to-string (code-char i)))))))