(deftest str.24 (delimited-string-to-list "ab|" #\|) ("ab" ""))
(deftest str.25 (delimited-string-to-list "ab|" #\| t) ("ab"))
(deftest str.24 (delimited-string-to-list "ab|" #\|) ("ab" ""))
(deftest str.25 (delimited-string-to-list "ab|" #\| t) ("ab"))
(deftest apsl.2 (append-sublists nil) nil)
(deftest apsl.3 (append-sublists '((a b))) (a b))
(deftest apsl.4 (append-sublists '((a))) (a))
(deftest apsl.2 (append-sublists nil) nil)
(deftest apsl.3 (append-sublists '((a b))) (a b))
(deftest apsl.4 (append-sublists '((a))) (a))