Finish port to asdf and make webserer template files

web.lisp

@@ -0,0 +1,30 @@
+;; web.lisp -- Website to allow users to make truth tables
+;; Copyright (C) 2024  Alexander Rosenberg
+;;
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+(in-package :truth-table/web)
+
+(defun main (argv)
+  "The main entry point to the program. ARGV is the list of command line
+arguments."
+  (format t "Hello World~%"))
+
+(defun toplevel ()
+  "Top-level function to be passed to `save-lisp-and-die'."
+  (handler-case
+      (with-user-abort:with-user-abort
+        (main (uiop:command-line-arguments)))
+    (with-user-abort:user-abort ()
+      (format *error-output* "Keyboard interrupt~%")
+      (uiop:quit 1))))