From f552247edf212838f83fa57800531fcc4a9c5df8 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 30 Jan 2010 02:35:20 +0300 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