From c12ec3958000d943fc275870d1938918b06cb6f0 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Wed, 20 Mar 2013 01:42:26 -0400
Subject: [PATCH] Fix strcat tests on ECL.

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

diff --git a/test/test-utilities.script b/test/test-utilities.script
index 0ce8eb37..3a022906 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -210,14 +210,15 @@
   (assert (base-string-p (make-string 10 :element-type 'character))))
 
 (defun basify (s) (coerce s 'base-string))
+(defun unbasify (s) (coerce s '(array character (*)))) ; on ECL, literals are base strings (!)
 
 #+non-base-chars-exist-p
 (progn
   (assert (not (base-string-p (make-string 10 :element-type 'character))))
-  (assert (not (base-string-p "abc")))
+  (assert (not (base-string-p (unbasify "abc"))))
   (assert (base-string-p (basify "abc")))
-  (assert (not (base-string-p (strcat "a" NIL #\b "cd"))))
+  (assert (not (base-string-p (strcat "a" NIL #\b (unbasify "cd")))))
   (assert (base-string-p (reduce/strcat (mapcar 'basify '("a" "b" NIL "cd")))))
   (assert (base-string-p (strcat (basify "ab") (basify "cd"))))
-  (assert (not (base-string-p (strcat (basify "ab") #\c "d"))))
+  (assert (not (base-string-p (strcat (basify "ab") #\c (unbasify "d")))))
   (assert (base-string-p (strcat (basify "ab") #\c #\d))))
-- 
GitLab