- (slider (intern (string-upcase (slider-varname widget)) (find-package :keyword)))
- (switch (intern (string-upcase (switch-varname widget)) (find-package :keyword)))))
+ (slider (intern (string-upcase (slider-varname widget)) :keyword))
+ (switch (intern (string-upcase (switch-varname widget)) :keyword))))