[usocket-cvs] r607 - usocket/branches/0.5.x

[Chun Tian (binghe)]

Author: ctian
Date: Wed Mar 30 02:05:35 2011
New Revision: 607

Log:
Fixed wrong macro expansions of {IP|PORT}-{FROM|TO}-OCTET-BUFFER functions!

Modified:
   usocket/branches/0.5.x/usocket.lisp

Modified: usocket/branches/0.5.x/usocket.lisp
==============================================================================
--- usocket/branches/0.5.x/usocket.lisp	(original)
+++ usocket/branches/0.5.x/usocket.lisp	Wed Mar 30 02:05:35 2011
@@ -367,16 +367,16 @@
             (aref buffer b)))))
 
 (defmacro port-to-octet-buffer (port buffer &key (start 0))
-  `(integer-to-octet-buffer ,port ,buffer 2 ,start))
+  `(integer-to-octet-buffer ,port ,buffer 2 :start ,start))
 
 (defmacro ip-to-octet-buffer (ip buffer &key (start 0))
-  `(integer-to-octet-buffer (host-byte-order ,ip) ,buffer 4 ,start))
+  `(integer-to-octet-buffer (host-byte-order ,ip) ,buffer 4 :start ,start))
 
 (defmacro port-from-octet-buffer (buffer &key (start 0))
-  `(octet-buffer-to-integer ,buffer 2 ,start))
+  `(octet-buffer-to-integer ,buffer 2 :start ,start))
 
 (defmacro ip-from-octet-buffer (buffer &key (start 0))
-  `(octet-buffer-to-integer ,buffer 4 ,start))
+  `(octet-buffer-to-integer ,buffer 4 :start ,start))
 
 ;;
 ;; IP(v4) utility functions