COMMON LISP JP > Archives > 2013/11/04

> Unknown CFFI type: :STRUCT."

このエラーは、CFFIのバージョンが古い場合に発生するようです。

https://github.com/tkych/quicksearch/issues/1
http://comments.gmane.org/gmane.lisp.quicklisp/469

おそらく、システムディレクトリ(/usr/share/common-lisp とか)にインストールされている古いバージョンのCFFIが、Quicklispでインストールされている新しいCFFIよりも優先的にロードされてしまっているものと思います。
システムにインストールされているCFFIを削除すれば（あるいはシステムのCFFIのバージョンを上げれば)、問題は起きなくなると思います。

そんなことをせずとも、Quicklispのライブラリを優先させる方法が何かあるとは思うのですが、まだ分かっていません。
たぶん ASDFの ~/.config/common-lisp/source-registry.conf あたりじゃないかと思うのだけれど、どう書いても ASDF/SOURCE-REGISTRY:INVALID-SOURCE-REGISTRY エラーになってしまって……http://common-lisp.net/project/asdf/asdf/Controlling-where-ASDF-searches-for-systems.html

解決法が分かりました。

#+quicklisp
(quicklisp:use-only-quicklisp-systems)
処理系の初期化ファイル(~/.sbclrc 等)に
を書き足して見てください。

ディストリビューションのパッケージ管理システムによりCFFI (0.10.6)がインストールされている状態で sbcl --load sdl-tutorial05.lisp を実行すると、kaiさんのと同じエラーが起きること、及び (quicklisp:use-only-quicklisp-systems) を初期化ファイルに書いておくと同エラーが生じないことを、確認しました。

onload = function() {
  draw();
};
function draw() {
  /* canvas要素のノードオブジェクト */
  var canvas = document.getElementById('canvassample');
  /* canvas要素の存在チェックとCanvas未対応ブラウザの対処 */
  if ( ! canvas || ! canvas.getContext ) {
    return false;
  }
  /* 2Dコンテキスト */
  var ctx = canvas.getContext('2d');
  /* 四角を描く */
  ctx.beginPath();
  ctx.moveTo(20, 20);
  ctx.lineTo(120, 20);
  ctx.lineTo(120, 120);
  ctx.lineTo(20, 120);
  ctx.closePath();
  ctx.stroke();
}

CL-USER> (defvar canvas (#j:document:createElement "canvas"))
CANVAS
CL-USER> (cl::oget canvas "getContext")        ;canvas.getContext;
#<FUNCTION>
CL-USER> ((cl::oget canvas "getContext") "2d") ;canvas.getContext("2d");
#<javascript object>

CL-USER> (defvar context ((cl::oget canvas "getContext") "2d"))
CONTEXT
CL-USER> (cl::oget context "beginPath")
#<FUNCTION> ;関数の取得はできている
CL-USER> ((cl::oget context "beginPath")) ;でも呼び出すと…
ERROR: Variable `*' is unbound.