[armedbear-cvs] r12000 - in branches/0.15.x/abcl: . src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jun  6 15:40:42 2009
New Revision: 12000

Log:
Backport r11992, 11993 and 11999: Cells support in MOP package.

Modified:
   branches/0.15.x/abcl/CHANGES
   branches/0.15.x/abcl/src/org/armedbear/lisp/autoloads.lisp
   branches/0.15.x/abcl/src/org/armedbear/lisp/clos.lisp

Modified: branches/0.15.x/abcl/CHANGES
==============================================================================
--- branches/0.15.x/abcl/CHANGES	(original)
+++ branches/0.15.x/abcl/CHANGES	Sat Jun  6 15:40:42 2009
@@ -2,6 +2,7 @@
 (?? Jun, 2009) - Anticipate a June date
 
  Summary of changes:
+  * 2 more MOP exported symbols to support Cells port
   * Updated FASL version
   * Support (pre)compilation of functions with a non-null lexical environment
   * Compiler and precompiler cleanups

Modified: branches/0.15.x/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- branches/0.15.x/abcl/src/org/armedbear/lisp/autoloads.lisp	(original)
+++ branches/0.15.x/abcl/src/org/armedbear/lisp/autoloads.lisp	Sat Jun  6 15:40:42 2009
@@ -190,8 +190,9 @@
 (autoload 'disassemble)
 
 (in-package "MOP")
-(export 'class-precedence-list)
-(autoload 'class-precedence-list "clos")
+(export '(class-precedence-list class-slots slot-definition-name))
+(autoload '(class-precedence-list class-slots slot-definition-name) "clos")
+
 
 ;; Java interface.
 (in-package "JAVA")

Modified: branches/0.15.x/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- branches/0.15.x/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ branches/0.15.x/abcl/src/org/armedbear/lisp/clos.lisp	Sat Jun  6 15:40:42 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))))