anchor.diff:           (log-msg "DBN TEST RMSE: ~{~,5F~^, ~}~%"
                     (map 'list
                          #'get-error
  -                       (dbn-mean-field-errors
  +                       (dbn-mean-field-errors*
                           (make-sampler *test-images*
                                         :max-n (length *test-images*))
                           *dbn/1*))))
  
positive.code:     (when counters-and-measurers
        (let ((errors (map 'list
                           #'get-error
                           (dbn-mean-field-errors (make-sampler *test-images*
                                                                :max-n #+nil
                                                                1000
                                                                (length
                                                                 *test-images*)
                                                                :omit-label-p t)
                                                  (dbn rbm) :rbm rbm
                                                  :counters-and-measurers
                                                  counters-and-measurers))))
          (log-msg "DBN TEST CLASSIFICATION ACCURACY: ~{~,2F%~^, ~} (~D)~%"
                   (mapcar (lambda (e)
                             (* 100 (- 1 e)))
  
negative.code:            (setq *dbn/2* (make-mnist-dbn/2 *dbm/2*))
             (train-dbn)
             (train-dbm)))
      (setq *bpn/2* (unroll-mnist-dbm *dbm/2* :use-label-weights t))
      (log-msg "Populating MAP cache~%")
      (populate-map-cache *bpn/2* *dbm/2* (concatenate 'vector *training-images*
                                                       *test-images*))
  