Update of /project/gsharp/cvsroot/gsharp/Fonts In directory common-lisp.net:/tmp/cvs-serv14746
Modified Files: viewer.lisp Log Message: make the viewer slightly more CL-compliant
Date: Mon Nov 14 20:59:46 2005 Author: rstrandh
Index: gsharp/Fonts/viewer.lisp diff -u gsharp/Fonts/viewer.lisp:1.1 gsharp/Fonts/viewer.lisp:1.2 --- gsharp/Fonts/viewer.lisp:1.1 Thu Mar 25 07:50:26 2004 +++ gsharp/Fonts/viewer.lisp Mon Nov 14 20:59:46 2005 @@ -39,7 +39,7 @@ :initial-element 16 :element-type '(unsigned-byte 8)))) (unless (aref vector index) (loop for r from 0 below height - for y from (gf-char-max-n char) by -1 do + for y downfrom (gf-char-max-n char) by 1 do (loop for c from 0 below width for x from (gf-char-min-m char) do (decf (aref glyph