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