Changeset 14895

Timestamp:

Jul 20, 2011, 3:41:51 PM (13 years ago)

Author:

Gary Byers

Message:

revert last change

File:

• trunk/source/cocoa-ide/cocoa-utils.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-utils.lisp

@@ -73 +73 @@
 
 (objc:defmethod (#/dealloc :void) ((self sequence-window-controller))
-  (let* ((table-view (slot-value self 'table-view))
-         (title (slot-value self 'title)))
-    (unless (%null-ptr-p table-view)
-      (setf (slot-value self 'table-view) (%null-ptr))
-      (#/release table-view))
-    (unless (%null-ptr-p title)
-      (setf (slot-value self 'title) (%null-ptr))
-      (#/release title))
-    (objc:remove-lisp-slots self)
-    (call-next-method)))
+  (call-next-method))
 
 (objc:defmethod (#/windowWillClose: :void) ((self sequence-window-controller)