anchor.diff:    (assert-equal (format nil "~%") (tostring (prn))))
   
   (deftest w/instring (print)
  -  (assert-eq 'hello (w/instring stream "Hello World" (read stream)))
  -  (assert-equal "Hello World" (w/instring stream "Hello World" (read-line stream)))
  -  (assert-equal 123 (w/instring stream "123" (parse-integer (read-line stream)))))
  +  (assert-eq 'hello (w/instring stream "Hello World" (read :from stream)))
  +  (assert-equal "Hello World" (w/instring stream "Hello World" (read-line :from stream)))
  +  (assert-equal 123 (w/instring stream "123" (parse-integer (read-line :from stream)))))
   
   (deftest fromstring (print)
     (assert-eq 'hello (fromstring "Hello World" (read)))
  
positive.code: (deftest withs (binding)
    (assert-eql 12 (withs (x 5 y (+ x 3)) (+ y 4))))
  
  ;;; hof
  
  (deftest testify (hof)
    (assert-true  (funcall (testify 5) 5))
  
negative.code: (deftest drain (list)
    (assert-equal '((1 2) (3 4))
  		(w/instring in "(1 2) (3 4)"
  		  (drain (read :from in :eof nil))))
    (assert-equal '(128 64 32 16 8 4 2)
  		(let x 256
  		  (drain (= x (/ x 2)) 1)))
  