From 08eab1a399dec9e448e7b89981d986021a8a86df Mon Sep 17 00:00:00 2001 Message-Id: <08eab1a399dec9e448e7b89981d986021a8a86df.1716785063.git.mdw@distorted.org.uk> From: Mark Wooding Date: Fri, 23 Feb 2007 12:53:08 +0000 Subject: [PATCH] Size of TYPE-NUMBER detected by calling C 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 5141a37..1fa2543 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 @@ (use-prefix "g") (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) -- [mdw]