anchor.diff:           for x = (* (if (zerop (random 2)) 1 0) (random 1.0))
            for y = (* (if (zerop (random 2)) 1 0) (random 1.0))
            for c = (sqrt (+ (* x x) (* y y)))
  -         appending (list (list x y) (list (if (> c diameter) 0 1))))))
  +         collect (list (list x y) (list (if (> c diameter) 0 1))))))
        
  
positive.code:                 (shock net))
            do (shock-weights net target-mse mse rerandomize-weights
                              randomize-weights logger-function annealing i)
            when (and report-function
                      (or (not last-report-time)
                          (>= (- (get-internal-real-time) last-report-time) rf)))
            do (funcall report-function
                        :net net
                        :elapsed (elapsed start-time)
                        :iteration i
                        :mse mse)
              (setf last-report-time (get-internal-real-time))
            finally (let ((elapsed (elapsed start-time))
                          (status (if (> mse target-mse) "maxi" "target")))
                      (when report-function
  
negative.code:                                          status-function
                                           randomize-weights)
            with start-time = (get-universal-time)
            with time-span-between-reports =
              (truncate (* (/ report-frequency 1000.0)
                           internal-time-units-per-second))
            for i from 1 to max-iterations
            for mse = 1.0 then (present-vectors 
                                net t-set
                                i
                                start-time
                                report-function
                                time-span-between-reports)
            while (and (> mse target-mse) (not (stop-training net)))
            when (or
                  (and (> i 1)
  