;; 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.64 2007-06-25 21:31:09 espen Exp $
+;; $Id: gtype.lisp,v 1.66 2008-10-08 18:17:10 espen Exp $
(in-package "GLIB")
(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