Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Tue Dec 28 13:59:41 2004 UTC | revision 1.3 by pfdietz, Sat Jan 8 15:50:32 2005 UTC | |
---|---|---|
# | Line 65 | Line 65 |
65 | (open-stream-p s))) | (open-stream-p s))) |
66 | nil t nil) | nil t nil) |
67 | ||
68 | ;;; Free declaration scope | |
69 | ||
70 | (deftest with-open-stream.10 | |
71 | (block done | |
72 | (let ((x :bad)) | |
73 | (declare (special x)) | |
74 | (let ((x :good)) | |
75 | (with-open-stream (s (return-from done x)) | |
76 | (declare (special x)))))) | |
77 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |