RE: [Gcl-devel] HEAD and GBC on Windows.

[Mike Thomas]

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                                          
| address@hidden
| ==============================================================
| ============
| "The earth is but one country, and mankind its citizens."  -- 
|  Baha'u'llah
|