X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Farith.lisp;h=73cc8568ccbc28e8c5df5c7c5520ae80b4b6468b;hb=51cf665f514935c8067f86f3850fd917731cada0;hp=1cc39d68bfff5d662f1523f49080f6e4daa5d2a6;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/compiler/hppa/arith.lisp b/src/compiler/hppa/arith.lisp
index 1cc39d6..73cc856 100644
--- 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))