/[gcl]/gcl/ansi-tests/universe.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/universe.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by pfdietz, Sun Nov 30 04:36:42 2003 UTC revision 1.15 by uid67352, Tue Dec 23 18:44:50 2003 UTC
# Line 319  Line 319 
319  (defparameter *pathnames*  (defparameter *pathnames*
320      (append      (append
321       (ignore-errors (list (make-pathname :name "foo")))       (ignore-errors (list (make-pathname :name "foo")))
322         (ignore-errors (list (make-pathname :name "FOO" :case :common)))
323       (ignore-errors (list (make-pathname :name "bar")))       (ignore-errors (list (make-pathname :name "bar")))
324       (ignore-errors (list (make-pathname :name "foo" :type "txt")))       (ignore-errors (list (make-pathname :name "foo" :type "txt")))
325       (ignore-errors (list (make-pathname :name "bar" :type "txt")))       (ignore-errors (list (make-pathname :name "bar" :type "txt")))
326         (ignore-errors (list (make-pathname :name "XYZ" :type "TXT" :case :common)))
327       (ignore-errors (list (make-pathname :name nil)))       (ignore-errors (list (make-pathname :name nil)))
328       (ignore-errors (list (make-pathname :name :wild)))       (ignore-errors (list (make-pathname :name :wild)))
329       (ignore-errors (list (make-pathname :name nil :type "txt")))       (ignore-errors (list (make-pathname :name nil :type "txt")))
330       (ignore-errors (list (make-pathname :name :wild :type "txt")))       (ignore-errors (list (make-pathname :name :wild :type "txt")))
331         (ignore-errors (list (make-pathname :name :wild :type "TXT" :case :common)))
332         (ignore-errors (list (make-pathname :name :wild :type "abc" :case :common)))
333       (ignore-errors (list (make-pathname :directory :wild)))       (ignore-errors (list (make-pathname :directory :wild)))
334       (ignore-errors (list (make-pathname :type :wild)))       (ignore-errors (list (make-pathname :type :wild)))
335       (ignore-errors (list (make-pathname :version :wild)))       (ignore-errors (list (make-pathname :version :wild)))

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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