anchor.diff:         do (incf (input (target cx)) (* (weight cx) (output neuron))))
       neuron)
     (:method ((layer t-layer))
  +    (when (not (eql (layer-type layer) :output))
  +      (loop for neuron across (neuron-array (next-layer layer))
  +         do (setf (input neuron) 0.0)))
       (loop for neuron across (neuron-array layer) do (fire neuron))
       layer)
     (:method ((net t-net))
  
positive.code:                                        :annealing annealing)
              :training-results training-results
              :training-time (elapsed-time mark)
              :trained-ann-accuracy (evaluate-training 
                                     ann (read-data ann test-file))))))
  
  (defparameter *model-results* nil)
  
negative.code:           appending (list key value))
       into job-queue
       finally
         (return (thread-pool-start
                  :try-models
                  (min thread-count (length ids))
                  :job-queue
  