Prefix all packages with cantedraw

This is mostly a sanity check in-case anyone else decides to load this
system for use in their own package - don't want to conflict with
their names.
This commit is contained in:
2025-02-14 16:11:54 +00:00
parent 4c27e7d5c1
commit 02ff1a3fb3
5 changed files with 16 additions and 14 deletions

View File

@@ -17,7 +17,7 @@
;;; Code:
(in-package :lib.macros)
(in-package :cantedraw.lib.macros)
(defmacro --> (&rest forms)
"Lexically bind current form as `_' for use in the next form, returning the
@@ -38,10 +38,12 @@ Also includes transformer where symbols are considered unary functions i.e.
nil
(let ((assignment-forms
(loop :for f :in forms
:for canon-f := (if (symbolp f) (list f 'lib.macros:_) f)
:collect `(lib.macros:_ ,canon-f))))
:for canon-f := (if (symbolp f)
(list f 'cantedraw.lib.macros:_)
f)
:collect `(cantedraw.lib.macros:_ ,canon-f))))
`(let* ,assignment-forms
lib.macros:_))))
cantedraw.lib.macros:_))))
(defmacro ->> (&rest forms)
"Make current form the last argument of the next form, returning the last