5 lines
183 B
Common Lisp
5 lines
183 B
Common Lisp
: (setq R (new '(+Rectangle) 0 0 30 20))
|
|
-> $177356065126400
|
|
|
|
: (methods R)
|
|
-> ((draw> . +Rectangle) (perimeter> . +Rectangle) (area> . +Rectangle) (T . +Rectangle) (move> . +Shape))
|