liebler: unquote accidentally quoted vars in conditions

* code/liebler/implementation.lisp (%liebler): Unquote SIGNIFICAND, EXPONENT, SIGN in overflow and underflow calls.
s-expressionists · Jul 11, 2024 · 9a518b7 · 9a518b7
1 parent 5ba66fa
commit 9a518b7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/code/liebler/implementation.lisp b/code/liebler/implementation.lisp
@@ -31,11 +31,11 @@
                (when (> q ,(+ max-exponent
                               (quaviver.math:ceiling-log-expt 2 10 1)))
                  (quaviver::integer-float-overflow
-                  ,client ',result-type 10 significand exponent sign))
+                  ,client ',result-type 10 ,significand ,exponent ,sign))
                (when (< q ,(- min-exponent
                               (quaviver.math:ceiling-log-expt 2 10 1)))
                  (quaviver::integer-float-underflow
-                  ,client ',result-type 10 significand exponent sign))
+                  ,client ',result-type 10 ,significand ,exponent ,sign))
                (setf ,significand (quaviver.math:round-to-odd
                                    ,arithmetic-size
                                    (ash ,significand shift)