Esempio n. 1
0
File: write.c Progetto: 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;
}
Esempio n. 2
0
File: lisp.c Progetto: 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;
}
Esempio 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;
}