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

[BKNR Commits]

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)