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:                  :initform (error ":neuron-count required") :type integer)
     (transfer-tag :accessor transfer-tag :initarg :transfer-tag
                   :initform nil)
     (net :reader net :initarg :net :initform (error ":net required")
          :type t-net)) 
    (:documentation "Describes a neural network layer."))
  
  (defmethod initialize-instance :after ((layer t-layer) &key)
  
negative.code: (defgeneric train (t-net t-set &key)
    (:method ((net t-net)
              (t-set list)
              &key
                (target-mse 0.08)
                (max-iterations 10000)
                (report-frequency 1000)
  