| commit | f04186099e38d8838708b05b64f1427021af25b9 | |
| author | Stas Boukarev <stassats@gmail.com> | |
| Sat, 18 Jan 2014 19:41:08 +0000 (18 23:41 +0400) | ||
| committer | Stas Boukarev <stassats@gmail.com> | |
| Sat, 18 Jan 2014 19:41:08 +0000 (18 23:41 +0400) | ||
| tree | 744bd628d9f30385823dfa42c97e864f3a916a3a | treesnapshot (tar.gz zip) |
| parent | 522314faf0d9ed3dd2ce65e04494bdecb555829d | commitdiff |
Optimize get-peer/local-address-and-port.
Instead of calling USOCKET:GET-X-ADDRESS and USOCKET:GET-X-PORT
separately, call GET-X-NAME, which returns address and port as two
values. At least for SBCL GET-X-ADDRESS and GET-X-PORT are implemented
as NTH-VALUE 0/1 of GET-X-NAME, which causes the address to be consed
twice.
Instead of calling USOCKET:GET-X-ADDRESS and USOCKET:GET-X-PORT
separately, call GET-X-NAME, which returns address and port as two
values. At least for SBCL GET-X-ADDRESS and GET-X-PORT are implemented
as NTH-VALUE 0/1 of GET-X-NAME, which causes the address to be consed
twice.
| compat.lisp | diffblobblamehistory |