Custom Query (1030 matches)

Consider the following example:

(defmacro mdiv0 () (/ 1 0)) (ignore-errors (mdiv0))

After executing the above line CCL invoke debugger with "DIVISION-BY-ZERO detected

[Condition of type DIVISION-BY-ZERO]"

If I replace defmacro with defun the result is as expected - two values - nil and divizion-by-zero condition are returned.

ns::wint-ns-affine-transform-struct presumably should be ns::with-ns-affine-transform-struct

Just tried this ​https://bugs.launchpad.net/sbcl/+bug/492851 in CCL and got the same result after a while.

Here is the code:

(defgeneric blah (x))

(defun test ()
  (let ((object (make-list 10000)))
    (defmethod blah ((x (eql object)))
      (format t "~A~%" x))
    (remove-method #'blah (first (generic-function-methods #'blah))))
  (values))

Then do:

(loop (test))

..and memory use keeps rising.