(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!~%")))))
+ (let
+ ((x y)
+ (z 9))
+ (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!~%")))))