;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtype.lisp,v 1.63 2007-06-18 13:01:06 espen Exp $
+;; $Id: gtype.lisp,v 1.65 2007-10-17 14:33:50 espen Exp $
(in-package "GLIB")
(let ((outname (tmpname "types")))
(unwind-protect
(let ((asdf::*verbose-out* nil))
+ #-win32
(asdf:run-shell-command "nm ~A ~A > ~A"
#-darwin "--defined-only --dynamic --extern-only"
#+darwin "-f -s __TEXT __text"
(register-type 'unsigned-long "gulong")
(register-type 'single-float "gfloat")
(register-type 'double-float "gdouble")
-(register-type 'pathname "gchararray")
(register-type 'string "gchararray")
+(register-type-alias 'pathname 'string)
;;;; Introspection of type information