20 |
nil) |
nil) |
21 |
|
|
22 |
(deftest with-output-to-string.4 |
(deftest with-output-to-string.4 |
23 |
|
(:notes :allow-nil-arrays) |
24 |
(let ((str (make-array 10 :fill-pointer 0 :element-type 'character))) |
(let ((str (make-array 10 :fill-pointer 0 :element-type 'character))) |
25 |
(values |
(values |
26 |
(with-output-to-string |
(with-output-to-string |
53 |
"8") |
"8") |
54 |
|
|
55 |
(deftest with-output-to-string.9 |
(deftest with-output-to-string.9 |
56 |
|
(:notes :allow-nil-arrays) |
57 |
(with-output-to-string (s nil :element-type nil)) |
(with-output-to-string (s nil :element-type nil)) |
58 |
"") |
"") |
59 |
|
|