anchor.diff:                          dbn
                           counters-and-measurers)
     (map 'list #'car counters-and-measurers))
  -
  -(defun ->percent (x)
  -  (* 100 (- 1 x)))
   
   (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
     (let ((*print-level* nil))
  
positive.code:                                                  (dbn rbm) :rbm rbm
                                                   :counters-and-measurers
                                                   counters-and-measurers))))
          (log-msg "DBN TEST CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
                   (mapcar #'->percent errors)
                   (n-inputs trainer))))))
  
  
negative.code: 
  
  ;;;; Logging
  
  (defun ->percent (x)
    (* 100 (- 1 x)))
  
  (defparameter *percent-format* "~,2F%")
  (defparameter *list-of-percents-format*
    (format nil "~~{~A~~^, ~~}" *percent-format*))
  
  (defclass mnist-logging-trainer (logging-trainer) ())
  
  