diff --git a/data/combination.lisp b/data/combination.lisp index d4dd61e0c4b9e154e84cb5ef7f674dff89d82b18..6814fadcc965d4589df3b660e705d68c3a33c7ad 100644 --- a/data/combination.lisp +++ b/data/combination.lisp @@ -1,6 +1,6 @@ ;; Combinations ;; Liam Healy, Sun Mar 26 2006 - 11:51 -;; Time-stamp: <2010-06-30 18:00:27EDT combination.lisp> +;; Time-stamp: <2010-07-01 21:13:06EDT combination.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -94,7 +94,6 @@ "Initialize the combination c to the lexicographically last combination, i.e. (n-k,n-k+1,...,n-1).") -#| (defmfun grid:copy-to-destination ((source combination) (destination combination)) "gsl_combination_memcpy" (((mpointer destination) :pointer) @@ -107,7 +106,6 @@ :documentation ; FDL "Copy the elements of the combination source into the combination destination. The two combinations must have the same size.") -|# ;;;;**************************************************************************** ;;;; Combination properties diff --git a/data/permutation.lisp b/data/permutation.lisp index 5c4200702fe0728d3b471005f9c764f089e8c5ff..8e6d248f9983be0207a6f5ea396556c886892516 100644 --- a/data/permutation.lisp +++ b/data/permutation.lisp @@ -1,6 +1,6 @@ ;; Permutations ;; Liam Healy, Sun Mar 26 2006 - 11:51 -;; Time-stamp: <2010-06-30 19:53:22EDT permutation.lisp> +;; Time-stamp: <2010-07-01 21:12:59EDT permutation.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -79,7 +79,6 @@ "Initialize the permutation p to the identity, i.e. (0,1,2,...,n-1).") -#| (defmfun grid:copy-to-destination ((source permutation) (destination permutation)) "gsl_permutation_memcpy" (((mpointer destination) :pointer) @@ -92,7 +91,6 @@ :documentation ; FDL "Copy the elements of the permutation source into the permutation destination. The two permutations must have the same size.") -|# (defmfun swap-elements ((p permutation) i j) "gsl_permutation_swap" diff --git a/histogram/histogram.lisp b/histogram/histogram.lisp index 29fe3835fc07d8ad0ec9ccf2e8c8918879e98995..d9cf6df7fbe20c9c6d55116f22cf5fdc2d74e0a5 100644 --- a/histogram/histogram.lisp +++ b/histogram/histogram.lisp @@ -1,6 +1,6 @@ ;; The histogram structure ;; Liam Healy, Mon Jan 1 2007 - 11:32 -;; Time-stamp: <2010-06-29 21:18:58EDT histogram.lisp> +;; Time-stamp: <2010-07-01 21:14:48EDT histogram.lisp> ;; ;; Copyright 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -79,7 +79,6 @@ :definition :method :return (histogram)) -#| (defmfun grid:copy-to-destination ((source histogram) (destination histogram)) "gsl_histogram_memcpy" (((mpointer destination) :pointer) ((mpointer source) :pointer)) @@ -117,4 +116,3 @@ :definition :method :c-return :pointer :index copy) -|# diff --git a/init/init.lisp b/init/init.lisp index bb91c11be00db86339a744120c2b6716a067f846..dac4fbc652ab8f6278ed40157a62c8b69050a704 100644 --- a/init/init.lisp +++ b/init/init.lisp @@ -1,6 +1,6 @@ ;; Load GSL ;; Liam Healy Sat Mar 4 2006 - 18:53 -;; Time-stamp: <2010-07-01 19:36:05EDT init.lisp> +;; Time-stamp: <2010-07-01 21:39:45EDT init.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -25,8 +25,7 @@ :grid #:cl-array #:dimensions #:element-type #:foreign-array #:matrix #:dim0 #:dim1 #:^ - ; #:copy #:clone - ) + #:copy #:clone) (:shadowing-import-from :grid #:foreign-pointer) (:export #:cl-array #:dimensions #:element-type #:dim0 #:dim1 diff --git a/random/generators.lisp b/random/generators.lisp index 4b218ea44818bf68e201f03c2c86a09308fd2cbd..f2677e3ab2ccea9f2813cc7360d2af7891c4494f 100644 --- a/random/generators.lisp +++ b/random/generators.lisp @@ -1,6 +1,6 @@ ;; Generators of random numbers. ;; Liam Healy, Sat Jul 15 2006 - 14:43 -;; Time-stamp: <2010-06-29 21:11:04EDT generators.lisp> +;; Time-stamp: <2010-07-01 21:15:11EDT generators.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -176,7 +176,6 @@ ;;;; Copying state ;;;;**************************************************************************** -#| (defmfun grid:copy-to-destination ((source random-number-generator) (destination random-number-generator)) "gsl_rng_memcpy" @@ -194,7 +193,6 @@ :definition :method :c-return :pointer :index copy) -|# ;;;;**************************************************************************** ;;;; Examples and unit test diff --git a/random/quasi.lisp b/random/quasi.lisp index 780baf4b97bc1ad97c705477168de829ea59b3f3..f1b0568939b7a7262ceda947ba978ca412219271 100644 --- a/random/quasi.lisp +++ b/random/quasi.lisp @@ -1,6 +1,6 @@ ;; Quasi-random sequences in arbitrary dimensions. ;; Liam Healy, Sun Jul 16 2006 - 15:54 -;; Time-stamp: <2010-06-29 22:15:18EDT quasi.lisp> +;; Time-stamp: <2010-07-01 21:15:03EDT quasi.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -64,7 +64,6 @@ :export nil :index gsl-random-state) -#| (defmfun grid:copy-to-destination ((source quasi-random-number-generator) (destination quasi-random-number-generator)) @@ -82,7 +81,6 @@ :definition :method :c-return :pointer :index copy) -|# (def-rng-type +niederreiter2+ ;; FDL