CS143-Lab/examples/cool.cl
2023-03-16 15:55:37 +00:00

10 lines
200 B
Common Lisp

class Main inherits IO {
main() : SELF_TYPE {
{
out_string((new Object).type_name().substr(4,1)).
out_string((isvoid self).type_name().substr(1,3));
out_string("\n");
}
};
};