anchor.diff:                           ((-1) (setf (aref nodes (+ start 0)) (flt 1)))
                            ((1) (setf (aref nodes (+ start 1)) (flt 1))))))))))))
   
  -(defclass mr-rbm-trainer (mr-base-trainer rbm-cd-trainer) ())
  -
  +(defclass mr-rbm-trainer (mr-base-trainer bm-pcd-trainer) ())
  +
  +#+nil
   (defmethod initialize-trainer ((trainer mr-rbm-trainer) rbm)
     (call-next-method)
     (when (typep trainer 'bm-pcd-trainer)
  -    (setf (max-n-stripes (persistent-chains trainer))
  -          100
  -          #+nil
  -          (batch-size (elt (trainers trainer) 0)))
       (describe (persistent-chains trainer))
       (let ((inputs (find 'inputs (visible-chunks rbm) :key #'name)))
         (when inputs
  
positive.code:                               (t
                                 (values 0.002 0.01)))
                        #+nil
                        (when (find 'input-label (name cloud))
                          (setq learning-rate (* 0.1 (flt learning-rate))))
                        (make-instance 'mr-rbm-segment-trainer
                                       :learning-rate (flt learning-rate)
                                       :momentum (flt 0.9)
                                       :weight-decay (flt decay)
                                       :batch-size 10))))
  
negative.code:                      (setf (aref scale stripe) (flt (story-size story))))
                     (with-stripes ((stripe chunk start end))
                       (clamp-story story nodes start end)))))))
    (let ((chunk (find 'label (visible-chunks rbm) :key #'name)))
      (when chunk
        (let ((nodes (storage (nodes chunk))))
          (loop for sample in samples
  