#+kmr-cmucl-mop #:mop
#+allegro #:mop
#+lispworks #:clos
+ #+clisp #:clos
#+scl #:clos
#+openmcl #:openmcl-mop
)
'(excl::compute-effective-slot-definition-initargs)
#+lispworks
'(clos::compute-effective-slot-definition-initargs)
+ #+clisp
+ '(clos::compute-effective-slot-definition-initargs)
#+sbcl
'(#+kmr-sbcl-mop class-of #-kmr-sbcl-mop sb-pcl:class-of
#+kmr-sbcl-mop class-name #-kmr-sbcl-mop sb-pcl:class-name