diff options
| -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:_)))) |