Пример #1
0
tort_v _tort_m_ptr___inspect(tort_tp tort_v rcvr, tort_v io)
{
  if ( tort_P(rcvr) )
    printf("@p%p", tort_P(rcvr));
  else
    printf("@p0");
  return tort_nil;
}
Пример #2
0
Файл: lisp.c Проект: jbulow/tort 
tort_v _tort_m_ptr__lisp_write(tort_tp tort_v rcvr, tort_v io)
{
  printf("#@%0llx", (unsigned long long) tort_P(rcvr));
  return tort_nil;
}
Пример #3
0
tort_v _tort_m_ptr__lisp_write(tort_tp tort_v rcvr, tort_v io)
{
  printf("#@%p", (void*) tort_P(rcvr));
  return tort_nil;
}