Thank you for your help.<br><br>I removed mcclim from the quicklisp directories, and then reinstalled it with quicklisp. It seems to work now. I have no idea what I did.<br><br><div class="gmail_quote">On Sat, Aug 4, 2012 at 11:16 PM, Mariano Montone <span dir="ltr"><<a href="mailto:marianomontone@gmail.com" target="_blank">marianomontone@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">Yes. It is working.<br>
<br>
Ctrl+Click and Shift+Click is also working, selecting several items.<br>
<br>
I have no idea what your error may be about. Maybe some problem with<br>
mcclim + lisp on your platform. Did you have a look at the backtrace, at<br>
the function where it fails?<br>
<br>
Otherwise, I don't know.<br>
<br>
El 04/08/12 18:44, P C escribió:<br>
<div class="HOEnZb"><div class="h5">> Hello,<br>
><br>
> When you click on the list, does it change the value?<br>
><br>
> I am getting this error when I click on an item in the list.<br>
><br>
> debugger invoked on a TYPE-ERROR in thread<br>
> #<THREAD "Stocks Window" RUNNING {100885EE33}>:<br>
>   The value NIL is not of type (MOD 4611686018427387901).<br>
><br>
> Thanks for testing it out.<br>
><br>
> On 08/04/12 20:30, Mariano Montone wrote:<br>
> > Hi.<br>
> ><br>
> > Your program runs without problems in my computer.<br>
> ><br>
> > I'm running SBCL on Ubuntu<br>
> ><br>
> > Mariano<br>
> ><br>
> > (in-package :climi)<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>
> >        (clim-tab-layout:with-tab-layout ('tab-page :name 'layout :height<br>
> > 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-stocks-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 'stocks-window)))<br>
> >          (setf *window-frame* frame)<br>
> >          (run-frame-top-level frame))))<br>
> >     (sb-thread:make-thread #'run :name "Window")))<br>
> ><br>
> > (window)<br>
><br>
<br>
<br>
</div></div></blockquote></div><br>