1.0.24.44: bug in INVALID-ARRAY-INDEX-ERROR, leaving EXPECTED-TYPE slot unbound

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

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index fcff8cc..7843e0b 100644 (file)
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -74,7 +74,7 @@ static lispobj *
 pa_alloc(int bytes, int page_type_flag)
 {
     lispobj *result;
-    
+
     /* FIXME: this is not pseudo atomic at all, but is called only from
      * interrupt safe places like interrupt handlers. MG - 2005-08-09 */
     result = dynamic_space_free_pointer;
@@ -172,7 +172,6 @@ alloc_sap(void *ptr)
 lispobj
 alloc_code_object (unsigned boxed, unsigned unboxed) {
     struct code * code;
-    unsigned size;
     boxed = make_fixnum(boxed + 1 + 4); /* 4 == trace_table_offset offset in words */
     boxed &= ~LOWTAG_MASK;