Beispiel #1
0
tort_v _tort_m_locative___inspect(tort_tp tort_v rcvr, tort_v io)
{
  printf("@locative(@%p)", tort_L(rcvr));
  return tort_nil;
}
Beispiel #2
0
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;
}
Beispiel #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;
}