X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-float.lisp;h=3b04153cf50b9288a0a6b620c1d8044811d1f8e5;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=a820745b8237a988f1de07d7591749c0f5f3c0b7;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/cross-float.lisp b/src/code/cross-float.lisp
index a820745..3b04153 100644
--- a/src/code/cross-float.lisp
+++ b/src/code/cross-float.lisp
@@ -79,7 +79,7 @@
 			 (>= significand (expt 2 23))
 			 (assert (< 0 significand (expt 2 24)))
 			 ;; Exponent 0 is reserved for denormalized numbers,
-			 ;; and 255 is reserved for specials a la NaN.
+			 ;; and 255 is reserved for specials like NaN.
 			 (assert (< 0 exponent 255))
 			 (return (logior (ash exponent 23)
 					 (logand significand
@@ -124,7 +124,7 @@
 			 (>= significand (expt 2 52))
 			 (assert (< 0 significand (expt 2 53)))
 			 ;; Exponent 0 is reserved for denormalized numbers,
-			 ;; and 2047 is reserved for specials a la NaN.
+			 ;; and 2047 is reserved for specials like NaN.
 			 (assert (< 0 exponent 2047))
 			 (return (logior (ash exponent 52)
 					 (logand significand
@@ -171,7 +171,7 @@
 ;;; cross-compilation host Lisps are likely to have exactly the same
 ;;; floating point precision as the target Lisp. If it turns out to be
 ;;; a problem, there are possible workarounds involving portable
-;;; representations for target floating point numbers, a la
+;;; representations for target floating point numbers, like
 ;;;   (DEFSTRUCT TARGET-SINGLE-FLOAT
 ;;;     (SIGN (REQUIRED-ARGUMENT) :TYPE BIT)
 ;;;     (EXPONENT (REQUIRED-ARGUMENT) :TYPE UNSIGNED-BYTE)