From d32cbb7a162e4c7fc260ca9867ad039643244099 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Fri, 25 Aug 2006 10:37:33 +0000 Subject: [PATCH 1/1] Bug fix Organization: Straylight/Edgeware From: espen --- glib/gtype.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/glib/gtype.lisp b/glib/gtype.lisp index 8b41474..129d7b4 100644 --- a/glib/gtype.lisp +++ b/glib/gtype.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtype.lisp,v 1.54 2006-08-16 11:02:46 espen Exp $ +;; $Id: gtype.lisp,v 1.55 2006-08-25 10:37:33 espen Exp $ (in-package "GLIB") @@ -122,6 +122,9 @@ (defun type-number-from-glib-name (name &optional (error-p t)) ((not (zerop type-number)) type-number) (error-p (error "Invalid gtype name: ~A" name))))) +(defun type-from-glib-name (name) + (type-from-number (type-number-from-glib-name name) t)) + (defun register-type (type id) (cond ((find-type-number type)) @@ -151,7 +154,7 @@ (defun reinitialize-all-types () *registered-types*) (mapc #'(lambda (type) (apply #'register-new-type type)) - *registered-static-types*) + (reverse *registered-static-types*)) (mapc #'(lambda (type) (register-type-alias (car type) (cdr type))) *registered-type-aliases*)) -- [mdw]