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

(defun lists (&rest l)
  `(,@l) )

;; (lists)                      ; ()
;; (lists '(a b c) '(d e f))    ; ((a b c) (d e f))
;; (lists () '(a) '(b c d e f)) ; (() (a) (b c d e f))

(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)