1.0.19.35: Fix PARSE-, NATIVE-NAMESTRING for logical pathnames.

* Whereas these used to error erroneously, now they error properly.

diff --git a/src/code/pathname.lisp b/src/code/pathname.lisp
index cea8b13..efed381 100644 (file)
--- a/src/code/pathname.lisp
+++ b/src/code/pathname.lisp
@@ -36,14 +36,14 @@
              (:include host
                        (parse #'parse-logical-namestring)
                        (parse-native
              (:include host
                        (parse #'parse-logical-namestring)
                        (parse-native

-                        (lambda (x)
+                        (lambda (&rest x)

                           (error "called PARSE-NATIVE-NAMESTRING using a ~
                           (error "called PARSE-NATIVE-NAMESTRING using a ~

-                                  logical host: ~S" x)))
+                                  logical host: ~S" (first x))))

                        (unparse #'unparse-logical-namestring)
                        (unparse-native
                        (unparse #'unparse-logical-namestring)
                        (unparse-native

-                        (lambda (x)
+                        (lambda (&rest x)

                           (error "called NATIVE-NAMESTRING using a ~
                           (error "called NATIVE-NAMESTRING using a ~

-                                  logical host: ~S" x)))
+                                  logical host: ~S" (first x))))

                        (unparse-host
                         (lambda (x)
                           (logical-host-name (%pathname-host x))))
                        (unparse-host
                         (lambda (x)
                           (logical-host-name (%pathname-host x))))

diff --git a/version.lisp-expr b/version.lisp-expr
index 5649b43..676da81 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)

-"1.0.19.34"
+"1.0.19.35"