Skip to content
Snippets Groups Projects
Commit be75cc58 authored by pfdietz's avatar pfdietz
Browse files

Fixed problem noted by Christophe: some args passed to MERGE were literal...

Fixed problem noted by Christophe: some args passed to MERGE were literal constant non-empty strings, which is not allowed
parent 0d22c2f4
No related branches found
No related tags found
No related merge requests found
......@@ -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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment