コード例 #1
0
ファイル: write.c プロジェクト: 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;
}
コード例 #2
0
ファイル: lisp.c プロジェクト: 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;
}
コード例 #3
0
ファイル: lisp.c プロジェクト: haifenghuang/tort
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;
}