(defun intern (name &optional (package *package*)) …)

(dynamic-variable-used-by-function 'intern) -> (*package*)
(dynamic-variable-used-by-function 'concatenate) -> () ; hopefully!
(dynamic-variable-used-by-function 'prin1-to-string) -> (*print-array* *print-base* *print-case* *print-circle*
                                                         *print-escape* *print-gensym* *print-length* *print-level*
                                                         *print-lines* *print-miser-width* *print-pprint-dispatch*
                                                         *print-pretty* *print-radix* *print-readably* *print-right-margin*)


(defun foo (name)
  (intern (concatenate 'string name (prin1-to-string 42))))
;; Notice: foo calls a function that uses the dynamic variables:
;;         *package* *print-array* *print-base* *print-case* *print-circle*
;;         *print-escape* *print-gensym* *print-length* *print-level*
;;         *print-lines* *print-miser-width* *print-pprint-dispatch*
;;         *print-pretty* *print-radix* *print-readably* *print-right-margin*