anchor.diff:                                                     0)))
                                            0))))
          (let ((glyph-paths (paths-from-glyph glyph
  -                                            :offset offset :scale-x scale-x :scale-y scale-y)))
  +                                            :offset offset :auto-orient auto-orient
  +                                            :scale-x scale-x :scale-y scale-y)))
            (push glyph-paths result)))
       (apply #'nconc (nreverse result))))
   
  
positive.code: 
  (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))
    (flet ((point (p) (p+ (make-point (* (x p) scale-x)
                                      (* (y p) scale-y))
                          offset)))
  
negative.code:           (when (minusp (* scale-x scale-y))
              (path-reverse path))
            (push path result)))
        (setq result (nreverse result))
        (when auto-orient
          (path-orient (car result) auto-orient (cdr result)))
        result)))
  
  (defun paths-from-string (font-loader text &key (offset (make-point 0 0)) (scale-x 1.0) (scale-y 1.0) (kerning t) (auto-orient nil))
    (let (result)
      (loop
         for previous-char = nil then char
  