anchor.diff:      (let* ((a (decode-bmpimage "intrepid-argb"))
              (b (encode-decode a :strip-alpha T :keep-tmp T))
              (c (decode-bmpimage "tmp")))
  -      (assert-true (typep a 'rgba-image))
         (assert-true (typep b 'rgb-image))
         (assert-true (typep c 'rgb-image))
         (assert-equal 0 (max-diff b c))))
   
  -(run-tests decode-strip-alpha)
  -(run-tests encode-strip-alpha)
  -
  -
  -
  +;;(run-tests '(decode-strip-alpha))
  +;;(run-tests '(encode-strip-alpha))
  
positive.code: ;;;# Unit Tests for BMP file interface 
  ;;;
  ;;; RUN-TESTS to run tests, either individually, multiply, or all at
  ;;; once:
  
negative.code:     (assert-true (typep b 'grayscale-image))
      (assert-equal 0 (max-diff b (encode-decode b)))))
  
  ;;(run-tests '(encode-modulo-0 encode-modulo-2))
  ;;(run-tests '(encode-modulo-1 encode-modulo-3))
  ;; (run-tests)
  
  
  