anchor.diff:                   when line do
                      (write-line line out)
                      (incf line-count)
  -                 while (and line (<= line-count segment-line-count))))))))
  -            
  +                 while (and line (<= line-count segment-line-count))))))
  +    segment-file-names))
  
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)
     (transfer-tag :accessor transfer-tag :initarg :transfer-tag :initform :logistic)
     (layers :accessor layers)
     (next-id :accessor next-id :initform 0)
     (min-mse :accessor min-mse :type real :initform 1000000.0)
  
negative.code:      (lambda ()
         (loop
            initially (initialize-training net
                                           t-set
                                           max-segment-size
                                           log-file
                                           status-function
                                           randomize-weights)
  