From: espen Date: Fri, 23 Feb 2007 12:53:08 +0000 (+0000) Subject: Size of TYPE-NUMBER detected by calling C X-Git-Tag: clg-0-93~181 X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/08eab1a399dec9e448e7b89981d986021a8a86df Size of TYPE-NUMBER detected by calling C --- 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)