From 491a8fb5114107f3fa23cd5397b7d9b30d90fc4e Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 4 Nov 2010 23:42:20 +0100 Subject: [PATCH] Proclaim socket functions only when used (J Jaakkola) --- src/cmp/proclamations.lsp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/cmp/proclamations.lsp b/src/cmp/proclamations.lsp index bd0071664..442504581 100644 --- a/src/cmp/proclamations.lsp +++ b/src/cmp/proclamations.lsp @@ -1091,9 +1091,13 @@ ;; ECL extensions: (proclamation si:make-string-output-stream-from-string (string) string-stream :reader) +#+wants-sockets (proclamation si:open-client-stream (t unsigned-byte) stream) +#+wants-sockets (proclamation si:open-server-stream (unsigned-byte) stream) +#+wants-sockets (proclamation si:open-unix-socket-stream (base-string) stream) +#+wants-sockets (proclamation si:lookup-host-entry (t) (values (or null string) list list)) (proclamation si:copy-stream (stream stream) t)