code.consxy.com Git - wolf/blob - resources/twoinpackage.lisp

   1 (in-package #:nothing)
   2
   3 (defun hello-world (a b c)
   4  (progn
   5   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
   6    (when
   7     (read-line str)
   8     (format t "This file had some things in int, yay!~%")))))
   9
  10 (in-package #:something)
  11
  12 (defun hello-world (a b c)
  13  (progn
  14   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  15    (when
  16     (read-line str)
  17     (format t "This file had some things in int, yay!~%")))))