(defmethod properties ((point point))
  '(x y r phi))

(defmethod properties ((circle circle))
  '(color thickness filledp radius))

(defmethod properties ((polygon polygon))
  '(color thickness filledp closedp))

(defmethod properties ((window window))
  '(delegate shape background))