既存のシンボルに文字列を追加して新しいシンボルを生成する - lisp-cookbook-ja/common-lisp GitHub Wiki

シンボル

与えられたシンボルから新規にシンボルを作ります。

(defun symbol+ (x y)
  (intern (concatenate 'string (symbol-name x) (symbol-name y))))
; => SYMBOL+
(symbol+ 'a '#:-view)
; => A-VIEW

マクロの定義で便利ではないでしょうか。