Custom Query (1030 matches)

(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.

Here is what is expected:

[pjb@kuiper :0 swig]$ clisp -norc -ansi -q [1]> (defun diff1p (lon)

(every (lambda (a b)

(print (list a b (= 1 (- a b)))) (= 1 (- a b)))

lon (rest lon)))

DIFF1P [2]> (diff1p '(6 5 4 3 2 1))

(6 5 T) (5 4 T) (4 3 T) (3 2 T) (2 1 T) T [3]> (quit)

Here is what we get with ccl:

[pjb@kuiper :0 swig]$ ccl -norc Welcome to Clozure Common Lisp Version 1.6-RC1-r14432M (LinuxX8664)! ? (defun diff1p (lon)

(every (lambda (a b)

(print (list a b (= 1 (- a b)))) (= 1 (- a b)))

lon (rest lon)))

DIFF1P ? (diff1p '(6 5 4 3 2 1))

(6 5 T) (4 5 NIL) NIL ? (quit) [pjb@kuiper :0 swig]$ ccl --version Version 1.6-RC1-r14432M (LinuxX8664)

(from ticket:447)

(@class "Foo") expands into

(the (@metaclass "Foo") ...)

@metaclass isn't a valid type specifier, and the compiler complains about it when SAFETY is sufficiently high, e.g.,

? (locally (declare (optimize (safety 3))) (@class "NSObject"))
> Error: Unknown type specifier: (@METACLASS "NSObject")
> While executing: %%TYPEP, in process Listener(3).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >