Comment 1 for bug 410122

I think I have something good, and it even passes the tests. It was surprisingly easy, so I'm worried that it might be buggy. It does seem to run well though.

CL-USER> (time (dotimes (x 1000000) (slow-find "That is not dead which can eternal lie..." #\X)))
Evaluation took:
  0.182 seconds of real time

Not sure how it looks from the cache perspective, it ends up inlining both variants of the find function, one for the simple base string version and one for a normal simple string. I'm guessing that it still would be a win in most cases. It seems to be a huge win in my code.

Should I describe the changes like I did for SLOT-VALUE, or should I send in a patch? Keep in mind, I know nothing of the style, the patch might need major rework.

Karol Swietlicki