RosettaCodeData/Task/Hello-world-Line-printer/Common-Lisp/hello-world-line-printer.lisp

(defun main ()
  (with-open-file (stream "/dev/lp0"
    :direction :output
    :if-exists :append)
    (format stream "Hello World~%")))
(main)