From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 12 Feb 2009 22:05:27 +0000 (+0300)
Subject: Some more fixed mem-management
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7aa700b60ea1689e2b2f83c54ade5be566c0ec26;p=cl-gtk2.git

Some more fixed mem-management
---

diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp
index a84c6b3..59360df 100644
--- a/glib/gobject.foreign-gobject.lisp
+++ b/glib/gobject.foreign-gobject.lisp
@@ -26,7 +26,7 @@
   (unless (slot-boundp obj 'pointer)
     (error "Pointer slot is not initialized for ~A" obj))
   (let* ((pointer (pointer obj))
-         (s (format nil obj)))
+         (s (format nil "~A" obj)))
     (finalize obj
               (lambda ()
                 (handler-case