anchor.diff:  
   (in-package #:net.tuxee.paths-ttf)
   
  -(defun paths-from-glyph (glyph &key (offset (make-point 0 0)) (scale-x 1.0) (scale-y 1.0))
  +(defun paths-from-glyph (glyph &key (offset (make-point 0 0)) (scale-x 1.0) (scale-y 1.0) (auto-orient nil))
     (flet ((point (p) (p+ (make-point (* (x p) scale-x)
                                       (* (y p) scale-y))
                           offset)))
  
positive.code:           (when (minusp (* scale-x scale-y))
              (path-reverse path))
            (push path result)))
        (nreverse result))))
  
  (defun paths-from-string (font-loader text &key (offset (make-point 0 0)) (scale-x 1.0) (scale-y 1.0) (kerning t))
    (let (result)
      (loop
         for previous-char = nil then char
  
negative.code:                                                    0)))
                                           0))))
         (let ((glyph-paths (paths-from-glyph glyph
                                              :offset offset :auto-orient auto-orient
                                              :scale-x scale-x :scale-y scale-y)))
           (push glyph-paths result)))
      (apply #'nconc (nreverse result))))
  
  