diff options
| author |  Uko Kokņevičs | 2025-10-19 07:26:56 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-19 07:26:56 +0300 |
| commit | 3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6 (patch) | |
| tree | b222f24d5e35824a562aef4f4974de9f88cf9b59 /src/enum.lisp | |
| parent | Make config be a global special variable (diff) | |
| download | ukkoclot-3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6.tar.gz ukkoclot-3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6.tar.xz ukkoclot-3b2af0dccba0b51d1d43bc950cf1b2a9f8fecfa6.zip | |
Migrate packages from :ukkoclot to :ukkoclot/src
Diffstat (limited to 'src/enum.lisp')
| -rw-r--r-- | src/enum.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/enum.lisp b/src/enum.lisp index a047c1d..b7cce15 100644 --- a/src/enum.lisp +++ b/src/enum.lisp | |||
| @@ -1,15 +1,15 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/enum | 3 | (defpackage :ukkoclot/src/enum |
| 4 | (:documentation "Macro for generating an enum type.") | 4 | (:documentation "Macro for generating an enum type.") |
| 5 | (:use :c2cl :iterate) | 5 | (:use :c2cl :iterate) |
| 6 | (:import-from :alexandria :with-gensyms) | 6 | (:import-from :alexandria :with-gensyms) |
| 7 | (:import-from :ukkoclot/serializing :fixup-value :parse-value) | 7 | (:import-from :ukkoclot/src/serializing :fixup-value :parse-value) |
| 8 | (:import-from :string-case :string-case) | 8 | (:import-from :string-case :string-case) |
| 9 | (:local-nicknames | 9 | (:local-nicknames |
| 10 | (:jzon :com.inuoe.jzon)) | 10 | (:jzon :com.inuoe.jzon)) |
| 11 | (:export :define-enum)) | 11 | (:export :define-enum)) |
| 12 | (in-package :ukkoclot/enum) | 12 | (in-package :ukkoclot/src/enum) |
| 13 | 13 | ||
| 14 | (eval-when (:compile-toplevel :load-toplevel :execute) | 14 | (eval-when (:compile-toplevel :load-toplevel :execute) |
| 15 | (defstruct (field (:constructor make-field%)) name string) | 15 | (defstruct (field (:constructor make-field%)) name string) |