anchor.diff:               :status "learning"
                :elapsed 0
                :iteration 0
  -             :mse 1.0))
  +             :mse (min-mse net)))
     (when randomize-weights
       (if (listp randomize-weights)
           (apply #'randomize-weights (cons net randomize-weights))
  
positive.code:                  :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)
     (max-mse :accessor max-mse :type real :initform -1000000.0)
     (mse-list :accessor mse-list :type list :initform nil)
     (id :reader id :initarg :id :type string :initform (unique-name))
     (log-file :accessor log-file :type string :initform nil)
  
negative.code:                                    (string-downcase (id net))))
  
          (training-segments net) (make-training-segments tset max-segment-size)
          (max-mse net) -1000.0
          (min-mse net) 1000.0
          (last-anneal-iteration net) 0
          (anneal net) nil
          (randomize net) nil
  