diff --git a/ansi-tests/merge.lsp b/ansi-tests/merge.lsp index 265786b52dcab8ec7620bf4f72b8438a343cec91..9574e13478bc6283fb720dcbc4fd148f86f67375 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")