X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-char.lisp;h=161d893ef86a1934d72b5f5d0ffd473995389ba3;hb=bb93c9001110f38e28af43012e2c4bdda871b630;hp=4be9e8376bc3485de4a4570d2f4c4fb111c358fc;hpb=0a535fd0f5db046624b05aa956395d3b502ec927;p=sbcl.git

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index 4be9e83..161d893 100644
--- 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