As a note - you dont need (tostring (pr item)) ....unless you want the output of each result to be a string. you could just use (string item).
Here's another method just for the sake of learning:
This method does a few things..(which maybe good or bad).
* it returns it in a list format for re-use.
* it maintains the original 'type'.
* it still preserves the original order.
(def test-list (mystring item-list)
(rev (accum tolist
(each item item-list
(if (findsubseq mystring (string item))
(tolist item))))))
arc> (test-list "google" '(yahoo yahoogoogle "google yahoo"))
(yahoogoogle "google yahoo")
