anchor.diff:             (map 'list
                   #'get-error
                   (dbn-mean-field-errors (make-sampler *test-images*
  -                                                     :max-n 1000
  -                                                     #+nil
  +                                                     :max-n #+nil
  +                                                     1000
                                                        (length *test-images*))
                                          (dbn rbm) :rbm rbm))
              (n-inputs trainer))
  
positive.code:       (let ((errors (map 'list
                           #'get-error
                           (dbn-mean-field-errors (make-sampler *test-images*
                                                                :max-n 1000
                                                                #+nil
                                                                (length
                                                                 *test-images*)
                                                                :omit-label-p t)
  
negative.code:                                                :counters-and-measurers
                                                 counters-and-measurers))))
          (log-msg "DBM TEST CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
                   (mapcar (lambda (e)
                             (* 100 (- 1 e)))
                           errors)
  