anchor.diff:    (when class-weights
       (setf (class-weights (find-lump 'predictions bpn)) class-weights))
     (setf (max-n-stripes bpn) 100)
  -  (let ((n (length training))
  -        (name-groups '(((:cloud (c0 f1))
  +  (let ((name-groups '(((:cloud (c0 f1))
                           (:cloud (inputs f1)))
                          ((:cloud (c1 f2))
                           (:cloud (f1 f2)))
  
positive.code: (defun train-mnist-dbm (dbm training test &key (n-epochs 500))
    (log-msg "Starting to train DBM.~%")
    (let ((n (length training)))
      (train (make-sampler training :max-n (* n-epochs n) :sample-visible-p t)
             (make-instance 'mnist-dbm-trainer
                            :training training
                            :test test
  
negative.code:       (unless (zerop n-epochs)
          (mgl-example-util:log-msg "Starting to train the whole BPN~%")
          (train
           (make-sampler training :n-epochs n-epochs :omit-label-p t)
           (make-instance 'mnist-bpn-gd-trainer
                          :training training
                          :test test
  