8 lines
145 B
Common Lisp
8 lines
145 B
Common Lisp
|
(defun main ()
|
||
|
|
(with-open-file (stream "/dev/lp0"
|
||
|
|
:direction :output
|
||
|
|
:if-exists :append)
|
||
|
|
(format stream "Hello World~%")))
|
||
|
|
|
||
|
|
(main)
|