anchor.diff:  
   (defun enter-test (test-name)
     (incf *test-count*)
  +  (setf *check-count* 0)
     (format t "~&~S" test-name)
     (finish-output))
   
   (defun pass ()
     (incf *pass-count*)
  -  (write-char #\.)
  +  (when (zerop (logand *check-count* (incf *check-count*)))
  +    (write-char #\.))
     (values))
   
   (defmacro is (test-form)
  
positive.code: ;;; A Test Framework, Inspired by 1am
  
  ;; A list of the names of all tests defined with the TEST macro.
  (defvar *tests* '())
  
  ;; The value of *RANDOM-STATE* when the test suite encountered the most
  ;; recent error, or NIL, if there have been no recent errors.
  
negative.code: 
  ;; 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*
  