Changeset 615


Ignore:
Timestamp:
Mar 3, 2004, 10:20:57 PM (16 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/objc-runtime.lisp

    r573 r615  
    15431543(defcallback deallocate-nsobject (:address obj :int)
    15441544  (unless (%null-ptr-p obj)
    1545     (remhash obj *objc-object-slot-vectors*))
    1546   (ff-call *original-deallocate-hook* :address obj :int))
     1545        (remhash obj *objc-object-slot-vectors*)
     1546    (ff-call *original-deallocate-hook* :address obj :int)))
    15471547
    15481548(defun install-lisp-deallocate-hook ()
     
    15561556  (setf (%get-ptr (foreign-symbol-address "__dealloc")) *original-deallocate-hook*))
    15571557
    1558 (pushnew #'uninstall-lisp-deallocate-hook *lisp-cleanup-functions* :test #'eq
     1558(pushnew #'uninstall-lisp-deallocate-hook *save-exit-functions* :test #'eq
    15591559         :key #'function-name)
    15601560)
Note: See TracChangeset for help on using the changeset viewer.