diff --git a/histogram/histogram.lisp b/histogram/histogram.lisp index 73572b47370c89bcdd35f60d17b60beb951cc2e2..9965f0537b4efd73a56c820008c204ab917c9dd5 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