Re: Problem building clisp 2.39

[Sam S. <sd...@po...>]

> * Pascal Costanza <cp...@c-...g> [2006-07-19 20:07:05 +0200]:
>
> Still, the test cases don't run without failure. Here is the contents  
> of streams.erg:
>
> Form: (LET ((F "foo.bar") FWD1 FWD2) (UNWIND-PROTECT (PROGN (WITH- 
> OPEN-FILE (S F :DIRECTION :OUTPUT) (WRITE F :STREAM S) (SETQ FWD1  
> (FILE-WRITE-DATE S))) (WITH-OPEN-FILE (S F :DIRECTION :PROBE) (LIST  
> (OR (= FWD1 (SETQ FWD2 (FILE-WRITE-DATE S))) (LIST FWD1 FWD2)) (OPEN- 
> STREAM-P S)))) (DELETE-FILE F)))
> CORRECT: (T NIL)
> CLISP  : ((3362320442 3362320443) NIL)
> Differ at position 0: T vs (3362320442 3362320443)
> CORRECT: (T NIL)
> CLISP  : ((3362320442 3362320443) NIL)

race condition.
re-running should help, as should the appended patch.

-- 
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://iris.org.il http://honestreporting.com http://thereligionofpeace.com
http://truepeace.org http://jihadwatch.org http://openvotingconsortium.org
If you know that you know nothing, you know too much.


--- streams.tst	25 Jan 2006 17:31:07 -0500	1.45
+++ streams.tst	19 Jul 2006 15:20:25 -0400	
@@ -962,8 +962,8 @@
          (with-open-file (s f :direction :output
                             #+(or CMU SBCL) :if-exists
                             #+(or CMU SBCL) :supersede)
-           (write f :stream s)
-           (setq fwd1 (file-write-date s)))
+           (write f :stream s))
+         (with-open-file (s f) (setq fwd1 (file-write-date s)))
          (with-open-file (s f :direction :probe)
            (list (or (= fwd1 (setq fwd2 (file-write-date s)))
                      (list fwd1 fwd2))