From be75cc581e1e00e30d38e8a7f71001e0cab605a3 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 16 Aug 2005 00:56:02 +0000
Subject: [PATCH] Fixed problem noted by Christophe: some args passed to MERGE
 were literal constant non-empty strings, which is not allowed

---
 ansi-tests/merge.lsp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ansi-tests/merge.lsp b/ansi-tests/merge.lsp
index 265786b5..9574e134 100644
--- a/ansi-tests/merge.lsp
+++ b/ansi-tests/merge.lsp
@@ -234,26 +234,26 @@
   "12345789")
 
 (deftest merge-string.1a
-  (let ((x "1378")
+  (let ((x (copy-seq "1378"))
 	(y (list #\2 #\4 #\5 #\9)))
     (merge 'string x y #'char<))
   "12345789")
 
 (deftest merge-string.1b
   (let ((x (list #\1 #\3 #\7 #\8))
-	(y "2459"))
+	(y (copy-seq "2459")))
     (merge 'string x y #'char<))
   "12345789")
 
 (deftest merge-string.1c
-  (let ((x "1378")
-	(y "2459"))
+  (let ((x (copy-seq "1378"))
+	(y (copy-seq "2459")))
     (merge 'string x y #'char<))
   "12345789")
 
 (deftest merge-string.1d
-  (let ((x "1378")
-	(y "2459"))
+  (let ((x (copy-seq "1378"))
+	(y (copy-seq "2459")))
     (merge 'string y x #'char<))
   "12345789")
 
-- 
GitLab