Function: cl--compiler-macro-adjoin

cl--compiler-macro-adjoin is an autoloaded and byte-compiled function defined in cl-macs.el.gz.

Signature

(cl--compiler-macro-adjoin FORM A LIST &rest KEYS)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-macs.el.gz
;;;###autoload
(defun cl--compiler-macro-adjoin (form a list &rest keys)
  (if (memq :key keys) form
    (macroexp-let2* macroexp-copyable-p ((va a) (vlist list))
      `(if (cl-member ,va ,vlist ,@keys) ,vlist (cons ,va ,vlist)))))