;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/list.el (defmacro pushlast (newelt place) (declare (debug (form gv-place))) (macroexp-let2 macroexp-copyable-p x newelt (gv-letplace (getter setter) place (funcall setter `(append ,getter (cons ,x nil))) ))) (provide 'list)