(concatenate 'simple-string device ":"))
((and (consp directory) (eq :relative (car directory)))
(error "No printed representation for a relative UNC pathname."))
(concatenate 'simple-string device ":"))
((and (consp directory) (eq :relative (car directory)))
(error "No printed representation for a relative UNC pathname."))