0.8.16.6:

[sbcl.git] / src / code / cross-char.lisp

diff --git a/src/code/cross-char.lisp b/src/code/cross-char.lisp
index 5f11943..57a60eb 100644 (file)
--- 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))))