1 files changed, 2 insertions, 4 deletions
diff --git a/char.lisp b/char.lisp
index 8d1f21c..fc7cb60 100644
--- a/char.lisp
+++ b/char.lisp
@@ -1,7 +1,5 @@
 (in-package #:char)
 
 (defun whitespace? (x)
-  (some (lambda (y) (char= x y)) '(#\Space #\Newline #\Tab)))
-
-(defun visible? (x)
-  (char/= x #\Space #\Newline #\Tab))
+  (or (char= x #\Space)
+      (not (graphic-char-p x))))