anchor.diff:                             (whiler x (read :eof t) t
                                (a x))))))
   
  +(deftest forlen (iter)
  +  (let xs '(1 2 3)
  +    (assert-equal (rev xs) (ret result '()
  +                             (forlen i xs
  +                               (push (elt xs i) result)))))
  +  (let seq #(1 2 3)
  +    (assert-equal (rev (coerce seq 'list))
  +                  (ret result '()
  +                    (forlen i seq
  +                      (push (elt seq i) result))))))
  +
   ;;;; Tests for memoize.
   
   ;; This serves as a test for memo and defmemo.
  
positive.code: 				:key #'car
  				:start 3))))
  
  ;;;; Tests for list.
  
  (deftest range (list)
  
negative.code:   (assert-false (case 'c a 1 b 2 (t) 3))
    (assert-eql 3 (case t a 1 b 2 (t) 3 t 4)))
  
  (deftest caselet (conditionals)
    (assert-eql 5
      (caselet x 10
        10 5
        20 30
        t  x))
    (assert-eql 30
      (caselet x 20
        10 5
        20 30
        t x))
    (assert-eql 50
      (caselet x 50
        10 5
        20 30
        t x)))
  
  ;;;; Tests for print.
  
  (deftest pr (print)
    (assert-equal "hello world 5"
  