moved system loading above web server init
added cl-ppcre as dependency
This commit is contained in:
parent
2d4ddc899e
commit
6bb3e72c6b
|
@ -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"))
|
||||
|
|
|
@ -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)))))
|
||||
|
|
Loading…
Reference in New Issue