mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix: si:open-unix-socket-stream accepts both string and base-string

Browse source 
(automatic coercion is performed)
This commit is contained in:
Daniel Kochmański 2016-01-28 11:47:48 +01:00
parent df9a4f33b8
commit e20576df32
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
CHANGELOG
View file

@ -90,6 +90,9 @@
** Issues fixed:
- si:open-unix-socket-stream accepts both string and base-string
(automatic coercion is performed)
- Long form of DEFSETF accepts multiple-values as a store forms:
(defsetf gah (x) (y z) `(list ,x ,y ,z))

4
src/c/tcp.d
View file

@ -339,9 +339,11 @@ si_open_unix_socket_stream(cl_object path)
int fd; /* file descriptor */
struct sockaddr_un addr;
if (ecl_unlikely(ecl_t_of(path) != t_base_string))
if (ecl_unlikely(!ECL_STRINGP(path)))
FEwrong_type_nth_arg(@[si::open-unix-socket-stream], 1, path,
@[string]);
path = si_coerce_to_base_string(path);
if (path->base_string.fillp > UNIX_MAX_PATH-1)
FEerror("~S is a too long file name.", 1, path);

2
src/cmp/proclamations.lsp
View file

@ -1137,7 +1137,7 @@
#+wants-sockets
(proclamation si:open-server-stream (unsigned-byte) stream)
#+wants-sockets
(proclamation si:open-unix-socket-stream (base-string) stream)
(proclamation si:open-unix-socket-stream (string) stream)
#+wants-sockets
(proclamation si:lookup-host-entry (t) (values (or null string) list list))
(proclamation si:copy-stream (stream stream) t)