Update of /project/cl-gsl/cvsroot/cl-gsl/test In directory common-lisp.net:/tmp/cvs-serv15056 Modified Files: test-vector.lisp Log Message: Replaced references to gsl-vector package with gsl-array package - since this is now the package that the vector symbols now belong. Date: Fri Apr 22 04:44:57 2005 Author: edenny Index: cl-gsl/test/test-vector.lisp diff -u cl-gsl/test/test-vector.lisp:1.4 cl-gsl/test/test-vector.lisp:1.5 --- cl-gsl/test/test-vector.lisp:1.4 Mon Apr 18 03:00:12 2005 +++ cl-gsl/test/test-vector.lisp Fri Apr 22 04:44:57 2005 @@ -24,123 +24,123 @@ (deftest "make-vector-double-float" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 :element-type 'double-float))) + (let ((v (gsl-array:make-vector 5 :element-type 'double-float))) (prog1 - (and (= (gsl-vector::size v) 5) - (eq (gsl-vector::element-type v) 'double-float)) - (gsl-vector:free v))))) + (and (= (gsl-array::size v) 5) + (eq (gsl-array::element-type v) 'double-float)) + (gsl-array:free v))))) (deftest "make-vector-single-float" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 :element-type 'single-float))) + (let ((v (gsl-array:make-vector 5 :element-type 'single-float))) (prog1 - (and (= (gsl-vector::size v) 5) - (eq (gsl-vector::element-type v) 'single-float)) - (gsl-vector:free v))))) + (and (= (gsl-array::size v) 5) + (eq (gsl-array::element-type v) 'single-float)) + (gsl-array:free v))))) (deftest "make-vector-integer" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 :element-type 'integer))) + (let ((v (gsl-array:make-vector 5 :element-type 'integer))) (prog1 - (and (= (gsl-vector::size v) 5) - (eq (gsl-vector::element-type v) 'integer)) - (gsl-vector:free v))))) + (and (= (gsl-array::size v) 5) + (eq (gsl-array::element-type v) 'integer)) + (gsl-array:free v))))) (deftest "make-vector-complex-double-float" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 :element-type + (let ((v (gsl-array:make-vector 5 :element-type '(complex (double-float))))) (prog1 - (and (= (gsl-vector::size v) 5) - (equal (gsl-vector::element-type v) + (and (= (gsl-array::size v) 5) + (equal (gsl-array::element-type v) '(complex (double-float)))) - (gsl-vector:free v))))) + (gsl-array:free v))))) (deftest "make-vector-complex-single-float" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 :element-type + (let ((v (gsl-array:make-vector 5 :element-type '(complex (single-float))))) (prog1 - (and (= (gsl-vector::size v) 5) - (equal (gsl-vector::element-type v) + (and (= (gsl-array::size v) 5) + (equal (gsl-array::element-type v) '(complex (single-float)))) - (gsl-vector:free v))))) + (gsl-array:free v))))) ;; ---------------------------------------------------------------------- (deftest "make-vector-double-float-initial-element" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 + (let ((v (gsl-array:make-vector 5 :element-type 'double-float :initial-element 1.0d0)) (ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 1.0d0) + (unless (= (gsl-array:get-element v i) 1.0d0) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-single-float-initial-element" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 + (let ((v (gsl-array:make-vector 5 :element-type 'single-float :initial-element 1.0)) (ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 1.0) + (unless (= (gsl-array:get-element v i) 1.0) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-integer-initial-element" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 + (let ((v (gsl-array:make-vector 5 :element-type 'integer :initial-element 1)) (ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 1) + (unless (= (gsl-array:get-element v i) 1) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-complex-double-float-initial-element" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 + (let ((v (gsl-array:make-vector 5 :element-type '(complex (double-float)) :initial-element (complex 1.0d0 1.0d0))) (ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (complex 1.0d0 1.0d0)) + (unless (= (gsl-array:get-element v i) (complex 1.0d0 1.0d0)) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-complex-single-float-initial-element" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector 5 :element-type + (let ((v (gsl-array:make-vector 5 :element-type '(complex (single-float)) :initial-element (complex 1.0 1.0))) (ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (complex 1.0 1.0)) + (unless (= (gsl-array:get-element v i) (complex 1.0 1.0)) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) ;; ---------------------------------------------------------------------- @@ -148,54 +148,54 @@ (deftest "make-vector-double-float-initial-contents" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector + (let ((v (gsl-array:make-vector 5 :element-type 'double-float :initial-contents (list 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))) (ret t) (val 0.0d0)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (incf val 1.0d0)) + (unless (= (gsl-array:get-element v i) (incf val 1.0d0)) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-single-float-initial-contents" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector + (let ((v (gsl-array:make-vector 5 :element-type 'single-float :initial-contents (vector -1.0 -2.0 -3.0 -4.0 -5.0))) (ret t) (val 0.0)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (decf val 1.0)) + (unless (= (gsl-array:get-element v i) (decf val 1.0)) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-integer-initial-contents" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector + (let ((v (gsl-array:make-vector 5 :element-type 'integer :initial-contents (list 1 2 3 4 5))) (ret t) (val 0)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (incf val)) + (unless (= (gsl-array:get-element v i) (incf val)) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-complex-double-float-initial-contents" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector + (let ((v (gsl-array:make-vector 5 :element-type '(complex (double-float)) :initial-contents @@ -205,16 +205,16 @@ (ret t) (val (complex 0.0d0 0.0d0))) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (incf val (complex 1.0d0 1.0d0))) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) (deftest "make-vector-complex-single-float-initial-contents" :category +vector+ :test-fn #'(lambda () - (let ((v (gsl-vector:make-vector + (let ((v (gsl-array:make-vector 5 :element-type '(complex (single-float)) :initial-contents @@ -224,10 +224,10 @@ (ret t) (val (complex 0.0 0.0))) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (decf val (complex 1.0 1.0))) (setq ret nil))) - (gsl-vector:free v) + (gsl-array:free v) ret))) ;; ---------------------------------------------------------------------- @@ -235,55 +235,55 @@ (deftest "set-all-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'double-float) - (gsl-vector:set-all v 5.0d0) + (gsl-array:with-vector (v 5 :element-type 'double-float) + (gsl-array:set-all v 5.0d0) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 5.0d0) + (unless (= (gsl-array:get-element v i) 5.0d0) (setq ret nil))))))) (deftest "set-all-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'single-float) - (gsl-vector:set-all v 5.0) + (gsl-array:with-vector (v 5 :element-type 'single-float) + (gsl-array:set-all v 5.0) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 5.0) + (unless (= (gsl-array:get-element v i) 5.0) (setq ret nil))))))) (deftest "set-all-integer" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'integer) - (gsl-vector:set-all v 5) + (gsl-array:with-vector (v 5 :element-type 'integer) + (gsl-array:set-all v 5) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 5) + (unless (= (gsl-array:get-element v i) 5) (setq ret nil))))))) (deftest "set-all-complex-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (double-float))) - (gsl-vector:set-all v (complex 5.0d0 4.0d0)) + (gsl-array:set-all v (complex 5.0d0 4.0d0)) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 5.0d0 4.0d0)) (setq ret nil))))))) (deftest "set-all-complex-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (single-float))) - (gsl-vector:set-all v (complex 5.0 4.0)) + (gsl-array:set-all v (complex 5.0 4.0)) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (complex 5.0 4.0)) + (unless (= (gsl-array:get-element v i) (complex 5.0 4.0)) (setq ret nil))))))) ;; ---------------------------------------------------------------------- @@ -291,60 +291,60 @@ (deftest "set-zero-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'double-float) - (gsl-vector:set-all v 5.0d0) - (gsl-vector:set-zero v) + (gsl-array:with-vector (v 5 :element-type 'double-float) + (gsl-array:set-all v 5.0d0) + (gsl-array:set-zero v) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 0.0d0) + (unless (= (gsl-array:get-element v i) 0.0d0) (setq ret nil))))))) (deftest "set-zero-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'single-float) - (gsl-vector:set-all v 5.0) - (gsl-vector:set-zero v) + (gsl-array:with-vector (v 5 :element-type 'single-float) + (gsl-array:set-all v 5.0) + (gsl-array:set-zero v) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 0.0) + (unless (= (gsl-array:get-element v i) 0.0) (setq ret nil))))))) (deftest "set-zero-integer" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'integer) - (gsl-vector:set-all v 5) - (gsl-vector:set-zero v) + (gsl-array:with-vector (v 5 :element-type 'integer) + (gsl-array:set-all v 5) + (gsl-array:set-zero v) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) 0) + (unless (= (gsl-array:get-element v i) 0) (setq ret nil))))))) (deftest "set-zero-complex-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (double-float))) - (gsl-vector:set-all v (complex 5.0d0 4.0d0)) - (gsl-vector:set-zero v) + (gsl-array:set-all v (complex 5.0d0 4.0d0)) + (gsl-array:set-zero v) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 0.0d0 0.0d0)) (setq ret nil))))))) (deftest "set-zero-complex-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (single-float))) - (gsl-vector:set-all v (complex 5.0 4.0)) - (gsl-vector:set-zero v) + (gsl-array:set-all v (complex 5.0 4.0)) + (gsl-array:set-zero v) (let ((ret t)) (dotimes (i 5 ret) - (unless (= (gsl-vector:get-element v i) (complex 0.0 0.0)) + (unless (= (gsl-array:get-element v i) (complex 0.0 0.0)) (setq ret nil))))))) ;; ---------------------------------------------------------------------- @@ -352,71 +352,71 @@ (deftest "set-basis-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'double-float) - (gsl-vector:set-basis v 3) + (gsl-array:with-vector (v 5 :element-type 'double-float) + (gsl-array:set-basis v 3) (let ((ret t)) (dotimes (i 5 ret) (if (= i 3) - (unless (= (gsl-vector:get-element v i) 1.0d0) + (unless (= (gsl-array:get-element v i) 1.0d0) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) 0.0d0) + (unless (= (gsl-array:get-element v i) 0.0d0) (setq ret nil)))))))) (deftest "set-basis-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'single-float) - (gsl-vector:set-basis v 2) + (gsl-array:with-vector (v 5 :element-type 'single-float) + (gsl-array:set-basis v 2) (let ((ret t)) (dotimes (i 5 ret) (if (= i 2) - (unless (= (gsl-vector:get-element v i) 1.0) + (unless (= (gsl-array:get-element v i) 1.0) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) 0.0) + (unless (= (gsl-array:get-element v i) 0.0) (setq ret nil)))))))) (deftest "set-basis-integer" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'integer) - (gsl-vector:set-basis v 1) + (gsl-array:with-vector (v 5 :element-type 'integer) + (gsl-array:set-basis v 1) (let ((ret t)) (dotimes (i 5 ret) (if (= i 1) - (unless (= (gsl-vector:get-element v i) 1) + (unless (= (gsl-array:get-element v i) 1) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) 0) + (unless (= (gsl-array:get-element v i) 0) (setq ret nil)))))))) (deftest "set-basis-complex-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (double-float))) - (gsl-vector:set-basis v 4) + (gsl-array:set-basis v 4) (let ((ret t)) (dotimes (i 5 ret) (if (= i 4) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 1.0d0 0.0d0)) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 0.0d0 0.0d0)) (setq ret nil)))))))) (deftest "set-basis-complex-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (single-float))) - (gsl-vector:set-basis v 0) + (gsl-array:set-basis v 0) (let ((ret t)) (dotimes (i 5 ret) (if (= i 0) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 1.0 0.0)) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 0.0 0.0)) (setq ret nil)))))))) @@ -426,77 +426,77 @@ (deftest "set-element-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'double-float) - (gsl-vector:set-zero v) - (gsl-vector:set-element v 3 6.0d0) + (gsl-array:with-vector (v 5 :element-type 'double-float) + (gsl-array:set-zero v) + (gsl-array:set-element v 3 6.0d0) (let ((ret t)) (dotimes (i 5 ret) (if (= i 3) - (unless (= (gsl-vector:get-element v i) 6.0d0) + (unless (= (gsl-array:get-element v i) 6.0d0) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) 0.0d0) + (unless (= (gsl-array:get-element v i) 0.0d0) (setq ret nil)))))))) (deftest "set-element-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'single-float) - (gsl-vector:set-zero v) - (gsl-vector:set-element v 2 6.0) + (gsl-array:with-vector (v 5 :element-type 'single-float) + (gsl-array:set-zero v) + (gsl-array:set-element v 2 6.0) (let ((ret t)) (dotimes (i 5 ret) (if (= i 2) - (unless (= (gsl-vector:get-element v i) 6.0) + (unless (= (gsl-array:get-element v i) 6.0) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) 0.0) + (unless (= (gsl-array:get-element v i) 0.0) (setq ret nil)))))))) (deftest "set-element-integer" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'integer) - (gsl-vector:set-zero v) - (gsl-vector:set-element v 1 6) + (gsl-array:with-vector (v 5 :element-type 'integer) + (gsl-array:set-zero v) + (gsl-array:set-element v 1 6) (let ((ret t)) (dotimes (i 5 ret) (if (= i 1) - (unless (= (gsl-vector:get-element v i) 6) + (unless (= (gsl-array:get-element v i) 6) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) 0) + (unless (= (gsl-array:get-element v i) 0) (setq ret nil)))))))) (deftest "set-element-complex-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (double-float))) - (gsl-vector:set-zero v) - (gsl-vector:set-element v 4 (complex 6.0d0 7.0d0)) + (gsl-array:set-zero v) + (gsl-array:set-element v 4 (complex 6.0d0 7.0d0)) (let ((ret t)) (dotimes (i 5 ret) (if (= i 4) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 6.0d0 7.0d0)) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 0.0d0 0.0d0)) (setq ret nil)))))))) (deftest "set-element-complex-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (single-float))) - (gsl-vector:set-zero v) - (gsl-vector:set-element v 0 (complex 6.0 7.0)) + (gsl-array:set-zero v) + (gsl-array:set-element v 0 (complex 6.0 7.0)) (let ((ret t)) (dotimes (i 5 ret) (if (= i 0) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 6.0 7.0)) (setq ret nil)) - (unless (= (gsl-vector:get-element v i) + (unless (= (gsl-array:get-element v i) (complex 0.0 0.0)) (setq ret nil)))))))) @@ -505,41 +505,41 @@ (deftest "isnull-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'double-float) - (gsl-vector:set-zero v) - (gsl-vector:isnull v)))) + (gsl-array:with-vector (v 5 :element-type 'double-float) + (gsl-array:set-zero v) + (gsl-array:isnull v)))) (deftest "isnull-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'single-float) - (gsl-vector:set-basis v 0) - (not (gsl-vector:isnull v))))) + (gsl-array:with-vector (v 5 :element-type 'single-float) + (gsl-array:set-basis v 0) + (not (gsl-array:isnull v))))) (deftest "isnull-integer" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector (v 5 :element-type 'integer) - (gsl-vector:set-zero v) - (gsl-vector:isnull v)))) + (gsl-array:with-vector (v 5 :element-type 'integer) + (gsl-array:set-zero v) + (gsl-array:isnull v)))) (deftest "isnull-complex-double-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (double-float))) - (gsl-vector:set-basis v 1) - (not (gsl-vector:isnull v))))) + (gsl-array:set-basis v 1) + (not (gsl-array:isnull v))))) (deftest "isnull-complex-single-float" :category +vector+ :test-fn #'(lambda () - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (single-float))) - (gsl-vector:set-zero v) - (gsl-vector:isnull v)))) + (gsl-array:set-zero v) + (gsl-array:isnull v)))) ;; ---------------------------------------------------------------------- @@ -547,31 +547,31 @@ :test-fn #'(lambda () (let ((vec (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type 'double-float :initial-contents vec) (equalp (reverse vec) - (gsl-vector:gsl->lisp-vector - (gsl-vector:reverse-vector v))))))) + (gsl-array:gsl->lisp-vector + (gsl-array:reverse-vector v))))))) (deftest "reverse-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1.0 2.0 3.0 4.0 5.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type 'single-float :initial-contents vec) (equalp (reverse vec) - (gsl-vector:gsl->lisp-vector - (gsl-vector:reverse-vector v))))))) + (gsl-array:gsl->lisp-vector + (gsl-array:reverse-vector v))))))) (deftest "reverse-integer" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1 2 3 4 5))) - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type 'integer :initial-contents vec) (equalp (reverse vec) - (gsl-vector:gsl->lisp-vector - (gsl-vector:reverse-vector v))))))) + (gsl-array:gsl->lisp-vector + (gsl-array:reverse-vector v))))))) (deftest "reverse-complex-double-float" :category +vector+ @@ -580,12 +580,12 @@ (let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0) (complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0) (complex 5.0d0 5.0d0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (double-float)) :initial-contents vec) (equalp (reverse vec) - (gsl-vector:gsl->lisp-vector - (gsl-vector:reverse-vector v))))))) + (gsl-array:gsl->lisp-vector + (gsl-array:reverse-vector v))))))) (deftest "reverse-complex-single-float" :category +vector+ @@ -594,12 +594,12 @@ (let ((vec (vector (complex -1.0 -1.0) (complex -2.0 -2.0) (complex -3.0 -3.0) (complex -4.0 -4.0) (complex -5.0 -5.0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v 5 :element-type '(complex (single-float)) :initial-contents vec) (equalp (reverse vec) - (gsl-vector:gsl->lisp-vector - (gsl-vector:reverse-vector v))))))) + (gsl-array:gsl->lisp-vector + (gsl-array:reverse-vector v))))))) ;; ---------------------------------------------------------------------- @@ -607,39 +607,39 @@ :test-fn #'(lambda () (let ((vec (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec) - (gsl-vector:write-to-file "/tmp/test.txt" v1) - (gsl-vector:with-vector + (gsl-array:write-to-file "/tmp/test.txt" v1) + (gsl-array:with-vector (v2 5 :element-type 'double-float :from-file "/tmp/test.txt") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1.0 2.0 3.0 4.0 5.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec) - (gsl-vector:write-to-file "/tmp/test.txt" v1) - (gsl-vector:with-vector + (gsl-array:write-to-file "/tmp/test.txt" v1) + (gsl-array:with-vector (v2 5 :element-type 'single-float :from-file "/tmp/test.txt") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-integer" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1 2 3 4 5))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec) - (gsl-vector:write-to-file "/tmp/test.txt" v1) - (gsl-vector:with-vector + (gsl-array:write-to-file "/tmp/test.txt" v1) + (gsl-array:with-vector (v2 5 :element-type 'integer :from-file "/tmp/test.txt") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-complex-double-float" :category +vector+ :test-fn @@ -647,15 +647,15 @@ (let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0) (complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0) (complex 5.0d0 5.0d0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (double-float)) :initial-contents vec) - (gsl-vector:write-to-file "/tmp/test.txt" v1) - (gsl-vector:with-vector + (gsl-array:write-to-file "/tmp/test.txt" v1) + (gsl-array:with-vector (v2 5 :element-type '(complex (double-float)) :from-file "/tmp/test.txt") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-complex-single-float" :category +vector+ :test-fn @@ -663,15 +663,15 @@ (let ((vec (vector (complex 1.0 1.0) (complex 2.0 2.0) (complex 3.0 3.0) (complex 4.0 4.0) (complex 5.0 5.0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (single-float)) :initial-contents vec) - (gsl-vector:write-to-file "/tmp/test.txt" v1) - (gsl-vector:with-vector + (gsl-array:write-to-file "/tmp/test.txt" v1) + (gsl-array:with-vector (v2 5 :element-type '(complex (single-float)) :from-file "/tmp/test.txt") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) ;; ---------------------------------------------------------------------- @@ -680,38 +680,38 @@ :test-fn #'(lambda () (let ((vec (vector 1.0000000000001d0 2.0d0 3.0d0 4.0d0 5.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec) - (gsl-vector:write-to-binary-file "/tmp/test.bin" v1) - (gsl-vector:with-vector (v2 5 :element-type 'double-float + (gsl-array:write-to-binary-file "/tmp/test.bin" v1) + (gsl-array:with-vector (v2 5 :element-type 'double-float :from-binary-file "/tmp/test.bin") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-binary-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1.0 2.0 3.0 4.0 5.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec) - (gsl-vector:write-to-binary-file "/tmp/test.bin" v1) - (gsl-vector:with-vector (v2 5 :element-type 'single-float + (gsl-array:write-to-binary-file "/tmp/test.bin" v1) + (gsl-array:with-vector (v2 5 :element-type 'single-float :from-binary-file "/tmp/test.bin") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-binary-integer" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1 2 3 4 5))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec) - (gsl-vector:write-to-binary-file "/tmp/test.bin" v1) - (gsl-vector:with-vector (v2 5 :element-type 'integer + (gsl-array:write-to-binary-file "/tmp/test.bin" v1) + (gsl-array:with-vector (v2 5 :element-type 'integer :from-binary-file "/tmp/test.bin") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-binary-complex-double-float" :category +vector+ :test-fn @@ -719,15 +719,15 @@ (let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0) (complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0) (complex 5.0d0 5.0d0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (double-float)) :initial-contents vec) - (gsl-vector:write-to-binary-file "/tmp/test.bin" v1) - (gsl-vector:with-vector + (gsl-array:write-to-binary-file "/tmp/test.bin" v1) + (gsl-array:with-vector (v2 5 :element-type '(complex (double-float)) :from-binary-file "/tmp/test.bin") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "read-write-binary-complex-single-float" :category +vector+ :test-fn @@ -735,15 +735,15 @@ (let ((vec (vector (complex 1.0 1.0) (complex 2.0 2.0) (complex 3.0 3.0) (complex 4.0 4.0) (complex 5.0 5.0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (single-float)) :initial-contents vec) - (gsl-vector:write-to-binary-file "/tmp/test.bin" v1) - (gsl-vector:with-vector + (gsl-array:write-to-binary-file "/tmp/test.bin" v1) + (gsl-array:with-vector (v2 5 :element-type '(complex (single-float)) :from-binary-file "/tmp/test.bin") - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) ;; ---------------------------------------------------------------------- @@ -753,33 +753,33 @@ (let ((vec (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (v2) (res)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec) - (setq v2 (gsl-vector:copy v1)) - (setq res (equalp (gsl-vector:gsl->lisp-vector v1) - (gsl-vector:gsl->lisp-vector v2))) - (gsl-vector:free v2)) + (setq v2 (gsl-array:copy v1)) + (setq res (equalp (gsl-array:gsl->lisp-vector v1) + (gsl-array:gsl->lisp-vector v2))) + (gsl-array:free v2)) res))) (deftest "copy-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1.0 2.0 3.0 4.0 5.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec) - (gsl-vector:with-vector-copy (v2 v1) - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:with-vector-copy (v2 v1) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "copy-integer" :category +vector+ :test-fn #'(lambda () (let ((vec (vector 1 2 3 4 5))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec) - (gsl-vector:with-vector-copy (v2 v1) - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:with-vector-copy (v2 v1) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "copy-complex-double-float" :category +vector+ :test-fn @@ -787,12 +787,12 @@ (let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0) (complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0) (complex 5.0d0 5.0d0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (double-float)) :initial-contents vec) - (gsl-vector:with-vector-copy (v2 v1) - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:with-vector-copy (v2 v1) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) (deftest "copy-complex-single-float" :category +vector+ :test-fn @@ -800,12 +800,12 @@ (let ((vec (vector (complex 1.0 1.0) (complex 2.0 2.0) (complex 3.0 3.0) (complex 4.0 4.0) (complex 5.0 5.0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (single-float)) :initial-contents vec) - (gsl-vector:with-vector-copy (v2 v1) - (and (equalp vec (gsl-vector:gsl->lisp-vector v1)) - (equalp vec (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:with-vector-copy (v2 v1) + (and (equalp vec (gsl-array:gsl->lisp-vector v1)) + (equalp vec (gsl-array:gsl->lisp-vector v2)))))))) ;; ---------------------------------------------------------------------- @@ -815,39 +815,39 @@ #'(lambda () (let* ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (reverse vec-1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'double-float :initial-contents vec-2) - (gsl-vector:swap v1 v2) - (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)) - (equalp vec-1 (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:swap v1 v2) + (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1)) + (equalp vec-1 (gsl-array:gsl->lisp-vector v2)))))))) (deftest "swap-single-float" :category +vector+ :test-fn #'(lambda () (let* ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (reverse vec-1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'single-float :initial-contents vec-2) - (gsl-vector:swap v1 v2) - (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)) - (equalp vec-1 (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:swap v1 v2) + (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1)) + (equalp vec-1 (gsl-array:gsl->lisp-vector v2)))))))) (deftest "swap-integer" :category +vector+ :test-fn #'(lambda () (let* ((vec-1 (vector 1 2 3 4 5)) (vec-2 (reverse vec-1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'integer :initial-contents vec-2) - (gsl-vector:swap v1 v2) - (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)) - (equalp vec-1 (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:swap v1 v2) + (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1)) + (equalp vec-1 (gsl-array:gsl->lisp-vector v2)))))))) (deftest "swap-complex-double-float" :category +vector+ :test-fn @@ -856,15 +856,15 @@ (complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0) (complex 5.0d0 5.0d0))) (vec-2 (reverse vec-1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (double-float)) :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type '(complex (double-float)) :initial-contents vec-2) - (gsl-vector:swap v1 v2) - (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)) - (equalp vec-1 (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:swap v1 v2) + (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1)) + (equalp vec-1 (gsl-array:gsl->lisp-vector v2)))))))) (deftest "swap-complex-single-float" :category +vector+ :test-fn @@ -873,15 +873,15 @@ (complex 3.0 3.0) (complex 4.0 4.0) (complex 5.0 5.0))) (vec-2 (reverse vec-1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (single-float)) :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type '(complex (single-float)) :initial-contents vec-2) - (gsl-vector:swap v1 v2) - (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)) - (equalp vec-1 (gsl-vector:gsl->lisp-vector v2)))))))) + (gsl-array:swap v1 v2) + (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1)) + (equalp vec-1 (gsl-array:gsl->lisp-vector v2)))))))) ;; ---------------------------------------------------------------------- @@ -890,30 +890,30 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 1.0d0 2.0d0 4.0d0 3.0d0 5.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:swap-elements v1 2 3) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:swap-elements v1 2 3) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "swap-elements-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 1.0 2.0 4.0 3.0 5.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:swap-elements v1 2 3) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:swap-elements v1 2 3) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "swap-elements-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 1 2 4 3 5))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:swap-elements v1 2 3) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:swap-elements v1 2 3) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "swap-elements-complex-double-float" :category +vector+ :test-fn @@ -924,11 +924,11 @@ (vec-2 (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0) (complex 4.0d0 4.0d0) (complex 3.0d0 3.0d0) (complex 5.0d0 5.0d0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (double-float)) :initial-contents vec-1) - (gsl-vector:swap-elements v1 2 3) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:swap-elements v1 2 3) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "swap-elements-complex-single-float" :category +vector+ :test-fn @@ -939,11 +939,11 @@ (vec-2 (vector (complex 1.0 1.0) (complex 2.0 2.0) (complex 4.0 4.0) (complex 3.0 3.0) (complex 5.0 5.0)))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type '(complex (single-float)) :initial-contents vec-1) - (equalp vec-2 (gsl-vector:gsl->lisp-vector - (gsl-vector:swap-elements v1 2 3))))))) + (equalp vec-2 (gsl-array:gsl->lisp-vector + (gsl-array:swap-elements v1 2 3))))))) ;; ---------------------------------------------------------------------- @@ -952,36 +952,36 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 2.0d0 4.0d0 6.0d0 8.0d0 10.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:add v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:add v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "add-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 2.0 4.0 6.0 8.0 10.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:add v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:add v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "add-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 2 4 6 8 10))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:add v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:add v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) ;; ---------------------------------------------------------------------- @@ -991,36 +991,36 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 0.0d0 0.0d0 0.0d0 0.0d0 0.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:sub v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:sub v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "sub-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 0.0 0.0 0.0 0.0 0.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:sub v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:sub v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "sub-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 0 0 0 0 0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:sub v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:sub v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) ;; ---------------------------------------------------------------------- @@ -1029,36 +1029,36 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 1.0d0 4.0d0 9.0d0 16.0d0 25.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:mul v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:mul v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "mul-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 1.0 4.0 9.0 16.0 25.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:mul v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:mul v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "mul-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 1 4 9 16 25))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:mul v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:mul v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) ;; ---------------------------------------------------------------------- @@ -1067,36 +1067,36 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 1.0d0 1.0d0 1.0d0 1.0d0 1.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:div v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:div v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "div-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 1.0 1.0 1.0 1.0 1.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:div v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:div v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) (deftest "div-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 1 1 1 1 1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:with-vector + (gsl-array:with-vector (v2 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:div v1 v2) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))) + (gsl-array:div v1 v2) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))) ;; ---------------------------------------------------------------------- @@ -1106,30 +1106,30 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 10.0d0 20.0d0 30.0d0 40.0d0 50.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:scale v1 10.0d0) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:scale v1 10.0d0) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "scale-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 10.0 20.0 30.0 40.0 50.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:scale v1 10.0) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:scale v1 10.0) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "scale-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 10 20 30 40 50))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:scale v1 10) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:scale v1 10) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) ;; ---------------------------------------------------------------------- @@ -1139,30 +1139,30 @@ #'(lambda () (let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)) (vec-2 (vector 11.0d0 12.0d0 13.0d0 14.0d0 15.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (gsl-vector:add-constant v1 10.0d0) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:add-constant v1 10.0d0) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "add-constant-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0)) (vec-2 (vector 11.0 12.0 13.0 14.0 15.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (gsl-vector:add-constant v1 10.0) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:add-constant v1 10.0) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) (deftest "add-constant-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 1 2 3 4 5)) (vec-2 (vector 11 12 13 14 15))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (gsl-vector:add-constant v1 10) - (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))) + (gsl-array:add-constant v1 10) + (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))) ;; ---------------------------------------------------------------------- @@ -1171,27 +1171,27 @@ #'(lambda () (let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0)) (max-val 5.0d0)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (= max-val (gsl-vector:max-value v1)))))) + (= max-val (gsl-array:max-value v1)))))) (deftest "max-value-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0)) (max-val 5.0)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (= max-val (gsl-vector:max-value v1)))))) + (= max-val (gsl-array:max-value v1)))))) (deftest "max-value-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4 5 1 2 3)) (max-val 5)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (= max-val (gsl-vector:max-value v1)))))) + (= max-val (gsl-array:max-value v1)))))) ;; ---------------------------------------------------------------------- @@ -1200,27 +1200,27 @@ #'(lambda () (let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0)) (min-val 1.0d0)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (= min-val (gsl-vector:min-value v1)))))) + (= min-val (gsl-array:min-value v1)))))) (deftest "min-value-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0)) (min-val 1.0)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (= min-val (gsl-vector:min-value v1)))))) + (= min-val (gsl-array:min-value v1)))))) (deftest "min-value-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4 5 1 2 3)) (min-val 1)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (= min-val (gsl-vector:min-value v1)))))) + (= min-val (gsl-array:min-value v1)))))) ;; ---------------------------------------------------------------------- @@ -1229,27 +1229,27 @@ #'(lambda () (let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0)) (max-idx 1)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (= max-idx (gsl-vector:max-index v1)))))) + (= max-idx (gsl-array:max-index v1)))))) (deftest "max-index-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0)) (max-idx 1)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (= max-idx (gsl-vector:max-index v1)))))) + (= max-idx (gsl-array:max-index v1)))))) (deftest "max-index-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4 5 1 2 3)) (max-idx 1)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (= max-idx (gsl-vector:max-index v1)))))) + (= max-idx (gsl-array:max-index v1)))))) ;; ---------------------------------------------------------------------- @@ -1258,27 +1258,27 @@ #'(lambda () (let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0)) (min-idx 2)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (= min-idx (gsl-vector:min-index v1)))))) + (= min-idx (gsl-array:min-index v1)))))) (deftest "min-index-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0)) (min-idx 2)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (= min-idx (gsl-vector:min-index v1)))))) + (= min-idx (gsl-array:min-index v1)))))) (deftest "min-index-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4 5 1 2 3)) (min-idx 2)) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (= min-idx (gsl-vector:min-index v1)))))) + (= min-idx (gsl-array:min-index v1)))))) ;; ---------------------------------------------------------------------- @@ -1287,27 +1287,27 @@ #'(lambda () (let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0)) (min-max-idx '(2 1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (equal min-max-idx (gsl-vector:min-max-indicies v1)))))) + (equal min-max-idx (gsl-array:min-max-indicies v1)))))) (deftest "min-max-indicies-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0)) (min-max-idx '(2 1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (equal min-max-idx (gsl-vector:min-max-indicies v1)))))) + (equal min-max-idx (gsl-array:min-max-indicies v1)))))) (deftest "min-max-indicies-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4 5 1 2 3)) (min-max-idx '(2 1))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (equal min-max-idx (gsl-vector:min-max-indicies v1)))))) + (equal min-max-idx (gsl-array:min-max-indicies v1)))))) ;; ---------------------------------------------------------------------- @@ -1316,25 +1316,25 @@ #'(lambda () (let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0)) (min-max-val '(1.0d0 5.0d0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'double-float :initial-contents vec-1) - (equal min-max-val (gsl-vector:min-max-values v1)))))) + (equal min-max-val (gsl-array:min-max-values v1)))))) (deftest "min-max-values-single-float" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0)) (min-max-val '(1.0 5.0))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'single-float :initial-contents vec-1) - (equal min-max-val (gsl-vector:min-max-values v1)))))) + (equal min-max-val (gsl-array:min-max-values v1)))))) (deftest "min-max-values-integer" :category +vector+ :test-fn #'(lambda () (let ((vec-1 (vector 4 5 1 2 3)) (min-max-val '(1 5))) - (gsl-vector:with-vector + (gsl-array:with-vector (v1 5 :element-type 'integer :initial-contents vec-1) - (equal min-max-val (gsl-vector:min-max-values v1)))))) + (equal min-max-val (gsl-array:min-max-values v1))))))