ButLast

These functions are derived from the Common Lisp ButLast/ButLastN functions.

Code

(defun butlast (lst /)
  (reverse (cdr (reverse lst)))
)

(defun butlastN (lst n /)
  (setq lst (reverse lst))
  (repeat n
    (setq lst (cdr lst))
  )
  (reverse lst)
)