[closure-cvs] CVS closure/src/imagelib

[emarsden]

Update of /project/closure/cvsroot/closure/src/imagelib
In directory clnet:/tmp/cvs-serv26443

Modified Files:
	basic.lisp 
Log Message:
Trivial bugfix.


--- /project/closure/cvsroot/closure/src/imagelib/basic.lisp	2007/01/07 19:33:02	1.5
+++ /project/closure/cvsroot/closure/src/imagelib/basic.lisp	2007/01/07 20:23:59	1.6
@@ -304,7 +304,7 @@
     (make-aimage/low :width (array-dimension arr 1)
                      :height (array-dimension arr 0)
                      :data arr
-                     :alpha-p nil)))
+                     :alphap nil)))
 
 
 (defun any->aimage-by-filter (filter-name input)