diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
| commit | c5659a8580de5b531891c6703465c84add9fbb1b (patch) | |
| tree | 60966651b64626e365cd158a89cd41a9028ea8a9 /src/interp/construc.lisp | |
| parent | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (diff) | |
| download | open-axiom-c5659a8580de5b531891c6703465c84add9fbb1b.tar.gz | |
Various cleanups.
Diffstat (limited to 'src/interp/construc.lisp')
| -rw-r--r-- | src/interp/construc.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/construc.lisp b/src/interp/construc.lisp index 3d5aeca0..9d0d252d 100644 --- a/src/interp/construc.lisp +++ b/src/interp/construc.lisp @@ -271,7 +271,7 @@ (let (fullLibName libDir kind) (setq fullLibName (make-input-filename (mergelib libName) |$spadLibFT|)) (setq libDir (directory-namestring fullLibName)) - (setq kind (GETDATABASE cname 'CONSTRUCTORKIND)) + (setq kind (|getConstuctorKindFromDB| cname)) (when |$printLoadMsgs| (|sayKeyedMsg| 'S2IL0002 (list (|namestring| fullLibName) kind cname))) (load (concatenate 'string libDir (mergelib libName))) |