diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-29 15:25:28 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-29 15:25:28 +0000 |
commit | 7e465ce1b99903491c6132466808c9fa51ae500e (patch) | |
tree | 5f97fdd88cbada50122e5ef86c99d73157da8337 /src/interp/sockio.lisp | |
parent | 3223409ab97b1a6a8e60d541b0c7b5b69c8b9a83 (diff) | |
download | open-axiom-7e465ce1b99903491c6132466808c9fa51ae500e.tar.gz |
Cleanup, part 2.
Diffstat (limited to 'src/interp/sockio.lisp')
-rw-r--r-- | src/interp/sockio.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/sockio.lisp b/src/interp/sockio.lisp index ab963588..0ed33463 100644 --- a/src/interp/sockio.lisp +++ b/src/interp/sockio.lisp @@ -36,21 +36,6 @@ (import-module "boot-pkg") (in-package "BOOT") -#+KCL -(progn -;; GCL may pass strings by value. 'sock_get_string_buf' should fill -;; string with data read from connection, therefore needs address of -;; actual string buffer. We use 'sock_get_string_buf_wrapper' to -;; resolve the problem - (clines "int sock_get_string_buf_wrapper(int i, object x, int j)" - "{ if (type_of(x)!=t_string) FEwrong_type_argument(sLstring,x);" - " if (x->st.st_fillp<j)" - " FEerror(\"string too small in sock_get_string_buf_wrapper\",0);" - " return sock_get_string_buf(i, x->st.st_self, j); }") - (defentry |sockGetString| (int object int) - (int "sock_get_string_buf_wrapper")) - ) - ;; Macros for use in Boot ;; Socket types. This list must be consistent with the one in com.h |