X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=7bb66a9865a73760eeddf8a1b6dbe33284cd8d96;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=40ec188b1a9633d5ece204c0f3f5e922cb21d2d8;hpb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 40ec188..7bb66a9 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -272,17 +272,6 @@
             (write-char #\> stream))))
   nil)
 
-;;;; WHITESPACE-CHAR-P
-
-;;; This is used in other files, but is defined in this one for some reason.
-(defun whitespace-char-p (char)
-  #!+sb-doc
-  "Determines whether or not the character is considered whitespace."
-  (or (char= char #\space)
-      (char= char (code-char tab-char-code))
-      (char= char (code-char return-char-code))
-      (char= char #\linefeed)))
-
 ;;;; circularity detection stuff
 
 ;;; When *PRINT-CIRCLE* is T, this gets bound to a hash table that