anchor.diff:  
   (register-derivable-type 'boxed "GBoxed" 'expand-boxed-type)
   
  -;;;; Special boxed types
  -
  -;; (defclass gstring (boxed)
  -;;   ()
  -;;   (:metaclass boxed-class)
  -;;   (:alien-name "GString"))
  -
  -;; (deftype-method translate-from-alien
  -;;     gstring (type-spec location &optional weak-ref)
  -;;   `(let ((location ,location))
  -;;      (unless (null-pointer-p location)
  -;;        (prog1
  -;; 	   (c-call::%naturalize-c-string location)
  -;; 	 ,(unless weak-ref
  -;; 	    (unreference-alien type-spec location))))))
  -
  -;; (deftype-method translate-to-alien
  -;;     gstring (type-spec string &optional weak-ref)
  -;;   (declare (ignore weak-ref))
  -;;   `(let ((string ,string))
  -;;      ;; Always copy strings to prevent seg fault due to GC
  -;;      (funcall
  -;;       ',(proxy-class-copy (find-class type-spec))
  -;;       ',type-spec
  -;;       (make-pointer (1+ (kernel:get-lisp-obj-address string))))))
  -
  -;; (deftype-method cleanup-alien gstring (type-spec c-string &optional weak-ref)
  -;;   (when weak-ref
  -;;     (unreference-alien type-spec c-string)))
  -
  -
   
   ;;;; NULL terminated vector of strings
   
  
positive.code: ;; Common Lisp bindings for GTK+ v2.x
  ;; Copyright 2001-2005 Espen S. Johnsen <espen@users.sf.net>
  ;;
  ;; Permission is hereby granted, free of charge, to any person obtaining
  ;; a copy of this software and associated documentation files (the
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gboxed.lisp,v 1.21 2006-04-25 21:55:42 espen Exp $
  
  (in-package "GLIB")
  
  