EXTER fixnum last_page;
EXTER int last_result;

INLINE int
set_writable(fixnum i,bool m) {

  fixnum j;
  object v;

  last_page=last_result=0;

  if (i<first_data_page || i>=page(heap_end))
    error("out of heap in set_writable");

  if ((v=sSAwritableA ? sSAwritableA->s.s_dbind : Cnil)==Cnil)
    error("no wrimap in set_writable");

  if ((j=i-first_data_page)<0 || j>=v->v.v_dim)/*FIXME*/
    return 0;

  if ((void *)wrimap!=(void *)v->v.v_self)
    error("set_writable called in gc");

  writable_pages+=m-((wrimap[j/8]>>(j%8))&0x1);

  if (m)
    wrimap[j/8]|=(1<<(j%8));
  else
    wrimap[j/8]&=~(1<<(j%8));

  return 0;

}

INLINE int
is_writable(fixnum i) {

  fixnum j;
  object v;

  if (i<first_data_page || i>=page(core_end))
    return 0;
  
  if ((v=sSAwritableA ? sSAwritableA->s.s_dbind : Cnil)==Cnil)
    return 1;
  
  if ((j=i-first_data_page)<0 || j>=v->v.v_dim)
    return 1;
  
  return (wrimap[j/8]>>(j%8))&0x1;
  
}

INLINE int
is_writable_cached(fixnum i) {

  if (last_page==i)
    return last_result;

  last_page=i;
  return last_result=is_writable(i);

}