anchor.diff:  	(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)))
  
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: 		   (T
  		    (random range)))))
  
  (defun coords-distance (candidate start ctrl end)
    (let ((score 0))
      (unless ctrl
  