cl-rw

commit 513d9793d354b596d09d92bc8f040a7f16762c19
parent cfa9d110874436bc91ce06d4e02c2c6f37392483
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 25 Dec 2014 23:35:32 +0100

ccl fix

Diffstat:
M
socket.lisp
 | 
10
++++++++--

1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/socket.lisp b/socket.lisp
@@ -43,7 +43,10 @@
 (defstruct (ipv6-address (:constructor %make-ipv6-address)) native string)
 
 (defun next-ipv4-address (r)
-  (ipv4-integer-to-vector
+  (#-ccl
+   ipv4-integer-to-vector
+   #+ccl
+   progn
    (cond
      ((eql #\0 (rw:peek r))
       (rw:next r)
@@ -128,7 +131,10 @@
 ;;(make-ipv4-address 0)
 
 (defun next-ipv6-address (r)
-  (ipv6-integer-to-vector
+  (#-ccl
+   ipv6-integer-to-vector
+   #+ccl
+   progn
    (flet ((chain (n)
             (loop
                with z = 0