From eb07bed2af486683e03fb04c54e648942837051d Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Thu, 1 Sep 2016 20:17:36 -0400
Subject: [PATCH] Tweak tests for CLISP

---
 test/asdf-pathname-test.script    | 2 +-
 test/test-logical-pathname.script | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script
index e5759aa7..a01dd457 100644
--- a/test/asdf-pathname-test.script
+++ b/test/asdf-pathname-test.script
@@ -364,7 +364,7 @@
                                           :direction :output
                                           :if-exists :supersede :if-does-not-exist :create)
              (setup-asdftest-logical-host :root root)
-             #+(and asdf-test-logical-pathname (not clisp))
+             #+(and asdf-test-logical-pathname)
              (assert-pathname-equal
               (make-pathname :host "ASDFTEST" :directory '(:absolute "system2" "module4")
                              :name nil :type nil)
diff --git a/test/test-logical-pathname.script b/test/test-logical-pathname.script
index d2919773..fc4f8aae 100644
--- a/test/test-logical-pathname.script
+++ b/test/test-logical-pathname.script
@@ -48,6 +48,9 @@
 (load-system :test-logical-pathname :force t)
 
 #+abcl (leave-test "ABCL translates logical pathnames in *LOAD-PATHNAME*" 0)
+#+clisp
+(unless (version<= "2.50" (first (split-string (lisp-implementation-version) :separator "-+ ")))
+  (leave-test "CLISP 2.49 translates logical pathnames in *LOAD-PATHNAME*" 0))
 
 (defparameter sys (find-system :test-logical-pathname))
 (assert (logical-pathname-p (component-pathname sys)))
-- 
GitLab