From: Sam S. <sd...@gn...> - 2008-09-17 06:45:41
|
Yaroslav Kavenchuk wrote: > mod-check: > > 2 syscalls\test.tst: 4 errors out of 163 tests > please be more proactive. > > (OR (NOT (FBOUNDP 'USER-SHELLS)) (NOTEVERY #'STRINGP (USER-SHELLS))) > ERROR!! T should be NIL ! (FBOUNDP 'USER-SHELLS) ==> ? (USER-SHELLS) ==> ? > > (LET ((S (FLOOR (FILE-SIZE *TMP1*) 2))) (LIST (= S (SETF (FILE-SIZE > *TMP1*) S)) (= S (FILE-SIZE *TMP1*)))) > ERROR!! (T NIL) should be (T T) ! (FILE-SIZE *TMP1*) ==> ? (FLOOR (FILE-SIZE *TMP1*) 2) ==> ? (SETF (FILE-SIZE *TMP1*) S) ==> ? > (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) ! > this is weird. please do rm -fv foo.bar clisp -norc -x '(open "foo.bar" :direction :probe :if-does-not-exist :create)' ls -l foo.bar is the newly created file empty? OK, so where is the 4th error? |