quaviver: add integer-float base 2 for ECL

s-expressionists · Jun 26, 2024 · 0465fa9 · 0465fa9
1 parent 8baf9a6
commit 0465fa9
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/code/integer-float-2.lisp b/code/integer-float-2.lisp
@@ -148,3 +148,12 @@
  #+sbcl
  (sb-kernel:make-double-float (ub32-sb32 (ldb (byte 32 32) bits))
  (ldb (byte 32 0) bits))))
+
+#+quaviver/long-float
+(defmethod integer-float
+ (client (result-type (eql 'long-float)) (base (eql 2)) significand exponent sign)
+ (declare (ignore client))
+ (%integer-encode-float
+ (long-float bits significand exponent sign)
+ #+ecl
+ (system:bits-long-float bits)))