(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))))