anchor.diff:  (test remainingp ;; FIX: test this for all patterns that use it.
     "Test the behavior of the `remainingp' function"
     (is (equal (list 1 2 3)
  -             (next-upto-n (pseq '(1 2 3) 1)))
  +             (next-upto-n (pseq (list 1 2 3) 1)))
         "pseq returns the correct number of results")
     (is (= 64
            (let ((*max-pattern-yield-length* 64))
  -           (length (next-upto-n (pseq '(1 2 3) :inf)))))
  +           (length (next-upto-n (pseq (list 1 2 3) :inf)))))
         "pseq returns the correct number of results when `next-upto-n' is called with its REPEATS as :inf")
     (is (= 64
            (let ((*max-pattern-yield-length* 64))
  -           (length (next-upto-n (pseq '(1 2 3) (pseq '(1) :inf))))))
  +           (length (next-upto-n (pseq (list 1 2 3) (pseq (list 1) :inf))))))
         "pseq returns the correct number of results when its REPEATS is a pattern")
     (is (= 3
            (let ((*max-pattern-yield-length* 64))
  -           (length (next-upto-n (pseq '(1 2 3) (pseq '(1 0) :inf))))))
  +           (length (next-upto-n (pseq (list 1 2 3) (pseq (list 1 0) :inf))))))
         "pseq returns the correct number of results when its REPEATS is a pattern"))
   
   (test pseq
     "Test pseq"
     (is (null
  -       (next-upto-n (pseq '(1 2 3) 0)))
  +       (next-upto-n (pseq (list 1 2 3) 0)))
         "pseq returns 0 results when REPEATS is 0")
     (is (equal
          (list 1 2 3 1 2 3 nil nil)
  
positive.code: (test pnary
    "Test pnary"
    (is (equal (list 3 4 5)
               (next-upto-n (pnary #'+ (pseq '(1 2 3) 1) 2)))
        "pnary returns correct results with pattern and number as arguments")
    (is (equal (list 4 5 6)
               (next-upto-n (pnary #'+ (pseq '(1 2 3) 1) 2 1)))
        "pnary returns correct results with pattern and two numbers as arguments")
    (is (equal (list 3 0)
               (next-upto-n (pnary (pseq (list #'+ #'-)) 2 (pseq '(1 2) 1))))
        "pnary returns correct results when its operator is a pattern"))
  
  (test pslide
  
negative.code:          (length (next-upto-n (lambda () (random 420)))))
        "Functions coerced to pstreams only return one value")
    (is (= 3
           (length (next-upto-n (pseq (list 1 2 3) 1))))
        "Patterns return the correct number of values when their parameters are values coerced to pstreams")
    (is (= 5
           (let ((*max-pattern-yield-length* 5))
  