Re: [Sbcl-help] sb-ext:with-timeout fails after connecting to database

[Brett v. de S. <bv...@as...>]

>(sb-sys::enable-interrupt sb-unix:sigalrm #'sb-unix::sigalrm-handler)
>
>Will reinstall SBCL's handler.

It looks like this restores the functionality of with-timeout.
In the following code, the second with-timeout still fails:

(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))

(sb-sys::enable-interrupt sb-unix:sigalrm #'sb-unix::sigalrm-handler)

(handler-case
    (sb-ext:with-timeout 1
      (sleep 2) (format t "interrupt failed~%"))
  (sb-ext:timeout (c) (format t "interrupted ~A~%" c)))
(clsql:disconnect)