From 174477fdd5bd8bef8601ed1ad7076db4c4f3f81e Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 30 Jan 2010 07:35:20 +0800 Subject: [PATCH] Add declarations to gtype functions so that sbcl would allocate less --- glib/gobject.type-designator.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/glib/gobject.type-designator.lisp b/glib/gobject.type-designator.lisp index ebd1925..8546386 100644 --- a/glib/gobject.type-designator.lisp +++ b/glib/gobject.type-designator.lisp @@ -23,6 +23,7 @@ (type g-type)) (defun gtype-from-name (name) + (declare (optimize (safety 0) (speed 3))) (when (null name) (return-from gtype-from-name nil)) (bt:with-lock-held (*gtype-lock*) (let ((type (gethash name *name-to-gtype*))) @@ -45,6 +46,7 @@ (return-from gtype-from-name type))))) (defun gtype-from-id (id) + (declare (optimize (safety 0) (speed 3))) (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