Add norepl option to .pro file

eql5-sfos.pro

@@ -27,6 +27,8 @@ TARGET = eql5-sfos
 CONFIG += sailfishapp
 LIBS += -L. -lapp -lecl -leql5
 
+norepl|standalone:lisp.commands = eql5 -platform minimal $$PWD/make.lisp norepl
+
 SOURCES += src/eql5-sfos.cc
 
 DISTFILES += qml/eql5-sfos.qml \

lisp/app.asd

@@ -3,7 +3,6 @@
   :defsystem-depends-on (:asdf-package-system)
   :class :package-inferred-system
   :around-compile (lambda (thunk)
-                    #+app-debug
                     (proclaim '(optimize (debug 3) (safety 3) (speed 0)))
                     (funcall thunk))
   :depends-on ("alexandria")

lisp/app.lisp

@@ -11,21 +11,21 @@
 (defun sym (symbol package)
   (intern (symbol-name symbol) package))
 
-#+app-debug
+#+app-repl
 (defun start-slynk ()
   (unless (find-package :slynk)
     (require :ecl-quicklisp)
     (funcall (sym 'quickload :ql) :slynk))
   (funcall (sym 'create-server :slynk)
-           :port 4005 :dont-close t :style :spawn))
+           :interface "0.0.0.0" :port 4005 :dont-close t :style :spawn))
 
-#+app-debug
+#+app-repl
 (defun stop-slynk ()
   (when (find-package :slynk)
     (funcall (sym 'stop-server :slynk) 4005)))
 
 (defun start ()
-  #+app-debug
+  #+app-repl
   (start-slynk)
   (qconnect qml:*quick-view* "statusChanged(QQuickView::Status)"
             (lambda (status)

make.lisp

@@ -3,7 +3,8 @@
 
 (require :cmp)
 
-(push :app-debug *features*)
+(unless (member "norepl" (ext:command-args) :test #'string=)
+  (push :app-repl *features*))
 
 (load "lisp/dependencies")