From 32bebda8ae3e2b11cb198796f9e0b35711dbffa4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 15 May 2013 18:51:51 +0000
Subject: Add DB documentation accessor

---
 src/interp/daase.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/interp')

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)
-- 
cgit v1.2.3