X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-char.lisp;h=57a60eb0d99c08f21861ca1429c3bbb4d5eb3267;hb=428b60fff4247e34ff601810f33976908f22bbc0;hp=5f119433234c64f972bce5ea88517ba8f58030ee;hpb=58084279740fc96c6ffcd14e86dca73b71b7c288;p=sbcl.git

diff --git a/src/code/cross-char.lisp b/src/code/cross-char.lisp
index 5f11943..57a60eb 100644
--- a/src/code/cross-char.lisp
+++ b/src/code/cross-char.lisp
@@ -20,7 +20,6 @@
 	(char ascii-standard-chars (- x 32))))
   (defun sb!xc:char-code (character)
     (declare (type standard-char character))
-    ;; FIXME: MacOS X?
     (if (char= character #\Newline)
 	10
 	(+ (position character ascii-standard-chars) 32))))