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