From e4143920ea3bffef43cd27f671a1f498107d758a Mon Sep 17 00:00:00 2001 From: espen Date: Thu, 10 May 2007 16:58:45 +0000 Subject: [PATCH] Bug fix --- gdk/gdk.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp index 63c4e84..7a5f641 100644 --- a/gdk/gdk.lisp +++ b/gdk/gdk.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gdk.lisp,v 1.36 2007-05-04 07:28:25 espen Exp $ +;; $Id: gdk.lisp,v 1.37 2007-05-10 16:58:45 espen Exp $ (in-package "GDK") @@ -236,19 +236,19 @@ (dy int)) (defbinding region-intersect (source1 source2) nil - ((ensure-region source1) region :return) + ((ensure-region source1) region :in/return) ((ensure-region source2) region)) (defbinding region-union (source1 source2) nil - ((ensure-region source1) region :return) + ((ensure-region source1) region :in/return) ((ensure-region source2) region)) (defbinding region-subtract (source1 source2) nil - ((ensure-region source1) region :return) + ((ensure-region source1) region :in/return) ((ensure-region source2) region)) (defbinding region-xor (source1 source2) nil - ((ensure-region source1) region :return) + ((ensure-region source1) region :in/return) ((ensure-region source2) region)) -- 2.11.0