anchor.diff:                                 :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))))
  +    (log-msg "TEST CLASSIFICATION ACCURACY: ~? (~D)~%"
  +             *percent-format* (->percent e) (n-inputs trainer))))
   
   (defmethod compute-derivatives :around (samples (trainer mnist-cg-bp-trainer)
                                                   bpn)
  
positive.code: 
  
  ;;;; Logging
  
  (defclass mnist-logging-trainer (logging-trainer) ())
  
  
negative.code:                         dbn
                          counters-and-measurers)
    (map 'list #'car counters-and-measurers))
  
  (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
    (let ((*print-level* nil))
  