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))) |