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