anchor.diff:    (intern (substitute #\- #\_ (string-upcase name)) package))
   
   
  -;;;; Argument stuff
  +;;; Argument stuff - to be removed soon
   
   (deftype arg () 'pointer)
   
  
positive.code: ;; 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: gtkobject.lisp,v 1.7 2000-11-09 20:30:16 espen Exp $
  
  
  (in-package "GTK")
  
negative.code: 
  (defmethod initialize-instance :after ((object object) &rest initargs &key)
    (declare (ignore initargs))
  ;  (object-default-construct object)
    (reference-instance object)
    (object-sink object))
  
  