Custom Query (1030 matches)

I just checked all active tickets and didn't see any report like this. I also updated to the trunk and rebuilt to make sure this bug still exists there.

(setq *print-array* nil)

(setq foo (make-array 1000000000))

(length foo)

(setq foo nil)

1

2

3

4

(gc)

(the extra expressions/values were to get rid of pointers to the vector in *, and *) results in a sigsegv!

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.