anchor.diff:  (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)
  
positive.code: 	(value (getf property-list :value))
  	(readers (getf property-list :readers))
  	(writers (getf property-list :writers)))
      (when (keywordp name)
        (error 'probably-meant-to-be-option))
      (setf (get-property sheep name) value)
      (add-readers-to-sheep readers name sheep)
      (add-writers-to-sheep writers name sheep))))
  
  (defun execute-clonefunctions (sheep)
    (if (eql (sheep-metasheep sheep) =standard-sheep-metasheep=)
  
negative.code: (defun canonize-option (option)
    `(list ,@option))
  
  ;;; Inheritance predicates
  (defun direct-parent-p (maybe-parent child)
    (when (member maybe-parent (sheep-direct-parents child))
      t))
  