X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Fserver-cli.lisp;h=6a6fd06e88e2337cb37bc329db656aadc8f2f57b;hp=8947727afacc08415ad95066c6af0ee0e429bea6;hb=4aa3c53883d919803cac77f47ad16ce33047f6ce;hpb=d7f08bad7f5d32edb80f2e1468eff32c50166a94

diff --git a/src/main/server-cli.lisp b/src/main/server-cli.lisp
index 8947727..6a6fd06 100644
--- a/src/main/server-cli.lisp
+++ b/src/main/server-cli.lisp
@@ -23,7 +23,9 @@
    (remaining-args
     (format *error-output* "Don't understand ~A.  See 'candle-server -h'~%" (car remaining-args))
     (sb-ext:exit :code 1))
-   ((and (opera:option-present :port options) (not (parse-integer (opera:option-argument :port options) :junk-allowed t)))
+   ((and
+     (opera:option-present :port options)
+     (not (parse-integer (opera:option-argument :port options) :junk-allowed t)))
     (format *error-output* "--port requires a number.  See 'candle-server -h'~%"))
    (t
     (let
@@ -31,18 +33,17 @@
                  (opera:option-present :port options)
                  (parse-integer (opera:option-argument :port options) :junk-allowed t))
              25004)))
-    (setf candle:*job-system*
-     (if (opera:option-present :system options)
-      (intern (string-upcase (opera:option-argument :system options)) :keyword)
-      :local))
-    (let
-     ((*error-output* (make-broadcast-stream)))
-     (case candle:*job-system*
-      (:aws (asdf:load-system :candle-aws))
-      (:local (asdf:load-system :candle-local))))
-    (setf candle:*candle-dir*
-     (if (opera:option-present :dir options)
-      (opera:option-argument :dir options)
-      "/opt/candle/"))
-    (format t "Starting server on port ~A~%" port)
-    (candle:server port nil))))))
+     (setf candle:*job-system*
+      (if (opera:option-present :system options)
+       (intern (string-upcase (opera:option-argument :system options)) :keyword)
+       :local))
+     (let
+      ((*error-output* (make-broadcast-stream)))
+      (case candle:*job-system*
+       (:aws (asdf:load-system :candle-aws))
+       (:local (asdf:load-system :candle-local))))
+     (setf candle:*candle-dir*
+      (if (opera:option-present :dir options)
+       (opera:option-argument :dir options)
+       "/opt/candle/"))
+     (candle:server port nil))))))