((member :up) (write-string ".." s))
(string (write-string piece s))
(t (error "ungood piece in NATIVE-NAMESTRING: ~S" piece)))
((member :up) (write-string ".." s))
(string (write-string piece s))
(t (error "ungood piece in NATIVE-NAMESTRING: ~S" piece)))