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

[Emanuel Berg]

Michael Heerdegen wrote:

>> (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))) ))))
>
> LGTM.  But you can skip the special treatment of the simple
> (symbolp place) case since your macro is not used
> while bootstrapping.

Let's get that money!

;;; -*- 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))) )))

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