math: elide bignums in ROUND-TO-ODD/32

code/math/implementation.lisp

@@ -194,8 +194,15 @@
          (ash p ,(- size)))))
 
 (defun round-to-odd/32 (g cp)
-  #-(or ecl cmucl) (%round-to-odd-1 g cp 32)
-  #+(or ecl cmucl) (%round-to-odd-2 g cp 32))
+  #+quaviver/bignum-elision
+  (let ((p (umul96-upper64 cp g)))
+    (if (ldb-test (byte 31 1) p)
+        (logior (ash p -32) 1)
+        (ash p -32)))
+  #-quaviver/bignum-elision
+  (progn
+    #-(or ecl cmucl) (%round-to-odd-1 g cp 32)
+    #+(or ecl cmucl) (%round-to-odd-2 g cp 32)))
 
 (defun round-to-odd/64 (g cp)
   #+quaviver/bignum-elision