From a20c530432c924f0283e621bdb6fd99d74ca0714 Mon Sep 17 00:00:00 2001 From: Lucian Mogosanu Date: Tue, 2 Jul 2019 12:21:26 +0300 Subject: [PATCH] blog: Make port a configurable knob --- blog.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/blog.lisp b/blog.lisp index b08ba39..9a218b0 100644 --- a/blog.lisp +++ b/blog.lisp @@ -299,13 +299,13 @@ "mogosanu.ro:/virtual/sites/thetarpit.org") :output *standard-output*)) -(defun tlbs-run-site (&key kill) +(defun tlbs-run-site (&key kill (port 8000)) (cond ((and (not *busybox-process*) (not kill)) (setq *busybox-process* (sb-ext:run-program "/bin/busybox" (list "httpd" "-f" - "-p" "8000" + "-p" (write-to-string port :base 10) "-c" (concatenate 'string *lbs-base* "httpd.conf") -- 1.7.10.4