anchor.diff:         object))
        ((or (functionp writer) (symbolp writer))
         (funcall writer value object)
  -      object)
  +      value)
        (t
         (funcall (fdefinition writer) value object)
  -      object))))
  +      value))))
   	
   
   (defmethod validate-superclass
  
positive.code:   (subtypep (class-name super) 'ginstance))
  
  
  (defmethod allocate-alien-storage ((class ginstance-class))
    (type-create-instance (find-type-number class)))
  
  
  ;;;; Initializing type numbers
  
negative.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: gtype.lisp,v 1.7 2001-01-28 14:11:20 espen Exp $
  
  (in-package "GLIB")
  
  