0.9.2.43:
[sbcl.git] / src / code / cross-char.lisp
index 57a60eb..c6cdf15 100644 (file)
   (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))))