anchor.diff:  ;;; TODO:
   ;; * make sure all patterns are given parents
   
  -(plan 96)
  +(plan 93)
   
   ;;; utility
   
  
positive.code:     "pgeom returns correct results.")
  
  (ok (equal (list 1 1 2 6 3.0 2.1)
             (next-upto-n (pgeom 1 (pseq '(1 2 3 0.5 0.7)) :inf)))
      "pgeom returns correct results when its GROW is a pattern.")
  
  ;; ptrace (FIX)
  
negative.code: ;; pbind
  
  (ok (equal (list :foo :bar :baz)
             (cl-patterns::keys (next (pbind :foo 1 :bar 2 :baz (pseq '(1 2 3) 1)))))
      "pbind returns events that only have the keys specified.")
  
  (ok (= 3
         (length (next-upto-n (pbind :foo 1 :bar 2 :baz (pseq '(1 2 3) 1)))))
      "pbind returns the correct number of events.")
  
  (ok (= 77
  