[bknr-cvs] hans changed trunk/thirdparty/cl-gd-0.5.6/colors.lisp

[BKNR Commits]

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)