debugging galore

[rrq/hourglass.git] / listener.lsp

diff --git a/listener.lsp b/listener.lsp
index 6652ed456c22f928cd2d7df78fbeb98ebd1aa263..388486f6a14d5badcd5ff10e392fbc58d1facf60 100644 (file)
--- a/listener.lsp
+++ b/listener.lsp
@@ -33,7 +33,7 @@
 # default. Then make a TUNSETIFF call to initialize it (as
 # IFF_TAP|IFF_NO_PI).
 (constant
- 'listener-log-ip SITE:listener.ip
+ 'listener-log-ip SITE:listener.log.ip
  'IFNAME SITE:listener.tap
  'PORTS SITE:listener.ports
  'IFD (open SITE:tundev "u")
@@ -116,8 +116,8 @@
 
 (define (udp-handler) ; buffer ihl
   (let ((ports (map ntohs (unpack "uu" ((+ ihl 14) buffer)))))
-    (when (intersect ports PORTS) (mark-active (date-value)))))
-    
+    (when PORTS (intersect ports PORTS) (mark-active (date-value)))))
+
 # Handle an IPv4 packet. It recognises the IPv4 protocol concerned,
 # and dispatches to the associated handler, if any.
 (define (ipv4-handler) ; buffer