Custom Query (1030 matches)

Using cl-dispatch, I perform the elementary operation of adding a callback function to the asynchronous dispatch queue. See code below. Thread crash results when testing by repeated execution, typically after tens of executions. The error details are slightly different each time, and occasionally I am thrown into the kernel debugger. I have attached the OS X (10.7) crash report for one crash.

(load "lisp:quicklisp;setup")
(ql:quickload "dispatch")

(defcallback foo (:address x) (declare (ignore x)) )

(defun test (v)
  (let ((q (#_dispatch_get_global_queue 0 0))) 
    (dotimes (i v)
        (print i) 
       (#_dispatch_async_f q (%null-ptr) foo))))

(test 100)   ; this never completes without an error.

CL-USER> (lisp-implementation-type)

"Clozure Common Lisp"
CL-USER> (lisp-implementation-version)
"Version 1.9  (LinuxX8632)"
CL-USER> (format t "Hello world!~{~~~D:@<~~A~~>~%~}"
		 '(5))
Hello world!; Evaluation aborted on #<SIMPLE-ERROR #x18B9B0D6>.
CL-USER> 

Text of error:

No matching bracket
"Hello world!~{~~~D:@<~~A~~>~%~}"
                           ^

   [Condition of type SIMPLE-ERROR]

The time seems to be about 14 minues slow on trac.clozure.com, judging both from mail headers and the times listed when viewing the trac timeline.