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:   (is (equal '(:metasheep foo :other-option 'bar)
               (canonize-clone-options '((:metasheep foo) (:other-option 'bar))))))
  
  (test defclone
    (let* ((parent (clone))
           (test-sheep (defclone (parent) ((var "value")))))
      (is (sheepp test-sheep))
  
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)))
  