anchor.diff:                            counters-and-measurers))))
           (log-msg "DBM TRAINING RECONSTRUCTION CLASSIFICATION ACCURACY: ~? (~D)~%"
                    *list-of-percents-format*
  -                 (mapcar #'->percent errors)
  +                 (list (mapcar #'->percent errors))
                    (n-inputs trainer)))))
     (let ((counters-and-measurers
            (make-bm-reconstruction-misclassification-counters-and-measurers dbm)))
  
positive.code:         (log-msg "DBN ~A CLASSIFICATION ACCURACY: ~?~%"
                   name
                   *list-of-percents-format*
                   (mapcar #'->percent errors))))))
  
  (defmethod log-test-error ((trainer mnist-logging-trainer) learner)
    (let ((*print-level* nil))
  
negative.code:                           counters-and-measurers))))
          (log-msg "DBM TEST CLASSIFICATION ACCURACY: ~? (~D)~%"
                   *list-of-percents-format*
                   (list (mapcar #'->percent errors))
                   (n-inputs trainer))))))
  
  (defmethod positive-phase :around (batch trainer (dbm mnist-dbm))
  