anchor.diff:  ;; 		    (set-slot-value child property-name value))))
   ;;     sheep))
   
  -
  -;;; unusable for now (need references to children)
  -
   ;; (defun sacrifice-sheep (sheep &key (save-properties nil))
   ;;   "Deletes SHEEP from the hierarchy, preserving the hierarchy by expanding references to
   ;; SHEEP into all its parents. Optionally, pushes its direct properties into its children."
  
positive.code: ;; 		   if (eql child-par sheep)
  ;; 		   append parents
  ;; 		   else collect child-par)))))
  
  (defmethod print-object ((sheep standard-sheep-class) stream)
    (print-unreadable-object (sheep stream :identity t)
      (format stream "Standard-Sheep ID: ~a" (sheep-id sheep))))
  
  ;;;
  ;;; Property Access
  
negative.code: 		(set-slot-value child property-name value)))))
    child)
  
  ;;; unusable for now (need references to children)
  
  ;; (defun push-down-properties (sheep)
  ;;   "Pushes sheep's slot-values down to its children, unless the children have 
  ;; overridden the values."
  