sasagawa888 / eisl

ISLisp interpreter/compiler
Other
272 stars 22 forks source link

Build succeeds after a lot of C error messages #261

Closed yurivict closed 1 year ago

yurivict commented 1 year ago
In file included from library/i18n0.c:42:
library/i18n2.c:17:32: error: incompatible pointer to integer conversion passing 'nl_catd' (aka 'struct __nl_cat_d *') to parameter of type 'long' [-Wint-conversion]
res_str = fast_sprint_hex_long(catopen(Fgetname(NAME), NL_CAT_LOCALE));
                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/usr/ports/lang/eisl/work/eisl-2.90/fast.h:795:44: note: passing argument to parameter 'n' here
static char *fast_sprint_hex_long(long int n)
                                           ^
In file included from library/i18n0.c:42:
library/i18n2.c:32:24: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'nl_catd' (aka 'struct __nl_cat_d *') [-Wint-conversion]
res = Fmakestr(catgets(Fgetlong(CATD), SET_ID & INT_MASK, MSG_ID & INT_MASK, Fgetname(S)));
                       ^~~~~~~~~~~~~~
/usr/include/nl_types.h:95:25: note: passing argument to parameter here
char    *catgets(nl_catd, int, int, const char *) __format_arg(4);
                        ^
In file included from library/i18n0.c:42:
library/i18n2.c:43:16: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'nl_catd' (aka 'struct __nl_cat_d *') [-Wint-conversion]
res = catclose(Fgetlong(CATD)) | INT_FLAG;
               ^~~~~~~~~~~~~~
/usr/include/nl_types.h:96:22: note: passing argument to parameter here
int      catclose(nl_catd);
                         ^
In file included from library/i18n0.c:42:
library/i18n2.c:54:32: error: incompatible pointer to integer conversion passing 'iconv_t' (aka 'struct __tag_iconv_t *') to parameter of type 'long' [-Wint-conversion]
res_str = fast_sprint_hex_long(iconv_open(Fgetname(TOCODE), Fgetname(FROMCODE)));
                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/usr/ports/lang/eisl/work/eisl-2.90/fast.h:795:44: note: passing argument to parameter 'n' here
static char *fast_sprint_hex_long(long int n)
                                           ^
In file included from library/i18n0.c:42:
library/i18n2.c:63:32: error: incompatible pointer to integer conversion passing 'locale_t' (aka 'struct _xlocale *') to parameter of type 'long' [-Wint-conversion]
res_str = fast_sprint_hex_long(duplocale(LC_GLOBAL_LOCALE));
                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~
/usr/ports/lang/eisl/work/eisl-2.90/fast.h:795:44: note: passing argument to parameter 'n' here
static char *fast_sprint_hex_long(long int n)
                                           ^
In file included from library/i18n0.c:42:
library/i18n2.c:74:75: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'locale_t' (aka 'struct _xlocale *') [-Wint-conversion]
res_str = fast_sprint_hex_long(newlocale(LC_ALL_MASK, Fgetname(NLOCNAME), Fgetlong(LOC)));
                                                                          ^~~~~~~~~~~~~
/usr/include/xlocale/_locale.h:55:60: note: passing argument to parameter 'base' here
locale_t         newlocale(int mask, const char *locale, locale_t base);
                                                                  ^
In file included from library/i18n0.c:42:
library/i18n2.c:74:32: error: incompatible pointer to integer conversion passing 'locale_t' (aka 'struct _xlocale *') to parameter of type 'long' [-Wint-conversion]
res_str = fast_sprint_hex_long(newlocale(LC_ALL_MASK, Fgetname(NLOCNAME), Fgetlong(LOC)));
                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/usr/ports/lang/eisl/work/eisl-2.90/fast.h:795:44: note: passing argument to parameter 'n' here
static char *fast_sprint_hex_long(long int n)
                                           ^
In file included from library/i18n0.c:42:
library/i18n2.c:84:23: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'locale_t' (aka 'struct _xlocale *') [-Wint-conversion]
res = NIL; freelocale(Fgetlong(LOC));
                      ^~~~~~~~~~~~~
/usr/include/xlocale/_locale.h:54:28: note: passing argument to parameter 'loc' here
void             freelocale(locale_t loc);
                                     ^
In file included from library/i18n0.c:42:
library/i18n2.c:92:19: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'iconv_t' (aka 'struct __tag_iconv_t *') [-Wint-conversion]
res = iconv_close(Fgetlong(CD));
                  ^~~~~~~~~~~~
/usr/include/iconv.h:61:24: note: passing argument to parameter here
int     iconv_close(iconv_t);
                           ^
In file included from library/i18n0.c:42:
library/i18n2.c:314:7: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'iconv_t' (aka 'struct __tag_iconv_t *') [-Wint-conversion]
iconv(Fgetlong(CD), (char **)&inbuf, &inbytesleft, &outbuf, &outbytesleft);
      ^~~~~~~~~~~~
/usr/include/iconv.h:58:21: note: passing argument to parameter here
size_t  iconv(iconv_t, char ** __restrict,
                     ^
In file included from library/i18n0.c:42:
library/i18n2.c:354:7: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'iconv_t' (aka 'struct __tag_iconv_t *') [-Wint-conversion]
iconv(Fgetlong(CD), &inbuf, &inbytesleft, &outbuf, &outbytesleft);
      ^~~~~~~~~~~~
/usr/include/iconv.h:58:21: note: passing argument to parameter here
size_t  iconv(iconv_t, char ** __restrict,
                     ^
11 errors generated.
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/logger.lsp")' | ./eisl -r
Easy-ISLisp Ver2.87
> T
> type inference
initialize
pass1
pass2
compiling OPENLOG--CALC-LOGOPT-FLAGS 
compiling OPENLOG 
compiling SYSLOG 
compiling LOG-ADD 
compiling CLOSELOG 
compiling LOG-SET-LEVEL 
finalize
invoke CC
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/ndbm.lsp")' | ./eisl -r
Easy-ISLisp Ver2.87
> T
> type inference
initialize
pass1
pass2
compiling NDBM-RDONLY 
compiling NDBM-WRONLY 
compiling NDBM-RDWR 
compiling NDBM-CREAT 
compiling NDBM-OPEN 
compiling NDBM-INSERT 
compiling NDBM-REPLACE 
compiling NDBM-STORE 
compiling NDBM-FETCH 
compiling NDBM-DELETE 
compiling NDBM-CLOSE 
finalize
invoke CC
In file included from library/ndbm0.c:19:
library/ndbm2.c:31:32: error: incompatible pointer to integer conversion passing 'DBM *' (aka 'struct __db *') to parameter of type 'long' [-Wint-conversion]
res_str = fast_sprint_hex_long(dbm_open(Fgetname(FILE), FLAGS & INT_MASK, MODE & INT_MASK));
                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/usr/ports/lang/eisl/work/eisl-2.90/fast.h:795:44: note: passing argument to parameter 'n' here
static char *fast_sprint_hex_long(long int n)
                                           ^
In file included from library/ndbm0.c:19:
library/ndbm2.c:61:17: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'DBM *' (aka 'struct __db *') [-Wint-conversion]
res = dbm_store(Fgetlong(DB), key, content, STORE_MODE & INT_MASK) | INT_FLAG;
                ^~~~~~~~~~~~
/usr/include/ndbm.h:76:21: note: passing argument to parameter here
int      dbm_store(DBM *, datum, datum, int);
                        ^
In file included from library/ndbm0.c:19:
library/ndbm2.c:76:21: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'DBM *' (aka 'struct __db *') [-Wint-conversion]
content = dbm_fetch(Fgetlong(DB), key);
                    ^~~~~~~~~~~~
/usr/include/ndbm.h:69:23: note: passing argument to parameter here
datum    dbm_fetch(DBM *, datum);
                        ^
In file included from library/ndbm0.c:19:
library/ndbm2.c:90:18: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'DBM *' (aka 'struct __db *') [-Wint-conversion]
res = dbm_delete(Fgetlong(DB), key) | INT_FLAG;
                 ^~~~~~~~~~~~
/usr/include/ndbm.h:67:22: note: passing argument to parameter here
int      dbm_delete(DBM *, datum);
                         ^
In file included from library/ndbm0.c:19:
library/ndbm2.c:99:22: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'DBM *' (aka 'struct __db *') [-Wint-conversion]
res = NIL; dbm_close(Fgetlong(DB));
                     ^~~~~~~~~~~~
/usr/include/ndbm.h:66:22: note: passing argument to parameter here
void     dbm_close(DBM *);
                        ^
5 errors generated.
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/opengl.lsp")' | ./eisl -r
Easy-ISLisp Ver2.87
> T
> type inference
initialize
pass1
pass2
compiling GLUT:INIT 
compiling GLUT:INIT-DISPLAY-MODE 
compiling GLUT:INIT-WINDOW-SIZE 
compiling GLUT:INIT-WINDOW-POSITION 
compiling GLUT:CREATE-WINDOW 
compiling GL:CLEAR-COLOR 
compiling GLUT:DISPLAY-FUNC 
compiling GLUT:KEYBOARD-FUNC 
compiling GLUT:MOUSE-FUNC 
compiling GLUT:MAIN-LOOP 
compiling GL:CLEAR 
compiling GL:COLOR3D 
compiling GL:BEGIN 
compiling GL:VERTEX2D 
compiling GL:VERTEX3D 
compiling GL:VERTEX4D 
compiling GLUT:SOLID-CUBE 
compiling GLUT:SOLID-SPHERE 
compiling GLUT:SOLID-TORUS 
compiling GLUT:SOLID-ICOSAHEDRON 
compiling GLUT:SOLID-OCTAHEDRON 
compiling GLUT:SOLID-TETRAHEDRON 
compiling GLUT:SOLID-DODECAHEDRON 
compiling GLUT:SOLID-CONE 
compiling GLUT:SOLID-TEAPOT 
compiling GL:END 
compiling GL:FLUSH 
compiling GL:FINISH 
finalize
invoke CC
library/opengl0.c:2:10: fatal error: 'GL/glut.h' file not found
#include <GL/glut.h>
         ^~~~~~~~~~~
1 error generated.
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/regex.lsp")' | ./eisl -r
Easy-ISLisp Ver2.87
> T
> type inference
warning REGCOMP type mismatch (IF (= C-RES 0) (PROGN (C-LANG "char *preg_str;") (C-LANG "preg_str = fast_sprint_hex_long(preg);") (SETF (REGEXP-VAL RES) (C-LANG "Fmakefaststrlong(preg_str)")) RES) (PROGN (C-LANG "free(preg);") NIL))
warning REGCOMP type mismatch (LET ((RES (CREATE (CLASS <REGEXP>))) (C-RES (C-LANG "regcomp(preg, Fgetname(RE), REG_EXTENDED) | INT_FLAG"))) (IF (= C-RES 0) (PROGN (C-LANG "char *preg_str;") (C-LANG "preg_str = fast_sprint_hex_long(preg);") (SETF (REGEXP-VAL RES) (C-LANG "Fmakefaststrlong(preg_str)")) RES) (PROGN (C-LANG "free(preg);") NIL)))
warning REGCOMP subr type mismatch (C-LANG "preg = (regex_t *)malloc(sizeof(regex_t));")
warning REGCOMP subr type mismatch (C-LANG "regex_t *preg;")
initialize
pass1
pass2
compiling REGEXP-P 
compiling REGCOMP 
compiling REGEXE 
compiling REGMATCH 
compiling REGFREE 
finalize
invoke CC
In file included from library/regex0.c:14:
library/regex2.c:28:33: error: incompatible pointer to integer conversion passing 'regex_t *' to parameter of type 'long' [-Wint-conversion]
preg_str = fast_sprint_hex_long(preg);
                                ^~~~
/usr/ports/lang/eisl/work/eisl-2.90/fast.h:795:44: note: passing argument to parameter 'n' here
static char *fast_sprint_hex_long(long int n)
                                           ^
In file included from library/regex0.c:14:
library/regex2.c:74:95: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'const regex_t *' [-Wint-conversion]
res = ({int res;int VAL = Fapply(Fcar(Fmakesym("REGEXP-VAL")),Flist1(RE));int C_RES = regexec(Fgetlong(VAL), Fgetname(STR), (size_t)1, pmatch, REG_STARTEND) | INT_FLAG
                                                                                              ^~~~~~~~~~~~~
/usr/include/regex.h:114:39: note: passing argument to parameter here
int     regexec(const regex_t * __restrict, const char * __restrict, size_t,
                                          ^
In file included from library/regex0.c:14:
library/regex2.c:137:83: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'regex_t *' [-Wint-conversion]
res = ({int res;int VAL = Fapply(Fcar(Fmakesym("REGEXP-VAL")),Flist1(RE));regfree(Fgetlong(VAL));
                                                                                  ^~~~~~~~~~~~~
/usr/include/regex.h:116:23: note: passing argument to parameter here
void    regfree(regex_t *);
                         ^
In file included from library/regex0.c:14:
library/regex2.c:138:23: error: incompatible integer to pointer conversion passing 'long long' to parameter of type 'void *' [-Wint-conversion]
res = res = NIL; free(Fgetlong(VAL));
                      ^~~~~~~~~~~~~
4 errors generated.
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/tcltk.lsp")' | ./eisl -r
Easy-ISLisp Ver2.87
> T
> type inference
warning TK:OBJECTS subr type mismatch (STRING-APPEND "." (TK:STR-TO-LOWER (CONVERT LS <STRING>)))
warning TK:OBJECTS cond mismatch ((STRING-APPEND "." (TK:STR-TO-LOWER (CONVERT LS <STRING>))))
warning TK:OBJECTS subr type mismatch (STRING-APPEND "." (TK:STR-TO-LOWER (CONVERT (CAR LS) <STRING>)) (TK:OBJECTS (CDR LS)))
warning TK:OBJECTS cond mismatch ((STRING-APPEND "." (TK:STR-TO-LOWER (CONVERT (CAR LS) <STRING>)) (TK:OBJECTS (CDR LS))))
warning TK:OPTION subr type mismatch (STRING-APPEND " -anchor " (TK:STR-TO-LOWER (CONVERT (CAR (CDR LS)) <STRING>)))
warning TK:OPTION subr type mismatch (STRING-APPEND (STRING-APPEND " -anchor " (TK:STR-TO-LOWER (CONVERT (CAR (CDR LS)) <STRING>))) (TK:OPTION (CDR (CDR LS))))
warning TK:OPTION cond mismatch ((STRING-APPEND (STRING-APPEND " -anchor " (TK:STR-TO-LOWER (CONVERT (CAR (CDR LS)) <STRING>))) (TK:OPTION (CDR (CDR LS)))))
warning TK:OPTION subr type mismatch (STRING-APPEND " -tearoff " (TK:STR-TO-LOWER (CONVERT (CAR (CDR LS)) <STRING>)))
warning TK:OPTION subr type mismatch (STRING-APPEND (STRING-APPEND " -tearoff " (TK:STR-TO-LOWER (CONVERT (CAR (CDR LS)) <STRING>))) (TK:OPTION (CDR (CDR LS))))
warning TK:OPTION cond mismatch ((STRING-APPEND (STRING-APPEND " -tearoff " (TK:STR-TO-LOWER (CONVERT (CAR (CDR LS)) <STRING>))) (TK:OPTION (CDR (CDR LS)))))
initialize
pass1
pass2
compiling TK:BIND 
compiling TK:COMMAND-OPTION 
compiling TK:FUNCTION 
compiling TK:EXIT 
compiling TK:INIT 
compiling TK:LABEL 
compiling TK:BUTTON 
compiling TK:RADIOBUTTON 
compiling TK:CHECKBUTTON 
compiling TK:LISTBOX 
compiling TK:SCROLLBAR 
compiling TK:MENU 
compiling TK:CONFIGURE 
compiling TK:ADD 
compiling TK:CANVAS 
compiling TK:CREATE 
compiling TK:PACK 
compiling TK:MAINLOOP 
compiling TK:COMMAND 
compiling TK:WINFO 
compiling TK:PACKS 
compiling TK:STR-TO-LOWER 
compiling TK:RGB 
compiling TK:LIST 
compiling TK:OBJECTS 
compiling TK:OPTION 
compiling LINE 
compiling OVAL 
compiling RECTANGLE 
compiling ARC 
compiling POLYGON 
compiling TEXT 
compiling TK:CLASS-OPTION 
finalize
invoke CC
In file included from library/tcltk0.c:40:
library/tcltk2.c:4:19: fatal error: 'tcl.h' file not found
         #include <tcl.h>
                  ^~~~~~~
1 error generated.
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/tcpip.lsp")' | ./eisl -r
Easy-ISLisp Ver2.87
> T
> type inference
warning CREATE-SERVER type mismatch (IF (< SOCK 0) (ERROR "create-server" NIL))
warning CREATE-SERVER type mismatch (LET ((SOCK NIL) (RESPONSE NIL) (IP (SOCKET-IP X)) (N (SOCKET-N X)) (D (SOCKET-D X))) (IF (EQ (DYNAMIC *DEFAULT-IP-VERSION*) (QUOTE IPV6)) (SETQ SOCK (C-LANG "socket(AF_INET6, SOCK_STREAM, 0)")) (SETQ SOCK (C-LANG "socket(AF_INET, SOCK_STREAM, 0)"))) (IF (< SOCK 0) (ERROR "create-server" NIL)) (IF (EQ (DYNAMIC *DEFAULT-IP-VERSION*) (QUOTE IPV6)) (C-LANG "addr6.sin6_family = AF_INET6; addr6.sin6_port = htons(INT_MASK & N);") (C-LANG "addr4.sin_family = AF_INET; addr4.sin_port = htons(INT_MASK & N);")) (IF (NOT (NULL IP)) (IF (EQ (DYNAMIC *DEFAULT-IP-VERSION*) (QUOTE IPV6)) (C-LANG "inet_pton(AF_INET6, Fgetname(IP), addr6.sin6_addr.s6_addr);") (C-LANG "addr4.sin_addr.s_addr = inet_addr(Fgetname(IP));")) (IF (EQ (DYNAMIC *DEFAULT-IP-VERSION*) (QUOTE IPV6)) (C-LANG "addr6.sin6_addr = in6addr_any;") (C-LANG "addr4.sin_addr.s_addr = INADDR_ANY;"))) (SETQ RESPONSE (C-LANG "bind((INT_MASK & SOCK), addr, len);")) (IF (< RESPONSE 0) (ERROR "server-create" NIL)) (SETQ RESPONSE (C-LANG "listen((INT_MASK & SOCK), 5);")) (IF (< RESPONSE 0) (ERROR "server-create" NIL)) (SETF (SOCKET-D X) (C-LANG "Fmakeint(INT_MASK & SOCK)")) T)
warning CREATE-SERVER subr type mismatch (C-LANG "socklen_t len;")
warning CREATE-SERVER subr type mismatch (C-LANG "struct sockaddr *addr;")
warning CREATE-SERVER subr type mismatch (C-LANG "struct sockaddr_in addr4;")
warning CREATE-SERVER subr type mismatch (C-LANG "struct sockaddr_in6 addr6;")
warning SERVER-ACCEPT type mismatch (IF (< SOCK 0) (ERROR "server-accept" SOCK))
warning SERVER-ACCEPT type mismatch (LET ((SOCK NIL) (IP (SOCKET-IP X)) (N (SOCKET-N X)) (D (SOCKET-D X)) (Y (CREATE (CLASS SOCKET)))) (SETQ SOCK (C-LANG "accept((INT_MASK & D), client, &len);")) (IF (< SOCK 0) (ERROR "server-accept" SOCK)) (IF (EQ (DYNAMIC *DEFAULT-IP-VERSION*) (QUOTE IPV6)) (PROGN (C-LANG "inet_ntop(AF_INET6, &(client6.sin6_addr), str, sizeof(client6.sin6_addr));") (SETF (SOCKET-IP Y) (C-LANG "Fmakestr(str)"))) (SETF (SOCKET-IP Y) (C-LANG "Fmakestr(inet_ntoa(client4.sin_addr))"))) (SETF (SOCKET-D Y) (C-LANG "Fmakeint(INT_MASK & SOCK)")) Y)
warning SERVER-ACCEPT subr type mismatch (C-LANG "char str[256];")
warning SERVER-ACCEPT subr type mismatch (C-LANG "socklen_t len;")
warning SERVER-ACCEPT subr type mismatch (C-LANG "struct sockaddr *client;")
warning SERVER-ACCEPT subr type mismatch (C-LANG "struct sockaddr_in client4;")
warning SERVER-ACCEPT subr type mismatch (C-LANG "struct sockaddr_in6 client6;")
warning SOCKET-SEND type mismatch (IF (< RESPONSE 0) (ERROR "socket-send" NIL))
warning SOCKET-SEND subr type mismatch (C-LANG "len = strlen(Fgetname(MSG));")
warning SOCKET-SEND type mismatch (LET ((RESPONSE NIL) (D (SOCKET-D X))) (C-LANG "len = strlen(Fgetname(MSG));") (SETQ RESPONSE (C-LANG "send((INT_MASK & D), Fgetname(MSG), len, 0);")) (IF (< RESPONSE 0) (ERROR "socket-send" NIL)))
warning SOCKET-SEND subr type mismatch (C-LANG "int len;")
warning SOCKET-RECEIVE type mismatch (IF (< RESPONSE 0) (ERROR "socket-resieve" NIL))
warning SOCKET-RECEIVE subr type mismatch (C-LANG "memset(str, 0, sizeof(str));")
warning SOCKET-RECEIVE type mismatch (LET ((D (SOCKET-D X)) (RESPONSE NIL)) (C-LANG "memset(str, 0, sizeof(str));") (SETQ RESPONSE (C-LANG "recv((INT_MASK & D), str, sizeof(str),0)")) (IF (< RESPONSE 0) (ERROR "socket-resieve" NIL)) (C-LANG "Fmakestr(str);"))
warning SOCKET-RECEIVE subr type mismatch (C-LANG "char str[256];")
warning GET-HOST-ADDRESS type mismatch (IF (= RESPONSE 0) (ERROR "inet_ntop" RESPONSE))
warning GET-HOST-ADDRESS type mismatch (LET ((RESPONSE NIL)) (SETQ RESPONSE (C-LANG "getaddrinfo(Fgetname(HOST), NULL, &hints, &res0)")) (IF (NOT (NULL RESPONSE)) (ERROR "getaddrinfo" RESPONSE)) (IF (EQ (DYNAMIC *DEFAULT-IP-VERSION*) (QUOTE IPV6)) (SETQ RESPONSE (C-LANG "inet_ntop(AF_INET6, ((struct sockaddr_in6 *)(res0->ai_addr))->sin6_addr.s6_addr, str, res0->ai_addrlen)")) (SETQ RESPONSE (C-LANG "inet_ntop(AF_INET, &(((struct sockaddr_in *)(res0->ai_addr))->sin_addr), str, res0->ai_addrlen)"))) (IF (= RESPONSE 0) (ERROR "inet_ntop" RESPONSE)))
warning GET-HOST-ADDRESS subr type mismatch (C-LANG "hints.ai_socktype = SOCK_STREAM;")
warning GET-HOST-ADDRESS subr type mismatch (C-LANG "memset(&hints, 0, sizeof(hints));")
warning GET-HOST-ADDRESS subr type mismatch (C-LANG "char str[256];")
warning GET-HOST-ADDRESS subr type mismatch (C-LANG "struct addrinfo hints, *res0;")
initialize
pass1
pass2
compiling CREATE-SERVER 
compiling SERVER-ACCEPT 
compiling CLIENT-CONNECT 
compiling SOCKET-SEND 
compiling SOCKET-RECEIVE 
compiling SOCKET-CLOSE 
compiling GET-HOST-ADDRESS 
finalize
invoke CC
In file included from library/tcpip0.c:20:
library/tcpip2.c:374:17: error: incompatible pointer to integer conversion assigning to 'int' from 'const char *' [-Wint-conversion]
 res = RESPONSE = inet_ntop(AF_INET6, ((struct sockaddr_in6 *)(res0->ai_addr))->sin6_addr.s6_addr, str, res0->ai_addrlen)
                ^ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
library/tcpip2.c:379:17: error: incompatible pointer to integer conversion assigning to 'int' from 'const char *' [-Wint-conversion]
 res = RESPONSE = inet_ntop(AF_INET, &(((struct sockaddr_in *)(res0->ai_addr))->sin_addr), str, res0->ai_addrlen)
                ^ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2 errors generated.
T
> 
echo '(load "library/compiler.lsp") (compile-file "library/virtty.lsp")' | ./eisl -r

clang-15 FreeBSD 13.2