You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Often, I want to refer to the place I'm setting with an anaphora. The code to do this is as follows:
(defmacro ssetf (&rest bindings)
"Anaphoric setf that binds it to a symbol-macro evaluating to name."
`(progn
,@(loop for (name val &rest _) on bindings by #'cddr
collect
`(symbol-macrolet ((it ,name))
(setf it ,val)))))
The text was updated successfully, but these errors were encountered:
Often, I want to refer to the place I'm setting with an anaphora. The code to do this is as follows:
The text was updated successfully, but these errors were encountered: