Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix PARSE-NATIVE-NAMESTRING :JUNK-ALLOWED T

 (and word-wrap NEWS)
  • Loading branch information...
commit 0e4b15d65c46653b1ea222dcbf12d635d59b36c7 1 parent b35d5f4
@nikodemus nikodemus authored
Showing with 20 additions and 9 deletions.
  1. +10 −8 NEWS
  2. +1 −1  src/code/target-pathname.lisp
  3. +9 −0 tests/filesys.pure.lisp
View
18 NEWS
@@ -1,13 +1,15 @@
;;;; -*- coding: utf-8; fill-column: 78 -*-
changes relative to sbcl-1.1.0:
- * enhancement: WITH-COMPILATION-UNIT no longer grabs the world-lock. (COMPILE and
- COMPILE-FILE still do.)
- * bug fix: SB-CLTL2:MACROEXPAND-ALL correctly handles shadowing of symbol-macros
- by lexical bindings.
- * bug fix: stack allocation was prevented by high DEBUG declaration in several
- cases.
- * bug fix: SB-EXT:GC-LOGFILE signaled an error when no logfile was set. (thanks
- to SANO Masatoshi)
+ * enhancement: WITH-COMPILATION-UNIT no longer grabs the world-lock.
+ (COMPILE and COMPILE-FILE still do.)
+ * bug fix: SB-CLTL2:MACROEXPAND-ALL correctly handles shadowing of
+ symbol-macros by lexical bindings.
+ * bug fix: stack allocation was prevented by high DEBUG declaration in
+ several cases.
+ * bug fix: SB-EXT:GC-LOGFILE signaled an error when no logfile was set.
+ (thanks to SANO Masatoshi)
+ * bug fix: PARSE-NATIVE-NAMESTRING performed non-native parsing when
+ :JUNK-ALLOWED was true.
changes in sbcl-1.1.0 relative to sbcl-1.0.58:
* enhancement: New variable, sb-ext:*disassemble-annotate* for controlling
View
2  src/code/target-pathname.lisp
@@ -863,7 +863,7 @@ a host-structure or string."
(cond
(junk-allowed
(handler-case
- (%parse-namestring namestr host defaults start end nil)
+ (%parse-native-namestring namestr host defaults start end nil as-directory)
(namestring-parse-error (condition)
(values nil (namestring-parse-error-offset condition)))))
(t
View
9 tests/filesys.pure.lisp
@@ -93,6 +93,15 @@
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR")))
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR\\" :as-file t))))
+(with-test (:name (:parse-native-pathname :as-directory :junk-allowed))
+ (assert
+ (equal
+ (parse-native-namestring "foo.lisp" nil *default-pathname-defaults*
+ :as-directory t)
+ (parse-native-namestring "foo.lisp" nil *default-pathname-defaults*
+ :as-directory t
+ :junk-allowed t))))
+
;;; Test for NATIVE-PATHNAME / NATIVE-NAMESTRING stuff
;;;
;;; given only safe characters in the namestring, NATIVE-PATHNAME will
Please sign in to comment.
Something went wrong with that request. Please try again.