From 7aa700b60ea1689e2b2f83c54ade5be566c0ec26 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Fri, 13 Feb 2009 01:05:27 +0300 Subject: [PATCH] Some more fixed mem-management --- glib/gobject.foreign-gobject.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4