anchor.diff:      err))
   
   (defun tset-list-to-tset-vectors (tset)
  -  "Converts something like 
  +  "Converts something like
        '((0 0) (1) (0 1) (0) (1 0) (0) (1 1) (1))
      into something like(output neuron
        #((#(0 0) #(1)) (#(0 1) #(0)) (#(1 0) #(0)) (#(1 1) #(1)))"
  
positive.code:        do (incf (input (target cx)) (* (weight cx) (output neuron))))
      neuron)
    (:method ((layer t-layer))
      (loop for neuron across (neuron-array layer) do (fire neuron))
      layer)
    (:method ((net t-net))
  
negative.code: (defun stop-try-models ()
    (thread-pool-stop :try-models)
    (setf *model-results-mutex* nil))
  