anchor.diff:          (t
            (setq *dbn/1* (make-mnist-dbn/1))
            (init-mnist-dbn *dbn/1*)
  -         (train-mnist-dbn *dbn/1*)
  +         (train-mnist-dbn *dbn/1* :n-epochs 50 :learning-rate 0.1
  +                          :decay 0.0002 :visible-sampling nil)
            (save-weights (merge-pathnames "mnist-1.dbn" *mnist-dir*) *dbn/1*)))
     (setq *bpn/1* (unroll-mnist-dbn/1 *dbn/1*))
     (train-mnist-bpn *bpn/1*)
  
positive.code: 
  
  ;;;; Code for the DBN to DBM to BPN approach (paper [2])
  
  (defclass mnist-dbm (dbm)
    ((layers :initform (list
  
negative.code: (defstruct image
    (label nil :type (integer 0 10))
    (array nil :type flt-vector))
  
  (defmethod label ((image image))
    (image-label image))
  
  
  