Re: pretest for 2.47 #2

[Yaroslav K. <kav...@tu...>]

result of `make mod-check`:

finished   4 files:               9 errors out of     512 tests
   1             i18n\test.tst:    0 errors out of      10 tests
   2         syscalls\test.tst:    2 errors out of     159 tests
   3           regexp\test.tst:    7 errors out of     308 tests
   4         readline\test.tst:    0 errors out of      35 tests


syscalls errors:

(LET ((S (FLOOR (FILE-SIZE *TMP1*) 2))) (LIST (= S (SETF (FILE-SIZE 
*TMP1*) S)) (= S (FILE-SIZE *TMP1*))))
[SIMPLE-FILE-ERROR]: Win32 error 32 (ERROR_SHARING_VIOLATION): The 
process cannot access the file because it is being used by another process.

ERROR!! ERROR should be (T T) !
(WITH-OPEN-FILE (S *TMP2* :DIRECTION :IO) (LET ((L (FLOOR (FILE-LENGTH 
S) 2))) (LIST (= L (SETF (FILE-SIZE S) L)) (= L (FILE-LENGTH S)))))
EQUAL-OK: (T T)
(LET ((FILE "foo.bar") S) (UNWIND-PROTECT (PROGN (SETQ S (OPEN FILE 
:DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE)) (LIST (FILE-SIZE FILE) 
(SETF (FILE-SIZE S) 100) (FILE-SIZE FILE) (SETF (FILE-SIZE FILE) 1000) 
(FILE-SIZE S))) (DELETE-FILE FILE)))
ERROR!! (2293728 100 2293728 1000 2293728) should be (0 100 100 1000 1000) !

-- 
WBR, Yaroslav Kavenchuk.