anchor.diff:  (defvar *dbn/1*)
   (defvar *bpn/1*)
   
  +(defparameter *mnist-1-dbn-filename*
  +  (merge-pathnames "mnist-1.dbn" *mnist-dir*))
  +
  +(defparameter *mnist-1-bpn-filename*
  +  (merge-pathnames "mnist-1.bpn" *mnist-dir*))
  +
   (defun train-mnist/1 (&key load-dbn-p)
     (unless (boundp '*training-images*)
       (setq *training-images* (load-training)))
  
positive.code:     (setq *test-images* (load-test)))
    (cond (load-dbn-p
           (setq *dbn/1* (make-mnist-dbn/1))
           (load-weights (merge-pathnames "mnist-1.dbn" *mnist-dir*) *dbn/1*)
           (log-msg "Loaded DBN~%")
           (log-msg "DBN TEST RMSE: ~{~,5F~^, ~}~%"
                    (map 'list
  
negative.code: (defvar *dbn/2*)
  (defvar *dbm/2*)
  (defvar *bpn/2*)
  
  (defparameter *mnist-2-dbn-filename*
    (merge-pathnames "mnist-2.dbn" *mnist-dir*))
  
  (defparameter *mnist-2-dbm-filename*
    (merge-pathnames "mnist-2.dbm" *mnist-dir*))
  
  (defparameter *mnist-2-bpn-filename*
    (merge-pathnames "mnist-2.bpn" *mnist-dir*))
  
  
  (defclass mnist-rbm/2 (mnist-rbm) ())
  (defclass mnist-bpn/2 (mnist-bpn bpn-clamping-cache) ())
  