(assert (equal "C:\\FOO" (native-namestring "C:\\FOO")))
(assert (equal "C:\\FOO" (native-namestring "C:/FOO")))
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR")))
(assert (equal "C:\\FOO" (native-namestring "C:\\FOO")))
(assert (equal "C:\\FOO" (native-namestring "C:/FOO")))
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR")))
;; so that it works even with the same logic others use, or
;; make this official. (Currently just a kludge.)
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR\\"))))
;; so that it works even with the same logic others use, or
;; make this official. (Currently just a kludge.)
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR\\"))))
;;; given only safe characters in the namestring, NATIVE-PATHNAME will
;;; never error, and NATIVE-NAMESTRING on the result will return the
;;; original namestring.
;;; given only safe characters in the namestring, NATIVE-PATHNAME will
;;; never error, and NATIVE-NAMESTRING on the result will return the
;;; original namestring.