Custom Query (1030 matches)

(defun test (thread-count)
  (let ((threads (loop repeat thread-count
                       collect (ccl:process-run-function
                                "test" (lambda ())))))
    ;;(sleep 0.01)
    (mapc #'ccl:process-kill threads)))

(defun run ()
  (loop
     (assert (find "Initial" (ccl:all-processes)
                   :key #'ccl:process-name
                   :test #'string=))
     (test 10)
     (format t ".")))

The assertion fails within 100 iterations on dx86cl64, dx86cl, and lx86cl. With the SLEEP call I did not see a failure for 20k iterations.

The behavior of the insertion point during indentation (Tab command) is still not quite right. The case where the insertion point is initially in the whitespace before the first non-whitespace character on the line is now correct (the insertion point moves to the first non-whitespace character). However if the insertion point is initially after the whitespace, then it shouldn't change (currently it gets moved to the first non-whitespace character, not correct).

Steps to reproduce:

1. Open IDE (OpenMCL or Clozure CL)
2. Open the Processes window
3. Double-click to open the Cocoa Inspector
4. Browse the slots of the inspected process
5. Click the contents of a slot to inspect it
6. Crash!