anchor.diff:                            dbm
                             :counters-and-measurers
                             counters-and-measurers))))
  -        (log-msg "DBM TRAINING CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
  +        (log-msg "DBM TRAINING CLASSIFICATION ACCURACY: ~? (~D)~%"
  +                 *list-of-percents-format*
                    (mapcar #'->percent errors)
                    (n-inputs trainer)))))
     (log-msg "DBM TEST RMSE: ~{~,5F~^, ~} (~D)~%"
  
positive.code:                         dbn
                          counters-and-measurers)
    (map 'list #'car counters-and-measurers))
  
  (defun ->percent (x)
    (* 100 (- 1 x)))
  
  (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
    (let ((*print-level* nil))
  
negative.code:     (log-msg "CROSS ENTROPY ERROR: ~,5F (~D)~%"
               (or (get-error ce-counter) #.(flt 0))
               n-inputs)
      (log-msg "CLASSIFICATION ACCURACY: ~? (~D)~%"
               *percent-format*
               (->percent (or (get-error counter) #.(flt 0)))
               n-inputs)
      (reset-counter ce-counter)
  