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