;;; function names), we make do with symbol frobbing.
(defun %sf (kind name format &optional access)
(flet ((find-strategy-function (&rest args)
;;; function names), we make do with symbol frobbing.
(defun %sf (kind name format &optional access)
(flet ((find-strategy-function (&rest args)