From dfbc9750743c2664f87fea34c253e0447cff067c Mon Sep 17 00:00:00 2001
From: "Liam M. Healy" <lhealy@common-lisp.net>
Date: Thu, 16 Oct 2014 22:55:56 -0400
Subject: [PATCH] Swap arguments in calls to histo(2d)-copy, clone

Arguments 'source and 'destination were swapped in calls to histo(2d)-copy, clone for grid:copy methods, now fixed. Reported by Mirko Vukovic.
---
 histogram/histogram.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/histogram/histogram.lisp b/histogram/histogram.lisp
index 73572b47..9965f053 100644
--- a/histogram/histogram.lisp
+++ b/histogram/histogram.lisp
@@ -1,8 +1,8 @@
 ;; The histogram structure
 ;; Liam Healy, Mon Jan  1 2007 - 11:32
-;; Time-stamp: <2013-10-04 10:40:54EDT histogram.lisp>
+;; Time-stamp: <2014-10-16 22:54:14EDT histogram.lisp>
 ;;
-;; Copyright 2007, 2008, 2009, 2010, 2011, 2012, 2013 Liam M. Healy
+;; Copyright 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
 ;;
 ;; This program is free software: you can redistribute it and/or modify
@@ -102,8 +102,8 @@
 
 (defmethod grid:copy ((source histogram) &key destination &allow-other-keys)
   (if destination
-      (histo-copy destination source)
-      (histo-clone destination)))
+      (histo-copy source destination)
+      (histo-clone source)))
 
 (defmfun histo2d-copy (source destination)
   "gsl_histogram2d_memcpy"
@@ -127,8 +127,8 @@
 
 (defmethod grid:copy ((source histogram2d) &key destination &allow-other-keys)
   (if destination
-      (histo2d-copy destination source)
-      (histo2d-clone destination)))
+      (histo2d-copy source destination)
+      (histo2d-clone source)))
 
 ;;;;****************************************************************************
 ;;; Experimental direct access to vector
-- 
GitLab