add the turnback sidings to the model view, and make it a 'station'

wobsite.lisp

@@ -370,6 +370,7 @@
   `(("X"
      ("eastbound"
       "Eastbound <i>towards Abbey Wood via Canary Wharf</i>"
+      ("Paddington Turnback Sidings" "A" "B" "C")
       ("Paddington" "A" "B")
       ("Bond Street" "A")
       ("Tottenham Court Road" "A")
@@ -391,7 +392,8 @@
       ("Farringdon" "B")
       ("Tottenham Court Road" "B")
       ("Bond Street" "B")
-      ("Paddington" "A" "B")))
+      ("Paddington" "A" "B")
+      ("Paddington Turnback Sidings" "A" "B" "C")))
     ("N"
      ("edgware-bank"
       "Northbound <i>towards Edgware via Bank</i>"
@@ -4175,7 +4177,9 @@ Returns the number of requests counted, including this one."
                    (who:esc station-name))
                   (:span
                    :class "train-to"
-                   (who:fmt " plat. ~{~A~^, ~}"
+                   (who:fmt "~A ~{~A~^, ~}"
+                            (if (uiop:string-suffix-p station-name "Sidings") ""
+                                " plat.")
                             platforms)))
                  (unless (null trains-here)
                    (incf displayed (length trains-here))

xrcos.lisp

@@ -145,11 +145,11 @@
        (setf *xrcos-links* ,links))))
 
 (define-xrcos-data ()
-  (seg (:name "At Paddington Turnback C" :nocont t)
+  (seg (:name "At Paddington Turnback Sidings Platform C" :nocont t)
     0015 0016)
-  (seg (:name "At Paddington Turnback B" :nocont t)
+  (seg (:name "At Paddington Turnback Sidings Platform B" :nocont t)
     0013 0014)
-  (seg (:name "At Paddington Turnback A" :nocont t)
+  (seg (:name "At Paddington Turnback Sidings Platform A" :nocont t)
     0011 0012)
   (seg (:name "Royal Oak Portal entry (A)" :nocont t)
     042C)