0.8.7.19:

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

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index 4be9e83..161d893 100644 (file)
--- a/src/code/target-char.lisp
+++ b/src/code/target-char.lisp
@@ -210,13 +210,6 @@
          ;; Else, fail.
          (t nil))))
 
-(defun whitespace-char-p (x)
-  (and (characterp x)
-       (or (char= x #\space)
-          (char= x (code-char tab-char-code))
-          (char= x (code-char return-char-code))
-          (char= x #\linefeed))))
-
 (defun alphanumericp (char)
   #!+sb-doc
   "Given a character-object argument, ALPHANUMERICP returns T if the