Custom Query (1030 matches)

This change <http://trac.clozure.com/ccl/changeset/10240> and the current script appears to have a bug. The clause for cygwin should set DD since CCL_DEFAULT_DIRECTORY is slammed <http://trac.clozure.com/ccl/browser/branches/win64/scripts/ccl64?rev=10240#L73> by DD moments later.

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

Welcome to Clozure Common Lisp Version 1.5-dev-r13434M  (LinuxX8632)!
? (funcall (lambda (x) (ash x -1000)) 2219369894)
0
? (funcall (lambda (x) (declare (type (integer 100000 3391901519) x)) (ash x -1000)) 2219369894)
1