X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2Fmain%2Fmodel.lisp;h=7a18fb0283adb3538e70104b9ec26f3f8d61061e;hb=fb6e383;hp=33f90aa588327b040c5b87a02b1f85efb21223b5;hpb=c9cf0d199bfaa751722aab688d22f43e4d70ae34;p=clnl

diff --git a/src/main/model.lisp b/src/main/model.lisp
index 33f90aa..7a18fb0 100644
--- a/src/main/model.lisp
+++ b/src/main/model.lisp
@@ -60,8 +60,8 @@ DESCRIPTION:
            (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)))))
+              (slider (intern (string-upcase (slider-varname widget)) :keyword))
+              (switch (intern (string-upcase (switch-varname widget)) :keyword))))
             (parse-interface (nth 1 sections)))))
    :interface (parse-interface (nth 1 sections))
    :info (nth 2 sections)