From 6bceccb3d92ab8ca5eb267d95dca74c24b7b1c5d Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Thu, 3 Sep 2009 10:22:52 -0700
Subject: [PATCH] Avoid duplicate type checks in ASSQ.

---
 src/runtime/list.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 8173fec59..a3cb276a2 100644
--- 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
-- 
2.25.1