;; 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))