Merge branch 'mon_key' of github.com:mon-key/vivace-graph-v2 into mon…

…_key

README

@@ -31,36 +31,53 @@ js: http://github.com/akapav/js
 split-sequence: http://www.cliki.net/SPLIT-SEQUENCE
 
 To get you started:
+
 (push #P"/path/to/vivace-graph-v2/" asdf:*central-registry*)
+
 (quicklisp:quickload 'vivace-graph-v2)
+
 (in-package #:vivace-graph-v2)
 
 (create-triple-store :name "test store" :location "/var/tmp/db")
-;;(index-predicate "likes")
+
+;; (index-predicate "likes")
+
 (with-graph-transaction (*store*)
   (add-triple "Kevin" "is-a" "human")
   (add-triple "Joe" "is-a" "human")
   (add-triple "Fido" "is-a" "dog")
   (add-triple "Kevin" "likes" "Fido")
   (add-triple "Kevin" "likes" "Joe"))
+
 (select (?x ?y) (q- ?x "likes" ?y))
+
 ;; Range query;  this stuff may be broken at this stage.  
 ;; i will focus on it again very soon
 ;;(select-flat (?object) (q- "Kevin" "likes" (?object "a" "z")))
 ;;
 (get-triples-list :s "Kevin")
+
 (get-triples-list :p "is-a")
+
 (get-triples-list :p "likes")
+
 (get-triples-list :o "human")
 
 (close-triple-store :store *store*)
 
 (open-triple-store :name "test store" :location "/var/tmp/db")
+
 (index-predicate "likes")
+
 (select (?x ?y) (q- ?x "likes" ?y))
+
 (select-flat (?object) (q- "Kevin" "likes" (?object "a" "z")))
+
 (get-triples-list :s "Kevin")
+
 (get-triples-list :p "is-a")
+
 (close-triple-store :store *store*)
 
 
+

contrib/kraison/leaps.lisp

@@ -39,4 +39,4 @@
 	(is-a ?y "human") (likes ?y "lizards")))
   then
   (trigger (format t "~A is a strange beast!~%" ?x)))
-|#
+|#