X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=c05b5d0f9de1eabd5bd3ccdadea777e8d3cbaa4c;hb=df679ed627975948b1cee190f4d79c397588c43e;hp=c5f7b4184d7edb1aa2a1f78b9a0697486ff09a09;hpb=f422a2ce49eb30a01ce71935eaadeb92badc41a4;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index c5f7b41..c05b5d0 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -444,7 +444,7 @@
 					  :format-control "execution of a form compiled with errors:~% ~S"
 					  :format-arguments (list ',,form))))
 			       &body body)
-			      (let ((skip (gensym "SKIP")))
+			      (with-unique-names (skip)
 				`(block ,skip
 				   (catch 'ir1-error-abort
 				     (let ((*compiler-error-bailout*