-(deftest fss.1 (fast-string-search "" "" 0 0 0) 0)
-(deftest fss.2 (fast-string-search "" "abc" 0 0 2) 0)
-(deftest fss.3 (fast-string-search "abc" "" 3 0 0) nil)
-(deftest fss.4 (fast-string-search "abc" "abcde" 3 0 4) 0)
-(deftest fss.5 (fast-string-search "abc" "012abcde" 3 0 7) 3)
-(deftest fss.6 (fast-string-search "abc" "012abcde" 3 0 7) 3)
-(deftest fss.7 (fast-string-search "abc" "012abcde" 3 3 7) 3)
-(deftest fss.8 (fast-string-search "abc" "012abcde" 3 4 7) nil)
-(deftest fss.9 (fast-string-search "abcde" "012abcde" 5 3 8) 3)
-(deftest fss.9b (cl:search "abcde" "012abcde" :start2 3 :end2 8) 3)
-(deftest fss.10 (fast-string-search "abcde" "012abcde" 5 3 7) nil)
-(deftest fss.10b (cl:search "abcde" "012abcde" :start2 3 :end2 7) nil)
-
-(deftest stlsd.1 (string-to-list-skip-delimiter "") ())
-(deftest stlsd.2 (string-to-list-skip-delimiter "abc") ("abc"))
-(deftest stlsd.3 (string-to-list-skip-delimiter "ab c") ("ab" "c"))
-(deftest stlsd.4 (string-to-list-skip-delimiter "ab c") ("ab" "c"))
-(deftest stlsd.5 (string-to-list-skip-delimiter "ab c") ("ab" "c"))
-(deftest stlsd.6 (string-to-list-skip-delimiter "ab c ") ("ab" "c"))
-(deftest stlsd.7 (string-to-list-skip-delimiter " ab c ") ("ab" "c"))
-(deftest stlsd.8 (string-to-list-skip-delimiter "ab,,c" #\,) ("ab" "c"))
-(deftest stlsd.9 (string-to-list-skip-delimiter "ab,,c,," #\,) ("ab" "c"))
-(deftest stlsd.10 (string-to-list-skip-delimiter " ab") ("ab"))
-
-(deftest csc.1 (count-string-char "" #\a) 0)
-(deftest csc.2 (count-string-char "abc" #\d) 0)
-(deftest csc.3 (count-string-char "abc" #\b) 1)
-(deftest csc.4 (count-string-char "abcb" #\b) 2)
-
-(deftest duqs.1 (decode-uri-query-string "") "")
-(deftest duqs.2 (decode-uri-query-string "abc") "abc")
-(deftest duqs.3 (decode-uri-query-string "abc+") "abc ")
-(deftest duqs.4 (decode-uri-query-string "abc+d") "abc d")
-(deftest duqs.5 (decode-uri-query-string "abc%20d") "abc d")
-
-(deftest sse.1 (string-strip-ending "" nil) "")
-(deftest sse.2 (string-strip-ending "abc" nil) "abc")
-(deftest sse.3 (string-strip-ending "abc" "ab") "abc")
-(deftest sse.4 (string-strip-ending "abc" '("ab")) "abc")
-(deftest sse.5 (string-strip-ending "abcd" '("a" "cd")) "ab")
+(deftest :fss.1 (fast-string-search "" "" 0 0 0) 0)
+(deftest :fss.2 (fast-string-search "" "abc" 0 0 2) 0)
+(deftest :fss.3 (fast-string-search "abc" "" 3 0 0) nil)
+(deftest :fss.4 (fast-string-search "abc" "abcde" 3 0 4) 0)
+(deftest :fss.5 (fast-string-search "abc" "012abcde" 3 0 7) 3)
+(deftest :fss.6 (fast-string-search "abc" "012abcde" 3 0 7) 3)
+(deftest :fss.7 (fast-string-search "abc" "012abcde" 3 3 7) 3)
+(deftest :fss.8 (fast-string-search "abc" "012abcde" 3 4 7) nil)
+(deftest :fss.9 (fast-string-search "abcde" "012abcde" 5 3 8) 3)
+(deftest :fss.9b (cl:search "abcde" "012abcde" :start2 3 :end2 8) 3)
+(deftest :fss.10 (fast-string-search "abcde" "012abcde" 5 3 7) nil)
+(deftest :fss.10b (cl:search "abcde" "012abcde" :start2 3 :end2 7) nil)
+
+(deftest :stlsd.1 (string-to-list-skip-delimiter "") ())
+(deftest :stlsd.2 (string-to-list-skip-delimiter "abc") ("abc"))
+(deftest :stlsd.3 (string-to-list-skip-delimiter "ab c") ("ab" "c"))
+(deftest :stlsd.4 (string-to-list-skip-delimiter "ab c") ("ab" "c"))
+(deftest :stlsd.5 (string-to-list-skip-delimiter "ab c") ("ab" "c"))
+(deftest :stlsd.6 (string-to-list-skip-delimiter "ab c ") ("ab" "c"))
+(deftest :stlsd.7 (string-to-list-skip-delimiter " ab c ") ("ab" "c"))
+(deftest :stlsd.8 (string-to-list-skip-delimiter "ab,,c" #\,) ("ab" "c"))
+(deftest :stlsd.9 (string-to-list-skip-delimiter "ab,,c,," #\,) ("ab" "c"))
+(deftest :stlsd.10 (string-to-list-skip-delimiter " ab") ("ab"))
+
+(deftest :csc.1 (count-string-char "" #\a) 0)
+(deftest :csc.2 (count-string-char "abc" #\d) 0)
+(deftest :csc.3 (count-string-char "abc" #\b) 1)
+(deftest :csc.4 (count-string-char "abcb" #\b) 2)
+
+(deftest :duqs.1 (decode-uri-query-string "") "")
+(deftest :duqs.2 (decode-uri-query-string "abc") "abc")
+(deftest :duqs.3 (decode-uri-query-string "abc+") "abc ")
+(deftest :duqs.4 (decode-uri-query-string "abc+d") "abc d")
+(deftest :duqs.5 (decode-uri-query-string "abc%20d") "abc d")
+
+(deftest :sse.1 (string-strip-ending "" nil) "")
+(deftest :sse.2 (string-strip-ending "abc" nil) "abc")
+(deftest :sse.3 (string-strip-ending "abc" "ab") "abc")
+(deftest :sse.4 (string-strip-ending "abc" '("ab")) "abc")
+(deftest :sse.5 (string-strip-ending "abcd" '("a" "cd")) "ab")
+
+(deftest :rcs.1 (remove-char-string #\space "") "")
+(deftest :rcs.2 (remove-char-string #\space "a") "a")
+(deftest :rcs.3 (remove-char-string #\space "ab") "ab")
+(deftest :rcs.4 (remove-char-string #\space "a b") "ab")
+(deftest :rcs.5 (remove-char-string #\space " a b") "ab")
+(deftest :rcs.6 (remove-char-string #\space "a b ") "ab")
+(deftest :rcs.7 (remove-char-string #\space "a b c ") "abc")
+(deftest :rcs.8 (remove-char-string #\space "a b c d") "abcd")