anchor.diff:  ;;;;
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (in-package :sheeple)
  +
  +(in-suite sheeple)
  +
  +;;; Secures sanity of pre-bootstrap development in a "fire-and-forget" fashion.
  +(test bootstrappedp
  +  (if *bootstrappedp*
  +      (pass "Sheeple has bootstrapped")
  +      (skip "Sheeple has not yet bootstrapped")))
   
   ;;;
   ;;; Allocation
  
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))
  