From a27a80a1948438b2e7857f24a807ee52341ddae2 Mon Sep 17 00:00:00 2001 From: Liam Healy <liam@thinkpad.local> Date: Sun, 14 Nov 2010 17:59:54 -0500 Subject: [PATCH] Revert the histogram change Revert the last histogram change because GSD has been changed so that the gref compiler macro does not take effect except for foreign-array types. --- histogram/updating-accessing.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/histogram/updating-accessing.lisp b/histogram/updating-accessing.lisp index f3f5e555..98c8297e 100644 --- a/histogram/updating-accessing.lisp +++ b/histogram/updating-accessing.lisp @@ -1,6 +1,6 @@ ;; Updating and accessing histogram elements. ;; Liam Healy, Mon Jan 1 2007 - 14:43 -;; Time-stamp: <2010-11-13 19:26:08EST updating-accessing.lisp> +;; Time-stamp: <2010-11-14 17:46:45EST updating-accessing.lisp> ;; ;; Copyright 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -42,9 +42,9 @@ histograms for a small range of a larger dataset, ignoring the values outside the range of interest.") -(defmfun grid:gref* ((histogram histogram) index) +(defmfun grid:gref ((histogram histogram) &rest indices) "gsl_histogram_get" - (((mpointer histogram) :pointer) (index sizet)) + (((mpointer histogram) :pointer) ((first indices) sizet)) :definition :method :c-return :double :index grid:gref -- GitLab