2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Dec 6 15:05:05 2003
4
;;;; Contains: Functions associated with pathname tests
8
(defun could-be-pathname-designator (x)
11
(typep x 'file-stream)
12
(and (typep x 'synonym-stream)
13
(could-be-pathname-designator
15
(synonym-stream-symbol x))))))
17
(defun explode-pathname (pn)
19
:host (pathname-host pn)
20
:device (pathname-device pn)
21
:directory (pathname-directory pn)
22
:name (pathname-name pn)
23
:type (pathname-type pn)
24
:version (pathname-version pn)))