clsql:connect causes with-timeout to fail in sbcl

Brett van de Sande <[email protected]>
Newsgroups gmane.lisp.clsql.general
Message-ID <[email protected]>
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.