+#+sbcl
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (if (find-package 'sb-mop)
+ (pushnew :kmr-sbcl-mop cl:*features*)
+ (pushnew :kmr-sbcl-pcl cl:*features*)))
+
+#+cmu
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (if (find-package 'mop)
+ (pushnew :kmr-cmucl-mop cl:*features*)
+ (pushnew :kmr-cmucl-pcl cl:*features*)))
+
+