X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=7ed725013ddea884662967cdb757f2427affc558;hb=6554859e4423fbf007452160d86520d056b88c6d;hp=5e9a8b8a21e7cef44b125b9893085fc29f0760a9;hpb=1bd85a506685b3d3188aaf1d9d097865c38f887d;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 5e9a8b8..7ed7250 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -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