Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: e6ad5fa)
Add two "t_string" cases, as the reader now always returns STRINGs.
authorPhilipp Marek <philipp@marek.priv.at>
Sun, 4 May 2014 18:46:14 +0000 (20:46 +0200)
committerPhilipp Marek <philipp@marek.priv.at>
Sun, 4 May 2014 18:46:14 +0000 (20:46 +0200)
See http://article.gmane.org/gmane.lisp.ecl.general/10410 for a discussion.

src/c/package.d patch | blob | blame | history
src/c/tcp.d patch | blob | blame | history

diff --git a/src/c/package.d b/src/c/package.d
index be15f77..bd93355 100644 (file)
--- a/src/c/package.d
+++ b/src/c/package.d
@@ -1069,6 +1069,7 @@ cl_list_all_packages()
        case t_symbol:
        case t_character:
        case t_base_string:
+       case t_string:
        case t_package:
                ecl_unuse_package(pack, pa);
                break;
diff --git a/src/c/tcp.d b/src/c/tcp.d
index 75a20d9..ff174e0 100644 (file)
--- a/src/c/tcp.d
+++ b/src/c/tcp.d
@@ -374,6 +374,7 @@ si_lookup_host_entry(cl_object host_or_address)
        INIT_TCP
 
        switch (ecl_t_of(host_or_address)) {
+       case t_string:
        case t_base_string:
                host_or_address = si_copy_to_simple_base_string(host_or_address);
                he = gethostbyname((char*)host_or_address->base_string.self);
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)