Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sun Sep 12 13:35:05 2004 UTC | revision 1.6 by pfdietz, Sun Sep 19 20:54:56 2004 UTC | |
---|---|---|
# | Line 92 | Line 92 |
92 | t) | t) |
93 | ||
94 | (deftest logical-pathname.error.10 | (deftest logical-pathname.error.10 |
95 | (signals-error (logical-pathname "CLROOT:%") type-error) | (handler-case |
96 | (progn (eval '(locally (declare (optimize safety)) (logical-pathname "CLROOT:%"))) t) | |
97 | (type-error () t)) | |
98 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |