anchor.diff:      (is (eql test-metasheep (sheep-metasheep sheep)))
       (is (eql =standard-sheep= (car (sheep-parents sheep))))))
   
  -(test clone
  +(test (clone :depends-on bootstrappedp)
     (is (eql =standard-metasheep= (sheep-metasheep (clone))))
     (is (sheepp (clone)))
     (is (std-sheep-p (clone)))
  
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 (equal '(:metasheep foo :other-option 'bar)
               (canonize-clone-options '((:metasheep foo) (:other-option 'bar))))))
  
  (test (defclone :depends-on bootstrappedp)
    (let* ((parent (clone))
           (test-sheep (defclone (parent) ((var "value")))))
      (is (sheepp test-sheep))
  