((eq cval 'uxul-world::key)
(config-button-image cbtn key))
((eq cval 'uxul-world::anchor)
- (format t "fuck")
- (format t (cadr cval2))
- (write (gethash (cadr cval2) anchors))
(config-button-image cbtn (gethash (cadr cval2) anchors)))
((eq cval 'uxul-world::uxul)
(config-button-image cbtn uxul)))))