- (setq cl:*features* (delete :kmr-cmucl-mop cl:*features*))
- (setq cl:*features* (delete :kmr-cmucl-pcl cl:*features*)))
-
- (when (>= (length (generic-function-lambda-list
- (ensure-generic-function
- 'compute-effective-slot-definition)))
- 3)
- (pushnew :kmr-normal-cesd cl:*features*))
-
- (when (>= (length (generic-function-lambda-list
- (ensure-generic-function
- 'direct-slot-definition-class)))
- 3)
- (pushnew :kmr-normal-dsdc cl:*features*))
+ (setq cl:*features* (delete 'kmrcl::cmucl-mop cl:*features*))
+ (setq cl:*features* (delete 'kmrcl::cmucl-pcl cl:*features*)))
+
+ (when (< (length (generic-function-lambda-list
+ (ensure-generic-function
+ 'compute-effective-slot-definition)))
+ 3)
+ (pushnew 'short-arg-cesd cl:*features*))
+
+ (when (< (length (generic-function-lambda-list
+ (ensure-generic-function
+ 'direct-slot-definition-class)))
+ 3)
+ (pushnew 'short-arg-dsdc cl:*features*))