Exceptions for comments
[wolf] / 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!~%")))))