anchor.diff:                                           :weight-decay
                                            (if (bias-cloud-p cloud)
                                                (flt 0)
  -                                             (flt 0.0002))
  +                                             (flt 0.000))
                                            :batch-size 100)))
            dbm))
   
   (defun make-mnist-dbn/2 (dbm)
  -  (mgl-bm:dbm->dbn dbm :dbn-class 'mnist-dbn :rbm-class 'mnist-rbm
  +  (mgl-bm:dbm->dbn dbm :dbn-class 'mnist-dbn :rbm-class 'mnist-rbm/2
                      :dbn-initargs '(:max-n-stripes 100)))
   
   (defun unroll-mnist-dbm (dbm)
  
positive.code:              (or (get-error counter) #.(flt 0))
               n-inputs)
      (reset-counter counter)))
  
  (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
    (log-msg "DBN TEST RMSE: ~{~,5F~^, ~} (~D)~%"
  
negative.code: (defstruct image
    (label nil :type (integer 0 10))
    (array nil :type flt-vector))
  
  (defmethod label ((image image))
    (image-label image))
  
  
  