diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 14:44:37 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 15:10:43 +0000 |
| commit | 8bd79009460615d122cd289228d64d16adf704d6 (patch) | |
| tree | cb7b3d015b7340d909a8da9c5f74fdc2f0274376 | |
| parent | a1a9ae008ad739bede9d895e6dd3d521bd4048f8 (diff) | |
| download | cantedraw-8bd79009460615d122cd289228d64d16adf704d6.tar.gz cantedraw-8bd79009460615d122cd289228d64d16adf704d6.tar.bz2 cantedraw-8bd79009460615d122cd289228d64d16adf704d6.zip | |
Use := instead of = so we're not re-interning a symbol in cl-loop
| -rw-r--r-- | lib.functions.lisp | 2 | ||||
| -rw-r--r-- | lib.macros.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib.functions.lisp b/lib.functions.lisp index e56c224..48f50bc 100644 --- a/lib.functions.lisp +++ b/lib.functions.lisp @@ -42,7 +42,7 @@ each member is STEP distance apart." where key x in A has associations {y in LST : INDICATOR(y) = x}." (loop :with assoc-list := nil :for element :in lst - :for key = (funcall indicator element) + :for key := (funcall indicator element) :if (assoc key assoc-list :test key-eq) :do (->> (alist-val key assoc-list) (cons element) diff --git a/lib.macros.lisp b/lib.macros.lisp index 6895885..bd1c239 100644 --- a/lib.macros.lisp +++ b/lib.macros.lisp @@ -38,7 +38,7 @@ 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) + :for canon-f := (if (symbolp f) (list f 'lib.macros:_) f) :collect `(lib.macros:_ ,canon-f)))) `(let* ,assignment-forms lib.macros:_)))) |