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 /lib.functions.lisp | |
| 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
Diffstat (limited to 'lib.functions.lisp')
| -rw-r--r-- | lib.functions.lisp | 2 |
1 files changed, 1 insertions, 1 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) |