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

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

If there are multiple strings on one line, only the last is string-colored; the remainder are comment colored.

Ron Garret reports that this seems to fix it, but that undoubtedly interferes with other stuff that r13186 is trying to do.

(defun gui::set-temporary-character-attributes (layout pos start-line end-line)
...
               (let* ((attr (if (= istart 0)
                              (hemlock::lisp-info-begins-quoted parse-info)
                              (if t  ; (< last-end istart)                                                  <==
                                (hi:character-attribute :lisp-syntax
                                                        (hi::line-character line (1- istart)))
                                :comment)))