X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=946f95e98cebaa5304b081b4e2ae5d39ee496ecc;hb=a0a413499415738d23cc40baa44e9c404af54a94;hp=9153a8f2cbe1193cfa17803991884a84edc7b4bd;hpb=d68f3f83e6c5b9bed9789279cbae346f240488cc;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 9153a8f..946f95e 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -362,8 +362,7 @@
       (values vec-sap (sap+ vec-sap #-alpha 4 #+alpha 8) total-bytes))))
 
 (defmacro with-c-strvec ((var str-list) &body body)
-  (let ((sap (gensym "SAP-"))
-	(size (gensym "SIZE-")))
+  (with-unique-names (sap size)
     `(multiple-value-bind
       (,sap ,var ,size)
       (string-list-to-c-strvec ,str-list)