Changeset 11992

Timestamp:

06/06/09 08:58:45 (14 years ago)

Author:

astalla

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

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

@@ -52 +52 @@
 (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)