Commit b4b552b6 authored by Hans Huebner's avatar Hans Huebner
Browse files

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

Thanks to stassats for reporting.
parent 612f2f68

colors.lisp

+1 −1
Changes for colors.lisp: 1 added line, 1 removed line.
Original line number Diff line number Diff line
@@ -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)