/[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.6 by pfdietz, Sun Sep 19 20:54:56 2004 UTC revision 1.7 by pfdietz, Fri May 6 13:34:41 2005 UTC
# Line 29  Line 29 
29  ;;; Error tests  ;;; Error tests
30    
31  (deftest logical-pathname.error.1  (deftest logical-pathname.error.1
32    (loop for x in *mini-universe*    (check-type-error #'logical-pathname
33          unless (or (stringp x)                      (typef '(or string stream logical-pathname)))
                    (typep x 'stream)  
                    (typep x 'logical-pathname)  
                    (eval `(signals-error (logical-pathname ',x)  
                                          type-error)))  
         collect x)  
34    nil)    nil)
35    
36  (deftest logical-pathname.error.2  (deftest logical-pathname.error.2

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

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