X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsearch.c;h=12e1c61220c458aed634d05854b79763ecea8272;hb=3a340441c36832861f53fc16478607ea8ab5cb2e;hp=4bf6b503fa72f95db2e93fff9bdb6e6b8ea593f9;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/src/runtime/search.c b/src/runtime/search.c
index 4bf6b50..12e1c61 100644
--- 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;