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