diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-07-24 00:09:53 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-07-24 00:09:53 -0300 |
| commit | bb4b2bc484ed1d827d707a5a50b234d6994af90c (patch) | |
| tree | 832ec90bf0f34252447c3fd49311d3af3e319d56 /char.lisp | |
| parent | 3d6e80b447ef96cdac3aada1f2ca08073648294f (diff) | |
| download | utils-bb4b2bc484ed1d827d707a5a50b234d6994af90c.tar.gz utils-bb4b2bc484ed1d827d707a5a50b234d6994af90c.zip | |
Diffstat (limited to 'char.lisp')
| -rw-r--r-- | char.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/char.lisp b/char.lisp new file mode 100644 index 0000000..8d1f21c --- /dev/null +++ b/char.lisp @@ -0,0 +1,7 @@ +(in-package #:char) + +(defun whitespace? (x) + (some (lambda (y) (char= x y)) '(#\Space #\Newline #\Tab))) + +(defun visible? (x) + (char/= x #\Space #\Newline #\Tab)) |