;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gboxed.lisp,v 1.6 2001-10-21 22:02:01 espen Exp $
+;; $Id: gboxed.lisp,v 1.8 2002-01-20 14:52:04 espen Exp $
(in-package "GLIB")
(eval-when (:compile-toplevel :load-toplevel :execute)
+ (init-types-in-library "libgobject-1.3.so")
(defclass boxed (proxy)
()
(:metaclass proxy-class)
(deftype-method translate-to-alien
gstring (type-spec string &optional weak-ref)
- (declare (ignore type-spec weak-ref))
+ (declare (ignore weak-ref))
`(let ((string ,string))
;; Always copy strings to prevent seg fault due to GC
(funcall