anchor.diff:              (height 100.0)
               (h-margin 20.0)
               (v-margin 20.0))
  -    (declare (float width height h-margin v-margin))
  +    (declare (real width height h-margin v-margin))
       (let* ((c-width (- width (* h-margin 2)))
              (v-delta (/ (- height (* v-margin 2))
                                 (1- (length (layers net))))))
  
positive.code:               (logger-function nil)
                (randomize-weights nil)
                (annealing nil)
                (rerandomize-weights nil))
      (declare (float target-mse)
               (integer max-iterations report-frequency)
               (function report-function status-function))
      (loop
         initially
           (when status-function
             (funcall status-function
                      :net net :status "learning" :elapsed 0 :iteration 0
                      :mse 1.0))
           (when randomize-weights
  
negative.code:                  (or (not last-report-time)
                       (>= (- (get-internal-real-time) last-report-time) rf)))
         do (funcall report-function
                     :file log-file
                     :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
                     (funcall report-function
                              :file log-file
                              :elapsed elapsed :iteration i :mse mse))
                   (when status-function
                     (funcall status-function
                              :file log-file
                              :net net
                              :status status
                              :elapsed elapsed
  