anchor.diff:  (defun check-eqv (a b &optional (name "Test"))
     (multiple-value-bind (ok diff index)
         (m= a b)
  -    (assert ok ()
  -            "~A failed with delta ~A (~A)~%" name diff index)))
  +    (unless ok
  +      (error "~A failed with delta ~A (~A)~%" name diff index))))
   
   (defun %forward-test-1 (size repeat function)
     (let ((a (make-vector size))
  
positive.code:     (setf (aref dst 0) last)
      dst))
  
  (defun %forward-test-3 (size outer-repeat inner-repeat function)
    (let ((a (make-vector size))
          (b (make-vector size))
  
negative.code:   (define-mfun m- -)
    (define-mfun m* *))
  
  (defvar *default-abs-tol* 1d-6)
  
  (defun m= (x y &optional (tol *default-abs-tol*))
    (declare (type complex-sample-array x y)
  