diff options
Diffstat (limited to 'src/interp/domain.lisp')
| -rw-r--r-- | src/interp/domain.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/domain.lisp b/src/interp/domain.lisp index 952b3a5e..beed4d52 100644 --- a/src/interp/domain.lisp +++ b/src/interp/domain.lisp @@ -168,7 +168,7 @@ (defun |mkAutoLoad| (fn cname) (cond ((or (memq cname |$CategoryNames|) - (eq (GETDATABSE cname 'CONSTRUCTORKIND) '|category|)) + (eq (|getConstructorKindFromDB| cname) '|category|)) (function (lambda (&rest args) (|autoLoad| fn cname) (apply cname args)))) |