anchor.diff:                          counters-and-measurers)
     (map 'list #'car counters-and-measurers))
   
  -(defun log-dbn-mean-field-classification-accuracy (rbm sampler name)
  +(defun log-dbn-classification-accuracy (rbm sampler name)
     (let ((counters-and-measurers
            (make-dbn-reconstruction-misclassification-counters-and-measurers
             (dbn rbm) :rbm rbm)))
  
positive.code: (defmethod log-test-error (trainer (bpn mnist-bpn))
    (call-next-method)
    (multiple-value-bind (e ce)
        (bpn-error (make-sampler *test-images* :max-n (length *test-images*)
                                 :omit-label-p t) bpn)
      (log-msg "TEST CROSS ENTROPY ERROR: ~,5F (~D)~%"
               ce (n-inputs trainer))
      (log-msg "TEST CLASSIFICATION ACCURACY: ~? (~D)~%"
  
negative.code:                  *list-of-percents-format*
                   (list (mapcar #'->percent errors)))))))
  
  (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
    (call-next-method)
    (map nil #'xxx (clouds rbm))
    (log-dbn-classification-accuracy rbm (make-training-sampler)
                                     "TRAINING RECONSTRUCTION")
    (log-msg "DBN TEST RMSE: ~{~,5F~^, ~}~%"
             (map 'list
                  #'get-error
                  (dbn-mean-field-errors* (make-test-sampler) (dbn rbm) :rbm rbm)))
    (log-dbn-classification-accuracy rbm (make-test-sampler :omit-label-p t)
                                     "TEST"))
  
  (defmethod negative-phase :around (batch trainer (rbm mnist-rbm))
    (call-next-method)
  