anchor.diff:  
   ;; The number of successful checks that have been performed so far.
   (defvar *pass-count*)
  +
  +;; The number of checks that have been performed in the current test.
  +(defvar *check-count* 0)
   
   (defun call-with-random-state (thunk)
     (let ((*random-state*
  
positive.code: 
  (defun enter-test (test-name)
    (incf *test-count*)
    (format t "~&~S" test-name)
    (finish-output))
  
  (defun pass ()
    (incf *pass-count*)
    (write-char #\.)
    (values))
  
  (defmacro is (test-form)
  
negative.code: ;;; A Test Framework, Inspired by 1am
  
  ;; A list of the names of all tests defined with the TEST macro.
  (defparameter *tests* '())
  
  ;; The value of *RANDOM-STATE* when the test suite encountered the most
  ;; recent error, or NIL, if there have been no recent errors.
  