anchor.diff:      ((class decorator-class)
        (object decorator-object)
        slot)
  -  (if (equalp (closer-mop:slot-definition-name slot) 'decoratee)
  +  (if (not (decorate-slot-p slot))
         (call-next-method)
         (slot-boundp (decoratee object)
   		   (closer-mop:slot-definition-name slot))))
  
positive.code:   ()
    (:metaclass decorator-class))
  
  (defparameter *o* (make-instance 'decoratee))
  
  (value *o*)
  
negative.code: (defclass decorator-class (standard-class)
    ())
  
  (defmethod closer-mop:validate-superclass ((class decorator-class)
  					   (superclass standard-class))
      t)
  
  (defclass decorated-slot-definition (closer-mop:standard-slot-definition)
    ((decorate
      :initform t
      :type boolean
      :accessor decorate-slot-p
      :initarg :decorate)))
  
  ;; Slots
  
  (defclass decorated-direct-slot-definition (decorated-slot-definition closer-mop:standard-direct-slot-definition)
    ())
  
  (defclass decorated-effective-slot-definition (decorated-slot-definition closer-mop:standard-effective-slot-definition)
    ())
  
  (defmethod closer-mop:direct-slot-definition-class ((class decorator-class) &rest initargs)
    (declare (ignore initargs))
    (find-class 'decorated-direct-slot-definition))
  
  (defmethod closer-mop:effective-slot-definition-class ((class decorator-class) &rest initargs)
    (declare (ignore initargs))
    (find-class 'decorated-effective-slot-definition))
  
  (defmethod closer-mop:compute-effective-slot-definition
      ((class decorator-class)
       slot-name direct-slots)
    (declare (ignore slot-name))
    (let ((effective-slot (call-next-method)))
      (setf (decorate-slot-p effective-slot)
  	  (some #'decorate-slot-p direct-slots))
      effective-slot))
  
  (defclass decorator-object (standard-object)
    ((decoratee :initarg :decoratee
  	      :initform (error "Provide the decoratee")
  	      :accessor decoratee
  	      :documentation "The object being decorated"
  	      :decorate nil))
    (:metaclass decorator-class))
  
  (defmethod initialize-instance :around
    ((class decorator-class) &rest initargs
  