facts-db/cl-facts

diff --git a/README.md b/README.md
index 445517c..d220a70 100644
--- a/README.md
+++ b/README.md
@@ -114,6 +114,10 @@ Multiple queries on the same subject can be grouped together easily :
                      :title ?title
                      :director ?director))
   (format t "~A directed ~A~%" ?director ?title))
+Ridley Scott directed Blade Runner
+David Hand directed Snow White and the Seven Dwarfs
+William Cottrell directed Snow White and the Seven Dwarfs
+=> (values)
 
 ```
 
diff --git a/test.lisp b/test.lisp
index 7b8ecde..f7b19d4 100644
--- a/test.lisp
+++ b/test.lisp
@@ -60,6 +60,16 @@ facts:*db*
                    :director "William Cottrell"
                    :director "David Hand"))
 
+(facts:with ((?movie :is-a :movie))
+  (format t "Movie ~A~%" ?movie))
+
+(trace compare index-compare)
+(untrace usl-compare)
+
+(facts:with ((?movie :is-a :movie
+                     :title ?title))
+  (format t "Movie ~A~%" ?title))
+
 (facts:with ((?movie :is-a :movie
                      :title ?title
                      :director ?director))