anchor.diff:  (def-suite clone-general :in cloning)
   (in-suite clone-general)
   
  -(test ensure-sheep
  +(test (ensure-sheep :depends-on bootstrappedp)
     ;; basic
     (let ((sheep (ensure-sheep nil)))
       (is (sheepp sheep))
  
positive.code: (def-suite protos :in cloning)
  (in-suite protos)
  
  (test defproto
    (let ((test-proto (defproto =test-proto= () ((var "value")))))
      (is (sheepp test-proto))
      (is (eql test-proto =test-proto=))
  
negative.code:     (is (parentp o3 sheep))
      (is (parentp o4 sheep))))
  
  (test (sheep-nickname :depends-on bootstrappedp)
    (let ((sheep (clone)))
      (setf (sheep-nickname sheep) 'test)
      (is (eq 'test (sheep-nickname sheep)))
      (is (eq 'test (sheep-nickname (clone sheep))))))
  
  (test (sheep-documentation :depends-on bootstrappedp)
    (let ((sheep (clone)))
      (setf (sheep-documentation sheep) 'test)
      (is (eq 'test (sheep-documentation sheep)))
  