anchor.diff:      (subtypep (class-name super) 'boxed)))
   
   
  -(defmethod shared-initialize ((class boxed-class) names &key name gtype)
  -  (declare (ignore names))
  -  (call-next-method)
  -  (let ((class-name (or name (class-name class))))
  -    (unless (find-type-number class-name)
  -      (register-type class-name 
  -       (or (first gtype) (default-type-init-name class-name))))))
  -
   (defbinding %boxed-copy () pointer
     (type-number type-number)
     (location pointer))
  
positive.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.20 2006-02-04 12:15:31 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code: ;; Common Lisp bindings for GTK+ v2.x
  ;; Copyright 2001-2006 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
  