diff options
| -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) |