Wilbur

Common Lisp のセマンティック Web ライブラリ。 AllegroGraph しかないかと思っていたら Wilbur というのがあった。

aserve に依存している部分はコメントアウトして動かした。

(let ((*db* (make-instance 'wilbur:indexed-db))
      (file "/tmp/a.rdf"))
  (with-open-file (out file :direction :output :if-exists :supersede)
    (write-string "<rdf:RDF
 xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"
 xmlns:dc=\"http://purl.org/dc/elements/1.1/\">
  <rdf:Description rdf:about=\"http://en.wikipedia.org/wiki/Tony_Benn\">
    <dc:title>Tony Benn</dc:title>
    <dc:publisher>Wikipedia</dc:publisher>
  </rdf:Description>
</rdf:RDF>" out))
  (db-load *db* (format nil "file://~a" file))
  (all-values !"http://en.wikipedia.org/wiki/Tony_Benn" :any))
;; => (#"Tony Benn" #"Wikipedia")