marco <mb@bese.it> writes:
The mopp package also exports the function SLOT-DEFINITION-DOCUMENTATION which while not strictly part of the MOP really should be and is implementened on most systems.
It surprises me slightly that you think that SLOT-DEFINITION-DOCUMENTATION shouldn't be a generic function.
IMPLEMENTATION - A keyword indetifying the implementation, one of: :OPENMCL, :SBCL, :CMU, :LISPWORKS.
(let ((external-symbols '())) (do-external-symbols (sym (find-package :it.bese.arnesi.mopp)) (push sym external-symbols)) (dolist (sym external-symbols) (unless (provide-mopp-symbol sym #+openmcl :openmcl #+sbcl :sbcl #+cmu :cmu #+lispworks :lispworks) (warn "Unimplemented MOP symbol: ~S" sym))))
You could be slightly nicer to other implementations by doing ... (unless (provide-mopp-symbol sym (or #+openmcl :openmcl #+sbcl :sbcl #+cmu :cmu #+lispworks :lispworks :unimplemented)) (warn ...)) and either provide a method on :unimplemented or a method on NO-APPLICABLE-METHOD.
(defmethod provide-mopp-symbol ((symbol symbol) (implementation (eql :sbcl))) (when (find-symbol (string symbol) :sb-pcl) (import-to-mopp (find-symbol (string symbol) :sb-pcl))))
Unless there's a reason not to, you should be using the "SB-MOP" package here. (If there is a reason, sbcl-devel wants to know about it!) Cheers, Christophe