From 5db90d5e2bc6e613930e5c6f9332a21ba8889783 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Mon, 26 Oct 1998 13:07:38 +0000 Subject: [PATCH] In get-tables, change declaration for 'name' and 'class' from symbol to stringable. Noticed by Mike McDonald. --- clx/resource.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/clx/resource.lisp b/clx/resource.lisp index 7526868e2..fc5248508 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 -- GitLab