From: Richard M Kreuter <kreuter@users.sourceforge.net>
Date: Fri, 22 Aug 2008 14:31:30 +0000 (+0000)
Subject: 1.0.19.35: Fix PARSE-, NATIVE-NAMESTRING for logical pathnames.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=inline;h=6b8baeece6cf870e3f979a9f09c32985c64c04de;p=sbcl.git

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
--- a/src/code/pathname.lisp
+++ b/src/code/pathname.lisp
@@ -36,14 +36,14 @@
              (:include host
                        (parse #'parse-logical-namestring)
                        (parse-native
-                        (lambda (x)
+                        (lambda (&rest x)
                           (error "called PARSE-NATIVE-NAMESTRING using a ~
-                                  logical host: ~S" x)))
+                                  logical host: ~S" (first x))))
                        (unparse #'unparse-logical-namestring)
                        (unparse-native
-                        (lambda (x)
+                        (lambda (&rest x)
                           (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))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 5649b43..676da81 100644
--- 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".)
-"1.0.19.34"
+"1.0.19.35"