0.8alpha.0.9:

[sbcl.git] / src / compiler / hppa / arith.lisp

diff --git a/src/compiler/hppa/arith.lisp b/src/compiler/hppa/arith.lisp
index 1cc39d6..73cc856 100644 (file)
--- a/src/compiler/hppa/arith.lisp
+++ b/src/compiler/hppa/arith.lisp
@@ -750,8 +750,7 @@
           (sb!bignum:%multiply ,x ,y)
           (values ,carry))
         (values ,extra)))
-  (let ((hi (gensym "HI-"))
-       (lo (gensym "LO-")))
+  (with-unique-names (hi lo)
     (if (eql extra 0)
        `(multiple-value-bind (,hi ,lo) (sb!bignum:%multiply ,x ,y)
           (sb!bignum::%dual-word-add ,hi ,lo ,carry))