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:


Just tried this 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))))


Then do:

(loop (test))

..and memory use keeps rising.

Change History (0)

Note: See TracTickets for help on using tickets.