X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fthread.lisp;h=fcbdd9412b5891f4482d6017bc0129dafc5c5d4a;hb=670010e3f3dcd62efaf23f61abdc73950edb88c6;hp=1984470365014602808e24114673643842a7f713;hpb=98a76d4426660876dec6649b1e228d2e5b47f579;p=sbcl.git

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 1984470..fcbdd94 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -2,7 +2,7 @@
 
 (sb!xc:defmacro with-recursive-lock ((mutex) &body body)
   #!+sb-thread
-  (let ((cfp (gensym "CFP")))
+  (with-unique-names (cfp)
     `(let ((,cfp (ash (sb!sys:sap-int (sb!vm::current-fp) ) -2)))
       (unless (and (mutex-value ,mutex)
 		   (SB!DI::control-stack-pointer-valid-p