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