anchor.diff:  		   (T
   		    (random range)))))
   
  -;; (defun coords->curve (coords)
  -;;   "Coords is a list consiting of 3 control points, represented by x,y pairs. Returns an array of coordinates. Each coordinate is an array of x,y,z coordinates. Z is always zero."
  -;;   (make-array '(3 3) :initial-contents
  -;; 	      (loop for i below (- (length coords) 1) by 2
  -;; 		 collect (list (elt coords i) (elt coords (+ 1 i)) 0))))
  -
   (defun coords-distance (candidate start ctrl end)
     (let ((score 0))
       (unless ctrl
  
positive.code: (defun get-max-coords-value (start end)
    (float (max (zpb-ttf:x start) (zpb-ttf:y start)
  	      (zpb-ttf:x end) (zpb-ttf:y end))))
  
negative.code: 	(zpb-ttf:find-glyph (bukva app) (font-loader app))))
  
  (defun (setf result) (result app)
    (format t "~a" result)
    (setf (slot-value app 'result) result)
    (when (functionp (on-finish app))
      (funcall (on-finish app) (result app)))
  