Permalink
Browse files

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

Thanks to stassats for reporting.
  • Loading branch information...
1 parent 612f2f6 commit b4b552b6fba23924bcfdb18e762a5b393a016d62 @hanshuebner hanshuebner committed Feb 12, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 colors.lisp
View
@@ -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)

0 comments on commit b4b552b

Please sign in to comment.