Avoid duplicate type checks in ASSQ.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 8173fec59a80677e66d01630a4469a974194eb0d..a3cb276a2b6656ea22ffb840715bec0ba290f057 100644 (file)
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -1140,6 +1140,7 @@ USA.
 
 (define-integrable (%assoc key alist = caller)
   (let ((lose (lambda () (error:not-alist alist caller))))
+    (declare (no-type-checks))
     (let loop ((alist alist))
       (if (pair? alist)
          (begin