From 33bf88545888af4da5065d969b63457bc1bc4ead Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jacek=20TeMPOraL=20Z=C5=82ydach?= <temporal.pl@gmail.com>
Date: Sat, 27 May 2017 20:57:45 +0200
Subject: [PATCH] Dropped some superfluous (declare (values ...)).

---
 utils/region-arithmetic.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/utils/region-arithmetic.lisp b/utils/region-arithmetic.lisp
index 9379566e..8009eab6 100644
--- a/utils/region-arithmetic.lisp
+++ b/utils/region-arithmetic.lisp
@@ -222,8 +222,7 @@
 (defun ltrb-overlaps-ltrb-p (left1 top1 right1 bottom1
                              left2 top2 right2 bottom2)
   (declare (type coordinate left1 top1 right1 bottom1
-                             left2 top2 right2 bottom2)
-           (values valid-p left top right bottom))
+                             left2 top2 right2 bottom2))
   (let ((left (max left1 left2))
         (top (max top1 top2))
         (right (min right1 right2))
@@ -340,8 +339,7 @@
 (defun ltrb-difference (left1 top1 right1 bottom1
                         left2 top2 right2 bottom2)
   (declare (type coordinate left1 top1 right1 bottom1
-                            left2 top2 right2 bottom2)
-           (values rectangles))
+                            left2 top2 right2 bottom2))
   (unless (ltrb-contains-ltrb-p left2 top2 right2 bottom2
                                 left1 top1 right1 bottom1)
     (if (not (ltrb-overlaps-ltrb-p left1 top1 right1 bottom1
-- 
GitLab