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 TEST CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
                   (mapcar (lambda (e)
                             (* 100 (- 1 e)))
                           errors)
                   (n-inputs trainer))))))
  
  (defmethod positive-phase :around (batch trainer (dbm mnist-dbm))
  
negative.code:              (or (get-error ce-counter) #.(flt 0))
               n-inputs)
      (log-msg "CLASSIFICATION ACCURACY: ~,2F% (~D)~%"
               (->percent (or (get-error counter) #.(flt 0)))
               n-inputs)
      (reset-counter ce-counter)
      (reset-counter counter)))
  