Exemplo n.º 1
0
Arquivo: write.c Projeto: jbulow/tort
tort_v _tort_m_locative___inspect(tort_tp tort_v rcvr, tort_v io)
{
  printf("@locative(@%p)", tort_L(rcvr));
  return tort_nil;
}
Exemplo n.º 2
0
Arquivo: lisp.c Projeto: jbulow/tort
tort_v _tort_m_locative__lisp_write(tort_tp tort_v rcvr, tort_v io)
{
  printf("#@L%0llx", (unsigned long long) tort_L(rcvr));
  return tort_nil;
}
Exemplo n.º 3
0
tort_v _tort_m_locative__lisp_write(tort_tp tort_v rcvr, tort_v io)
{
  printf("#@L%p", (void*) tort_L(rcvr));
  return tort_nil;
}