Custom Query (1030 matches)

Hello,

When waiting on a semaphore with a timeout (via the function timed-wait-on-semaphore), if you issue a :proc from the listener thread, it interrupts the thread waiting on the semaphore in a way that causes the thread to abort the waiting.

It still runs the unwind portion of the unwind-protect. Perhaps the printing of the thread via :proc causes an interrupt that's incorrectly handled?

This is on 64 bit Ubuntu with kernel 2.6.24.6+desktop10+25.63

The following script reproduces the problem on the updated version of CCL 1.4. The problem also exhibits itself in 1.3. Does running the script in your own environments allow you to duplicate the problem, and can it be fixed?

Thanks!

(defvar *sem* (ccl:make-semaphore)) (ccl:process-run-function "sadf"

(lambda ()

(unwind-protect

(ccl:timed-wait-on-semaphore *sem* 20)

(print "unwinding"))))

(sleep 1) :proc

(I need this for ITA)

The deadline specified as argument to CCL:MAKE-SOCKET is only applied to the stream after the connection has been established. This could be changed easily, I think:

(defun make-tcp-stream-socket (fd &rest keys
                                  &key remote-host
                                  remote-port
                                  connect-timeout
                                  deadline
                                  &allow-other-keys)
  (inet-connect fd
                (host-as-inet-host remote-host)
                (port-as-inet-port remote-port "tcp")
                (cond
                  ((and deadline connect-timeout)
                   (min (- deadline (get-internal-real-time)) connect-timeout))
                  (deadline (- deadline (get-internal-real-time)))
                  (connect-timeout connect-timeout)))
  (apply #'make-tcp-stream fd keys))

The latest 1.5 download doesn't have the :ccl-1.5 feature in *features*. Features for :ccl-1.2, :ccl-1.3 and :ccl-1.4 are present.