correct (setf save-alpha-p) to use &optional instead of &key

Thanks to stassats for reporting.
edicl · Feb 12, 2012 · b4b552b · b4b552b
1 parent 612f2f6
commit b4b552b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/colors.lisp b/colors.lisp
@@ -200,7 +200,7 @@ information."
   (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)