r4676: Auto commit for Debian build

[kmrcl.git] / mop.lisp

diff --git a/mop.lisp b/mop.lisp
index 5e4ba96ecf5ca230ae00f4d7589964a822abb20a..995b368db06dd650d9a97b66ab85522cc9916057 100644 (file)
--- 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*)))