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