X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-char.lisp;h=c6cdf150972dfea58d237d523abd7b9449946ea9;hb=90a83478829f33b91f6300c183b374a968bc13c6;hp=57a60eb0d99c08f21861ca1429c3bbb4d5eb3267;hpb=771b864c8f32af7734bc0550aeaf1539fc4df194;p=sbcl.git

diff --git a/src/code/cross-char.lisp b/src/code/cross-char.lisp
index 57a60eb..c6cdf15 100644
--- a/src/code/cross-char.lisp
+++ b/src/code/cross-char.lisp
@@ -16,10 +16,10 @@
   (defun sb!xc:code-char (x)
     (declare (type (or (integer 10 10) (integer 32 126)) x))
     (if (= x 10)
-	#\Newline
-	(char ascii-standard-chars (- x 32))))
+        #\Newline
+        (char ascii-standard-chars (- x 32))))
   (defun sb!xc:char-code (character)
     (declare (type standard-char character))
     (if (char= character #\Newline)
-	10
-	(+ (position character ascii-standard-chars) 32))))
+        10
+        (+ (position character ascii-standard-chars) 32))))