1 2 3 4 5 6 7
(in-package #:char) (defun whitespace? (x) (some (lambda (y) (char= x y)) '(#\Space #\Newline #\Tab))) (defun visible? (x) (char/= x #\Space #\Newline #\Tab))
