[elephant-cvs] CVS update: elephant/src/elephant.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv32243/src

Modified Files:
	elephant.lisp 
Log Message:
merged in andrew's fixes: class slots, inheritence.

Date: Mon Aug 30 23:14:49 2004
Author: blee

Index: elephant/src/elephant.lisp
diff -u elephant/src/elephant.lisp:1.6 elephant/src/elephant.lisp:1.7
--- elephant/src/elephant.lisp:1.6	Sun Aug 29 22:38:43 2004
+++ elephant/src/elephant.lisp	Mon Aug 30 23:14:49 2004
@@ -63,22 +63,29 @@
   #+cmu  
   (:import-from :pcl
 		validate-superclass
-		slot-definition-name
 		standard-slot-definition
 		standard-direct-slot-definition
 		standard-effective-slot-definition
-		initialize-internal-slot-functions
 		direct-slot-definition-class
-		compute-effective-slot-definition-initargs
 		effective-slot-definition-class
 		slot-definition-name
-		slot-definition-reader-function
-		slot-definition-writer-function
+		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
 		slot-value-using-class
+		slot-boundp-using-class
 		slot-definition-allocation
-		compute-slots)                                
+		compute-slots
+
+		initialize-internal-slot-functions
+		compute-effective-slot-definition-initargs
+		slot-definition-reader-function
+		slot-definition-writer-function
+		slot-definition-boundp-function
+		slot-definition-allocation-class
+		class-slot-cells
+		plist-value
+		+slot-unbound+) 
   #+cmu  
   (:import-from :ext
 		make-weak-pointer weak-pointer-value finalize)
@@ -86,16 +93,17 @@
   #+sbcl 
   (:import-from :sb-mop 
 		validate-superclass
-		slot-definition-name
 		standard-slot-definition
 		standard-direct-slot-definition
 		standard-effective-slot-definition
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
 		slot-value-using-class
+		slot-boundp-using-class
 		slot-definition-allocation
 		compute-slots)                                
   #+sbcl
@@ -103,7 +111,12 @@
 		initialize-internal-slot-functions
 		compute-effective-slot-definition-initargs
 		slot-definition-reader-function
-		slot-definition-writer-function)
+		slot-definition-writer-function
+		slot-definition-boundp-function
+		slot-definition-allocation-class
+		class-slot-cells
+		plist-value
+		+slot-unbound+)
   #+sbcl
   (:import-from :sb-ext
 		make-weak-pointer weak-pointer-value finalize)
@@ -111,17 +124,17 @@
   #+allegro
   (:import-from :clos
 		validate-superclass
-		slot-definition-name
 		standard-slot-definition
-		slot-definition-initargs
 		standard-direct-slot-definition
 		standard-effective-slot-definition
 		direct-slot-definition-class
 		effective-slot-definition-class
 		slot-definition-name
+		slot-definition-initfunction
 		compute-effective-slot-definition
 		class-slots
 		slot-value-using-class
+		slot-boundp-using-class
 		slot-definition-allocation
 		compute-slots)
   #+allegro