;; 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.66 2008-10-08 18:17:10 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"
(unless (zerop type-number)
(find-known-class (type-parent type-number))))))
(find-known-class (%type-number-of-ginstance location)))))
- ;; Note that chancing the class argument should not alter "the
+ ;; Note that changing the class argument must not alter "the
;; ordered set of applicable methods" as specified in the
;; Hyperspec
(if class
(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