Sounds good. Remember that find-class must take an optional environment argument. (defun find-class (name &optional no-error environment) ...) What about the suggestion about get-method ==> find-method ?