[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-01-15-gab191d0

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  ab191d0f0c6c3744688042d14f754c3e35a4a793 (commit)
      from  b0ccde2c145b43466d9a34421f4f4fe2907a02c9 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit ab191d0f0c6c3744688042d14f754c3e35a4a793
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Wed Jan 23 20:20:18 2013 -0800

    Fix ticket:70 by binding *d-p-d* to #p"".
    
    This allows logical pathnames (which always have a host to parse
    against) and search-lists (which don't have an explicit pathname to
    parse against) to be parsed correctly.  See the comment for some
    possible issues.

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 113ddf0..616b704 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -1477,7 +1477,16 @@ See the CMU Common Lisp User's Manual for more information.
 	  (aref (or (di:debug-source-start-positions d-source)
 		    (error (intl:gettext "No start positions map.")))
 		local-tlf-offset))
-	 (name (di:debug-source-name d-source)))
+	 (name (di:debug-source-name d-source))
+	 ;; See ticket:70.  Bind *d-p-d* to a unix host so we can
+	 ;; parse logical pathnames and search-lists that might be
+	 ;; stored in the source name.  There is an issue if the name
+	 ;; is a logical pathname and the host isn't defined.  This
+	 ;; will be interpreted as a search-list (undefined), but we
+	 ;; won't error out.  This will be a problem if we try to
+	 ;; define the logical host with the same name later.
+	 (*default-pathname-defaults*
+	   (make-pathname :host lisp::*unix-host*)))
     (unless (eq d-source *cached-debug-source*)
       (unless (and *cached-source-stream*
 		   (equal (pathname *cached-source-stream*)

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

Summary of changes:
 src/code/debug.lisp |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp