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