From 8f9e9f1dde0a262d11c0980ed772f0f4b9ed6f85 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Jolliton?= Date: Sat, 25 Sep 2010 14:24:19 +0200 Subject: [PATCH] cosmetic: setf->setq --- paths-ttf.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/paths-ttf.lisp b/paths-ttf.lisp index c5a95e3..48e134a 100644 --- a/paths-ttf.lisp +++ b/paths-ttf.lisp @@ -41,7 +41,7 @@ (if b (path-extend path (make-bezier-curve (list pb)) pc) (path-extend path (make-straight-line) pc)) - (setf last-point pc))) + (setq last-point pc))) (when (minusp (* scale-x scale-y)) (path-reverse path)) (push path result))) @@ -85,9 +85,9 @@ (scale-x scale) (scale-y scale)) (when inverted - (setf scale-y (- scale-y))) + (setq scale-y (- scale-y))) (let ((bb (string-bounding-box text font-loader :kerning kerning))) - (setf position (p- position + (setq position (p- position (p* (make-point (ecase halign (:none -- 2.11.4.GIT