anchor.diff:                          *dbn/1*))))
           (t
            (setq *dbn/1* (make-mnist-dbn/1))
  -         (init-mnist-dbn *dbn/1*)
  +         (init-mnist-dbn *dbn/1* :stddev 0.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*)))
  
positive.code: 
  (defclass softmax-label-chunk* (softmax-label-chunk) ())
  
  (defmethod maybe-make-misclassification-measurer ((chunk softmax-label-chunk*))
    (let ((measurer (call-next-method)))
      (when measurer
  
negative.code: 
  (defmethod positive-phase :around (batch trainer (dbm mnist-dbm))
    (call-next-method)
    (set-visible-mean dbm)
    (multiple-value-call #'add-error (counter trainer)
                         (reconstruction-error dbm)))
  
  