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.

(directory #P"foo/*" :directories nil) [(directory #P"foo:*" :directories nil) in MCL]

MCL: Returns all files under the foo directory, regardless of whether they have a type or not.

CCL: Returns only files that have no type under foo directory.

Test: (= (length (directory #P"ccl:*.*")) (length (directory #P"ccl:*"))) Should return T if this bug is fixed.

Technically, this is probably not an ANSI compliance issue since ANSI is vague on what #'directory is supposed to do. But current behavior is different from MCL, which is presumably where many CCL users come from. It would be interesting to see what ACL does here.

Fix is simple:

--- pathnames.lisp (revision 15751) +++ pathnames.lisp (working copy) @@ -582,6 +582,10 @@

(%path-str*= pstr pattern))

(defun %file*= (name-pat type-pat pstr)

+ (when (and (eq name-pat :wild) + (or (null type-pat) + (eq type-pat :unspecific))) + (setq type-pat :wild))

(if (eq name-pat :wild) (setq name-pat "*")) (if (eq type-pat :wild) (setq type-pat "*")) (when (and (null name-pat) (null type-pat))

Packages defined with defpackage don't respond when you meta-dot their names.