moved system loading above web server init

added cl-ppcre as dependency
This commit is contained in:
a. fox 2023-07-05 22:42:15 -04:00
parent 2d4ddc899e
commit 6bb3e72c6b
2 changed files with 6 additions and 6 deletions

View File

@ -7,7 +7,7 @@
:version "0.0.1"
:serial t
:depends-on (#:com.inuoe.jzon #:unix-opts #:with-user-abort #:ningle
#:cl-markup #:clack #:bordeaux-threads #:str)
#:cl-markup #:clack #:bordeaux-threads #:str #:cl-ppcre)
:components ((:file "logic")
(:file "web")
(:file "timecalc"))

View File

@ -63,11 +63,6 @@
(when (getf opts :version)
(format t "timecalc v~A~%" #.(asdf:component-version (asdf:find-system :timecalc)))
(uiop:quit 0))
(when (getf opts :web)
(let ((port (getf opts :port 9001)))
(start-server port)
(uiop:quit 0)))
(when (getf opts :load)
(unless (uiop:directory-exists-p (getf opts :load))
@ -75,6 +70,11 @@
(uiop:quit 1))
(load-models (uiop:directory-files (getf opts :load) "*.system")))
(when (getf opts :web)
(let ((port (getf opts :port 9001)))
(start-server port)
(uiop:quit 0)))
(let ((from (getf opts :from "standard"))
(to (getf opts :to)))
(format t "~A" (convert (first args) from to)))))