anchor.diff:      :type (or flt flt-vector)
       :initarg :scale :accessor scale
       :documentation "The sum of nodes after normalization. Can be
  -changed during training, for instance when clamping. If it is a vector
  -then its length must be MAX-N-STRIPES which automatically
  -maintained.")))
  +    changed during training, for instance when clamping. If it is a
  +    vector then its length must be MAX-N-STRIPES which automatically
  +    maintained.")))
   
   (defmethod default-size ((lump ->normalized))
     (size (x lump)))
  
positive.code: 
  (defmethod cost (bpn)
    "Return the sum of costs for all active stripes. The cost of a
  stripe is the sum of the error nodes. The second value is the number
  of stripes."
    (let ((sum (flt 0)))
      (loop for lump across (lumps bpn) do
        (when (typep lump '->error)
  
negative.code:    #+nil
     (noisyp :initform nil :initarg :noisyp :accessor noisyp))
    (:documentation "max(0,x) activation function. If NOISYP then add
    normal(0,sigmoid(x)) noise to x."))
  
  (defmethod default-size ((lump ->rectified))
    (size (x lump)))
  