8 lines
167 B
Text
8 lines
167 B
Text
(defstruct null-widget ()
|
|
(:method popularity (me) 0))
|
|
|
|
(defvarl null-widget (new null-widget))
|
|
|
|
(defstruct real-widget ()
|
|
pop
|
|
(:method popularity (me) me.pop))
|