anchor.diff:                            :counters-and-measurers
                             counters-and-measurers))))
           (log-msg "DBN TRAINING RECONSTRUCTION CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
  -                 (mapcar (lambda (e)
  -                           (* 100 (- 1 e)))
  -                         errors)
  +                 (mapcar #'->percent errors)
                    (n-inputs trainer)))))
     (log-msg "DBN TEST RMSE: ~{~,5F~^, ~} (~D)~%"
              (map 'list
  
positive.code:                           :counters-and-measurers
                            counters-and-measurers))))
          (log-msg "DBM TRAINING CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
                   (mapcar (lambda (e)
                             (* 100 (- 1 e)))
                           errors)
                   (n-inputs trainer)))))
    (log-msg "DBM TEST RMSE: ~{~,5F~^, ~} (~D)~%"
             (map 'list
  
negative.code:     (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)
  