diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-15 18:51:51 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-15 18:51:51 +0000 |
commit | 32bebda8ae3e2b11cb198796f9e0b35711dbffa4 (patch) | |
tree | 82b46b7380569ac24b88e65b99c8b58ceb2648fe | |
parent | 974674143225554b96178718d83134946c58beb3 (diff) | |
download | open-axiom-32bebda8ae3e2b11cb198796f9e0b35711dbffa4.tar.gz |
Add DB documentation accessor
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/interp/daase.lisp | 3 |
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) |