(in-package #:char)

(defun whitespace? (x)
  (or (char= x #\Space)
      (not (graphic-char-p x))))