Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 740)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 741)
@@ -1555,4 +1555,5 @@
   (setf (%get-ptr (foreign-symbol-address "__dealloc")) deallocate-nsobject))
 
+#+later
 (def-ccl-pointers install-deallocate-hook ()
   (install-lisp-deallocate-hook))