hg.stevelosh.com > temperance

33c0ccf4e906 

Clean up output
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 17 Feb 2017 13:19:33 +0000
parents fd638982ad83
children 221dc09d73f9
branches/tags (none)
files docs/03-reference.markdown src/wam.lisp

Changes

--- 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
--- 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