anchor.diff:    (unless (boundp '*test-images*)
       (setq *test-images* (load-test)))
     (flet ((train-dbn ()
  -           (init-mnist-dbn *dbn/2* :stddev '(0.001 0.01))
  -           (train-mnist-dbn *dbn/2* :n-epochs 100 :n-gibbs '(1 5)
  -                            :learning-rate '(0.05 0.01)
  -                            :decay 0.001 :visible-sampling t)
  +           (load-weights (merge-pathnames "mnist-2.dbn" *mnist-dir*) *dbn/2*)
  +           (init-mnist-dbn *dbn/2* :stddev '(0.001 0.01) :start-level 1)
  +           ;;(init-mnist-dbn *dbn/2* :stddev '(0.001 0.01) :start-level 0)
  +           (train-mnist-dbn
  +            *dbn/2*
  +            :start-level 1
  +            :n-epochs 100
  +            :n-gibbs (list 1
  +                           (lambda (trainer)
  +                             (ceiling (1+ (n-inputs trainer))
  +                                      (* 20 (length *training-images*)))))
  +            :learning-rate
  +            (list (flt 0.05)
  +                  (lambda (trainer)
  +                    (/ (flt 0.05)
  +                       (ceiling (1+ (n-inputs trainer))
  +                                (* 20 (length *training-images*))))))
  +            :decay 0.001
  +            :visible-sampling t)
              (save-weights (merge-pathnames "mnist-2.dbn" *mnist-dir*)
                            *dbn/2*))
            (train-dbm ()
  
positive.code:                       measurer)))
  ;;;;;;;;;;
  
  (defmethod log-test-error ((trainer mnist-rbm-trainer) (rbm mnist-rbm))
    (log-msg "DBN TEST RMSE: ~{~,5F~^, ~} (~D)~%"
             (map 'list
                  #'get-error
  
negative.code:     chunks-and-lumps))
  
  (defun populate-map-cache (bpn dbm images)
    (let ((sampler (make-sampler images :max-n (length images)
                                 :sample-visible-p nil
                                 :omit-label-p t))
          (cache (clamping-cache bpn))
          (map-chunks-and-lumps (collect-map-chunks-and-lumps bpn dbm)))
      (let ((fn (make-instance 'periodic-fn :period 1000
  