From 32bebda8ae3e2b11cb198796f9e0b35711dbffa4 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 15 May 2013 18:51:51 +0000 Subject: Add DB documentation accessor --- src/ChangeLog | 4 ++++ src/interp/daase.lisp | 3 +++ 2 files changed, 7 insertions(+) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 1b97ccab..b8caf28d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2013-05-15 Gabriel Dos Reis + + * interp/daase.lisp (dbDocumentation): New accessor. + 2013-05-15 Gabriel Dos Reis * interp/define.boot (dbClearForCompilation!): New. 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