X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-char.lisp;h=f8aef32ea2e3fe47a263e525f0a44357982b6e57;hb=7dd568fb64927be78556ac27f1f0dc60e79cf942;hp=a00298903d74281f6ce818f9e25f5cbf8de84cee;hpb=334af30b26555f0bf706f7157b399bdbd4fad548;p=sbcl.git

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index a002989..f8aef32 100644
--- 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