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