/[gcl]/gcl/ansi-tests/logical-pathname.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/logical-pathname.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26