+(in-package #:nothing)
+
+(progn
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%"))))
+ (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!~%")))))