Fix --> to not convert first argument, if it's a symbol, to a form.

2025-02-22 23:02:19 +00:00
parent a80b64b045
commit e7bf0b4fc6
1 changed files with 3 additions and 2 deletions
--- a/lib/macros.lisp
+++ b/lib/macros.lisp
@@ -37,8 +37,9 @@ Also includes transformer where symbols are considered unary functions i.e.
  (if (null forms)
      nil
      (let ((assignment-forms
-              (loop :for f :in forms
-                    :for canon-f := (if (symbolp f)
+              (loop :for i :from 0
+                    :for f :in forms
+                    :for canon-f := (if (and (> i 0) (symbolp f))
                                        (list f placeholder)
                                        f)
                    :collect `(,placeholder ,canon-f))))