anchor.diff:                        (next-upto-n pat))
                 (next-upto-n (ppar (list pat)))))
              "ppar returns correct results when its LIST has only one pattern")
  -  (is-true (not (typep (cl-patterns::quant (as-pstream (ppar (list (pseq '(1 2 3) 1)))))
  +  (is-true (not (typep (cl-patterns::quant (as-pstream (ppar (list (pseq (list 1 2 3) 1)))))
                          'pstream))
              "Ensure that patterns that use the default as-pstream method don't have their quant converted to a t-pstream" ;; FIX: rewrite this test so it doesn't depend on ppar not having its own as-pstream method and tests quant conversion more directly
              )
  
positive.code:                             (loop :for i :upto 200 :collect (= (peek pstr) (next pstr)))))
              "peek and next return the same values")
    (is (= 0
           (let ((pstr (as-pstream (pbind :dur 1/3 :foo (pseq '(1 2 3) 1)))))
             (peek pstr)
             (beats-elapsed pstr)))
        "beats-elapsed should not count peeked outputs"))
  
negative.code: (test phistory
    "Test phistory"
    (is (equal (list 0 nil 1)
               (next-n (phistory (pseries) (pseq (list 0 2 1))) 3))
        "phistory returns correct results, including when outputs that haven't occurred yet are accessed"))
  
  (test pscratch
  