X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fmacros.lisp;h=dc0247facef224548a6a74b111189f941d221741;hb=3da8e4ca35e534942f7a5046490d169509170c85;hp=a02c756d79831767c67829e1834841c5f3f8b330;hpb=a2ff6543c79752bfe42578f794bda1c28167fd10;p=sbcl.git

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index a02c756..dc0247f 100644
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -163,8 +163,8 @@
 
 (defun allocation (alloc-tn size &optional ignored)
   (declare (ignore ignored))
-  (let ((not-inline (gen-label))
-	(done (gen-label))
+  (let ((NOT-INLINE (gen-label))
+	(DONE (gen-label))
 	;; Yuck.
 	(in-elsewhere (eq *elsewhere* sb!assem::**current-segment**))
 	(free-pointer