<br><br><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername">P C</b> <span dir="ltr"><<a href="mailto:psilocidal@gmail.com">psilocidal@gmail.com</a>></span><br>Date: Sat, Aug 4, 2012 at 7:46 PM<br>
Subject: Re: [mcclim-devel] Possible bug in non exclusive list pane.<br>To: Stas Boukarev <<a href="mailto:stassats@gmail.com">stassats@gmail.com</a>><br><br><br><div class="HOEnZb"><div class="h5"><br><br><div class="gmail_quote">
On Sat, Aug 4, 2012 at 7:34 PM, Stas Boukarev <span dir="ltr"><<a href="mailto:stassats@gmail.com" target="_blank">stassats@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">

<div><div>P C <<a href="mailto:psilocidal@gmail.com" target="_blank">psilocidal@gmail.com</a>> writes:<br>
<br>
> Hello,<br>
><br>
> When I try my code for a list pane as nonexclusive, I receive an error<br>
> saying value NIL is not of type (mod some-number). I thought this meant<br>
> that it didn't like my values and items as strings so I changed test to<br>
> #'string= not #'eql. I still get this error when I click on the list to<br>
> change the value.<br>
><br>
> Is this a known bug? Or am I missing something in my code?<br>
</div></div>It would be helpful if you attached the code in question.<br>
<span><font color="#888888">--<br>
With best regards, Stas.<br>
</font></span></blockquote></div><br></div></div>Sorry for leaving out the code.<br><br>(define-application-frame stocks-window ()<br>  ()<br>  (:geometry :width 640 :height 480 :left 64 :top 32)<br>  (:panes<br>   (index-list (make-pane ':list-pane<br>

              :id 'index-list <br>              :value '("A" "B") <br>              :items '("A" "B" "C" "D") <br>              :mode ':nonexclusive <br>

              :prefer-single-selection t<br>              :test #'string=)))<br>  (:layouts<br>   (default<br>       (with-tab-layout ('tab-page :name 'layout :height 480)<br>     ("A"<br>      (spacing <br>

       (:thickness 8)<br>         (horizontally<br>          (:x-spacing 4 :y-spacing 4)<br>          (labelling (:label "List" :height 128 :width 192)<br>             (scrolling (:scroll-bar t)<br>                    (spacing (:thickness 0)<br>

                         index-list)))))))))<br>  (:menu-bar t))<br><br>(define-window-command (com-quit :menu t) ()<br>    (frame-exit *application-frame*)<br>    nil)<br><br>(defvar *window-frame* nil)<br><br>(defun window ()<br>

  (flet ((run ()<br>       (let ((frame (make-application-frame 'window)))<br>         (setf *window-frame* frame)<br>         (run-frame-top-level frame))))<br>    (make-thread #'run :name "Window")))<br>

(window)<br>
</div><br>