(defun hello-world (a b c)
(progn
(with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
(defun hello-world (a b c)
(progn
(with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)