anchor.diff:               (or (get-error ce-counter) #.(flt 0))
                n-inputs)
       (log-msg "CLASSIFICATION ACCURACY: ~,2F% (~D)~%"
  -             (* 100 (- 1 (or (get-error counter) #.(flt 0))))
  +             (->percent (or (get-error counter) #.(flt 0)))
                n-inputs)
       (reset-counter ce-counter)
       (reset-counter counter)))
  
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:     (let ((counter (car counter-and-measurer)))
        (let ((n-inputs (n-inputs trainer)))
          (log-msg "TRAINING RECONSTRUCTION CLASSIFICATION ACCURACY: ~,2F (~D)~%"
                   (->percent (or (get-error counter) #.(flt 0)))
                   n-inputs)
          (reset-counter counter)))))
  
  