X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Finsts.lisp;h=7f05f7142eeff2d4a3788aaa5d8ce38e246a82fb;hb=ea652c139bb060d821f3010b3b106bdbcec983aa;hp=5f0b2750852c8159cb5ffcbf6eaa9fe4cc60df15;hpb=073501ed49414d9638cb41c05fb80627529f796d;p=sbcl.git

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 5f0b275..7f05f71 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -949,7 +949,7 @@ about function addresses and register values.")
   (with-ref-format `(:NAME :TAB rd ", " ,ref-format))
   #'equalp)
 
-) ; eval-when (compile eval)
+) ; EVAL-WHEN
 
 (macrolet ((define-f3-inst (name op op3 &key fixup load-store (dest-kind 'reg)
 				 (printer :default) reads writes flushable print-name)