Fwd: Patch for customizing Allegro temp file and directory

[Luís Oliveira]

[after João's message, I noticed that my longer response to Dave
wasn't sent to the list. So here it goes.]

---------- Forwarded message ----------
From: Luís Oliveira <luismbo at gmail.com>
Date: Sat, Feb 22, 2014 at 11:08 PM
Subject: Re: Patch for customizing Allegro temp file and directory
To: Dave Cooper <gendl at genworks.com>


Hello Dave,

On Fri, Feb 21, 2014 at 9:01 PM, Dave Cooper <gendl at genworks.com> wrote:
> So with that approach, this would not be a Slime patch at all, but more of a
> private patch to be maintained and installed individually at each Allegro site, right?

Right.


> Did you notice anything about if/how you work around the issue at your
> place?

Here's what we use at work:

(excl:def-fwrapper fixed-temporary-directory ()
  "Returns a temporary directory."
  (excl:pathname-as-directory
   (or (sys:getenv "TEMP")
       (sys:getenv "TMP")
       #+mswindows
       (if (>= (getf (excl::windows-major-version) :major-version) 6)
  "~\\AppData\\Local\\TEMP"
  "~\\Local Settings\\TEMP"))))

(compile 'fixed-temporary-directory)

(excl:fwrap 'sys:temporary-directory
   :fixed-temporary-directory
   'fixed-temporary-directory)

For some reason, it didn't occur to us to report this to Franz.
Actually, I don't remember why this was necessary in the first place
since in my machine at work, ACL seems to be returning the value of
the TEMP environment variable, as the documentation suggests it
should: <http://franz.com/support/documentation/current/doc/operators/system/temporary-directory.htm>.

HTH,

--
Luís Oliveira
http://kerno.org/~luis/