(cond ((and (eql c1 #\:) (alpha-char-p c0))
;; "X:" style, saved as X
(values (string (char namestr start)) (+ start 2)))
(cond ((and (eql c1 #\:) (alpha-char-p c0))
;; "X:" style, saved as X
(values (string (char namestr start)) (+ start 2)))
;; "//UNC" style, saved as UNC
;; FIXME: at unparsing time we tell these apart by length,
;; which seems a bit lossy -- presumably one-letter UNC
;; "//UNC" style, saved as UNC
;; FIXME: at unparsing time we tell these apart by length,
;; which seems a bit lossy -- presumably one-letter UNC
(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."))