From 8574c8adfa4d9c6af0c5303f2383e5774e755deb Mon Sep 17 00:00:00 2001 Message-Id: <8574c8adfa4d9c6af0c5303f2383e5774e755deb.1718932595.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 9 Feb 2005 22:59:03 +0000 Subject: [PATCH] Added new a type definition Organization: Straylight/Edgeware From: espen --- glib/gboxed.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/glib/gboxed.lisp b/glib/gboxed.lisp index 7ce705b..e6e8e8f 100644 --- a/glib/gboxed.lisp +++ b/glib/gboxed.lisp @@ -15,16 +15,11 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gboxed.lisp,v 1.14 2005/02/01 15:24:52 espen Exp $ +;; $Id: gboxed.lisp,v 1.15 2005/02/09 22:59:03 espen Exp $ (in-package "GLIB") -(eval-when (:compile-toplevel :load-toplevel :execute) - (init-types-in-library #.(concatenate 'string - (pkg-config:pkg-variable "glib-2.0" "libdir") - "/libgobject-2.0.so"))) - (defclass boxed (struct) () (:metaclass struct-class)) @@ -115,3 +110,9 @@ (register-derivable-type 'boxed "GBoxed" 'expand-boxed-type) ;; (when weak-ref ;; (unreference-alien type-spec c-string))) + + +;;;; Zero terminated vector of strings + +(deftype strings () '(vector-null string)) +(register-type 'strings "GStrv") -- [mdw]