anchor.diff:                                      :omit-label-p omit-label-p
                                       :sample-visible-p sample-visible-p)))))
   
  -
   (defun make-training-sampler (&key omit-label-p)
  -  (make-sampler (subseq *training-stories* 0 1000)
  -                :max-n 1000
  +  (make-sampler *training-stories*
  +                :max-n (length *training-stories*)
                   :omit-label-p omit-label-p))
   
   (defun make-test-sampler (&key omit-label-p)
  
positive.code:   ()
    (:default-initargs
     :layers (list (list (make-instance 'constant-chunk :name 'c0)
                         (make-instance 'softmax-label-chunk* :name 'input-label
                                        :size 2 :group-size 2)
                         (make-instance 'sigmoid-chunk;constrained-poisson-chunk
                                        :name 'inputs
  
negative.code: 
  (defmethod set-input (samples (bpn mr-bpn))
    (let* ((inputs (find-lump (chunk-lump-name 'inputs nil) bpn :errorp t))
           (label (find-lump (chunk-lump-name 'label nil) bpn :errorp nil))
           (expectations (find-lump 'expectations bpn :errorp t))
           (inputs* (storage (nodes inputs)))
           (expectations* (storage (nodes expectations))))
  