From 1199ddd20c9d51f70b99ccce68890dec06e39001 Mon Sep 17 00:00:00 2001 From: espen Date: Fri, 23 Feb 2007 12:53:08 +0000 Subject: [PATCH] Size of TYPE-NUMBER detected by calling C --- glib/gtype.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/glib/gtype.lisp b/glib/gtype.lisp index 0de8bbd..747f0a8 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.60 2007-01-12 10:32:43 espen Exp $ +;; $Id: gtype.lisp,v 1.61 2007-02-23 12:53:08 espen Exp $ (in-package "GLIB") @@ -30,7 +30,10 @@ (defbinding type-init () nil) (type-init) -(deftype type-number () 'unsigned-long) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defbinding (bitsize-of-gtype "bitsize_of_gtype") () unsigned-int)) + +(deftype type-number () `(unsigned-byte ,(bitsize-of-gtype))) (deftype gtype () 'symbol) -- 2.11.0