Loading documentation/index.html +9 −14 Original line number Diff line number Diff line Loading @@ -121,22 +121,17 @@ are ported from GSL's tests. (ql:quickload "gsll")</pre> <p>To test your installation: <pre> (ql:quickload "lisp-unit") (in-package :gsl) (lisp-unit:run-tests)</pre> (asdf:test-system :gsll)</pre> <p>The result should look something like: <pre> ABSOLUTE-DEVIATION: 1 assertions passed, 0 failed. ABSOLUTE-SUM: 4 assertions passed, 0 failed. AIRY: 73 assertions passed, 0 failed.</pre> <p>... (many lines deleted) ... <pre> VECTOR-VARIANCE-WITH-MEAN: 10 assertions passed, 0 failed. WEIBULL: 60 assertions passed, 0 failed. ZETA: 6 assertions passed, 0 failed. TOTAL: 4022 assertions passed, 1 failed, 0 execution errors.</pre> Unit Test Summary | 3997 assertions total | 3992 passed | 5 failed | 6 execution errors | 0 missing tests </pre> <p>You may see more failures; if you are not on a 64 bit platform you will see fewer assertions. <h3>License</h3> <p> This software is distributed under Loading Loading @@ -303,7 +298,7 @@ and arrays used internally or for function return. <!-- Created: Feb 25 2005 --> <!-- hhmts start --> <small> Time-stamp: <2015-10-04 21:05:48EDT index.html> Time-stamp: <2015-12-05 22:02:12EST index.html> </small> <!-- hhmts end --> </div> Loading gsll.asd +406 −411 Original line number Diff line number Diff line ;; Definition of GSLL system ;; Liam Healy ;; Time-stamp: <2013-11-24 19:18:07EST gsll.asd> ;; Time-stamp: <2015-12-05 21:54:38EST gsll.asd> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 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 Loading @@ -27,13 +27,14 @@ :version "0" :author "Liam M. Healy" :licence "GPL v3" :defsystem-depends-on (#:cffi-grovel #:asdf-system-connections) :defsystem-depends-on (#:cffi-grovel) :depends-on (#:foreign-array #:cffi-grovel #:trivial-garbage #:alexandria #:metabang-bind #:osicat) #:osicat #:lisp-unit) :components ((:module init :components Loading Loading @@ -270,17 +271,8 @@ ((cffi-grovel:grovel-file "mksa") (cffi-grovel:grovel-file "cgsm") (cffi-grovel:grovel-file "num") (:file export))))) (asdf:defsystem-connection GSLL-tests :name "GSLL-tests" :description "Regression (unit) tests for GNU Scientific Library for Lisp." :version "0" :author "Liam M. Healy" :licence "GPL v3" :requires (gsll lisp-unit) :components ((:module test-unit (:file export))) (:module test-unit :components ((cffi-grovel:grovel-file "machine") (:file "augment" :depends-on ("machine")))) Loading Loading @@ -466,4 +458,7 @@ (:file "vector-variance-with-fixed-mean") (:file "vector-variance-with-mean") (:file "weibull") (:file "zeta"))))) (:file "zeta")))) :perform (asdf:test-op (o c) (uiop:symbol-call :lisp-unit '#:run-tests :all :gsll))) linear-algebra/blas3.lisp +2 −6 Original line number Diff line number Diff line ;; BLAS level 3, Matrix-matrix operations ;; Liam Healy, Wed Apr 26 2006 - 21:08 ;; Time-stamp: <2013-12-25 12:10:44EST blas3.lisp> ;; Time-stamp: <2015-12-05 09:56:16EST blas3.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 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 Loading Loading @@ -71,8 +71,6 @@ (C (grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B) :initial-element 0)) (alpha 1) (beta 1) (uplo :upper) (side :left)) ;; This always signals an error because you can't pass a ;; struct in CFFI yet. ("gsl_blas_" :type "hemm") ((side cblas-side) (uplo cblas-uplo) (alpha :element-c-type) ((mpointer A) :pointer) ((mpointer B) :pointer) Loading @@ -99,8 +97,6 @@ ((A grid:matrix) (B grid:matrix) &optional (alpha 1) (uplo :upper) (TransA :notrans) (diag :nonunit) (side :left)) ;; This signals an error for complex arguments because you can't pass a ;; struct in CFFI yet. ("gsl_blas_" :type "trsm") ((side cblas-side) (uplo cblas-uplo) (TransA cblas-transpose) (diag cblas-diag) Loading Loading
documentation/index.html +9 −14 Original line number Diff line number Diff line Loading @@ -121,22 +121,17 @@ are ported from GSL's tests. (ql:quickload "gsll")</pre> <p>To test your installation: <pre> (ql:quickload "lisp-unit") (in-package :gsl) (lisp-unit:run-tests)</pre> (asdf:test-system :gsll)</pre> <p>The result should look something like: <pre> ABSOLUTE-DEVIATION: 1 assertions passed, 0 failed. ABSOLUTE-SUM: 4 assertions passed, 0 failed. AIRY: 73 assertions passed, 0 failed.</pre> <p>... (many lines deleted) ... <pre> VECTOR-VARIANCE-WITH-MEAN: 10 assertions passed, 0 failed. WEIBULL: 60 assertions passed, 0 failed. ZETA: 6 assertions passed, 0 failed. TOTAL: 4022 assertions passed, 1 failed, 0 execution errors.</pre> Unit Test Summary | 3997 assertions total | 3992 passed | 5 failed | 6 execution errors | 0 missing tests </pre> <p>You may see more failures; if you are not on a 64 bit platform you will see fewer assertions. <h3>License</h3> <p> This software is distributed under Loading Loading @@ -303,7 +298,7 @@ and arrays used internally or for function return. <!-- Created: Feb 25 2005 --> <!-- hhmts start --> <small> Time-stamp: <2015-10-04 21:05:48EDT index.html> Time-stamp: <2015-12-05 22:02:12EST index.html> </small> <!-- hhmts end --> </div> Loading
gsll.asd +406 −411 Original line number Diff line number Diff line ;; Definition of GSLL system ;; Liam Healy ;; Time-stamp: <2013-11-24 19:18:07EST gsll.asd> ;; Time-stamp: <2015-12-05 21:54:38EST gsll.asd> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 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 Loading @@ -27,13 +27,14 @@ :version "0" :author "Liam M. Healy" :licence "GPL v3" :defsystem-depends-on (#:cffi-grovel #:asdf-system-connections) :defsystem-depends-on (#:cffi-grovel) :depends-on (#:foreign-array #:cffi-grovel #:trivial-garbage #:alexandria #:metabang-bind #:osicat) #:osicat #:lisp-unit) :components ((:module init :components Loading Loading @@ -270,17 +271,8 @@ ((cffi-grovel:grovel-file "mksa") (cffi-grovel:grovel-file "cgsm") (cffi-grovel:grovel-file "num") (:file export))))) (asdf:defsystem-connection GSLL-tests :name "GSLL-tests" :description "Regression (unit) tests for GNU Scientific Library for Lisp." :version "0" :author "Liam M. Healy" :licence "GPL v3" :requires (gsll lisp-unit) :components ((:module test-unit (:file export))) (:module test-unit :components ((cffi-grovel:grovel-file "machine") (:file "augment" :depends-on ("machine")))) Loading Loading @@ -466,4 +458,7 @@ (:file "vector-variance-with-fixed-mean") (:file "vector-variance-with-mean") (:file "weibull") (:file "zeta"))))) (:file "zeta")))) :perform (asdf:test-op (o c) (uiop:symbol-call :lisp-unit '#:run-tests :all :gsll)))
linear-algebra/blas3.lisp +2 −6 Original line number Diff line number Diff line ;; BLAS level 3, Matrix-matrix operations ;; Liam Healy, Wed Apr 26 2006 - 21:08 ;; Time-stamp: <2013-12-25 12:10:44EST blas3.lisp> ;; Time-stamp: <2015-12-05 09:56:16EST blas3.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 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 Loading Loading @@ -71,8 +71,6 @@ (C (grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B) :initial-element 0)) (alpha 1) (beta 1) (uplo :upper) (side :left)) ;; This always signals an error because you can't pass a ;; struct in CFFI yet. ("gsl_blas_" :type "hemm") ((side cblas-side) (uplo cblas-uplo) (alpha :element-c-type) ((mpointer A) :pointer) ((mpointer B) :pointer) Loading @@ -99,8 +97,6 @@ ((A grid:matrix) (B grid:matrix) &optional (alpha 1) (uplo :upper) (TransA :notrans) (diag :nonunit) (side :left)) ;; This signals an error for complex arguments because you can't pass a ;; struct in CFFI yet. ("gsl_blas_" :type "trsm") ((side cblas-side) (uplo cblas-uplo) (TransA cblas-transpose) (diag cblas-diag) Loading