(type (pathname-type pathname))
(type-present-p (typep type '(not (member nil :unspecific))))
(type-string (if type-present-p type "")))
- (when name-present-p
- (setf as-file nil))
(coerce
(with-output-to-string (s)
(when device
(write-string device s)
(write-char #\: s))
(tagbody
- (ecase (pop directory)
- (:absolute (write-char #\\ s))
- (:relative))
+ (when directory
+ (ecase (pop directory)
+ (:absolute (write-char #\\ s))
+ (:relative)))
(unless directory (go :done))
:subdir
(let ((piece (pop directory)))