Make file usable with LOAD.

[cl-gtk2.git] / glib / gobject.type-info.lisp

diff --git a/glib/gobject.type-info.lisp b/glib/gobject.type-info.lisp
index 9d5fa1a..1a7a8e5 100644 (file)
--- a/glib/gobject.type-info.lisp
+++ b/glib/gobject.type-info.lisp
@@ -2,7 +2,7 @@
 
 (defctype g-type gsize)
 
-(eval-when (:load-toplevel :compile-toplevel)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defun gtype-make-fundamental-type (x)
     (ash x 2)))