From 0d9b68a75a6af399255628388a7789d04a6ba4a1 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Thu, 5 Sep 2024 19:01:22 -0700 Subject: [PATCH] Remove prefix option --- web.lisp | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/web.lisp b/web.lisp index cdb1a87..8dc8e03 100644 --- a/web.lisp +++ b/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