[closure-cvs] CVS update: closure/src/imagelib/png.lisp - closure-cvs@common-lisp.net - mailman3.common-lisp.net

10 Jul 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))

    