diff --git a/clx/resource.lisp b/clx/resource.lisp index 7526868e2bb756913f2fc6e3ddd41dc84d81ca9a..fc524850859d31144b158a81a735ea20496b554f 100644 --- a/clx/resource.lisp +++ b/clx/resource.lisp @@ -351,7 +351,7 @@ (defun get-tables-lookup (dbase name names classes) (declare (type list dbase names classes) - (type symbol name)) + (type stringable name)) (declare (optimize speed)) (dolist (entry dbase) (declare (type resource-database entry)) @@ -377,7 +377,7 @@ (declare (type list tight loose names classes)) (let ((name (car names)) (class (car classes))) - (declare (type symbol name class)) + (declare (type stringable name class)) (when tight (get-tables-lookup tight name names classes)) (when loose