anchor.diff:  ;; 		   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
  
positive.code:     :initform nil
      :accessor sheep-direct-talents)))
  
  ;;;
  ;;; Cloning
  ;;;
  
negative.code: ;; 		    (set-slot-value child property-name value))))
  ;;     sheep))
  
  ;; (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."
  