Bugfix: <class-name>-effective-slot-definition inherited from standard-direct-slot-definition.
Thu Aug 23 02:39:51 PDT 2007 Ryszard Szopa <ryszard.szopa@gmail.com>
* Bugfix: <class-name>-effective-slot-definition inherited from standard-direct-slot-definition.
diff -rN -u old-mop-utils/mop-utils.lisp new-mop-utils/mop-utils.lisp
--- old-mop-utils/mop-utils.lisp 2014-04-23 23:52:01.000000000 -0700
+++ new-mop-utils/mop-utils.lisp 2014-04-23 23:52:01.000000000 -0700
@@ -43,7 +43,7 @@
(sb-mop:standard-direct-slot-definition ,@slot-fixtures)
())
(defclass ,eff-slot-name
- (sb-mop:standard-direct-slot-definition ,@slot-fixtures)
+ (sb-mop:standard-effective-slot-definition ,@slot-fixtures)
())
(defmethod direct-slot-definition-class ((class ,class-name) &rest initargs)
(declare (ignore initargs))