simplified slot access somewhat. layered slots still a little screwy.

[clinton/lisp-on-lines.git] / src / standard-descriptions / clos.lisp

diff --git a/src/standard-descriptions/clos.lisp b/src/standard-descriptions/clos.lisp
index 33a4cce..ec80d86 100644 (file)
--- a/src/standard-descriptions/clos.lisp
+++ b/src/standard-descriptions/clos.lisp
@@ -4,6 +4,13 @@
   ((class-slots :label "Slots" 
                :function (compose 'class-slots 'class-of))))
 
   ((class-slots :label "Slots" 
                :function (compose 'class-slots 'class-of))))
 

+(define-layered-class slot-definition-attribute (standard-attribute)
+ ((slot-name :initarg :slot-name :accessor attribute-slot-name)))
+
+(define-layered-method attribute-value (object (attribute slot-definition-attribute))
+  (slot-value object (attribute-slot-name attribute)))
+                      
+                     

 (define-layered-method description-of ((object standard-object))
  (find-description 'standard-object))
 
 (define-layered-method description-of ((object standard-object))
  (find-description 'standard-object))