# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545684280 18000
# Node ID 0cf523fd2a866699653841007817a8b6e94e9338
# Parent  386728efe61ce516e2112744721ec6b1f7fc7eef
Remove unused function

diff -r 386728efe61c -r 0cf523fd2a86 src/colors.lisp
--- a/src/colors.lisp	Sat Apr 14 01:12:37 2018 -0400
+++ b/src/colors.lisp	Mon Dec 24 15:44:40 2018 -0500
@@ -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))
-