aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-05-15 18:51:51 +0000
committerdos-reis <gdr@axiomatics.org>2013-05-15 18:51:51 +0000
commit32bebda8ae3e2b11cb198796f9e0b35711dbffa4 (patch)
tree82b46b7380569ac24b88e65b99c8b58ceb2648fe
parent974674143225554b96178718d83134946c58beb3 (diff)
downloadopen-axiom-32bebda8ae3e2b11cb198796f9e0b35711dbffa4.tar.gz
Add DB documentation accessor
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/daase.lisp3
2 files changed, 7 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 1b97ccab..b8caf28d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
2013-05-15 Gabriel Dos Reis <gdr@integrable-solutions.net>
+ * interp/daase.lisp (dbDocumentation): New accessor.
+
+2013-05-15 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
* interp/define.boot (dbClearForCompilation!): New.
(compDefineFunctor1): Use it.
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index d8175d90..526c53b3 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -310,6 +310,9 @@
(defmacro |dbLookupFunction| (db)
`(database-lookup-function ,db))
+(defmacro |dbDocumentation| (db)
+ `(database-documentaion ,db))
+
(defun |makeDB| (c &optional (k nil) (a nil))
(let ((db (make-database)))
(|makeConstructor| c k a)