anchor.diff:           (unless quick-run-p
              (save-weights *mnist-1-dropout-bpn-filename* *bpn/1*)))
           (t
  -         (train-mnist-bpn *bpn/1*
  +         (train-mnist-bpn *bpn/1* (training-images) (test-images)
                             :n-softmax-epochs (if quick-run-p 1 5)
                             :n-epochs (if quick-run-p 1 37))
            (unless quick-run-p
  
positive.code: (defmethod lag ((trainer mnist-rbm-trainer))
    (min (flt 0.99)
         (let ((n (/ (n-inputs trainer)
                     (length *training-images*))))
           (- 1 (expt 0.5 n)))))
  
  (defun init-mnist-dbn (dbn &key stddev (start-level 0))
  
negative.code:         (funcall x trainer))))
  
  (defmethod momentum ((trainer mnist-rbm-segment-trainer))
    (if (< (n-inputs trainer) (* 5 (n-inputs-in-epoch trainer)))
        #.(flt 0.5)
        #.(flt 0.9)))
  
  