Add quaviver/math

s-expressionists · Jun 13, 2024 · 836d25d · 836d25d
1 parent 2d0e4c4
commit 836d25d
Show file tree

Hide file tree

Showing 7 changed files with 832 additions and 827 deletions.
diff --git a/code/benchmark/float-decimal.lisp b/code/benchmark/float-decimal.lisp
@@ -1,11 +1,14 @@
 (cl:in-package #:quaviver/benchmark)
 
 (defvar *clients*
- '((:label "Burger-Dybvig 1" :initargs (quaviver/burger-dybvig:client-1))
+ `((:label "Burger-Dybvig 1" :initargs (quaviver/burger-dybvig:client-1))
  (:label "Burger-Dybvig 2" :initargs (quaviver/burger-dybvig:client-2))
  (:label "Schubfach" :initargs (quaviver/schubfach:client))
  #+(or abcl ccl clasp cmucl ecl sbcl)
- (:label "Native" :initargs (quaviver/native:client))))
+ (:label ,(format nil
+ "Native (~a)"
+ (lisp-implementation-type))
+ :initargs (quaviver/native:client))))
 
 (defun float-decimal ()
  (labels ((bench (clients limit key)

diff --git a/code/math.lisp b/code/math.lisp