# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1487337573 0
# Node ID 33c0ccf4e906a940187b35ad74da20107474e3d1
# Parent  fd638982ad83b7cf5c2706c7906f161d8a679cb6
Clean up output

diff -r fd638982ad83 -r 33c0ccf4e906 docs/03-reference.markdown
--- a/docs/03-reference.markdown	Thu Feb 09 12:22:03 2017 +0000
+++ b/docs/03-reference.markdown	Fri Feb 17 13:19:33 2017 +0000
@@ -123,6 +123,12 @@
       &BODY
       BODY)
 
+### `WITH-DATABASE` (macro)
+
+    (WITH-DATABASE DATABASE
+      &BODY
+      BODY)
+
 ### `WITH-FRESH-DATABASE` (macro)
 
     (WITH-FRESH-DATABASE
diff -r fd638982ad83 -r 33c0ccf4e906 src/wam.lisp
--- a/src/wam.lisp	Thu Feb 09 12:22:03 2017 +0000
+++ b/src/wam.lisp	Fri Feb 17 13:19:33 2017 +0000
@@ -107,8 +107,8 @@
 
 (defmethod print-object ((wam wam) stream)
   (print-unreadable-object
-      (wam stream :type t :identity t)
-    (format stream "an wam")))
+      (wam stream :identity t)
+    (format stream "Temperance Database")))
 
 
 (defun make-wam (&key