Skip to content
Snippets Groups Projects
Commit 6a71d32f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add parse-native-namestring recipe for CMUCL

Also add one for SCL, but it's untested.
parent f3ebd58b
No related branches found
No related tags found
No related merge requests found
......@@ -47,8 +47,10 @@ a CL pathname satisfying all the specified constraints as per ENSURE-PATHNAME"
(when string
(with-pathname-defaults ()
#+clozure (ccl:native-to-pathname string)
#+cmucl (uiop/os::parse-unix-namestring* string)
#+sbcl (sb-ext:parse-native-namestring string)
#-(or clozure sbcl)
#+scl (lisp::parse-unix-namestring string)
#-(or clozure cmucl sbcl scl)
(os-cond
((os-unix-p) (parse-unix-namestring string :ensure-directory ensure-directory))
(t (parse-namestring string))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment