# Pastebin gUQ5JJDC
for example:

(defclass panel-1 (clog:clog-panel)
  (    (button-1 :reader button-1)
))