X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fnumbers.lisp;h=03ba7c5d50a1ee2122b6e622a0b96b88f1e401ed;hb=581e3d62de8cb37e13ad9db63e5537c0f962be28;hp=8e668dc57822cacfb7b4bcfabd71d1b3c72c7baa;hpb=c716f6ea5255afeb33a1181535b5c067aa9d6aaa;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index 8e668dc..03ba7c5 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -411,7 +411,7 @@
 				(nd (if (eql t2 1) t3 (* t2 t3))))
 			   (if (eql nd 1) nn (%make-ratio nn nd))))))))))))
 
-); Eval-When (Compile)
+) ; EVAL-WHEN
 
 (two-arg-+/- two-arg-+ + add-bignums)
 (two-arg-+/- two-arg-- - subtract-bignum)