;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; --------------------------------------------------------------------------

(defmacro pushlast (e lst)
  (declare (debug (form gv-place)))
  (macroexp-let2 macroexp-copyable-p x e
    (gv-letplace (get set) lst
      (funcall set `(append ,get (cons ,e nil))))))

(defun bad-list-shift (l)
  (append (last l) (butlast l)))

;; --------------------------------------------------------------------------

(<- 'bad-helpers)