anchor.diff:      (write-log-entry stream message)))
   
   (defun initialize-training (net
  +                            tset
  +                            max-segment-size
                               log-file
                               status-function
                               randomize-weights)
  
positive.code:                           :if-exists :append
                            :if-does-not-exist :create)
      (write-log-entry stream
                       (format nil "~as ~ai ~5$e ~4$min ~4$max"
                               elapsed iteration
                               mse (min-mse net) (max-mse net)))))
  
  (defun default-status-function (&key net status elapsed iteration mse)
    (when (> mse (max-mse net)) (setf (max-mse net) mse))
  
negative.code:                       logger-function
                        annealing
                        i)
    (funcall logger-function "shock")
    (when (or (and (> mse (* target-mse 10))
                   rerandomize-weights)
              (shock net))
  