Skip to content
Snippets Groups Projects
Commit 5db90d5e authored by pw's avatar pw
Browse files

In get-tables, change declaration for 'name' and 'class' from

symbol to stringable. Noticed by Mike McDonald.
parent 3f58cf17
No related branches found
No related tags found
No related merge requests found
...@@ -351,7 +351,7 @@ ...@@ -351,7 +351,7 @@
(defun get-tables-lookup (dbase name names classes) (defun get-tables-lookup (dbase name names classes)
(declare (type list dbase names classes) (declare (type list dbase names classes)
(type symbol name)) (type stringable name))
(declare (optimize speed)) (declare (optimize speed))
(dolist (entry dbase) (dolist (entry dbase)
(declare (type resource-database entry)) (declare (type resource-database entry))
...@@ -377,7 +377,7 @@ ...@@ -377,7 +377,7 @@
(declare (type list tight loose names classes)) (declare (type list tight loose names classes))
(let ((name (car names)) (let ((name (car names))
(class (car classes))) (class (car classes)))
(declare (type symbol name class)) (declare (type stringable name class))
(when tight (when tight
(get-tables-lookup tight name names classes)) (get-tables-lookup tight name names classes))
(when loose (when loose
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment