Update of /project/closure/cvsroot/closure/src/imagelib In directory clnet:/tmp/cvs-serv21323 Modified Files: gif.lisp Log Message: revert accidental change --- /project/closure/cvsroot/closure/src/imagelib/gif.lisp 2007/01/07 19:33:02 1.3 +++ /project/closure/cvsroot/closure/src/imagelib/gif.lisp 2007/01/07 19:52:11 1.4 @@ -57,7 +57,7 @@ (skippy:color-rgb (skippy:color-table-entry gif-color-table color-index)))) (setf (aref aimage-data y x) -9D (dpb r (byte 8 0) + (dpb r (byte 8 0) (dpb g (byte 8 8) (dpb b (byte 8 16) (dpb (or a 0) (byte 8 24) 0))))))))