(flet ((handle-symbol (symbol)
;; TODO: it's implementation-dependent, though CHAR-EQUAL seems
;; more reasonable nevertheless
(when (search string (symbol-name symbol) :test #'char=)
(funcall function symbol))))
(if package
(flet ((handle-symbol (symbol)
;; TODO: it's implementation-dependent, though CHAR-EQUAL seems
;; more reasonable nevertheless
(when (search string (symbol-name symbol) :test #'char=)
(funcall function symbol))))
(if package