Utility predicates for packing: UNBOUNDED-SC-P and UNBOUNDED-TN-P

[sbcl.git] / src / runtime / search.c

diff --git a/src/runtime/search.c b/src/runtime/search.c
index 4bf6b50..12e1c61 100644 (file)
--- a/src/runtime/search.c
+++ b/src/runtime/search.c
@@ -20,12 +20,11 @@
 
 boolean search_for_type(int type, lispobj **start, int *count)
 {
-    lispobj obj, *addr;
+    lispobj obj;
 
     while ((*count == -1 || (*count > 0)) &&
            is_valid_lisp_addr((os_vm_address_t)*start)) {
         obj = **start;
-        addr = *start;
         if (*count != -1)
             *count -= 2;