diff --git a/test/test-utilities.script b/test/test-utilities.script index e1817fe908d9c07002be3dc265253dfed09b8093..56254efc79a59d5ad7a004f655afc47f16d8f3db 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)))