anchor.diff:            ;; Load the network
             (setq b-v-pool (init-nn-pool black-v-network black-threads?))
             ;; Otherwise were provided a network so use it
  -          (setq b-v-pool (new-pool black-v-network black-threads?))))
  +          (setq b-v-pool (init-pool black-v-network black-threads?))))
   
         (when white-v-network
           ;; When provided a string
  
positive.code:               (make-pairs (svref fronts i))))
  
        ;; Add all the pairs into one list
        (dotimes (i num-fronts)
          (dolist (pair (svref fronts i))
            (push pair pairs)))
  
        ;; Evaluate each network's fitness
        ;; Do the fronts one at a time to make better use of memory
        ;(dotimes (i num-fronts)
        ;; Reset the barrier
        (setq barrier (mp:make-barrier (+ 1 (length pairs))))
        (format t "Pairs: ~A ~%" pairs)
        (dolist (pair pairs);(svref fronts i))
          (when (and (first pair)
                     (second pair))
            (format t "Face Off: ~A ~%" pair)
            (if threads? 
              (mp:process-run-function (write-to-string pair) 
                                       #'face-off
                                       pair
                                       gen
                                       barrier
                                       file-lock)
              (face-off pair gen barrier file-lock)
              )
            )
          ;    )
          (format t "Waiting for threads to finish~%")
          ;; Wait for all the trials to finish
          )
  
        (mp:barrier-wait barrier)
  
        (format t "Creating next generation~%")
        ;; Get the next generation
        (setq generation (get-next-gen generation))
        ;; Reset pairs
        (setq pairs (list))
        (setq file-lock nil) 
        )
      (format t "Done!~%")
      ))
  
  
  (defmacro init-lock (gen)
  
negative.code:         (generation (list))
          (pairs (list)) ; A list of pairs containing every combination of networks in the generation
          (gen-id 0)
          (round-pairs nil)
          (barrier nil)
          (front-count 0))
  
      (dolist (net lon)
              (push (new-competetor net gen-id)
                    generation)
              (incf gen-id))
  
      (format t "Initial Population ~A~%" generation)
  
  