hosts.lisp, distorted.lisp: New `blackhole' address.

All IP packets to this address will be dropped silently.  Useful for
strange testing.

diff --git a/distorted.lisp b/distorted.lisp
index 892daab..01fc902 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -138,6 +138,9 @@
   (gw (its :a gw.its))
   (mz (its :a mz.its))
 
+  ;; Strange things.
+  (blackhole (jump :a blackhole.jump))
+
   ;; Delegations.
   (dhcp :ns (radius.ns vampire.ns))
   (io :ns ((ns.io :ip iodine.dmz))))

diff --git a/hosts.lisp b/hosts.lisp
index d62cc5e..003fe5e 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -58,6 +58,7 @@
 (defhost telecaster.jump (jump 7))
 (defhost stratocaster.jump (jump 8))
 (defhost jazz.jump (jump 9))
+(defhost blackhole.jump (jump 14))
 
 ;; Unsafe network.
 (defhost radius.unsafe (unsafe 1))