103 |
(list str1 str2))) |
(list str1 str2))) |
104 |
:good) |
:good) |
105 |
|
|
106 |
|
;;; Free declaration scope |
107 |
|
|
108 |
|
(deftest with-output-to-string.15 |
109 |
|
(block done |
110 |
|
(let ((x :bad)) |
111 |
|
(declare (special x)) |
112 |
|
(let ((x :good)) |
113 |
|
(with-output-to-string (s (return-from done x)) |
114 |
|
(declare (special x)))))) |
115 |
|
:good) |
116 |
|
|
117 |
|
(deftest with-output-to-string.16 |
118 |
|
(block done |
119 |
|
(let ((x :bad)) |
120 |
|
(declare (special x)) |
121 |
|
(let ((x :good) |
122 |
|
(str (make-array '(10) :element-type 'character |
123 |
|
:fill-pointer 0))) |
124 |
|
(with-output-to-string (s str :element-type (return-from done x)) |
125 |
|
(declare (special x)))))) |
126 |
|
:good) |
127 |
|
|
|
|
|
|
|
|
|
|
|