distorted.lisp, hosts.lisp: Entries for the new switches.

diff --git a/distorted.lisp b/distorted.lisp
index b0d0d59..06090b4 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -226,6 +226,11 @@
   (evolution (safe :addr evolution.safe))
   (evolution :alias evo)
 
+  ;; Switches.
+  (tp0 (safe :addr tp0.safe))
+  (tp1 (safe :addr tp1.safe))
+  (tp2 (safe :addr tp2.safe))
+
   ;; Wired ethernet.
   (unsafe :net unsafe)
   (safe :net safe)

diff --git a/hosts.lisp b/hosts.lisp
index 50cd58a..27a09eb 100644 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -96,6 +96,9 @@
 (defhost radius.safe (safe 1))
 (defhost vampire.safe (safe 2))
 (defhost evolution.safe ((:ipv4 safe 3)))
+(defhost tp0.safe (safe 4))
+(defhost tp1.safe (safe 5))
+(defhost tp2.safe (safe 6))
 
 ;; Wireless network.
 (defhost radius.untrusted (untrusted 1))