Re: clsql:connect causes with-timeout to fail in sbcl

I've run into the same problem with all timers on SBCL in general.

On Wed, Mar 24, 2010 at 10:48 AM, Brett van de Sande <[email protected]> wrote:
>
> I find that sb-ext:timout no longer works after connecting to a
> database using clsql.  If I run the following test case, the
> first with-timeout works fine, while the one following the
> clsql:connect fails.  Timeouts remain broken, even after
> disconnecting the database.
>
> (asdf:operate 'asdf:load-op 'clsql)
>
> (handler-case
>    (sb-ext:with-timeout 1
>      (sleep 2) (format t "interrupt failed~%"))
>  (sb-ext:timeout (c) (format t "interrupted ~A~%" c)))
>
> (setf clsql:*default-database*
>      (clsql:connect (list nil "andes_test" "root" "sin(0)=0")
>                     :database-type :mysql
>                     :pool t :if-exists nil
>                    :make-default nil))
> (handler-case
>    (sb-ext:with-timeout 1
>      (sleep 2) (format t "interrupt failed~%"))
>  (sb-ext:timeout (c) (format t "interrupted ~A~%" c)))
>
> (clsql:disconnect)
>
> I am using clsql-4.3.0 with on a linux machine.  I also see
> the same behavior in OS X.
> en4052595> sbcl --version
> SBCL 1.0.36.31
> en4052595> uname -a
> Linux en4052595 2.6.18-164.9.1.el5PAE #1 SMP Tue Dec 15 21:41:47 EST 2009 i686 i686 i386 GNU/Linux
> _______________________________________________
> CLSQL mailing list
> [email protected]
> http://lists.b9.com/cgi-bin/mailman/listinfo/clsql
>



-- 
Fred Gibson

Founder / Software Developer
http://www.streamfocus.com

(c)2010 Organon Technologies LLC