source: tags/1.5.0/patches/usocket-backend-abcl.patch

Last change on this file was 14881, checked in by Mark Evenson, 8 years ago

USOCKET monkey patch: use an actual patch
File size: 1.1 KB

  • backend/abcl.lisp 

    # HG changeset patch
# Parent  394d3a2e64b9b0c297b6e8dbdb58cee2e425f414
Fixed incorrect IPv6 addresses on ABCL

On ABCL, the vector form of IPv6 addresses only included the first half
of the bytes, resulting in an 8-byte vector instead of the full 16 bytes
of the vector.

<https://github.com/usocket/usocket/pull/26/commits/11361bda5f93be74cdf06cf376e4943cc5c0600d?diff=unified>

<http://abcl.org/trac/changeset/r14881>

diff -r 394d3a2e64b9 backend/abcl.lisp
    a b  
    174174          ((= 4 length)
    175175           (vector (jbyte 0) (jbyte 1) (jbyte 2) (jbyte 3)))
    176176          ((= 16 length)
    177            (vector (jbyte 0) (jbyte 1) (jbyte 2) (jbyte 3)
    178                    (jbyte 4) (jbyte 5) (jbyte 6) (jbyte 7)))
     177           (vector (jbyte 0) (jbyte 1) (jbyte 2) (jbyte 3)
     178                   (jbyte 4) (jbyte 5) (jbyte 6) (jbyte 7)
     179                   (jbyte 8) (jbyte 9) (jbyte 10) (jbyte 11)
     180                   (jbyte 12) (jbyte 13) (jbyte 14) (jbyte 15)))
    179181          (t nil)))))) ; neither a IPv4 nor IPv6 address?!
    180182
    181183(defun get-hosts-by-name (name)
Note: See TracBrowser for help on using the repository browser.