Remove prefix option

web.lisp

@@ -284,7 +284,7 @@ reblocks bug.")
    (call-next-method)))
 
 (defapp truth-table-app
-  :prefix "/")
+  :prefix *default-prefix*)
 
 (defmethod reblocks/page:init-page ((app truth-table-app) (url-path string)
                                     expire-at)
@@ -299,10 +299,7 @@ reblocks bug.")
          ,(format nil "specify port to use (default: ~d)" *default-port*))
     (#\a "address" address t
          ,(format nil "specify address to bind to (default: ~a)"
-                  *default-address*))
-    (#\x "prefix" prefix t
-         ,(format nil "specify the URL prefix (default: ~a)"
-                  *default-prefix*)))
+                  *default-address*)))
   "Spec for use in `parse-command-line.")
 
 (defun determine-port (opts)
@@ -347,9 +344,6 @@ arguments."
                 (uiop:quit 0)))
           (when cmdline-error
             (uiop:quit 1))
-          (defapp truth-table-app
-            :prefix (or (option-value 'prefix opts)
-                        *default-prefix*))
           (reblocks/server:start :apps '(truth-table-app)
                                  :port port
                                  :interface address