projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
47427d9
)
Add declarations to gtype functions so that sbcl would allocate less
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 29 Jan 2010 23:35:20 +0000
(07:35 +0800)
committer
Andrey Kutejko
<andy128k@gmail.com>
Sun, 14 Feb 2010 16:16:53 +0000
(
00:16
+0800)
glib/gobject.type-designator.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.type-designator.lisp
b/glib/gobject.type-designator.lisp
index
ebd1925
..
8546386
100644
(file)
--- 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*)))