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:                                      :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
  
negative.code:      for max-iterations in max-iterations-s
       for randomize-weights in randomize-weights-s
       for annealing in annealings
       for taf = (join-paths path (format nil "~a-~a.~a" tafno id extension))
       collect
         (lambda ()
           (let ((result (train-n-test :training-file training-file
  