quaviver: Add Clasp long-float/short-float

code/ansi-test/test.lisp

@@ -54,7 +54,7 @@
 (defvar *client-initargs*
  '((burger-dybvig)
  (schubfach)
- #-ecl (dragonbox)))
+ #-(or ecl (and clasp long-float)) (dragonbox)))
 
 (defun test (&rest args &key exit &allow-other-keys)
  (setf args (remprop :exit args))

code/bits-float-form.lisp

@@ -17,6 +17,8 @@
 
 #+quaviver/short-float
 (defmethod bits-float-form ((float-type (eql 'short-float)) value)
+ #+clasp
+ `(ext:bits-to-short-float ,value)
  #+clisp
  `(ffi:with-foreign-object (u '(ffi:c-union (value ffi:single-float)
  (bits ffi:uint32)))
@@ -126,9 +128,11 @@
 
 #+quaviver/long-float
 (defmethod bits-float-form ((float-type (eql 'long-float)) value)
- #-quaviver/long-float-fallback
+ #+clasp
+ `(ext:bits-to-long-float ,value)
+ #+(and ecl (not quaviver/long-float-fallback))
  `(system:bits-long-float ,value)
- #+quaviver/long-float-fallback
+ #+(and ecl quaviver/long-float-fallback)
  (alexandria:with-gensyms
  (m n v)
  `(let ((,v ,value))

code/float-bits-form.lisp

@@ -2,6 +2,8 @@
 
 #+quaviver/short-float
 (defmethod float-bits-form ((float-type (eql 'short-float)) value)
+ #+clasp
+ `(ext:short-float-to-bits ,value)
  #+clisp
  `(ffi:with-foreign-object (u '(ffi:c-union (value ffi:single-float)
  (bits ffi:uint32)))
@@ -107,9 +109,11 @@
 
 #+quaviver/long-float
 (defmethod float-bits-form ((float-type (eql 'long-float)) value)
- #-quaviver/long-float-fallback
+ #+clasp
+ `(ext:long-float-to-bits ,value)
+ #+(and ecl (not quaviver/long-float-fallback))
  `(system:long-float-bits ,value)
- #+quaviver/long-float-fallback
+ #+(and ecl quaviver/long-float-fallback)
  (alexandria:with-gensyms
  (m n)
  `(ffi:with-foreign-object (,m 'long-float/uint128)

code/packages.lisp

@@ -42,10 +42,10 @@
  #:exponent-word
  #:define-number-parser))
 
-#+clisp
+#+(or clisp (and clasp short-float))
 (pushnew :quaviver/short-float *features*)
 
-#+(and ecl long-float)
+#+(and (or clasp ecl) long-float)
 (pushnew :quaviver/long-float *features*)
 
 (defpackage #:quaviver.math