X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/f2ff8a16385c1c4bc677c703a0b48d0255046456..81d7061052c90867a26b50e69e35f5d96b17686a:/src/standard-descriptions/clos.lisp

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))