From: Alastair B. <lis...@us...> - 2009-11-28 22:53:58
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv618/tests Modified Files: pathnames.impure.lisp Log Message: 1.0.33.2: Fix bug 489698 (reading #p"\\\\" on windows). * Actual bug was a missed range check prior to calling POSITION in EXTRACT-DEVICE in src;code;win32-pathname. Fixed. * Added test case. Index: pathnames.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/pathnames.impure.lisp,v retrieving revision 1.42 retrieving revision 1.43 diff -u -d -r1.42 -r1.43 --- pathnames.impure.lisp 21 Sep 2009 14:37:05 -0000 1.42 +++ pathnames.impure.lisp 28 Nov 2009 22:53:45 -0000 1.43 @@ -477,4 +477,13 @@ (assert (eq :type-error-ok (handler-case (logical-pathname "SYS:%") (type-error () :type-error-ok))))) + +;;; Reported by Willem Broekema: Reading #p"\\\\" caused an error due +;;; to insufficient sanity in input testing in EXTRACT-DEVICE (in +;;; src;code;win32-pathname). +#+win32 +(with-test (:name :bug-489698) + (assert (equal (make-pathname :directory '(:absolute)) + (read-from-string "#p\"\\\\\\\\\"")))) + ;;;; success |