From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 15 Apr 2014 11:00:49 +0000 (+0100)
Subject: zone.lisp: Fix default output directory.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/3d7852d98d9a540ce6b68a4ed26d170c78c7a2c7?hp=3d7852d98d9a540ce6b68a4ed26d170c78c7a2c7

zone.lisp: Fix default output directory.

The code used to capture `*default-pathname-defaults*' in
`*zone-output-path*' at load time, which (varying by implementation)
might indicate the calling process's working directory, or might be the
directory from which the file was loaded.  The latter is obviously
wrong, so we adopt the convention in `zone-file-name' that if
`*zone-output-path*' is nil then we use `*default-pathname-defaults'
from the time of the call.
---