Method Compilation Question

[Chris McConnell <mcconnel@ads.com>]

Here is a function that I have used to compile methods.

;;;
(in-package 'pcl)
(export '(compile-methods))

;;;
(defun COMPILE-METHODS (generic-function)
  "Make sure that methods of GENERIC-FUNCTION are compiled."
  (dolist (method (generic-function-methods generic-function))
    (unless (compiled-function-p (method-function method))
      (setf (method-function method)
	    (compile nil (method-function method))))))