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