Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20915/tests

Modified Files:
	pathnames.impure.lisp 
Log Message:
1.0.12.7: oops, missed one SEARCH transform

* Check bounds properly before entry to the code, and
  elide checks in the inner loop.


Index: pathnames.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/pathnames.impure.lisp,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- pathnames.impure.lisp	30 Nov 2007 02:16:27 -0000	1.38
+++ pathnames.impure.lisp	30 Nov 2007 13:12:24 -0000	1.39
@@ -452,7 +452,7 @@
 
          #+win32
             #|type  NIL           :UNSPECIFIC   ""            "a"     |#
-#|name       |#                   
+#|name       |#
 #|NIL        |#   '("C:\\tmp\\"   "C:\\tmp\\"   NIL           NIL
 #|:UNSPECIFIC|#     "C:\\tmp\\"   "C:\\tmp\\"   NIL           NIL
 #|""         |#     "C:\\tmp\\"   "C:\\tmp\\"   "C:\\tmp\\."  "C:\\tmp\\.a"