anchor.diff:  ;;;
   ;;; Property spec object
   ;;;
  -(defparameter the-std-property-form '(defproto =standard-property= ()
  -                                      ((name 'std-property))))
  -(defun property-name (property)
  -  (property-value property 'name))
  -(defun (setf property-name) (new-value property)
  -  (setf (property-value property 'name) new-value))
  -
  -(defvar =standard-property= (gensym "=STANDARD-PROPERTY="))
  +;; TODO - I'll add this again once I go back to the propmop.
  +;; (defparameter the-std-property-form '(defproto =standard-property= ()
  +;;                                       ((name 'std-property))))
  +;; (defun property-name (property)
  +;;   (property-value property 'name))
  +;; (defun (setf property-name) (new-value property)
  +;;   (setf (property-value property 'name) new-value))
  +
  +;; (defvar =standard-property= (gensym "=STANDARD-PROPERTY="))
   
   ;;;
   ;;; Internals
  
positive.code:     (cerror "Add property anyway." "~A already has a direct property named ~A."
              sheep property-name)
      (remove-property sheep property-name))
    (%add-property-cons sheep
                        (if (has-property-p sheep property-name)
                            (%direct-property-metaobject (property-owner sheep property-name)
                                                         property-name)
                            (defsheep (=standard-property=) ((name property-name))))
                        value))
  
  ;; TODO - remove-property should look at the property metaobject and remove any replies for
  ;;        accessors that it points to. This will have to wait until reply-undefinition works
  
negative.code: (defun (setf %direct-property-value) (new-value sheep property-name)
    (setf (cdr (%get-property-cons sheep property-name)) new-value))
  
  ;; (defun %direct-property-metaobject (sheep property-name)
  ;;   (car (%get-property-cons sheep property-name)))
  ;; (defun (setf %direct-property-metaobject) (new-value sheep pname)
  ;;   (setf (car (%get-property-cons sheep pname)) new-value))
  
  ;;;
  ;;; Existential
  