X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=c05b5d0f9de1eabd5bd3ccdadea777e8d3cbaa4c;hb=670010e3f3dcd62efaf23f61abdc73950edb88c6;hp=c5f7b4184d7edb1aa2a1f78b9a0697486ff09a09;hpb=98a76d4426660876dec6649b1e228d2e5b47f579;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*