anchor.diff:                                                   (dbn rbm) :rbm rbm
                                                    :counters-and-measurers
                                                    counters-and-measurers))))
  -        (log-msg "DBN TEST CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
  +        (log-msg "DBN TEST CLASSIFICATION ACCURACY: ~? (~D)~%"
  +                 *list-of-percents-format*
                    (mapcar #'->percent errors)
                    (n-inputs trainer))))))
   
  
positive.code:                                :omit-label-p t) bpn)
      (log-msg "TEST CROSS ENTROPY ERROR: ~,5F (~D)~%"
               ce (n-inputs trainer))
      (log-msg "TEST CLASSIFICATION ACCURACY: ~,2F% (~D)~%"
               (->percent e) (n-inputs trainer))))
  
  (defmethod compute-derivatives :around (samples (trainer mnist-cg-bp-trainer)
                                                  bpn)
  
negative.code:                           dbm
                            :counters-and-measurers
                            counters-and-measurers))))
          (log-msg "DBM TRAINING CLASSIFICATION ACCURACY: ~? (~D)~%"
                   *list-of-percents-format*
                   (mapcar #'->percent errors)
                   (n-inputs trainer)))))
    (log-msg "DBM TEST RMSE: ~{~,5F~^, ~} (~D)~%"
  