From aff1ddc9bb8b2b24480eb6932822777bd2f92333 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Fri, 30 Aug 2013 23:17:36 +0200 Subject: [PATCH] Fix two compilation warnings. --- glib/gobject.type-designator.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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*))) -- 1.7.10.4