anchor.diff:  	(error 'unbound-property))))
   
   (defun available-properties (sheep)
  -  (if (eql (sheep-metaobjct sheep) =standard-sheep-metasheep=)
  +  (if (eql (sheep-metaobject sheep) =standard-sheep-metasheep=)
         (std-available-properties sheep)
         (available-properties-using-metasheep (sheep-metasheep sheep) sheep)))
   (defun std-available-properties (sheep)
  
positive.code:   (get-property sheep 'hierarchy-list))
  (defun (setf sheep-hierarchy-list) (new-value sheep)
    (setf (get-property sheep 'hierarchy-list) new-value))
  
  
  ;;;
  ;;; Cloning
  
negative.code: (defun (setf sheep-metasheep) (new-mo sheep)
    (error "Changing metasheeps is not supported right now"))
  
  ;;; A lot of these should really be buzzwordified
  (defun sheep-nickname (sheep)
    (get-property sheep 'nickname))
  (defun (setf sheep-nickname) (new-value sheep)
  