anchor.diff:  
   (defun try-models (&key
                        (path (home-based "common-lisp/dc-ann"))
  -                     (training-file
  -                      (home-based "circle-training-data.csv"))
  -                     (test-file
  -                      (home-based "circle-training-data.csv"))
  -                     (trained-ann-file
  -                      (home-based "circle-ann-frozen.dat"))
  +                     (training-file "circle-training-data.csv")
  +                     (test-file "circle-training-data.csv")
  +                     (trained-ann-file "circle-ann-frozen.dat")
                        ids
                        topologies
                        learning-rates
  
positive.code:              (push result *model-results*))
             nil))
       into job-queue
       finally (return (thread-pool-start "try-models"
                                          thread-count
                                          job-queue
                                          (lambda (f) (funcall f))
                                          (lambda () (format t "All done!~%"))))))
  
negative.code:                                      :topology topology
                                       :learning-rate learning-rate
                                       :momentum momentum
                                       ;; :transfer-function transfer-function
                                       ;; :transfer-derivative transfer-derivative
                                       :trained-ann-file taf
                                       :target-mse target-mse
                                       :max-iterations max-iterations
  