# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1553731142 14400
# Node ID 91c04aa41ac5c5cc3c173d6dd72354621fe05acc
# Parent  0d86e460026d76c0d3a82c922e38e5e7984caa38# Parent  0cf523fd2a866699653841007817a8b6e94e9338
Merge.

diff -r 0d86e460026d -r 91c04aa41ac5 src/colors.lisp
--- a/src/colors.lisp	Wed Mar 27 19:58:35 2019 -0400
+++ b/src/colors.lisp	Wed Mar 27 19:59:02 2019 -0400
@@ -47,15 +47,3 @@
                 (coerce s 'double-float)
                 (coerce v 'double-float))))
 
-
-(defun blend! (destination color alpha)
-  (declare (optimize speed)
-           (type color destination color)
-           (type color-float alpha))
-  (with-color (destination dr dg db)
-    (with-color (color r g b)
-      (setf dr (lerp dr r alpha)
-            dg (lerp dg g alpha)
-            db (lerp db b alpha))))
-  (values))
-