+ :code (clnl-code-parser:parse
+ (clnl-lexer:lex (format nil "~{~A~^~%~}" (nth 0 sections)))
+ (remove nil
+ (mapcar
+ (lambda (widget)
+ (typecase widget
+ (slider (intern (string-upcase (slider-varname widget)) (find-package :keyword)))
+ (switch (intern (string-upcase (switch-varname widget)) (find-package :keyword)))))
+ (parse-interface (nth 1 sections)))))