Changeset 615

Timestamp:

Mar 3, 2004, 2:20:57 PM (21 years ago)

Author:

Gary Byers

Message:

Uninstall dealloc-hook on *SAVE-EXIT-FUNCTIONS* (run before SAVE-APPLICATION),
not *LISP-CLEANUP-FUNCTIONS* (so slot-vectors stay around during shutdown.)

File:

• trunk/ccl/examples/objc-runtime.lisp (modified) (2 diffs)

trunk/ccl/examples/objc-runtime.lisp

@@ -1543 +1543 @@
 (defcallback deallocate-nsobject (:address obj :int)
   (unless (%null-ptr-p obj)
-    (remhash obj *objc-object-slot-vectors*))
-  (ff-call *original-deallocate-hook* :address obj :int))
+        (remhash obj *objc-object-slot-vectors*)
+    (ff-call *original-deallocate-hook* :address obj :int)))
 
 (defun install-lisp-deallocate-hook ()
@@ -1556 +1556 @@
   (setf (%get-ptr (foreign-symbol-address "__dealloc")) *original-deallocate-hook*))
 
-(pushnew #'uninstall-lisp-deallocate-hook *lisp-cleanup-functions* :test #'eq
+(pushnew #'uninstall-lisp-deallocate-hook *save-exit-functions* :test #'eq
          :key #'function-name)
 )