anchor.diff:  
   (defun %init-types-in-library (pathname ignore)
     (let ((process (ext:run-program
  -		  "nm" (list (namestring (truename pathname)))
  +		  "nm" (list "-D" (namestring (truename pathname)))
   		  :output :stream :wait nil))
   	(fnames ()))
       (labels ((read-symbols ()
  
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.12 2001-10-21 21:50:18 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:       (ext:process-close process)
        `(init-type ',fnames))))
  
  (defmacro init-types-in-library (filename &key ignore)
    (%init-types-in-library
     (format nil "~A/~A" user::gtk-library-path filename) ignore))
  
  
  
  