(if (find-package 'sb-mop)
(setq cl:*features* (delete :sb-mop cl:*features*))
(setq cl:*features* (delete :sb-acl cl:*features*))))
(if (find-package 'sb-mop)
(setq cl:*features* (delete :sb-mop cl:*features*))
(setq cl:*features* (delete :sb-acl cl:*features*))))