anchor.diff:       do (when (> score current)
   	  (setf current score
   		index i))
  -     finally (return (values index current))))
  +     finally (if (< current 0)
  +		 (error "Negative score!!! ~a ~a" index current)
  +		 (return (values index current)))))
  
positive.code: 
  (defparameter *allele-size* 8)
  (defparameter *coords-range* 3000)
  (defparameter *max-value* 100000)
  (defparameter *worker-count* 10)
  
  (defclass font-app (base-app)
    ((font-loader :accessor font-loader)
  
negative.code:     (setf *kernel* (make-kernel worker-count :name "bukvonesis-main")))
    (kill-tasks :default)
  
    (zpb-ttf:do-contours (contour (glyph app))
      (zpb-ttf:do-contour-segments (start ctrl end) contour
        (future (evolve-curve start ctrl end *message-queue*)))))
  
  (defun evolve-curve (start control end queue)
    (let ((population '())
  