anchor.diff:  ;; 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 $
  +;; $Id: gtype.lisp,v 1.13 2001-11-12 22:24:29 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code:       (ext:process-close process)
        `(init-type ',fnames))))
  
  (defmacro init-types-in-library (pathname &key ignore)
    (%init-types-in-library pathname ignore))
  
  
  
  
negative.code: 
  (defun %init-types-in-library (pathname ignore)
    (let ((process (ext:run-program
  		  "nm" (list "-D" (namestring (truename pathname)))
  		  :output :stream :wait nil))
  	(fnames ()))
      (labels ((read-symbols ()
  