[armedbear-cvs] r13960 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Mon Jun 11 05:52:04 2012
New Revision: 13960

Log:
Export slot definition accessors from the MOP package

- also move all exports into mop.lisp

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp
   trunk/abcl/src/org/armedbear/lisp/mop.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Jun 11 05:26:37 2012	(r13959)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Jun 11 05:52:04 2012	(r13960)
@@ -108,8 +108,6 @@
 ;; and the behavior of other CL implementations in preference to
 ;; chapters 1-4 and appendix D.
 
-(export '(class-precedence-list class-slots
-          slot-definition-name))
 (defconstant +the-standard-class+ (find-class 'standard-class))
 (defconstant +the-funcallable-standard-class+
   (find-class 'funcallable-standard-class))
@@ -3089,9 +3087,6 @@
       (values (sort-methods methods gf classes)
 	      t))))
 
-(export '(compute-applicable-methods
-	  compute-applicable-methods-using-classes))
-
 
 ;;; Slot access
 ;;; 

Modified: trunk/abcl/src/org/armedbear/lisp/mop.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/mop.lisp	Mon Jun 11 05:26:37 2012	(r13959)
+++ trunk/abcl/src/org/armedbear/lisp/mop.lisp	Mon Jun 11 05:52:04 2012	(r13960)
@@ -57,6 +57,8 @@
           compute-class-precedence-list
           compute-default-initargs
           compute-effective-slot-definition
+          compute-applicable-methods
+          compute-applicable-methods-using-classes
           compute-effective-method
           compute-slots
           finalize-inheritance
@@ -77,6 +79,8 @@
           class-direct-superclasses
           class-finalized-p
           class-prototype
+          class-precedence-list
+          class-slots
 
           add-direct-subclass
           remove-direct-subclass
@@ -97,9 +101,13 @@
           writer-method-class
 
           slot-definition
+          slot-definition-initargs
+          slot-definition-location
+          slot-definition-name
           slot-definition-readers
+          slot-definition-type
           slot-definition-writers
-          slot-definition-location
+
           standard-instance-access
           funcallable-standard-instance-access