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