anchor.diff:    "Returns the property-value set locally in OBJECT for PROPERTY-NAME.
   If the value is non-local (is delegated or does not exist in the hierarchy list),
   a condition of type UNBOUND-DIRECT-PROPERTY condition is signalled."
  -  ;;  (declare (inline %object-properties %get-property-cons)) ;commented until after testing
  +  ;; TODO - rewrite this shit
     (if (%object-properties object)
         (aif (%get-property-cons object property-name)
              (cdr it)
  
positive.code:                                      `(,var-name
                                         (property-value ,sh ',property-name))))
                                   properties)
           ,@body))))
negative.code:   (format stream
            "~&Object: ~A~%Properties:~% ~{~{~&~3TName: ~13T~A~%~3TValue: ~13T~S~%~
             ~3TOwner: ~13T~A~%~%~}~}"
            object (mapcar (fun (let ((pname _))
                                 (list pname
                                       (property-value object pname)
                                       (property-owner object pname))))
  