From a802a63364721a2da95b75bc8ab19abfa4888373 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sat, 18 Oct 2025 08:19:45 +0300
Subject: Bunch more tiny improvements

---
 src/strings.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/strings.lisp')

diff --git a/src/strings.lisp b/src/strings.lisp
index f08010e..b1b4f00 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -34,7 +34,7 @@
       (#\> (write-string ">" out))
       (#\& (write-string "&" out))
       (#\" (write-string """ out))
-      (t (write-char ch out)))))
+      (otherwise (write-char ch out)))))
 
 (defun is-tg-whitespace (ch)
   (let ((gc (general-category ch)))
@@ -65,14 +65,14 @@
     (loop for ch across str do
       (case ch
         (#\- (write-char #\_ out))
-        (t (write-char ch out))))))
+        (otherwise (write-char ch out))))))
 
 (defun snake->lisp-case (str)
   (with-output-to-string (out)
     (loop for ch across str do
       (case ch
         (#\_ (write-char #\- out))
-        (t (write-char ch out))))))
+        (otherwise (write-char ch out))))))
 
 (defun starts-with (str prefix)
   (and (> (length str) (length prefix))
-- 
cgit v1.2.3