series-struct.lisp 1.22 KB
Newer Older
1 2
;; Define the structure for series
;; Liam Healy 2009-06-06 11:08:11EDT series-struct.lisp
3
;; Time-stamp: <2012-01-13 12:01:19EST series-struct.lisp>
4
;;
5
;; Copyright 2009, 2010 Liam M. Healy
6 7 8 9 10 11 12 13 14 15 16 17 18 19
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
20 21

(in-package :gsl)
22 23 24 25

#+linux
(define "_GNU_SOURCE")

26 27 28
;;; When installed through Mac Ports, GSL .h files will be found
;;; in /opt/local/include.
#+darwin
29
(cc-flags #.(gsl-config "--cflags"))
30 31 32 33

(include "gsl/gsl_sum.h")

(cstruct levin-c "gsl_sum_levin_u_workspace"
34
	 (terms-used "terms_used" :type :sizet)
35
	 (sum-plain "sum_plain" :type :double))