JNDIネーミングサービスのアクセスをサポートしました

JNDIネーミングサービスのアクセスをサポートしました。
JNDIネーミングサービスへのバインド・参照ができます。
以下の例はファイルシステムJNDIにDBデータソースをバインドする例です。
動作にはJNDIライブラリをOracleのサイトからダウンロードする必要があります。
WebアプリケーションであればTomcatのserver.xmlに記述されたデータソースを参照することもできると思います。

; JNDIプロパティ
(define prop
  '((initial-context-factory . "com.sun.jndi.fscontext.RefFSContextFactory")
    (provider-url . "file:パス名")))

; MySQLのデータソース
(define dts (new com.mysql.jdbc.jdbc2.optional.MysqlDataSource))

(bind-jndi "datasource" dts prop)  ; JNDIへのバインド
(lookup-datasource "datasource" prop)  ; JNDIからのデータソース参照
(unbind-jndi "datasource" prop)  ; JNDIのアンバインド