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

make save-alpha-p and (setf save-alpha-p) orthogonal

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 09:39:19 UTC (rev 4030) +++ trunk/thirdparty/cl-gd-0.5.6/colors.lisp 2008-11-10 10:05:14 UTC (rev 4031) @@ -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 &key (image *default-image*)) +(defun (setf save-alpha-p) (save &optional (image *default-image*)) "Determines whether PNG images will be saved with full alpha channel information." (check-type image image)