From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Fri, 30 Aug 2013 21:17:36 +0000 (+0200)
Subject: Fix two compilation warnings.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=aff1ddc9bb8b2b24480eb6932822777bd2f92333;p=cl-gtk2.git

Fix two compilation warnings.
---

diff --git a/glib/gobject.type-designator.lisp b/glib/gobject.type-designator.lisp
index 98a4808..c6df5ee 100644
--- a/glib/gobject.type-designator.lisp
+++ b/glib/gobject.type-designator.lisp
@@ -43,13 +43,14 @@
       (when (zerop n)
         (warn-unknown-gtype name)
         (setf n nil))
-      (let ((type (make-gtype :name (copy-seq name) :%id n)))
+      (let ((type (make-gtype :name (copy-seq (the string name)) :%id n)))
         (setf (gethash n *id-to-gtype*) type
               (gethash name *name-to-gtype*) type)
         (return-from gtype-from-name type)))))
 
 (defun gtype-from-id (id)
   (declare (optimize (safety 0) (speed 3)))
+  (declare (integer id))
   (when (zerop id) (return-from gtype-from-id nil))
   (bt:with-lock-held (*gtype-lock*)
     (let ((type (gethash id *id-to-gtype*)))