diff options
Diffstat (limited to 'src/readtable.lisp')
| -rw-r--r-- | src/readtable.lisp | 14 |
1 files changed, 14 insertions, 0 deletions
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 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/src/readtable | ||
| 4 | (:documentation "Defines the custom readtable used within this project.") | ||
| 5 | (:use :c2cl) | ||
| 6 | (:import-from :named-readtables :defreadtable) | ||
| 7 | (:import-from :com.dieggsy.f-string :f-string-reader) | ||
| 8 | (:export :readtable)) | ||
| 9 | (in-package :ukkoclot/src/readtable) | ||
| 10 | |||
| 11 | (defreadtable readtable | ||
| 12 | (:merge :standard) | ||
| 13 | (:dispatch-macro-char #\# #\f #'f-string-reader) | ||
| 14 | (:case :upcase)) | ||