anchor.diff:     ;; properties
      :direct-property-p :remove-property :remove-all-direct-properties
      :direct-property-value :property-value :property-owner
  -   :direct-properties :available-properties
  +   :direct-properties :available-properties :property-makunbound
  +   :remove-all-direct-properties
      ))
   
   (defpackage #:sheeple-user
  
positive.code: 
     ;; Property access
     #:property-value #:direct-property-value #:available-properties
     #:remove-property #:remove-all-direct-properties
     #:direct-property-p #:with-properties #:direct-properties
  
     ;; Messages
  
negative.code:    ;; properties
     :direct-property-p :remove-property :remove-all-direct-properties
     :direct-property-value :property-value :property-owner
     :direct-properties :available-properties :property-makunbound
     :remove-all-direct-properties
     ))
  
  (defpackage #:sheeple-metaobject-protocol
  