From aaced14e3eed461324d2cad83bab515ffbea3a5f Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Mon, 6 Feb 2006 12:48:40 +0000 Subject: [PATCH] Disabled debugging code Organization: Straylight/Edgeware From: espen --- glib/proxy.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/glib/proxy.lisp b/glib/proxy.lisp index ff08b84..a415dca 100644 --- a/glib/proxy.lisp +++ b/glib/proxy.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: proxy.lisp,v 1.26 2006-02-06 11:52:24 espen Exp $ +;; $Id: proxy.lisp,v 1.27 2006-02-06 12:48:40 espen Exp $ (in-package "GLIB") @@ -515,6 +515,8 @@ (defun ensure-proxy-instance (class location &rest initargs) MAKE-PROXY-INSTANCE is called to create one." (unless (null-pointer-p location) (or + #-debug-ref-counting(find-cached-instance location) + #+debug-ref-counting (let ((instance (find-cached-instance location))) (when instance (format t "Object found in cache: ~A~%" instance) -- [mdw]