[closure-cvs] CVS update: closure/src/imagelib/png.lisp
Eric Marsden
emarsden at common-lisp.net
Sun Jul 10 10:36:04 UTC 2005
Update of /project/closure/cvsroot/closure/src/imagelib
In directory common-lisp.net:/tmp/cvs-serv26893
Modified Files:
png.lisp
Log Message:
Move constant definition before its use.
Date: Sun Jul 10 12:36:04 2005
Author: emarsden
Index: closure/src/imagelib/png.lisp
diff -u closure/src/imagelib/png.lisp:1.4 closure/src/imagelib/png.lisp:1.5
--- closure/src/imagelib/png.lisp:1.4 Sun Mar 13 19:02:01 2005
+++ closure/src/imagelib/png.lisp Sun Jul 10 12:36:03 2005
@@ -52,6 +52,9 @@
(defvar *png-magic* '#(137 80 78 71 13 10 26 10)
"The first eight bytes of a png file.")
+;; largest prime smaller than 65536
+(defconstant *adler-base* 65521)
+
(defstruct png-image
ihdr
idat
@@ -675,9 +678,6 @@
;;
(funcall cont buf 0 blen))) )
(setf (zlib-stream-bptr zlib-stream) 0)))
-
-;; largest prime smaller than 65536
-(defconstant *adler-base* 65521)
(defun update-adler32-one (adler byte)
(let ((s1 (ldb (byte 16 0) adler))
More information about the Closure-cvs
mailing list