anchor.diff:                                                 :batch-size 100)))
                           :sparser
                           (lambda (cloud chunk)
  -                          (when (and nil
  -                                     (member (name chunk) '(f1 f2))
  +                          (when (and (member (name chunk) '(f1 f2))
                                        (not (equal 'label (name (chunk1 cloud))))
                                        (not (equal 'label (name (chunk2 cloud)))))
                               (make-instance
  
positive.code:       (log-msg "  Trainer: ~A~%"  (class-name (class-of trainer))))
      (describe-trainer trainer)))
  
  (defmethod describe-sparsity-gradient-source
      ((sparsity mgl-bm::sparsity-gradient-source))
    (log-msg "Sparsity:~%")
  
negative.code:     (values (get-error counter)
              (get-error ce-counter))))
  
  (defun make-bpn (defs chunk-name)
    (let ((bpn (eval (print
                      `(build-bpn (:class 'mnist-bpn :max-n-stripes 1000)
                         ,@defs
  