From 1dbd93ef256d71687ce4a9dafe19c6ab1a460787 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Thu, 2 Nov 2017 16:09:03 -0400
Subject: [PATCH] Strengthen assertion

---
 src/runtime/immobile-space.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/runtime/immobile-space.c b/src/runtime/immobile-space.c
index 79993e776..4964cbaca 100644
--- a/src/runtime/immobile-space.c
+++ b/src/runtime/immobile-space.c
@@ -1632,10 +1632,7 @@ static lispobj* defrag_search_varyobj_subspace(lispobj addr)
             lispobj *temp_obj = tempspace_addr(forwarded_obj);
             count = sizetab[widetag_of(*temp_obj)](temp_obj);
             if ((lispobj*)(uword_t)addr < where+count) {
-                int __attribute__((unused)) widetag = widetag_of(*temp_obj);
-                gc_assert(widetag == CODE_HEADER_WIDETAG ||
-                          widetag == FDEFN_WIDETAG ||
-                          widetag == FUNCALLABLE_INSTANCE_WIDETAG);
+                gc_assert(widetag_of(*temp_obj) == CODE_HEADER_WIDETAG);
                 return where;
             }
         }
-- 
2.11.4.GIT