anchor.diff:      (if (listp randomize-weights)
           (apply #'randomize-weights (cons net randomize-weights))
           (randomize-weights net))
  -    (setf (mse-list net) nil)))
  +    (setf (mse-list net) nil))
  +  (setf (training-segments net)
  +        (make-training-segments training-file)))
   
   (defun shock-weights (net
                         target-mse
  
positive.code:   ((topology :reader topology :initarg :topology
               :initform (error ":topology required"))
     (output-labels :accessor output-labels :initarg :output-labels :initform nil)
     (learning-rate :accessor learning-rate :initarg :learning-rate :initform 0.3)
     (momentum :accessor momentum :initarg :momentum :initform 0.8)
     (wi :accessor wi :initform 0)
  
negative.code:                  when line do
                     (write-line line out)
                     (incf line-count)
                   while (and line (<= line-count segment-line-count))))))
      segment-file-names))
              
  