1 2 3 4 5
(in-package #:char) (defun whitespace? (x) (or (char= x #\Space) (not (graphic-char-p x))))
