[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: Signal a file-error from unparse-native-win32-namestring.
From:       stassats via Sbcl-commits <sbcl-commits () lists ! sourceforge ! net>
Date:       2017-11-23 17:18:07
Message-ID: 1511457487.798243.26740 () sfp-scm-6 ! v30 ! ch3 ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  4dee975369564ad8e8c0e1c01bb00d3385b32285 (commit)
      from  cc8f694255de91ced051c351526774570af47ddf (commit)

- Log -----------------------------------------------------------------
commit 4dee975369564ad8e8c0e1c01bb00d3385b32285
Author: Stas Boukarev <stassats@gmail.com>
Date:   Thu Nov 23 18:39:12 2017 +0300

    Signal a file-error from unparse-native-win32-namestring.
---
 src/code/win32-pathname.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index 19ac1cb..c9a1cde 100644
--- a/src/code/win32-pathname.lisp
+++ b/src/code/win32-pathname.lisp
@@ -277,8 +277,10 @@
                                        (user-homedir-namestring username))
                                       (user-homedir-pathname))
                                 (error (condition)
-                                  (error "User homedir unknown~@[ for ~S~]: ~A."
-                                         username condition)))))
+                                  (no-native-namestring-error
+                                   pathname
+                                   "user homedir not known~@[ for ~S~]: ~A"
+                                   username condition)))))
                    (when (and (or absolutep devicep)
                               (not (string-equal device (pathname-device home))))
                      (error "Device in homedir ~S conflicts which device ~S"

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL

------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]