remove old defroutes.

src/web.lisp

@@ -602,28 +602,6 @@
 		      :system-data ,(nera:system-data)
 		      :pages ,(nera:get-all-pages))))))
 
-(defroute ("/view/pages" :method :GET) ()
-  (let ((alert (utils:get-and-reset-alert)))
-    (render #P"pages.html"
-	    (append (if (hermetic:logged-in-p)
-			(auth:auth-user-data))
-		    `(:alert ,alert
-		      :system-data ,(nera:system-data)
-		      :pages ,(storage:get-file-names
-			       (storage:get-files-in-directory
-				"" "pages")))))))
-
-(defroute ("/view/archive" :method :GET) ()
-  (let ((alert (utils:get-and-reset-alert)))
-    (render #P"pages.html"
-	    (append (if (hermetic:logged-in-p)
-			(auth:auth-user-data))
-		    `(:alert ,alert
-		      :system-data ,(nera:system-data)
-		      :pages ,(storage:get-file-names
-			       (storage:get-files-in-directory
-				"" "pages")))))))
-
 (defroute ("/view/page/:slug" :method :GET) (&key slug)
   (let ((alert (utils:get-and-reset-alert)))
     (if (storage:file-exists-p "" "pages" slug)