[clisp-list] Checks fail for rawsock

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Trying to run the tests of the rawsock module (still NetBSD/powerpc)
gives the following.  The last test seems to wait forever.

magnus@zemdatav:~/noarchive/src/clisp-cvs/build-rawsock/rawsock$ ../clisp -=
K full -E 1:1 -q -norc -i ../tests/tests -x '(run-test "./test")'
STACK depth: 16367
;; Loading file /home/magnus/noarchive/src/clisp-cvs/build-rawsock/tests/te=
sts.lisp ...
;; Loaded file /home/magnus/noarchive/src/clisp-cvs/build-rawsock/tests/tes=
ts.lisp
RUN-TEST: started #<INPUT BUFFERED FILE-STREAM CHARACTER #P"./test.tst" @1>
(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "rawsock" T)) :PRETTY T))
("rawsock" 36
 (RAWSOCK:UDPCSUM RAWSOCK:TCPCSUM RAWSOCK:SOCK-WRITE RAWSOCK:SOCK-READ
  RAWSOCK:SOCK-LISTEN RAWSOCK:SOCK-CLOSE RAWSOCK:SOCKET-OPTION
  RAWSOCK:SOCKETPAIR RAWSOCK:SOCKET RAWSOCK:SOCKATMARK RAWSOCK::SOCKADDR-SL=
OT
  RAWSOCK:SOCKADDR-FAMILY RAWSOCK::SET-SOCKET-OPTION RAWSOCK:SENDTO
  RAWSOCK:SENDMSG RAWSOCK:SEND RAWSOCK:RECVMSG RAWSOCK:RECVFROM RAWSOCK:RECV
  RAWSOCK:PROTOCOL RAWSOCK:NTOHS RAWSOCK:NTOHL RAWSOCK:NETWORK
  RAWSOCK:MAKE-SOCKADDR RAWSOCK:IPCSUM RAWSOCK:ICMPCSUM RAWSOCK:HTONS
  RAWSOCK:HTONL RAWSOCK:GETSOCKNAME RAWSOCK:GETPEERNAME RAWSOCK:GETNAMEINFO
  RAWSOCK:GETADDRINFO RAWSOCK:CONVERT-ADDRESS RAWSOCK:CONNECT RAWSOCK:BIND
  RAWSOCK:ACCEPT)
 109
 ((OR NULL INTEGER
   (MEMBER :ALL :SOL-SOCKET :IPPROTO-IP :IPPROTO-IPV6 :IPPROTO-ICMP
    :IPPROTO-RAW :IPPROTO-TCP :IPPROTO-UDP :IPPROTO-IGMP :IPPROTO-IPIP
    :IPPROTO-EGP :IPPROTO-PUP :IPPROTO-IDP :IPPROTO-GGP :IPPROTO-HOPOPTS
    :IPPROTO-ROUTING :IPPROTO-FRAGMENT :IPPROTO-ESP :IPPROTO-AH :IPPROTO-IC=
MPV6
    :IPPROTO-DSTOPTS :IPPROTO-NONE))
  (OR NULL INTEGER
   (MEMBER :DEBUG :ACCEPTCONN :BROADCAST :USELOOPBACK :REUSEADDR :KEEPALIVE
    :LINGER :OOBINLINE :SNDBUF :RCVBUF :ERROR :TYPE :DONTROUTE :RCVLOWAT
    :RCVTIMEO :SNDLOWAT :SNDTIMEO))
  (OR NULL INTEGER (MEMBER :STREAM :DGRAM :RAW :RDM :SEQPACKET))
  (OR NULL INTEGER
   (MEMBER :OOB :PEEK :DONTROUTE :CTRUNC :TRUNC :DONTWAIT :EOR :WAITALL))
  (OR NULL INTEGER
   (MEMBER :IPPROTO-IP :IPPROTO-IPV6 :IPPROTO-ICMP :IPPROTO-RAW :IPPROTO-TCP
    :IPPROTO-UDP :IPPROTO-IGMP :IPPROTO-IPIP :IPPROTO-EGP :IPPROTO-PUP
    :IPPROTO-IDP :IPPROTO-GGP :IPPROTO-HOPOPTS :IPPROTO-ROUTING
    :IPPROTO-FRAGMENT :IPPROTO-ESP :IPPROTO-AH :IPPROTO-ICMPV6 :IPPROTO-DST=
OPTS
    :IPPROTO-NONE :IPPROTO-RSVP :IPPROTO-GRE :IPPROTO-PIM))
  (OR NULL INTEGER (MEMBER :PASSIVE :CANONNAME :NUMERICHOST :NUMERICSERV))
  (OR NULL INTEGER
   (MEMBER :UNSPEC :UNIX :LOCAL :INET :IMPLINK :PUP :CHAOS :DATAKIT :CCITT =
:IPX
    :NS :ISO :OSI :ECMA :APPLETALK :INET6 :DECNET :DLI :LAT :HYLINK :ROUTE
    :SNA))
  (MEMBER :FAMILY :DATA) SOCKADDR RAWSOCK:SOCKADDR RAWSOCK:MESSAGE
  RAWSOCK::MAKE-SA RAWSOCK:MAKE-PROTOCOL RAWSOCK:MAKE-NETWORK
  RAWSOCK:MAKE-ADDRINFO :WAITALL :V4MAPPED :USELOOPBACK :UNSPEC :UNIX :TYPE
  :TRUNC :STREAM :START :SOL-SOCKET :SOCKTYPE :SNDTIMEO :SNDLOWAT :SNDBUF :=
SNA
  :SERVICE :SEQPACKET :ROUTE :REUSEADDR :RDM :RCVTIMEO :RCVLOWAT :RCVBUF :R=
AW
  :PUP :PROTOCOL :PEEK :PASSIVE :OSI :OOBINLINE :OOB :NUMERICSERV :NUMERICS=
COPE
  :NUMERICHOST :NS :NOFQDN :NODE :NAMEREQD :LOCAL :LINGER :LEVEL :LAT
  :KEEPALIVE :ISO :IPX :IPPROTO-UDP :IPPROTO-TCP :IPPROTO-RSVP :IPPROTO-ROU=
TING
  :IPPROTO-RAW :IPPROTO-PUP :IPPROTO-PIM :IPPROTO-NONE :IPPROTO-IPV6
  :IPPROTO-IPIP :IPPROTO-IP :IPPROTO-IGMP :IPPROTO-IDP :IPPROTO-ICMPV6
  :IPPROTO-ICMP :IPPROTO-HOPOPTS :IPPROTO-GRE :IPPROTO-GGP :IPPROTO-FRAGMENT
  :IPPROTO-ESP :IPPROTO-EGP :IPPROTO-DSTOPTS :IPPROTO-AH :INET6 :INET :IMPL=
INK
  :HYLINK :FAMILY :ERROR :EOR :END :ECMA :DONTWAIT :DONTROUTE :DLI :DGRAM
  :DECNET :DEBUG :DATAKIT :DATA :CTRUNC :CHAOS :CCITT :CANONNAME :BROADCAST
  :APPLETALK :ALL :ADDRCONFIG :ACCEPTCONN))
EQL-OK: T
(PROGN (DEFUN TO-BYTES (STRING) (CONVERT-STRING-TO-BYTES STRING CHARSET:ASC=
II)) (DEFUN FROM-BYTES (VEC &OPTIONAL SIZE) (CONVERT-STRING-FROM-BYTES VEC =
CHARSET:ASCII :END SIZE)) (DEFUN MAKE-BYTE-VECTOR (LEN) (MAKE-ARRAY (ETYPEC=
ASE LEN (INTEGER LEN) (SEQUENCE (LENGTH LEN))) :ELEMENT-TYPE '(UNSIGNED-BYT=
E 8) :INITIAL-ELEMENT 0)) (DEFUN HOST->SA (HOST &OPTIONAL (PORT 0)) (LET* (=
(HE (RESOLVE-HOST-IPADDR HOST)) SA (IP (FIRST (HOSTENT-ADDR-LIST HE))) (TYP=
E (HOSTENT-ADDRTYPE HE)) (LI (READ-FROM-STRING (CONCATENATE 'STRING "(" (SU=
BSTITUTE #\Space #\. IP) ")"))) (VE (MAKE-BYTE-VECTOR (NTH-VALUE 1 (RAWSOCK=
::SOCKADDR-SLOT :DATA))))) (SHOW HE :PRETTY T) (SETF PORT (RAWSOCK:HTONS PO=
RT) (AREF VE 0) (LDB #S(BYTE :SIZE 8 :POSITION 0) PORT) (AREF VE 1) (LDB #S=
(BYTE :SIZE 8 :POSITION 8) PORT)) (REPLACE VE LI :START1 2) (SHOW VE) (SETQ=
 SA (SHOW (RAWSOCK:MAKE-SOCKADDR TYPE VE))) (ASSERT (EQUALP VE (RAWSOCK:SOC=
KADDR-DATA SA))) (SHOW (LIST 'RAWSOCK:SOCKADDR-FAMILY (MULTIPLE-VALUE-LIST =
(RAWSOCK:SOCKADDR-FAMILY SA)))) (SHOW (MAPCAR (LAMBDA (ADDR) (LET ((NUMERIC=
 (RAWSOCK:CONVERT-ADDRESS TYPE ADDR))) (SHOW (LIST :ADDRESS ADDR NUMERIC)) =
(ASSERT (STRING=3D IP (RAWSOCK:CONVERT-ADDRESS TYPE NUMERIC))))) (HOSTENT-A=
DDR-LIST HE))) SA)) (DEFUN LOCAL-SA-CHECK (SOCK SA-LOCAL) (LET* ((SA (RAWSO=
CK:GETSOCKNAME SOCK T)) (DATA (RAWSOCK:SOCKADDR-DATA SA))) (SHOW SA) (SHOW =
(LIST 'PORT (+ (AREF DATA 1) (ASH (AREF DATA 0) 8)))) (AND (=3D (RAWSOCK:SO=
CKADDR-FAMILY SA) (RAWSOCK:SOCKADDR-FAMILY SA-LOCAL)) (EQUALP (SUBSEQ DATA =
2) (SUBSEQ (RAWSOCK:SOCKADDR-DATA SA-LOCAL) 2))))) (DOLIST (WHAT '(NIL :DAT=
A :FAMILY)) (SHOW (CONS (LIST 'RAWSOCK::SOCKADDR-SLOT WHAT) (MULTIPLE-VALUE=
-LIST (RAWSOCK::SOCKADDR-SLOT WHAT))))) (DEFVAR *SA-REMOTE*) (DEFVAR *SA-LO=
CAL*) (DEFVAR *BUFFER* (MAKE-BYTE-VECTOR 1024)) (DEFVAR *SOCK*) (DEFVAR *SO=
CK1*) (DEFVAR *SOCK2*) (DEFVAR *RECV-RET*) (DEFVAR *RECVFROM-RET*) (DEFVAR =
*READ-RET*) (DEFUN MY-RECVFROM (SO VE SA &OPTIONAL (STATUS :OUTPUT) &AUX SI=
ZE) (WHEN (SOCKET-STATUS (CONS SO :INPUT) 1) (MULTIPLE-VALUE-BIND (LEN SA-L=
EN SA1) (RAWSOCK:RECVFROM SO VE SA) (ASSERT (EQ SA SA1)) (SETQ SIZE LEN) (S=
HOW (LIST LEN SA-LEN SA (SUBSEQ VE 0 LEN)) :PRETTY T))) (ASSERT (EQ STATUS =
(SHOW (SOCKET-STATUS SO)))) (RAWSOCK:SOCK-CLOSE *SOCK*) SIZE) T)
((RAWSOCK::SOCKADDR-SLOT NIL) 16)
((RAWSOCK::SOCKADDR-SLOT :DATA) 2 14)
((RAWSOCK::SOCKADDR-SLOT :FAMILY) 1 1)
EQL-OK: T
(PROGN (SETQ *SA-REMOTE* (HOST->SA "ftp.gnu.org" 21)) T)
#<HOSTENT :NAME "ftp.gnu.org" :ALIASES NIL :ADDR-LIST ("199.232.41.7")
  :ADDRTYPE 2>
#(21 0 199 232 41 7 0 0 0 0 0 0 0 0)
#<RAWSOCK:SOCKADDR :%DATA #(0 2 21 0 199 232 41 7 0 0 0 0 0 0 0 0)>
(RAWSOCK:SOCKADDR-FAMILY (2 16))
(:ADDRESS "199.232.41.7" 120187079)
[SIMPLE-ERROR]: (STRING=3D IP (RAWSOCK:CONVERT-ADDRESS TYPE NUMERIC)) must =
evaluate to a non-NIL value.
ERROR!! ERROR should be T !
(PROGN (SETQ *SA-LOCAL* (HOST->SA :DEFAULT)) T)
#<HOSTENT :NAME "zemdatav.stor.no-ip.org" :ALIASES NIL
  :ADDR-LIST ("213.67.239.170") :ADDRTYPE 2>
#(0 0 213 67 239 170 0 0 0 0 0 0 0 0)
#<RAWSOCK:SOCKADDR :%DATA #(0 2 0 0 213 67 239 170 0 0 0 0 0 0 0 0)>
(RAWSOCK:SOCKADDR-FAMILY (2 16))
(:ADDRESS "213.67.239.170" 2867807189)
[SIMPLE-ERROR]: (STRING=3D IP (RAWSOCK:CONVERT-ADDRESS TYPE NUMERIC)) must =
evaluate to a non-NIL value.
ERROR!! ERROR should be T !
(CATCH 'TYPE-ERROR-HANDLER (HANDLER-BIND ((TYPE-ERROR #'TYPE-ERROR-HANDLER)=
) (RAWSOCK:SOCKET :INET :FOO NIL)))
[SIMPLE-TYPE-ERROR]: RAWSOCK:SOCKET: Lisp value :FOO is not found in table =
"check_socket_type": ((1 :STREAM) (2 :DGRAM) (3 :RAW) (4 :RDM) (5 :SEQPACKE=
T))

(:DATUM :FOO :EXPECTED-TYPE
 (OR INTEGER (MEMBER NIL :STREAM :DGRAM :RAW :RDM :SEQPACKET)))
EQL-OK: NIL
(CATCH 'TYPE-ERROR-HANDLER (HANDLER-BIND ((TYPE-ERROR #'TYPE-ERROR-HANDLER)=
) (RAWSOCK:SOCKET :FOO :STREAM NIL)))
[SIMPLE-TYPE-ERROR]: RAWSOCK:SOCKET: Lisp value :FOO is not found in table =
"check_socket_domain": ((0 :UNSPEC) (1 :UNIX) (1 :LOCAL) (2 :INET) (3 :IMPL=
INK) (4 :PUP) (5 :CHAOS) (9 :DATAKIT) (10 :CCITT) (23 :IPX) (6 :NS) (7 :ISO=
) (7 :OSI) (8 :ECMA) (16 :APPLETALK) (24 :INET6) (12 :DECNET) (13 :DLI) (14=
 :LAT) (15 :HYLINK) (17 :ROUTE) (11 :SNA))

(:DATUM :FOO :EXPECTED-TYPE
 (OR INTEGER
  (MEMBER NIL :UNSPEC :UNIX :LOCAL :INET :IMPLINK :PUP :CHAOS :DATAKIT :CCI=
TT
   :IPX :NS :ISO :OSI :ECMA :APPLETALK :INET6 :DECNET :DLI :LAT :HYLINK :RO=
UTE
   :SNA)))
EQL-OK: NIL
(INTEGERP (SHOW (SETQ *SOCK* (RAWSOCK:SOCKET :INET :STREAM NIL))))
6
EQL-OK: T
(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-UNBOUND-VARIABLE]: EVAL: variable *SA-LOCAL* has no value

ERROR!! ERROR should be NIL !
(RAWSOCK:CONNECT *SOCK* *SA-REMOTE*)
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SA-REMOTE* has no value

ERROR!! ERROR should be NIL !
(EQUALP (RAWSOCK:GETPEERNAME *SOCK* T) *SA-REMOTE*)
[SIMPLE-FILE-ERROR]: UNIX error 57 (ENOTCONN): Socket is not connected

ERROR!! ERROR should be T !
(SOCKET-STATUS (LIST (CONS *SOCK* :INPUT)))