From: Yaroslav K. <kav...@je...> - 2005-03-23 11:28:23
|
clisp from CVS head, mingw $ ./configure --with-mingw --with-debug --with-module=dirkey --build build-debug .... Test failed: -rw-r--r-- 1 Kavenchu Administ 374 Mar 23 11:20 streams.erg .... $ cat /home/src/clisp/clisp/build-debug/tests/streams.erg Form: (LET ((F "foo.bar") FWD1) (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 (= FWD1 (FILE-WRITE-DATE S)) (OPEN-STREAM-P S)))) (DELETE-FILE F))) CORRECT: (T NIL) CLISP : (NIL NIL) Differ at position 0: T vs NIL CORRECT: (T NIL) CLISP : (NIL NIL) But this only with --with-debug. If this nothing - excuse me. -- WBR, Yaroslav Kavenchuk. |