55 |
(format s "foo!~%")) |
(format s "foo!~%")) |
56 |
(with-open-file (s pn) (read-line s))) |
(with-open-file (s pn) (read-line s))) |
57 |
"foo!" nil) |
"foo!" nil) |
58 |
|
|
59 |
|
;;; Free declaration scope tests |
60 |
|
|
61 |
|
(deftest with-open-file.7 |
62 |
|
(block done |
63 |
|
(let ((x :bad)) |
64 |
|
(declare (special x)) |
65 |
|
(let ((x :good)) |
66 |
|
(with-open-file (s (return-from done x)) |
67 |
|
(declare (special x)))))) |
68 |
|
:good) |
69 |
|
|
70 |
|
(deftest with-open-file.8 |
71 |
|
(block done |
72 |
|
(let ((x :bad)) |
73 |
|
(declare (special x)) |
74 |
|
(let ((x :good)) |
75 |
|
(with-open-file (s "with-open-file.lsp" (return-from done x) :input) |
76 |
|
(declare (special x)))))) |
77 |
|
:good) |
78 |
|
|
79 |
|
(deftest with-open-file.9 |
80 |
|
(block done |
81 |
|
(let ((x :bad)) |
82 |
|
(declare (special x)) |
83 |
|
(let ((x :good)) |
84 |
|
(with-open-file (s "with-open-file.lsp" :direction (return-from done x)) |
85 |
|
(declare (special x)))))) |
86 |
|
:good) |