# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1461506454 0
# Node ID 1184d75b21fed86d2bf2e994c32227be47ef377b
# Parent  00f7bec64b8485e450d1d086340bd6d512d1598c
Cleanup

diff -r 00f7bec64b84 -r 1184d75b21fe test/wam.lisp
--- 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)))