anchor.diff:  (define-foreign type-instance-size (type) int
     ((find-type-number type) type-number))
   
  -(define-foreign type-create-instance (type) pointer
  -  ((find-type-number type) type-number))
  +; (define-foreign type-create-instance (type) pointer
  +;   ((find-type-number type) type-number))
   
   (define-foreign type-free-instance () nil
     (instance 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: gtype.lisp,v 1.6 2000-11-09 20:29:19 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:        object))
       ((or (functionp writer) (symbolp writer))
        (funcall writer value object)
        value)
       (t
        (funcall (fdefinition writer) value object)
        value))))
  	
  
  (defmethod validate-superclass
  