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@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