[gsharp-cvs] CVS update: gsharp/Fonts/viewer.lisp

[Robert Strandh]

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