From 9c41247c67803ed16e2e07657f36c61c2e8a724a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 19 May 2015 21:42:46 -0400
Subject: [PATCH] Typecheck list parameter of (assoc)

---
 runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index ad98103e..ac277d74 100644
--- a/runtime.c
+++ b/runtime.c
@@ -421,7 +421,7 @@ list assq(x,l) object x; list l;
  return boolean_f;}
 
 list assoc(x,l) object x; list l;
-{for (; !nullp(l); l = cdr(l))
+{for (; !nullp(l) && type_of(l) == cons_tag; l = cdr(l))
    {register list la = car(l); if (boolean_f != equalp(x,car(la))) return la;}
  return boolean_f;}