From 69d775b3d3a8f5bdb920630c7bdf6ec1b264b203 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Fri, 24 Oct 2025 08:09:46 +0300
Subject: Configure a custom readtable explicitly

---
 src/readtable.lisp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/readtable.lisp

(limited to 'src/readtable.lisp')

diff --git a/src/readtable.lisp b/src/readtable.lisp
new file mode 100644
index 0000000..ee5af0a
--- /dev/null
+++ b/src/readtable.lisp
@@ -0,0 +1,14 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/src/readtable
+  (:documentation "Defines the custom readtable used within this project.")
+  (:use :c2cl)
+  (:import-from :named-readtables :defreadtable)
+  (:import-from :com.dieggsy.f-string :f-string-reader)
+  (:export :readtable))
+(in-package :ukkoclot/src/readtable)
+
+(defreadtable readtable
+  (:merge :standard)
+  (:dispatch-macro-char #\# #\f #'f-string-reader)
+  (:case :upcase))
-- 
cgit v1.2.3