Function: cl--generic-upcase-formal-args

cl--generic-upcase-formal-args is a byte-compiled function defined in cl-generic.el.gz.

Signature

(cl--generic-upcase-formal-args ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-generic.el.gz
(defun cl--generic-upcase-formal-args (args)
  (mapcar (lambda (arg)
            (cond
             ((symbolp arg)
              (let ((name (symbol-name arg)))
                (if (eq ?& (aref name 0)) arg
                  (intern (upcase name)))))
             ((consp arg)
              (cons (intern (upcase (symbol-name (car arg))))
                    (cdr arg)))
             (t arg)))
          args))