Re: Easy to add with push but not to the end of a list

[Emanuel Berg]

Michael Heerdegen wrote:

>> How do you do a `pushlast' macro?
>
> I would start with `push' and change the definition so that
> the expansion uses an according `append' call.

Like this?

A lot of unfamiliar stuff it that code ...

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/list.el

(defmacro pushlast (newelt place)
  (declare (debug (form gv-place)))
  (if (symbolp place)
      (list 'setq place
            (list 'append place (list 'cons newelt nil)) )
    (macroexp-let2 macroexp-copyable-p x newelt
      (gv-letplace (getter setter) place
        (funcall setter `(append ,getter (cons ,x nil))) ))))

-- 
underground experts united
https://dataswamp.org/~incal