[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