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)