X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4358148e6c67fcc2ae24050c54d8050b4dc03f9d..81d7061052c90867a26b50e69e35f5d96b17686a:/src/standard-descriptions/clos.lisp?ds=sidebyside

diff --git a/src/standard-descriptions/clos.lisp b/src/standard-descriptions/clos.lisp
index 33a4cce..ec80d86 100644
--- 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))))
 
+(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))