RosettaCodeData/Task/Null-object/TXR/null-object-1.txr

(defstruct null-widget ()
  (:method popularity (me) 0))

(defvarl null-widget (new null-widget))

(defstruct real-widget ()
  pop
  (:method popularity (me) me.pop))