Hi Camm.
| BTW if you have a
| moment to check out the temporary directory code now in
| 2.6.8pre and head on mingw/win, that would be great! Just a
| simple (trace open)(disassemble '(lambda nil nil)) would do.
I had to add an append as part of the dolist data constructor clause and
alter the variable names to remove the command prompt dereference %
characters. Checked into stable branch.
The above test produces the results below.
I don't have time to unravel the macrology, but does that backquote and
splice cause the *tmp-dir* path to be hardwired into the saved
executable or is it recalculated at run time?
Cheers
Mike Thomas
>(trace open)(disassemble '(lambda nil nil))
Warning:
OPEN is being redefined.
(OPEN)
>
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.lsp"
:DIRECTION :OUTPUT)
<1 (OPEN #<output stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.lsp">)
Compiling /DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.lsp.
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.lsp")
<1 (OPEN #<input stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.lsp">)
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.data"
:DIRECTION :OUTPUT)
<1 (OPEN #<output stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.data">)
End of Pass 1.
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.c"
:DIRECTION :OUTPUT)
<1 (OPEN #<output stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.c">)
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.h"
:DIRECTION :OUTPUT)
<1 (OPEN #<output stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.h">)
End of Pass 2.
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.o"
:DIRECTION :OUTPUT :IF-EXISTS :APPEND)
<1 (OPEN #<output stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.o">)
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.data")
<1 (OPEN #<input stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.data">)
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling /DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.lsp.
1> (OPEN #p"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.c")
<1 (OPEN #<input stream
"/DOCUME~1/miketh/LOCALS~1/Temp/gazonk_5472_0.c">)
Error in LET [or a callee]: Unexpected end of #<input stream
"/DOCUME~1/miketh/L
OCALS~1/Temp/gazonk_5472_0.c">.
Fast links are on: do (use-fast-links nil) for debugging
Broken at READ-LINE. Type :H for Help.
1 (Abort) Return to top level.
dbl:>>
|
| Take care,
|
| >
| > Cheers
| >
| > Mike Thomas
| >
| >
| >
|
| --
| Camm Maguire
| [EMAIL PROTECTED]
| ==============================================================
| ============
| "The earth is but one country, and mankind its citizens." --
| Baha'u'llah
|
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
