Revision: 4032 Author: hans URL: http://bknr.net/trac/changeset/4032

revert previous change

U trunk/thirdparty/cl-gd-0.5.6/colors.lisp

Modified: trunk/thirdparty/cl-gd-0.5.6/colors.lisp =================================================================== --- trunk/thirdparty/cl-gd-0.5.6/colors.lisp 2008-11-10 10:05:14 UTC (rev 4031) +++ trunk/thirdparty/cl-gd-0.5.6/colors.lisp 2008-11-10 10:07:00 UTC (rev 4032) @@ -200,7 +200,7 @@ (check-type image image) (not (zerop (get-slot-value (img image) 'gd-image 'save-alpha-flag))))

-(defun (setf save-alpha-p) (save &optional (image *default-image*)) +(defun (setf save-alpha-p) (save &key (image *default-image*)) "Determines whether PNG images will be saved with full alpha channel information." (check-type image image)