anchor.diff:             (map 'list
                   #'get-error
                   (bm-mean-field-errors (make-sampler *test-images*
  -                                                    :max-n 1000
  -                                                    #+nil
  +                                                    :max-n #+nil
  +                                                    1000
                                                       (length *test-images*))
  -                                      dbm))
  -           (n-inputs trainer))
  -  (log-msg "DBM TEST RMSE SAMPLING: ~{~,5F~^, ~} (~D)~%"
  -           (map 'list
  -                #'get-error
  -                (bm-mean-field-errors (make-sampler *test-images*
  -                                                    :max-n 1000
  -                                                    #+nil
  -                                                    (length *test-images*)
  -                                                    :sample-visible-p t)
                                         dbm))
              (n-inputs trainer))
     (let ((counters-and-measurers
  
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:       (let ((errors (map 'list
                           #'get-error
                           (bm-mean-field-errors (make-sampler *test-images*
                                                               :max-n #+nil
                                                               1000
                                                               (length
                                                                *test-images*)
                                                               :omit-label-p t)
  