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

Proclaim socket functions only when used (J Jaakkola)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-11-04 23:42:20 +01:00
parent 729baa8935
commit 491a8fb511
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/proclamations.lsp
View file

@ -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)