Fix bug: now head-match-p enable to compare long item and short whole-string

(SEARCH x y :end2 (length x)) might cause error when (length x) > (length y).
Remove it.
Add test suite

tested: clisp, sbcl