1184d75b21fe

--- a/test/wam.lisp	Sun Apr 24 13:55:28 2016 +0000
+++ b/test/wam.lisp	Sun Apr 24 14:00:54 2016 +0000
@@ -47,9 +47,7 @@
              ((likes kim cats))
 
              ((likes kim :who)
-              (likes :who cats))
-
-             )
+              (likes :who cats)))
 
       (rules ((narcissist :person)
               (likes :person :person))))
@@ -67,10 +65,6 @@
 (defun results= (r1 r2)
   (set-equal r1 r2 :test #'result=))
 
-; (defmacro status (successp query)
-;   `(eql )
-;   )
-
 (defmacro q (&body query)
   `(with-database *test-database*
     (return-all ,@query)))