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.

​http://clozure.com/pipermail/openmcl-devel/2012-December/013952.html

(ACOS (complex -2.0d0 0.0d0)) gives Error: DIVISION-BY-ZERO detected

performing / on (1.7320508075688772D0 0.0D0)

While executing: CCL::/-2, in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options.

Happens on LinuxX86, DarwinX86, and ARM (at least).

Should produce ? (ACOS (complex -2.0d0 0.0d0)) #C(3.141592653589793D0 -1.3169578969248166D0)

Note that ASIN has a related bug that can be triggered with the proper args, because it's also calling single-argument ATAN.