X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=resources%2Ftwoemptylineswithcomment.lisp;fp=resources%2Ftwoemptylineswithcomment.lisp;h=080740bceab2f23dedbd2cbf68e61f3f59716eb7;hp=0000000000000000000000000000000000000000;hb=c9508457e34796fd7fcd8029ecd3209582f4c945;hpb=243043b049ee29fb5fbe17286f40f3392b57cbd0 diff --git a/resources/twoemptylineswithcomment.lisp b/resources/twoemptylineswithcomment.lisp new file mode 100644 index 0000000..080740b --- /dev/null +++ b/resources/twoemptylineswithcomment.lisp @@ -0,0 +1,15 @@ +(in-package #:nothing) + +; comment resets line counter + +; this one does two + +; but we'll get an error soon! + + +(defun hello-world (a b c) + (progn + (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create) + (when + (read-line str) + (format t "This file had some things in int, yay!~%")))))