0.8alpha.0.9:

[sbcl.git] / src / code / thread.lisp

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index 1984470..fcbdd94 100644 (file)
--- 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