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:                             :n-softmax-epochs (if quick-run-p 1 5)
                              :n-epochs (if quick-run-p 1 37))
             (unless quick-run-p
               (save-weights bpn-filename bpn))))))
  
  
  
negative.code: 
  ;;;; Sampling, clamping, utilities
  
  (defun make-sampler (images &key (n-epochs 1)
                       (max-n (* n-epochs (length images)))
                       omit-label-p sample-visible-p)
    (make-instance 'counting-function-sampler
                   :max-n-samples max-n
                   :sampler (let ((g (make-random-generator images)))
  