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

[Camm Maguire]

Greetings!

"Mike Thomas" <address@hidden> writes:

> 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.
> 

Thanks!  I had to revert the append however as it appears to be
invalid lisp (unless I'm missing something as is always quite likely!)
and broke the unix build.  We need also to synchronize here with CVS
head whatever we finally settle on.

Here's a little explanation of this admittedly cryptic piece of code
-- perhaps we should decide as a project to eschew such forms for the
sake of legibility:

 (defun get-temp-dir ()
-  (dolist (x `(,@(append (mapcar 'si::getenv #-winnt '("TMPDIR" "TMP") #+winnt 
'("TEMP" "TMP")) #-winnt "/tmp" "")))
+  (dolist (x `(,@(mapcar 'si::getenv #-winnt '("TMPDIR" "TMP") #+winnt 
'("TEMP" "TMP")) #-winnt "/tmp" ""))
     (when x
       (let* ((x (pathname x))
             (x (if (pathname-name x) x 

`(,@(some-list-producing-function) item1 item2) == 
(append (some-list-producing-function) (list (quote item1) (quote item2)))

The ,@ 'splices' the list value produced by the function inside the quoted list.

`(,(some-list-producing-function) item1 item2) == 
(list (some-list-producing-function) (quote item1) (quote item2))

Here the produced list is nested inside (i.e. not 'flat' or 'level'
with) the outer list.

I'm not sure how you got the old version working.  Please let me know
if I've broken things for you by accident.

As for the device, I'll try a fix shortly.

Take care,

> 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
> | 
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah