cl-rw

commit caca323bbd0063f75f0d53a1c5c095b4400bb07d
parent 9b5f5db7cd18e0678d4591dc889b200b717c8cc2
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat,  1 Nov 2014 23:37:44 +0100

fix compilation issues

Diffstat:
M
dns.lisp
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/dns.lisp b/dns.lisp
@@ -87,7 +87,7 @@
   (assert (= 4 (length x)))
   (map nil (lambda (x) (rw:write-u8 writer x)) x))
 
-(rw.wire:defenum $resource-type (:nbits 16)
+(rw.wire:defenum $$resource-type (:nbits 16)
   (A       . 1)
   (NS      . 2)
   (MD      . 3)
@@ -112,7 +112,7 @@
   (MAILA . 254)
   (ALL   . 255))
 
-(rw.wire:defenum $resource-class (:nbits 16)
+(rw.wire:defenum $$resource-class (:nbits 16)
   (IN . 1)
   (CS . 2)
   (CH . 3)
@@ -120,8 +120,8 @@
 
 (rw.wire:defstruc $question ()
   ($name name)
-  ($resource-type type)
-  ($resource-class class))
+  ($$resource-type type)
+  ($$resource-class class))
 
 (rw.wire:defstruc $mx-rdata ()
   (rw.wire:u16 preference)
@@ -129,8 +129,8 @@
 
 (rw.wire:defstruc $resource ()
   ($name name)
-  ($resource-type type)
-  ($resource-class class)
+  ($$resource-type type)
+  ($$resource-class class)
   (rw.wire:u32 ttl)
   #+nil(rw.wire:u8 data :length rw.wire:u16)
   ((ecase type