From 8bd79009460615d122cd289228d64d16adf704d6 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Fri, 14 Feb 2025 14:44:37 +0000 Subject: Use := instead of = so we're not re-interning a symbol in cl-loop --- lib.functions.lisp | 2 +- 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:_)))) -- cgit v1.2.3-13-gbd6f