anchor.diff:  
   (defun crossover (parent1 parent2)
     "Parents are integers."
  +  ;;TODO crossover at coordinates only
     (let* ((min-length (if (> (integer-length parent1) (integer-length parent2))
   			 (integer-length parent2)
   			 (integer-length parent1)))
  
positive.code: 
  (defvar *allele-size* 10)
  (defvar *coords-range* 1000)
  
  (defclass font-app (base-app)
    ((font-loader :accessor font-loader)
  
negative.code:     (car chromosome-place)))
  
  ;;;; helpers
  (defun make-chromosome (chromosome-length &optional (range *coords-range*) (straight-prob 1.0))
    "Chromosome length is the number of contours for a character. Each contour consists of three pairs of control point coordinates. Every contour is a straight line with probability straight-prob. A straight line is denoted by a zero second control point."
    ;;todo no magick numbers
    (let ((chromosome 0))
  