From 9f0f80383cde83926ec4b906f06701316cb8730a Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Thu, 9 Jul 2015 16:05:38 -0500
Subject: [PATCH] Fix bug in OS conditionalization.

---
 test/test-utilities.script | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/test/test-utilities.script b/test/test-utilities.script
index e8ef0b435..fdaba0a50 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -63,10 +63,12 @@
                    (assert-pathname-equal true dir)
                    (setf true dir)))
              (assert-pathname-equal true (truename (ensure-directory-pathname file)))
-             (assert-pathname-equal true (nest #+(and clisp windows) (ensure-directory-pathname)
+             (assert-pathname-equal true (nest #+(and clisp os-windows) (ensure-directory-pathname)
                                                (truename* file)))
-             (assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname)
-                                               (probe-file* file :truename t)))
+             (assert-pathname-equal true
+                                    (let ((path (probe-file* file :truename t)))
+                                      #+(or allegro (and clisp os-windows)) (ensure-directory-pathname path)
+                                      #-(or allegro (and clisp os-windows)) path))
              (assert-pathname-equal true (if-let (x (probe-file* file))
                                            (ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults))))
            (check-directory-doesnt-exist (file)
-- 
GitLab