(in-package #:char)

(defun whitespace? (x)
  (some (lambda (y) (char= x y)) '(#\Space #\Newline #\Tab)))

(defun visible? (x)
  (char/= x #\Space #\Newline #\Tab))