Changeset 12318


Ignore:
Timestamp:
Jun 28, 2009, 9:14:52 AM (10 years ago)
Author:
gb
Message:

When an NS-LISP-STRING is deallocated, remove its slot vector.
(We should probably do this for all classes that have lisp slots;
there can be weird problems trying to do that automatically, by
effectively overriding NSObject's #/dealloc, but we clearly don't
want to leak strings like we have been.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-backtrace.lisp

    r9137 r12318  
    1414(objc:defmethod (#/characterAtIndex: :unichar) ((self ns-lisp-string) (index :<NSUI>nteger))
    1515  (char-code (schar (ns-lisp-string-string self) index)))
     16
     17(objc:defmethod (#/dealloc :void) ((self ns-lisp-string))
     18  (ccl::%remove-lisp-slot-vector self)
     19  (call-next-method))
     20
    1621
    1722(defclass frame-label (ns-lisp-string)
Note: See TracChangeset for help on using the changeset viewer.