0.pre7.38:

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

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index a002989..f8aef32 100644 (file)
--- a/src/code/target-char.lisp
+++ b/src/code/target-char.lisp
@@ -218,6 +218,13 @@
          ;; 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