From: Douglas K. <sn...@us...> - 2014-02-03 13:12:29
|
The branch "master" has been updated in SBCL: via bb758ccef2c5b89974cb51c3cc0f19e215f49f2c (commit) from 3cadcb38359a84f024741c7fa9b505c68f84950e (commit) - Log ----------------------------------------------------------------- commit bb758ccef2c5b89974cb51c3cc0f19e215f49f2c Author: Douglas Katzman <do...@go...> Date: Mon Feb 3 08:11:48 2014 -0500 Unbreak SIMPLIFY-NAMESTRING --- src/code/pathname.lisp | 2 ++ tests/pathnames.impure.lisp | 5 +++++ 2 files changed, 7 insertions(+), 0 deletions(-) diff --git a/src/code/pathname.lisp b/src/code/pathname.lisp index deb6343..522e832 100644 --- a/src/code/pathname.lisp +++ b/src/code/pathname.lisp @@ -26,6 +26,7 @@ (unparse-file (missing-arg) :type function) (unparse-enough (missing-arg) :type function) (unparse-directory-separator (missing-arg) :type simple-string) + (simplify-namestring (missing-arg) :type function) (customary-case (missing-arg) :type (member :upper :lower))) (def!method print-object ((host host) stream) @@ -51,6 +52,7 @@ (unparse-file #'unparse-logical-file) (unparse-enough #'unparse-enough-namestring) (unparse-directory-separator ";") + (simplify-namestring #'identity) (customary-case :upper))) (name "" :type simple-string) (translations nil :type list) diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp index 4361c3d..374cf7c 100644 --- a/tests/pathnames.impure.lisp +++ b/tests/pathnames.impure.lisp @@ -619,4 +619,9 @@ (sb-ext:delete-directory shallow :recursive t)) (assert (not (probe-file shallow))))) +#+unix +(with-test (:name :simplify-namestring) + (assert (string= (sb-int:simplify-namestring "./a/b/../c/") + "a/c/"))) + ;;;; success ----------------------------------------------------------------------- hooks/post-receive -- SBCL |