From 397b413ac715d6cb8f984df58bda21d285d8a111 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 26 Jul 2017 10:19:54 +0200
Subject: [PATCH] silica: pixmaps: fix function calls for clx

---
 silica/pixmaps.lisp | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/silica/pixmaps.lisp b/silica/pixmaps.lisp
index a975255e..e7db9cf4 100644
--- a/silica/pixmaps.lisp
+++ b/silica/pixmaps.lisp
@@ -37,34 +37,32 @@
 (defmethod copy-area ((medium basic-medium) from-x from-y width height to-x to-y
                       &optional (function boole-1))
   (medium-copy-area medium from-x from-y width height
-                    medium to-x to-y
-                    function))
+                    medium to-x to-y))
 
 ;;--- Need encapsulating stream method, too
 (defmethod copy-area ((sheet basic-sheet) from-x from-y width height to-x to-y
                       &optional (function boole-1))
   (with-sheet-medium (medium sheet)
     (medium-copy-area medium from-x from-y width height
-                      medium to-x to-y
-                      function)))
+                      medium to-x to-y)))
 
 (defmethod copy-from-pixmap (pixmap pixmap-x pixmap-y width height
                              (medium basic-medium) medium-x medium-y &optional (function boole-1))
   (medium-copy-area pixmap pixmap-x pixmap-y width height
-                    medium medium-x medium-y function))
+                    medium medium-x medium-y))
 
 (defmethod copy-from-pixmap (pixmap pixmap-x pixmap-y width height
                              (sheet basic-sheet) medium-x medium-y &optional (function boole-1))
   (with-sheet-medium (medium sheet)
     (medium-copy-area pixmap pixmap-x pixmap-y width height
-                      medium medium-x medium-y function)))
+                      medium medium-x medium-y)))
 
 (defmethod copy-to-pixmap ((medium basic-medium) medium-x medium-y width height
                        &optional pixmap (pixmap-x 0) (pixmap-y 0) (function boole-1))
   (unless pixmap
     (setf pixmap (allocate-pixmap medium width height)))
   (medium-copy-area medium medium-x medium-y width height
-                    pixmap pixmap-x pixmap-y function)
+                    pixmap pixmap-x pixmap-y)
   pixmap)
 
 (defmethod copy-to-pixmap ((sheet basic-sheet) medium-x medium-y width height
@@ -73,7 +71,7 @@
     (unless pixmap
       (setf pixmap (allocate-pixmap medium width height)))
     (medium-copy-area medium medium-x medium-y width height
-                      pixmap pixmap-x pixmap-y function)
+                      pixmap pixmap-x pixmap-y)
     pixmap))
 
 
-- 
GitLab