diff --git a/gc.c b/gc.c
index f9526801..a304241d 100644
--- a/gc.c
+++ b/gc.c
@@ -435,7 +435,12 @@ void sexp_mark_global_symbols(sexp ctx) {
 #endif
 
 sexp sexp_gc (sexp ctx, size_t *sum_freed) {
-  sexp res, finalized;
+  sexp res;
+#ifdef __GNUC__
+  sexp finalized __attribute__((unused));
+#else
+  sexp finalized;
+#endif
   sexp_debug_printf("%p (heap: %p size: %lu)", ctx, sexp_context_heap(ctx),
                     sexp_heap_total_size(sexp_context_heap(ctx)));
   sexp_mark_global_symbols(ctx);
diff --git a/sexp.c b/sexp.c
index 26ad2e51..e292cb4b 100644
--- a/sexp.c
+++ b/sexp.c
@@ -65,7 +65,7 @@ sexp sexp_alloc_tagged_aux(sexp ctx, size_t size, sexp_uint_t tag sexp_current_s
 
 #if SEXP_USE_OBJECT_BRACE_LITERALS
 sexp sexp_write_simple_object (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sexp writer, sexp out) {
-  sexp t, x, *elts;
+  sexp t, x;
   sexp_gc_var1(args);
   sexp_sint_t i, len, nulls=0;
   i = sexp_pointer_tag(obj);
@@ -84,7 +84,6 @@ sexp sexp_write_simple_object (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sex
       sexp_write(ctx, sexp_make_fixnum(sexp_type_tag(t)), out);
     }
     len = sexp_type_num_slots_of_object(t, obj);
-    elts = (sexp*) (((char*)obj) + sexp_type_field_base(t));
     args = sexp_list1(ctx, SEXP_FALSE);
     for (i=0; i<len; i++) {
       x = sexp_slot_ref(obj, i);