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