anchor.diff:        (setf %properties (replace new-vector old-vector)))
       sheep)
   
  -  (defun %add-property-cons (sheep property-metaobject value)
  +  (defun %add-property-cons (sheep property-name value)
       (let ((properties %properties))
         (if properties
             (when (%property-vector-full-p sheep)
  
positive.code:   (property-value-with-hierarchy-list sheep property-name))
  
  (defun property-value-with-hierarchy-list (sheep property-name)
    (map nil (fun (when (has-direct-property-p _ property-name)
                    (return-from property-value-with-hierarchy-list
                      (direct-property-value _ property-name))))
  
negative.code: ;;;
  ;;; Property spec object
  ;;;
  ;; 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
  