Hello, I was wondering if someone could tell me where I'm going wrong in my code:<br><br>(defun nomogui ()<br>  (with-ltk ()<br>    (let* ((s0 (make-instance 'scale<br>                  :label "X-ri"<br>                  :digits 6<br>
                  :orientation 'horizontal<br>                  :troughcolor "#000099"<br>                  :resolution .001<br>                  :from 1.4<br>                  :to 1.6)))<br>      <br>      (configure s0 :command <br>
         (lambda (val)<br>           (print 'hello)<br>           (if (< 1.5 val)<br>               (configure s0 :troughcolor "#990000")<br>               (configure s0 :troughcolor "#009900"))))<br>
      (pack s0))))<br><br>Basically I just want to be able to change the troughcolor of the scale based on its value. Any help?<br>