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