>>>>> "Kimmo" == Kimmo Takkunen <[EMAIL PROTECTED]> writes:
Kimmo> Uh,
Kimmo> Last bmh-search had parens in wrong places.
Kimmo> Here is correct version.
Kimmo> (defun bmh-search (pattern text)
Kimmo> (declare (optimize (speed 3) (safety 0) (debug 0)
Kimmo> (compilation-speed 0) (space 0))
Kimmo> (type simple-base-string pattern text))
Kimmo> (check-type pattern simple-base-string)
Kimmo> (check-type text simple-base-string)
Because you've declared pattern and text to be simple-base-string, the
check-type's are optimized away. I think. Perhaps you really wanted
to optimize-interface declaration? (See user's manual.)
Ray
