7 lines
137 B
Text
7 lines
137 B
Text
(class +Singleton)
|
|
|
|
(dm message1> ()
|
|
(prinl "This is method 1 on " This) )
|
|
|
|
(dm message2> ()
|
|
(prinl "This is method 2 on " This) )
|