anchor.diff:  
   ;;;; Conditions
   
  +
  +
  +;;; example
  +(let ((ccdata (gather-data-from-form))
  +      (mp (make-instance 'monetra-processor)))
  +  (sale mp ccdata 43))
  
positive.code: the luhn algorithm: http://en.wikipedia.org/wiki/Luhn_algorithm"))
  
  (defun check-valid (cc-data &key
  				 require-avs
  				 require-cv
  				 error-p
  				)
    (:documenation "Check that a cc-data like structure has enough data to
  complete a transaction.
  Can optionally require that AVS verification, Card Verfication data be present.
  
negative.code: (in-package :cl-monetra)
  
  ;;;; Processor Functions
  