Opened 10 years ago

Last modified 10 years ago

#704 closed defect

eql-specializer-objects are not freed (remove-method) — at Initial Version

Reported by: lnostdal Owned by:
Priority: normal Milestone:
Component: Runtime (threads, GC) Version: trunk
Keywords: Cc:

Description

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.

Change History (0)

Note: See TracTickets for help on using tickets.