diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-23 02:23:36 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-06-23 02:23:36 -0300 |
| commit | 97f8b6d2a990fe2e93704460fcdf08701616d7e4 (patch) | |
| tree | dec4638301655b0f6a7dea9ed8765a02f1eb94e2 /char.lisp | |
| parent | bb4b2bc484ed1d827d707a5a50b234d6994af90c (diff) | |
| download | utils-97f8b6d2a990fe2e93704460fcdf08701616d7e4.tar.gz utils-97f8b6d2a990fe2e93704460fcdf08701616d7e4.zip | |
Diffstat (limited to 'char.lisp')
| -rw-r--r-- | char.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1,7 +1,5 @@ (in-package #:char) (defun whitespace? (x) - (some (lambda (y) (char= x y)) '(#\Space #\Newline #\Tab))) - -(defun visible? (x) - (char/= x #\Space #\Newline #\Tab)) + (or (char= x #\Space) + (not (graphic-char-p x)))) |