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

   1 (in-package #:nothing)
   2
   3 (progn
   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  (progn
  10   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  11    (when
  12     (read-line str)
  13     (format t "This file had some things in int, yay!~%"))))
  14  (progn
  15   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  16    (when
  17     (read-line str)
  18     (format t "This file had some things in int, yay!~%"))))
  19  (progn
  20   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  21    (when
  22     (read-line str)
  23     (format t "This file had some things in int, yay!~%"))))
  24  (progn
  25   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  26    (when
  27     (read-line str)
  28     (format t "This file had some things in int, yay!~%"))))
  29  (progn
  30   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  31    (when
  32     (read-line str)
  33     (format t "This file had some things in int, yay!~%"))))
  34  (progn
  35   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  36    (when
  37     (read-line str)
  38     (format t "This file had some things in int, yay!~%"))))
  39  (progn
  40   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  41    (when
  42     (read-line str)
  43     (format t "This file had some things in int, yay!~%"))))
  44  (progn
  45   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  46    (when
  47     (read-line str)
  48     (format t "This file had some things in int, yay!~%"))))
  49  (progn
  50   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  51    (when
  52     (read-line str)
  53     (format t "This file had some things in int, yay!~%"))))
  54  (progn
  55   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  56    (when
  57     (read-line str)
  58     (format t "This file had some things in int, yay!~%"))))
  59  (progn
  60   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  61    (when
  62     (read-line str)
  63     (format t "This file had some things in int, yay!~%"))))
  64  (progn
  65   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  66    (when
  67     (read-line str)
  68     (format t "This file had some things in int, yay!~%"))))
  69  (progn
  70   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  71    (when
  72     (read-line str)
  73     (format t "This file had some things in int, yay!~%"))))
  74  (progn
  75   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  76    (when
  77     (read-line str)
  78     (format t "This file had some things in int, yay!~%"))))
  79  (progn
  80   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  81    (when
  82     (read-line str)
  83     (format t "This file had some things in int, yay!~%"))))
  84  (progn
  85   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  86    (when
  87     (read-line str)
  88     (format t "This file had some things in int, yay!~%"))))
  89  (progn
  90   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  91    (when
  92     (read-line str)
  93     (format t "This file had some things in int, yay!~%"))))
  94  (progn
  95   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  96    (when
  97     (read-line str)
  98     (format t "This file had some things in int, yay!~%"))))
  99  (progn
 100   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
 101    (when
 102     (read-line str)
 103     (format t "This file had some things in int, yay!~%"))))
 104  (progn
 105   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
 106    (when
 107     (read-line str)
 108     (format t "This file had some things in int, yay!~%"))))
 109  (progn
 110   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
 111    (when
 112     (read-line str)
 113     (format t "This file had some things in int, yay!~%"))))
 114  (progn
 115   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
 116    (when
 117     (read-line str)
 118     (format t "This file had some things in int, yay!~%")))))