(type (pathname-type pathname))
(type-present-p (typep type '(not (member nil :unspecific))))
(type-string (if type-present-p type "")))
(type (pathname-type pathname))
(type-present-p (typep type '(not (member nil :unspecific))))
(type-string (if type-present-p type "")))