anchor.diff:         (funcall (mkbinding fname 'type-number)))
      (mklist init)))
   
  -(defun %init-types-in-library (pathname ignore)
  +(defun %init-types-in-library (pathname prefix ignore)
     (let ((process (ext:run-program
   		  "nm" (list "-D" (namestring (truename pathname)))
   		  :output :stream :wait nil))
  
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.18 2004-10-31 11:41:06 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:      (name :allocation :alien :type string)
       (class-size :allocation :alien :type unsigned-int)
       (instance-size :allocation :alien :type unsigned-int))
      (:metaclass struct-class)))
  
  
  (defbinding %type-query () nil
  