anchor.diff:      (setf (gethash :wrong res) nil)
       (setf (gethash :up res) nil)
       (setf (gethash :down res) nil)
  +    (setf (gethash 'cache res) nil)
       res))
   
   (defun cast-vote! (balbox direction iid author &optional reference)
  +  (setf (gethash 'cache res) nil)
     (push `(,iid ,author ,@(when reference (list reference)) (gethash direction balbox))))
   
   (defun merge-ballot-boxes (&rest boxes)
  
positive.code:                sum (author-vote-value author))))
      (values (+ right up) (+ wrong down))))
  
  (defun score-vast-majority-p (pos neg)
    (unless (>= 0 pos)
      (>= (/ 1 10) (/ neg pos))))
  
negative.code:                  (hu:collect author t))))
      res))
  
  (defun %ballot-box-totals (balbox)
    "Remove-extra-votes should have been run on the input already."
    (let
        ((right
  