anchor.diff:    ;; Finally, for SETF-compliance, we return the value.
     new-value)
   
  -;;; Object Documentation
  +;;;
  +;;; Special Properties
  +;;;
   (defmethod documentation ((x object) (doc-type (eql 't)))
     (property-value x 'documentation))
   
  
positive.code:   (change-mold object (ensure-mold (object-parents object) #()))
    object)
  
  ;;; Value
  
  (defun property-value (object property-name)
    "Returns the property-value for PROPERTY-NAME found first in OBJECT's hierarchy list.
  If the value does not exist in the hierarchy list, a condition of type `unbound-property'
  
negative.code:                   (mapcar (fun (list  _ (property-value object _) (property-owner object _)))
                            (available-properties object)))))
  
  ;;;
  ;;; Convenience
  ;;;
  (defmacro with-properties (properties object &body body)
    (let ((sh (gensym)))
      `(let ((,sh ,object))
  