X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=995b368db06dd650d9a97b66ab85522cc9916057;hb=95e781f9c555f193a471b652c3c30af80d58ac4a;hp=5e4ba96ecf5ca230ae00f4d7589964a822abb20a;hpb=b7af043786744aaf0b67a5ee6f4d42a647dc738d;p=kmrcl.git

diff --git a/mop.lisp b/mop.lisp
index 5e4ba96..995b368 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: mop.lisp,v 1.1 2003/04/29 00:26:21 kevin Exp $
+;;;; $Id: mop.lisp,v 1.2 2003/04/29 03:50:42 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -116,5 +116,12 @@
 		     (ensure-generic-function
 		      'compute-effective-slot-definition)))
 	    3)
-    (pushnew :kmr-named-cesd cl:*features*)))
+    (pushnew :kmr-normal-cesd cl:*features*)))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (when (>= (length (generic-function-lambda-list
+		    (ensure-generic-function
+		     'direct-slot-definition-class)))
+	    3)
+    (pushnew :kmr-normal-dsdc cl:*features*)))