From ba50709099ca6e9d054f306e4820072da071508e Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 8 Jul 2015 16:54:59 -0400 Subject: [PATCH] test-utilities: move paren around. --- test/test-utilities.script | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/test-utilities.script b/test/test-utilities.script index 111de65e..e8ef0b43 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -64,7 +64,7 @@ (setf true dir))) (assert-pathname-equal true (truename (ensure-directory-pathname file))) (assert-pathname-equal true (nest #+(and clisp windows) (ensure-directory-pathname) - (truename* file)) + (truename* file))) (assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname) (probe-file* file :truename t))) (assert-pathname-equal true (if-let (x (probe-file* file)) @@ -122,7 +122,7 @@ ;; For the rest of this test, use these: (setf *default-pathname-defaults* (nil-pathname)) - (chdir test-directory)))) + (chdir test-directory))) (assert (every #'directory-pathname-p -- GitLab