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