Function: MAKE-LOOKUP-NAME

Source

(defun make-lookup-name (name &rest parts)
  (funcall #'intern-concat parts (symbol-package name)))