anchor.diff:  
   (postboot-test %remove-property-cons
     (let* ((sheep (spawn))
  -         (property (defsheep (=standard-property=) ((property-name 'test)))))
  +         (property 
  +          #+sheeple3.1 (defsheep (=standard-property=) ((property-name 'test)))
  +          #-sheeple3.1 'test))
       (%add-property-cons sheep property 'value)
       (is (eq sheep (%remove-property-cons sheep 'test)))
       (is (null (%get-property-cons sheep 'tests)))))
   
   (postboot-test %direct-property-value
     (let* ((sheep (spawn))
  -         (property (defsheep (=standard-property=) ((property-name 'test)))))
  +         (property 
  +          #+sheeple3.1 (defsheep (=standard-property=) ((property-name 'test)))
  +          #-sheeple3.1 'test))
       (%add-property-cons sheep property 'value)
       (is (eq 'value (%direct-property-value sheep 'test)))))
   
  +#+sheeple3.1
   (postboot-test %direct-property-metaobject
     (let* ((sheep (spawn))
  -         (property (defsheep (=standard-property=) ((property-name 'test)))))
  +         (property 
  +          #+sheeple3.1 (defsheep (=standard-property=) ((property-name 'test)))
  +          #-sheeple3.1 'test))
       (%add-property-cons sheep property 'value)
       (is (eq 'new-value (setf (%direct-property-value sheep 'test) 'new-value)))
       (is (eq 'new-value (%direct-property-value sheep 'test)))))
  
positive.code: (in-suite internals)
  
  (postboot-test %add-property-cons
    (let ((sheep (spawn)))
      (is (null (%sheep-direct-properties sheep)))
      (is (eq sheep (%add-property-cons sheep (spawn =standard-property=) nil)))
      (is (not (null (%sheep-direct-properties sheep))))
      (is (vectorp (%sheep-direct-properties sheep)))
      (is (find 'std-property (%sheep-direct-properties sheep)
                :key (fun (property-name (car _)))))))
  
  (postboot-test %get-property-cons
    (let* ((sheep (spawn))
           (property (defsheep (=standard-property=) ((property-name 'test)))))
      (is (null (%get-property-cons sheep 'test)))
      (%add-property-cons sheep property 'value)
      (is (consp (%get-property-cons sheep 'test))))
  
negative.code: 
  (postboot-test has-direct-property-p
    (let* ((sheep (spawn))
           (property 
            #+sheeple3.1 (defsheep (=standard-property=) ((property-name 'test)))
            #-sheeple3.1 'test))
      (%add-property-cons sheep property 'value)
      (is (has-direct-property-p sheep 'test))
      (is (not (has-direct-property-p sheep 'something-else))))
  