clean-up code in web.lisp and view.lisp files.

src/view.lisp

@@ -127,4 +127,3 @@
 		(< (local-time:timestamp-hour timestamp) 24))
 	   (format nil "/images/icons/bed-time-cat.png"))
 	  (t (format nil "/images/icons/default-cat.png")))))
-	

src/web.lisp

@@ -1354,11 +1354,11 @@
 		     (utils:set-alert
                       "Couldn't find archive entry in database. Deleted files only."
 		      "invalid-data")
-		     ;; The thumbnail in not know about here because it was
-		     ;; linked to the text file via the database. You will need
-		     ;; to delete the thumbnail manually at this point but the
-		     ;; system has already failed here anyway so the extra work
-		     ;; was already needed.
+		     ;; The system doesn't know about the thumbnail at this
+		     ;; point because it was linked to the text file via the
+		     ;; database. You will need to delete the thumbnail manually
+		     ;; at this point but the system has already failed here
+		     ;; anyway so the extra work was already needed.
 		     (storage:remove-file "" "archive" slug)
 		     (redirect "/user/archive"))
 		    (t (storage:remove-file "" "archive" slug)
@@ -1377,12 +1377,11 @@
 		     (redirect "/login")))))))
 
 (defroute ("/search" :method :GET) ()
-  (render #P"search.html"
-		   (append (if (hermetic:logged-in-p)
-			       (auth:auth-user-data))
-			   `(:alert ,(utils:get-and-reset-alert)
-			     :nav-menu ,(nera:nav-menu-slugs)
-			     :system-data ,(nera:system-data)))))
+  (render #P"search.html" (append (if (hermetic:logged-in-p)
+			              (auth:auth-user-data))
+			          `(:alert ,(utils:get-and-reset-alert)
+			            :nav-menu ,(nera:nav-menu-slugs)
+			            :system-data ,(nera:system-data)))))
 ;;
 ;; Error pages