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

[Alessio Stalla]

Author: astalla
Date: Sat Jun  6 04:58:45 2009
New Revision: 11992

Log:
Exported MOP functions class-slots and slot-definition-name.


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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Jun  6 04:58:45 2009
@@ -51,7 +51,13 @@
 
 (in-package #:mop)
 
-(export '(class-precedence-list))
+(export '(class-precedence-list class-slots slot-definition-name))
+
+(defun class-slots (class)
+  (%class-slots class))
+
+(defun slot-definition-name (slot-definition)
+  (%slot-definition-name slot-definition))
 
 (defmacro push-on-end (value location)
   `(setf ,location (nconc ,location (list ,value))))