From: Dmitry Kalyanov Date: Fri, 29 Jan 2010 23:35:20 +0000 (+0800) Subject: Add declarations to gtype functions so that sbcl would allocate less X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=174477fdd5bd8bef8601ed1ad7076db4c4f3f81e Add declarations to gtype functions so that sbcl would allocate less --- 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*)))