From 92d5034da2b52b49060fafef390b7e823ea14e05 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Tue, 25 Feb 2014 06:27:35 -0500
Subject: [PATCH] Avoid a test failure on SBCL/Windows

---
 test/test-utilities.script | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/test-utilities.script b/test/test-utilities.script
index e1817fe9..56254efc 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -261,7 +261,8 @@
   (assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d")))))
   (assert (base-string-p (strcat (basify "ab") #\c #\d))))
 
-(assert-pathname-equal *test-directory* (getcwd))
+(or #+os-windows (equalp *test-directory* (getcwd)) ;; Avoid C:\Users vs C:\users on SBCL.
+    (assert-pathname-equal *test-directory* (getcwd)))
 
 (assert-equal +crlf+ (map 'string 'code-char '(13 10)))
 (assert-equal +lf+ (map 'string 'code-char '(10)))
-- 
GitLab