From: Dan S. <dv...@ea...> - 2006-01-13 15:25:51
|
I get the following after doing make check. Sockets are not an issue with my own programs, but I suppose this should be fixed. ======================= RUN-TEST: finished "excepsit" (0 errors out of 372 tests) finished 48 files: 30 errors out of 10,359 tests 1 alltest: 0 errors out of 631 tests 2 array: 0 errors out of 290 tests 3 backquot: 0 errors out of 88 tests 4 bin-io: 0 errors out of 15 tests 5 characters: 0 errors out of 221 tests 6 clos: 0 errors out of 482 tests 7 defhash: 0 errors out of 6 tests 8 encoding: 0 errors out of 31 tests 9 eval20: 0 errors out of 21 tests 10 floeps: 0 errors out of 20 tests 11 format: 0 errors out of 259 tests 12 genstream: 0 errors out of 14 tests 13 hashlong: 0 errors out of 10 tests 14 hashtable: 0 errors out of 7 tests 15 iofkts: 0 errors out of 218 tests 16 lambda: 0 errors out of 89 tests 17 lists151: 0 errors out of 201 tests 18 lists152: 0 errors out of 255 tests 19 lists153: 0 errors out of 1 test 20 lists154: 0 errors out of 46 tests 21 lists155: 0 errors out of 25 tests 22 lists156: 0 errors out of 20 tests 23 loop: 0 errors out of 130 tests 24 macro8: 0 errors out of 193 tests 25 map: 0 errors out of 64 tests 26 mop: 0 errors out of 217 tests 27 number: 0 errors out of 3,655 tests 28 number2: 0 errors out of 252 tests 29 pack11: 0 errors out of 202 tests 30 path: 0 errors out of 134 tests 31 setf: 0 errors out of 167 tests 32 socket: 30 errors out of 58 tests 33 steele7: 0 errors out of 85 tests 34 streams: 0 errors out of 361 tests 35 streamslong: 0 errors out of 14 tests 36 strings: 0 errors out of 407 tests 37 symbol10: 0 errors out of 147 tests 38 symbols: 0 errors out of 5 tests 39 time: 0 errors out of 21 tests 40 type: 0 errors out of 272 tests 41 weak: 0 errors out of 120 tests 42 weakhash: 0 errors out of 25 tests 43 weakhash2: 0 errors out of 46 tests 44 bind: 0 errors out of 67 tests 45 weakptr: 0 errors out of 240 tests 46 conditions: 0 errors out of 89 tests 47 restarts: 0 errors out of 66 tests 48 excepsit: 0 errors out of 372 tests Real time: 739.23865 sec. Run time: 697.12 sec. Space: 736984772 Bytes GC: 999, GC time: 177.26 sec. 30 Bye. (echo *.erg | grep '*' >/dev/null) || (echo "Test failed:" ; ls -l *erg; echo "To see which tests failed, type" ; echo " cat "`pwd`"/*.erg" ; exit 1) Test failed: -rw-r--r-- 1 dan dan 6243 5 Jan 23:59 socket.erg To see which tests failed, type cat /Users/dan/downloads/clisp-2.37/src/tests/*.erg make[1]: *** [compare] Error 1 make: *** [check-tests] Error 2 ~/downloads/clisp-2.37/src: cat /Users/dan/downloads/clisp-2.37/src/tests/*.erg Form: (DEFPARAMETER *SERVER* (SOCKET-SERVER)) CORRECT: *SERVER* CLISP : ERROR UNIX error 49 (EADDRNOTAVAIL): Cannot assign requested address OUT: "[SIMPLE-OS-ERROR]: UNIX error 49 (EADDRNOTAVAIL): Cannot assign requested address " Form: (MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0)) CORRECT: (NIL 0) CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (DEFPARAMETER *SOCKET-1* (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "localhost" :TIMEOUT 0)) CORRECT: *SOCKET-1* CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-1* :IO))) CORRECT: *STATUS-ARG* CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*) CORRECT: T CLISP : ERROR EVAL: variable *STATUS-ARG* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *STATUS-ARG* has no value " Form: (CDR (ASSOC *SERVER* *STATUS-ARG*)) CORRECT: T CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (CDDR (ASSOC *SOCKET-1* *STATUS-ARG*)) CORRECT: :OUTPUT CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (DEFPARAMETER *SOCKET-2* (SOCKET-ACCEPT *SERVER*)) CORRECT: *SOCKET-2* CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (PROGN (PUSH (LIST *SOCKET-2* :IO) *STATUS-ARG*) (EQ *STATUS-ARG* (SOCKET-STATUS *STATUS-ARG* 0))) CORRECT: T CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (CDR (ASSOC *SERVER* *STATUS-ARG*)) CORRECT: NIL CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (CDDR (ASSOC *SOCKET-1* *STATUS-ARG*)) CORRECT: :OUTPUT CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (CDDR (ASSOC *SOCKET-2* *STATUS-ARG*)) CORRECT: :OUTPUT CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (WRITE-LINE "foo" *SOCKET-1*) CORRECT: "foo" CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (FINISH-OUTPUT *SOCKET-1*) CORRECT: NIL CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*) CORRECT: T CLISP : ERROR EVAL: variable *STATUS-ARG* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *STATUS-ARG* has no value " Form: (CDR (ASSOC *SERVER* *STATUS-ARG*)) CORRECT: NIL CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (CDDR (ASSOC *SOCKET-1* *STATUS-ARG*)) CORRECT: :OUTPUT CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (CDDR (ASSOC *SOCKET-2* *STATUS-ARG*)) CORRECT: :IO CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (MULTIPLE-VALUE-LIST (READ-LINE *SOCKET-2*)) CORRECT: ("foo" NIL) CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (CLOSE *SOCKET-1*) CORRECT: T CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (CLOSE *SOCKET-2*) CORRECT: T CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (SOCKET-SERVER-CLOSE *SERVER*) CORRECT: NIL CLISP : ERROR EVAL: variable *SERVER* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SERVER* has no value " Form: (PROGN (SETQ *SERVER* (SOCKET-SERVER 9090) *SOCKET-1* (SOCKET-CONNECT 9090 "localhost" :TIMEOUT 0 :BUFFERED NIL) *SOCKET-2* (SOCKET-ACCEPT *SERVER* :BUFFERED NIL)) (WRITE-CHAR #\a *SOCKET-1*)) CORRECT: #\a CLISP : ERROR UNIX error 49 (EADDRNOTAVAIL): Cannot assign requested address OUT: "[SIMPLE-OS-ERROR]: UNIX error 49 (EADDRNOTAVAIL): Cannot assign requested address " Form: (LISTP (SHOW (LIST (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCKET-1*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCKET-1*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-LOCAL *SOCKET-2*)) (MULTIPLE-VALUE-LIST (SOCKET-STREAM-PEER *SOCKET-2*))) :PRETTY T)) CORRECT: T CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0) CORRECT: :INPUT CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (READ-CHAR *SOCKET-2*) CORRECT: #\a CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0) CORRECT: NIL CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (CLOSE *SOCKET-1*) CORRECT: T CLISP : ERROR EVAL: variable *SOCKET-1* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value " Form: (SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0) CORRECT: :EOF CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " Form: (CLOSE *SOCKET-2*) CORRECT: T CLISP : ERROR EVAL: variable *SOCKET-2* has no value OUT: "[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-2* has no value " ~/downloads/clisp-2.37/src: |