Add static-dispatch versions

num-utils.asd

@@ -43,15 +43,46 @@
    (:file "test-utilities")
    (:file "pkgdcl")))
 
+(defsystem "num-utils/static-dispatch"
+  :description "Numerical utilities for Common Lisp enhanced by STATIC-DISPATCH."
+  :depends-on (#:anaphora
+               #:alexandria
+               #:alexandria+
+               #:array-operations
+               #:select
+               #:let-plus
+               #:static-dispatch)
+  :pathname "static-dispatch/"
+  :serial t
+  :components
+  ((:file "packages")
+   (:file "utilities")
+   (:file "num=")
+   (:file "arithmetic")
+;;   (:file "arithmetic-type") ; now in src/old/ Looks like it was a WIP
+   (:file "elementwise")
+   (:file "extended-real")
+   (:file "interval")
+   (:file "print-matrix")
+   (:file "matrix")
+   (:file "matrix-shorthand")
+   (:file "chebyshev")
+   (:file "polynomial")
+   (:file "rootfinding")
+   (:file "quadrature")
+   (:file "log-exp")
+   (:file "test-utilities")
+   (:file "pkgdcl")))
+
 (defsystem "num-utils/tests"
   :version "1.0.0"
   :description "Unit tests for NUM-UTILS."
   :author "Steven Nunez <steve@symbolics.tech>"
   :license "Same as NUM-UTILS -- this is part of the NUM-UTILS library."
   #+asdf-unicode :encoding #+asdf-unicode :utf-8
-  :depends-on (#:num-utils
+  :depends-on (#:num-utils/static-dispatch
                #:fiveam
-	       #:select) ; matrix test needs this
+               #:select) ; matrix test needs this
   :pathname "tests/"
   :serial t
   :components
@@ -75,4 +106,36 @@
   :perform (test-op (o s)
 			 (uiop:symbol-call :fiveam :run!
 					   (uiop:find-symbol* :all-tests
-							      :num-utils-tests))))
+                                  :num-utils-tests))))
+
+(defsystem "num-utils/static-dispatch/tests"
+  :description "Unit tests for NUM-UTILS/STATIC-DISPATCH."
+  :license "Same as NUM-UTILS -- this is part of the NUM-UTILS library."
+  #+asdf-unicode :encoding #+asdf-unicode :utf-8
+  :depends-on (#:num-utils/static-dispatch
+               #:fiveam
+               #:select) ; matrix test needs this
+  :pathname "static-dispatch-tests/"
+  :serial t
+  :components
+  ((:file "test-package")
+   (:file "main")
+   ;; in alphabetical order
+   (:file "arithmetic")
+;; (:file "arithmetic-type") ; No tests included in Papp's version
+   (:file "chebyshev")
+   (:file "polynomial")
+   (:file "elementwise")
+   (:file "extended-real")
+   (:file "interval")
+   (:file "matrix")
+   (:file "matrix-shorthand")
+   (:file "num=")
+   (:file "quadrature")
+   (:file "rootfinding")
+   (:file "log-exp")
+   (:file "utilities"))
+  :perform (test-op (o s)
+             (uiop:symbol-call :fiveam :run!
+                       (uiop:find-symbol* :all-tests
+                                  :num-utils-tests))))

static-dispatch-tests/arithmetic.lisp

@@ -0,0 +1 @@
+../tests/arithmetic.lisp

static-dispatch-tests/chebyshev.lisp

@@ -0,0 +1 @@
+../tests/chebyshev.lisp

static-dispatch-tests/elementwise.lisp

@@ -0,0 +1 @@
+../tests/elementwise.lisp

static-dispatch-tests/extended-real.lisp

@@ -0,0 +1 @@
+../tests/extended-real.lisp

static-dispatch-tests/interval.lisp

@@ -0,0 +1 @@
+../tests/interval.lisp

static-dispatch-tests/log-exp.lisp

@@ -0,0 +1 @@
+../tests/log-exp.lisp

static-dispatch-tests/main.lisp

@@ -0,0 +1 @@
+../tests/main.lisp

static-dispatch-tests/matrix-shorthand.lisp

@@ -0,0 +1 @@
+../tests/matrix-shorthand.lisp

static-dispatch-tests/matrix.lisp

@@ -0,0 +1 @@
+../tests/matrix.lisp

static-dispatch-tests/num=.lisp

@@ -0,0 +1 @@
+../tests/num=.lisp

static-dispatch-tests/polynomial.lisp

@@ -0,0 +1 @@
+../tests/polynomial.lisp

static-dispatch-tests/quadrature.lisp

@@ -0,0 +1 @@
+../tests/quadrature.lisp

static-dispatch-tests/rootfinding.lisp

@@ -0,0 +1 @@
+../tests/rootfinding.lisp

static-dispatch-tests/test-package.lisp

@@ -0,0 +1,26 @@
+;;; -*- Mode: LISP; Base: 10; Syntax: ANSI-Common-Lisp; Package: CL-USER -*-
+;;; Copyright (c) 2021-2022 by Symbolics Pte. Ltd. All rights reserved.
+
+(uiop:define-package #:num-utils-tests
+  (:use #:static-dispatch-cl
+        #:alexandria
+        #:anaphora
+        #:let-plus
+        #:fiveam
+        #:select
+
+        ;; num-utils subpackages (alphabetical order)
+        #:num-utils.arithmetic
+        #:num-utils.chebyshev
+        #:num-utils.elementwise
+        #:num-utils.interval
+	#:num-utils.log-exp
+        #:num-utils.matrix
+        #:num-utils.matrix-shorthand
+        #:num-utils.num=
+        #:num-utils.polynomial
+        #:num-utils.quadrature
+        #:num-utils.rootfinding
+	#:num-utils.test-utilities
+        #:num-utils.utilities)
+  (:export #:run))

static-dispatch-tests/utilities.lisp

@@ -0,0 +1 @@
+../tests/utilities.lisp

static-dispatch/arithmetic.lisp

@@ -0,0 +1 @@
+../src/../src/arithmetic.lisp

static-dispatch/chebyshev.lisp

@@ -0,0 +1 @@
+../src/../src/chebyshev.lisp

static-dispatch/elementwise.lisp

@@ -0,0 +1 @@
+../src/../src/elementwise.lisp

static-dispatch/extended-real.lisp

@@ -0,0 +1 @@
+../src/../src/extended-real.lisp

static-dispatch/interval.lisp

@@ -0,0 +1 @@
+../src/../src/interval.lisp

static-dispatch/log-exp.lisp

@@ -0,0 +1 @@
+../src/../src/log-exp.lisp

static-dispatch/matrix-shorthand.lisp

@@ -0,0 +1 @@
+../src/../src/matrix-shorthand.lisp

static-dispatch/matrix.lisp

@@ -0,0 +1 @@
+../src/../src/matrix.lisp

static-dispatch/num=.lisp

@@ -0,0 +1 @@
+../src/../src/num=.lisp