(length (setf ,seq-place (cl-remove ,item ,seq-place ,@keys)))))

(defmacro wg-pushnew-p (item seq-place &rest keys)

  "If ITEM is not a `member' of SEQ-PLACE, push it to SEQ-PLACE and return t.

Otherwise return nil.  KEYS can be any keyword args accepted by `pushnew'."

  `(< (length ,seq-place)

      (length (cl-pushnew ,item ,seq-place ,@keys))))

(defun wg-take (list n)

  "Return a list of the first N elts in LIST."

  (butlast list (- (length list) n)))

(defun wg-rnth (n list)

  "Return the Nth element of LIST, counting from the end."

  (nth (- (length list) n 1) list))

(defun wg-take-until-fail (pred list)

  "Take elements from LIST up to the first element on which PRED fails."

  (let (taken)

    (catch 'result

      (dolist (elt list (nreverse taken))

        (if (funcall pred elt) (push elt taken)

          (throw 'result (nreverse taken)))))))