From: Sam S. <sd...@gn...> - 2008-08-18 16:44:58
|
Yaroslav Kavenchuk wrote: > Sam Steingold wrote: >> this proved invaluable, please upload the new version if the compilation >> still fails. > > YESSSSS!!!! hurray!! > but... next trouble: > > test "`echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname > 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl > | tr '\n' '_'`" = '99_[1]> _110_' || exit 1 > Reserved address range 0x19d70000-0x5b09ffff . > STACK depth: 98222 [0x115ff40 0x1100088] > SP depth: 515968 > make: *** [check-script] Error 1 > so, what does it print instead of 99_[1]> _110_? i.e., what do you see when you do echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl | tr '\n' '_' |
From: Yaroslav K. <kav...@tu...> - 2008-08-18 16:49:49
|
Sam Steingold wrote: > so, what does it print instead of 99_[1]> _110_? > i.e., what do you see when you do > > echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname > 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl > | tr '\n' '_' $ LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl | tr '\n' '_' Reserved address range 0x19d70000-0x5b09ffff . STACK depth: 98222 [0x10fff40 0x10a0088] SP depth: 515968 _110> -- WBR, Yaroslav Kavenchuk. |
From: Sam S. <sd...@gn...> - 2008-08-18 19:31:00
|
Yaroslav Kavenchuk wrote: > Sam Steingold wrote: >> so, what does it print instead of 99_[1]> _110_? >> i.e., what do you see when you do >> >> echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname >> 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl >> | tr '\n' '_' > > $ LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N > locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x > '(setq foo 11 bar 99)' -repl | tr '\n' '_' > Reserved address range 0x19d70000-0x5b09ffff . > STACK depth: 98222 [0x10fff40 0x10a0088] > SP depth: 515968 > _110> how about LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl thanks |
From: Yaroslav K. <kav...@je...> - 2008-08-19 07:04:38
|
Sam Steingold wrote: > how about > > > LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N > locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem > -x > '(setq foo 11 bar 99)' -repl Reserved address range 0x19d90000-0x5fffffff . STACK depth: 98222 [0xe5ff40 0xe00088] SP depth: 515968 99 [1]> 110 -- WBR, Yaroslav Kavenchuk. |
From: Sam S. <sd...@gn...> - 2008-08-19 14:49:08
|
Yaroslav Kavenchuk wrote: > Sam Steingold wrote: >> how about >> >> >> LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N >> locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem >> -x >> '(setq foo 11 bar 99)' -repl > > Reserved address range 0x19d90000-0x5fffffff . > STACK depth: 98222 [0xe5ff40 0xe00088] > SP depth: 515968 > 99 > [1]> > 110 > > how about LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl | tr '\n\r' '_' |
From: Yaroslav K. <kav...@je...> - 2008-08-20 11:40:23
|
Sam Steingold wrote: > how about > > LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N > locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x > '(setq foo 11 bar 99)' -repl | tr '\n\r' '_' Reserved address range 0x19d90000-0x5fffffff . STACK depth: 98222 [0xe5ff40 0xe00088] SP depth: 515968 99__[1]> __110__ -- WBR, Yaroslav Kavenchuk. |
From: Sam S. <sd...@po...> - 2008-08-20 13:54:53
|
Yaroslav Kavenchuk wrote: > Sam Steingold wrote: >> how about >> >> LANGUAGE=ENGLISH LANG=ENGLISH echo '(+ foo bar)' | lisp.exe -B . -N >> locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem -x >> '(setq foo 11 bar 99)' -repl | tr '\n\r' '_' > > Reserved address range 0x19d90000-0x5fffffff . > STACK depth: 98222 [0xe5ff40 0xe00088] > SP depth: 515968 > 99__[1]> __110__ > thanks. I think I fixed this in the CVS |
From: Yaroslav K. <kav...@je...> - 2008-08-19 07:21:40
|
some errors in rawsock(?): ... (UNLESS (EQUALP #(127 0 0 1) (SUBSEQ (RAWSOCK:SOCKADDR-DATA *SA-LOCAL*) 2 6)) (RAWSOCK:BIND *SOCK* *SA-LOCAL*) (NOT (LOCAL-SA-CHECK *SOCK* *SA-LOCAL*))) [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:BIND: Invalid byte sequence #xD2 #xF0 in CHARSET:UTF-8 conversion ERROR!! ERROR should be NIL ! (RAWSOCK:CONNECT *SOCK* *SA-REMOTE*) [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:CONNECT: Invalid byte sequence #xCF #xEE in CHARSET:UTF-8 conversion ERROR!! ERROR should be NIL ! (EQUALP (RAWSOCK:GETPEERNAME *SOCK* T) *SA-REMOTE*) [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:GETPEERNAME: Invalid byte sequence #xC7 #xE0 in CHARSET:UTF-8 conversion ERROR!! ERROR should be T ! (LISTP (SHOW (LIST (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCK*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCK*))))) [SIMPLE-OS-ERROR]: Ошибка Winsock 10057 (ENOTCONN): Socket is not connected ERROR!! ERROR should be T ! make: *** [mod-check] Error 58 -- WBR, Yaroslav Kavenchuk. |
From: Sam S. <sd...@gn...> - 2008-08-19 14:19:42
|
Yaroslav Kavenchuk wrote: > some errors in rawsock(?): > > ... > (UNLESS (EQUALP #(127 0 0 1) (SUBSEQ (RAWSOCK:SOCKADDR-DATA *SA-LOCAL*) > 2 6)) (RAWSOCK:BIND *SOCK* *SA-LOCAL*) (NOT (LOCAL-SA-CHECK *SOCK* > *SA-LOCAL*))) > [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:BIND: Invalid byte sequence #xD2 > #xF0 in CHARSET:UTF-8 conversion > > ERROR!! ERROR should be NIL ! > (RAWSOCK:CONNECT *SOCK* *SA-REMOTE*) > [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:CONNECT: Invalid byte sequence #xCF > #xEE in CHARSET:UTF-8 conversion > > ERROR!! ERROR should be NIL ! > (EQUALP (RAWSOCK:GETPEERNAME *SOCK* T) *SA-REMOTE*) > [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:GETPEERNAME: Invalid byte sequence > #xC7 #xE0 in CHARSET:UTF-8 conversion > > ERROR!! ERROR should be T ! > (LISTP (SHOW (LIST (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCK*)) > (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCK*))))) > [SIMPLE-OS-ERROR]: Ошибка Winsock 10057 (ENOTCONN): Socket is not connected > > ERROR!! ERROR should be T ! > make: *** [mod-check] Error 58 > is this a regression? |
From: Yaroslav K. <kav...@je...> - 2008-08-20 11:49:05
|
Sam Steingold wrote: > is this a regression? No. I have not tried to test not-base-modules before that. -- WBR, Yaroslav Kavenchuk. |
From: Sam S. <sd...@gn...> - 2008-08-20 14:26:40
|
Yaroslav Kavenchuk wrote: > some errors in rawsock(?): > > ... > (UNLESS (EQUALP #(127 0 0 1) (SUBSEQ (RAWSOCK:SOCKADDR-DATA *SA-LOCAL*) > 2 6)) (RAWSOCK:BIND *SOCK* *SA-LOCAL*) (NOT (LOCAL-SA-CHECK *SOCK* > *SA-LOCAL*))) > [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:BIND: Invalid byte sequence #xD2 > #xF0 in CHARSET:UTF-8 conversion > > ERROR!! ERROR should be NIL ! > (RAWSOCK:CONNECT *SOCK* *SA-REMOTE*) > [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:CONNECT: Invalid byte sequence #xCF > #xEE in CHARSET:UTF-8 conversion > > ERROR!! ERROR should be NIL ! > (EQUALP (RAWSOCK:GETPEERNAME *SOCK* T) *SA-REMOTE*) > [SIMPLE-CHARSET-TYPE-ERROR]: RAWSOCK:GETPEERNAME: Invalid byte sequence > #xC7 #xE0 in CHARSET:UTF-8 conversion > > ERROR!! ERROR should be T ! > (LISTP (SHOW (LIST (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCK*)) > (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCK*))))) > [SIMPLE-OS-ERROR]: Ошибка Winsock 10057 (ENOTCONN): Socket is not connected > > ERROR!! ERROR should be T ! > make: *** [mod-check] Error 58 > 1. please try ./clisp -K full -E 1:1 -q -norc -i ../tests/tests -x '(run-test "rawsock/test")' 2. please try to figure out why you are seeing these errors, specifically, which encoding is at fault. I don't see any encoding calls in BIND and CONNECT, and, at any rate, the only relevant encoding is *misc-encoding* which should be 1:1, not utf-8. |
From: Yaroslav K. <kav...@tu...> - 2008-08-18 16:44:35
|
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. |
From: Sam S. <sd...@gn...> - 2008-08-18 19:20:35
|
Yaroslav Kavenchuk wrote: > 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) ! > please do cvs up and try again. thanks. |