Function GENSYM
gensym &optional x => new-symbol
x - 文字列か、非負の整数。 複雑な動作をするので下記をご確認ください。
new-symbol - 新しい、uninternなシンボル
make-symbolが呼ばれたかように、 新しく、uninternなシンボルが作成し返却されます。 （gensymとmake-symbolの唯一の違いは、 どのようにnew-symbolの名前を決めるかです）
new-symbolの名前は、 標準では"G"のプレフィックスと、 標準では*gensym-counter*の値を 10進数の数で表現したサフィックスを、 順に結合したものになります。
もしxが与えられ、それが文字列のときは、 そのgensymが呼ばれたときのみ、 "G"の代わりのプレフィックスとして使われます。
もしxが与えられ、それが整数のときは、 そのgensymが呼ばれたときのみ、 *gensym-counter*の値の代わりとして、 サフィックスの整数値として使われます。
明にサフィックスが与えられなかった場合は、 実行後に*gensym-counter*がインクリメントされます。
(setq sym1 (gensym)) => #:G3142
(symbol-package sym1) => NIL
(setq sym2 (gensym 100)) => #:G100
(setq sym3 (gensym 100)) => #:G100
(eq sym2 sym3) => false
(find-symbol "G100") => NIL, NIL
(gensym "T") => #:T3143
(gensym) => #:G3144*gensym-counter*はインクリメントされるかもしれません。
もしxが文字列でも、非負の整数でもなければ、 型type-errorのエラーが発せられます。
gensymの引数に数値を渡す機能は非推奨になり、 明示的に*gensym-counter*を束縛するのが 様式上好まれるようになりました。 （オプション引数の多少奇妙な慣習は、本来の歴史的なものであり、 主に古いLispの方言との互換性のためにサポートされています。 現代のコードでは、引数に文字列のプレフィックスのみを 使用することが推奨されています。 しかし、一般的には、 より柔軟にnew-symbolの名前を制御したいのであれば、 代わりにmake-symbolの使用を検討してください。）