anchor.diff:                          (activation-lump :weights prediction-weights
                                            :x (lump
                                                ',(chunk-lump-name chunk-name
  -                                                                nil))))
  +                                                                nil))
  +                                         :transpose-weights-p t))
                          (prediction-activations
                           (->+ :args (list prediction-activations0
                                            prediction-biases)))
  
positive.code:                          :x prediction-activations
                           :target expectations))
                         (my-error (error-node :x predictions)))))))
      (initialize-bpn-from-bm bpn bm inits)
      (init-weights 'prediction-weights bpn 0.1)
      (init-weights 'prediction-biases bpn 0.1)
      bpn))
  
  
negative.code:   (multiple-value-bind (defs inits) (unroll-dbn dbn :bottom-up-only t)
      (print inits)
      (terpri)
      (let ((bpn (make-bpn dbn defs 'f3)))
        (initialize-bpn-from-bm bpn dbn inits)
        (init-weights 'prediction-weights bpn 0.1)
        (init-weights 'prediction-biases bpn 0.1)
        bpn)))
  
  (defvar *dbn/1*)
  (defvar *bpn/1*)
  