LOAD now accepts namestrings with large characters.

src/CHANGELOG

@@ -73,6 +73,8 @@ ECL 0.9k:
  - Interpreted forms now remember the file in which they were defined
    and what form number they represent.
 
+ - LOAD now accepts namestrings which are of type (AND STRING (NOT BASE-STRING))
+
 * CLOS:
 
  - When caching generic function calls, ECL now uses a thread-local hash table

src/c/load.d

@@ -425,7 +425,7 @@ si_load_source(cl_object source, cl_object verbose, cl_object print)
 	bool not_a_filename = 0;
 @
 	/* If source is a stream, read conventional lisp code from it */
-	if (type_of(source) != t_pathname && type_of(source) != t_base_string) {
+	if (type_of(source) != t_pathname && !ecl_stringp(source)) {
 		/* INV: if "source" is not a valid stream, file.d will complain */
 		filename = source;
 		function = Cnil;

src/c/pathname.d

@@ -1013,6 +1013,9 @@ cl_namestring(cl_object x)
 			defaults = cl_pathname(defaults);
 			default_host = defaults->pathname.host;
 		}
+#ifdef ECL_UNICODE
+		thing = si_coerce_to_base_string(thing);
+#endif
 		get_string_start_end(thing, start, end, &s, &e);
 		output = ecl_parse_namestring(thing, s, e, &ee, default_host);
 		start = MAKE_FIXNUM(ee);

src/lsp/config.lsp.in

@@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
 (defun lisp-implementation-version ()
   "Args:()
 Returns the version of your ECL as a string."
-  "@PACKAGE_VERSION@ (CVS 2008-04-28 17:22)")
+  "@PACKAGE_VERSION@ (CVS 2008-04-29 12:48)")
 
 (defun machine-type ()
   "Args: ()