anchor.diff:  (defsuite print (clamp))
   (defsuite memoize (clamp))
   (defsuite misc (clamp))
  +(defsuite tables (clamp))
   
   ;;;; Tests for base.
   
  
positive.code:   (assert-equal '((a a) (a b) (b a) (b b)) (cart #'list '(a b) '(a b)))
    (assert-equal '((a b) (b a)) (cart #'list '(a b) (rem it '(a b))))
    (assert-equal '(1 2 3 4) (cart #'+ '(1 3) '(0 1))))
  
negative.code: (in-package :clamp-tests)
  
  (defsuite clamp ())
  (defsuite base (clamp))
  (defsuite binding (clamp))
  (defsuite conditionals (clamp))
  