Fwd: Patch for customizing Allegro temp file and directory

[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 <[email protected]>
Date: Sat, Feb 22, 2014 at 11:08 PM
Subject: Re: Patch for customizing Allegro temp file and directory
To: Dave Cooper <[email protected]>


Hello Dave,

On Fri, Feb 21, 2014 at 9:01 PM, Dave Cooper <[email protected]> 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/