From 97f8b6d2a990fe2e93704460fcdf08701616d7e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Mon, 23 Jun 2025 02:23:36 -0300
Subject: Update utils

---
 char.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'char.lisp')

diff --git a/char.lisp b/char.lisp
index 8d1f21c..fc7cb60 100644
--- a/char.lisp
+++ b/char.lisp
@@ -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))))
-- 
cgit v1.2.3