Author: hhubner Date: Thu Feb 14 03:10:49 2008 New Revision: 2490 Modified: branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp Log: Fix bug that was not a bug Modified: branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp ============================================================================== --- branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp (original) +++ branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp Thu Feb 14 03:10:49 2008 @@ -27,8 +27,8 @@ (let ((color (parse-color background-color :image mask-image)) (white (parse-color "ffffff" :image mask-image))) (do-pixels (mask-image) - (when t (eql (ldb (byte 24 0) (raw-pixel)) white) - (setf (raw-pixel) color)))) + (when (eql (ldb (byte 24 0) (raw-pixel)) white) + (setf (raw-pixel) color)))) (copy-image mask-image button-image 0 0 0 0