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:                                 (* 20 (length *training-images*))))))
              :decay 0.001
              :visible-sampling t)
             (save-weights (merge-pathnames "mnist-2.dbn" *mnist-dir*)
                           *dbn/2*))
           (train-dbm ()
             (train-mnist-dbm *dbm/2*)
             (save-weights (merge-pathnames "mnist-2.dbm" *mnist-dir*)
                           *dbm/2*)))
      (cond (load-dbm-p
             (setq *dbm/2* (make-mnist-dbm))
             (load-weights (merge-pathnames "mnist-2.dbm" *mnist-dir*) *dbm/2*))
            (load-dbn-p
             (setq *dbm/2* (make-mnist-dbm))
             (setq *dbn/2* (make-mnist-dbn/2 *dbm/2*))
             (load-weights (merge-pathnames "mnist-2.dbn" *mnist-dir*) *dbn/2*)
             (log-msg "Loaded DBN~%")
             (train-dbm))
            (t
  
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) ())
  