From 23dc441a94e9b7dcd397a43a089f3e8cd4122138 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 2 Nov 2005 17:45:57 +0000 Subject: [PATCH] 0.9.6.10: *COMPILE-FILE-PATHNAME* should contain (merge-pathnames pathname), not the bare pathname itself. --- NEWS | 2 ++ src/compiler/main.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index a591e7b..a899569 100644 --- a/NEWS +++ b/NEWS @@ -1,5 +1,7 @@ ;;;; -*- coding: utf-8; -*- changes in sbcl-0.9.7 relative to sbcl-0.9.6: + * bug fix: *COMPILE-FILE-PATHNAME* now contains the user's pathname + merged with *DEFAULT-PATHNAME-DEFAULTS*. * optimization: performance improvements to IO on file streams of :ELEMENT-TYPE CHARACTER diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index d750adf..6629735 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -743,7 +743,7 @@ ;;; Given a pathname, return a SOURCE-INFO structure. (defun make-file-source-info (file external-format) (let ((file-info (make-file-info :name (truename file) - :untruename file + :untruename (merge-pathnames file) :external-format external-format :write-date (file-write-date file)))) diff --git a/version.lisp-expr b/version.lisp-expr index d78db03..6b5e937 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".) -"0.9.6.9" +"0.9.6.10" -- 1.7.10.4