;; Allegro CL付属のOLEパッケージをロード (require :ole) ;; WScript.Shellのクライアントインスタンスを作成 (defvar *obj* (ole:ask-for-autotool "WScript.Shell" ole:clsctx_inproc_server)) ;; メソッド呼び出し ;; (ole:auto-method <obj> <method-name-string-or-symbol> &rest <params>) (ole:auto-method *obj* :popup "hogehoge!") ;; すると、「hogehoge!」というポップアップウィンドウが出てくる。 JScriptやVBScriptと同じように呼び出せた。Allegro CL 8.1のsample08に載っている、Excelラッパーの例を参考にした。