ieee754: optimize sb32-ub32

* code/ieee754/implementation.lisp (sb32-ub32): Replace conditional with a call to LDB.
s-expressionists · Jun 11, 2024 · 9e2fabb · 9e2fabb
1 parent 8de064c
commit 9e2fabb
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/code/ieee754/implementation.lisp b/code/ieee754/implementation.lisp
@@ -20,9 +20,7 @@
 
 (declaim (inline sb32-ub32))
 (defun sb32-ub32 (sb32)
-  (if (minusp sb32)
-      (+ sb32 #.(ash 1 32))
-      sb32))
+  (ldb (byte 32 0) sb32))
 
 ;;; Based on NIBBLES::IEEE-SINGLE-REF/BE [1].
 ;;;