defclass gui-surface elements initform accessor gui-elements defmethod

1
2
3
4
5
6
7
defclass gui-surface ()
((elements :initform () :accessor gui-elements)))
(defmethod render ((x gui-surface))
(gl:load-identity)
(loop for y in (gui-elements x) do
(render y)))