anchor.diff:  		(mvl (partition #'even '((1) (2) (3) (4) (5))
   				:key #'car
   				:start 3)))
  -  ;;; same tests but for vectors
  +  ;; Same tests but for vectors.
     (assert-equal '(() ()) (mvl (partition #'even #())))
     (assert-equal '(() ()) (mvl (partition 1 #())))
     (assert-equal '((2 4) (1 3 5)) (mvl (partition #'even #(1 2 3 4 5))))
  
positive.code:   (assert-equal '(5 29 5) (rem #'even '(2 5 29 5 28)))
    (assert-equal '() (rem #'even '(2 12 16 4)))
    (assert-equal '(13 5 7) (rem #'even '(13 5 7)))
    ;;; same tests but with vectors instead
    (assert-equalp #() (rem 5 #()))
    (assert-equalp #() (rem #'even #()))
    (assert-equalp #(1 2 8 2) (rem 5 #(1 5 2 8 2 5)))
  
negative.code: ;;;; Several tests for clamp.
  
  (defpackage :clamp-tests
    (:use :clamp :clunit)
  