[Openmcl-devel] Weblocks-Demo Permission Denied Win32

[John Federico]

On Sun, Jan 10, 2010 at 8:15 PM, Gary Byers <gb at clozure.com> wrote:
>
> (The function CCL:OPEN-FILE-STREAMS returns a list of ... open lisp
> file streams; it'd be interesting to see whether or not there's a lisp
> stream open on a (deleted) temp file when the error occurs.)
>
I just tried it again and got a similar error.  There are three .tem
files sitting in the folder which I can't access:

3472150697.tem
3472154034.tem
3472163064.tem

? (CCL:OPEN-FILE-STREAMS)
(#<BASIC-FILE-CHARACTER-INPUT-STREAM
("/usr/local/asdf-install/site/weblocks-stable/pub/stylesheets/vzn/dataform-import'.0.css"/4244
ISO-8859-1) #x9EF8CCE> #<BASIC-FILE-CHARACTER-INPUT-STREAM
("/usr/local/asdf-install/site/weblocks-stable/pub/stylesheets/vzn/datagrid-import'.0.css"/4164
ISO-8859-1) #x9EF3556> #<BASIC-FILE-CHARACTER-INPUT-STREAM
("/usr/local/asdf-install/site/weblocks-stable/pub/stylesheets/vzn/dataform-import'.0.css"/4108
ISO-8859-1) #x9EF3246>)
?

The backtrace from weblocks has this in it:

(44380620) : 7 (%CREATE-FILE
#P"c:/usr/local/asdf-install/site/weblocks-stable/pub/stylesheets/vzn/3472163064.tem"
:IF-EXISTS NIL :CREATE-DIRECTORY T) 599
 (44380644) : 8 (GEN-FILE-NAME
#P"c:/usr/local/asdf-install/site/weblocks-stable/pub/stylesheets/vzn/pagination'.0'.css.gz")
191
 (44380658) : 9 (MAKE-FILE-STREAM
"/usr/local/asdf-install/site/weblocks-stable/pub/stylesheets/vzn/pagination'.0.css.gz"
:OUTPUT (INTEGER 0 255) :SUPERSEDE :CREATE FILE-STREAM :DEFAULT
:PRIVATE T) 999

So that must be what is happening.  There is already a temp file there
that was marked for deletion, and then it tries to create another one
with the same name, giving the error.  Since it has been marked for
deletion, then I am assuming that is why I can't access the file
through windows explorer.

Is it possible to override GEN-FILE-NAME in ccl-init.lisp, and add an
extra condition to test for "Permission Denied"?

Thank you very much for all the help thus far.  -John