0.7.7.26:
[sbcl.git] / src / compiler / sparc / insts.lisp
index 5f0b275..7f05f71 100644 (file)
@@ -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)