Build with roswell

.hgignore

@@ -6,3 +6,4 b''
 tests
 txt2web
 txt2web.tar.xz
+system-index.txt

Makefile

@@ -1,6 +1,7 b''
 
 BIN = txt2web
 DIST = $(BIN).tar.xz
+SCRIPT = $(BIN).ros
 
 all: $(BIN)
 
@@ -8,8 +9,11 b' dist: $(DIST)'
 
 graphs: diagrams.png
 
-$(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp
-	sbcl --load build.lisp -- $(BIN)
+$(BIN): bin/$(BIN)
+	ln -f $<
+
+bin/$(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp bin/$(BIN).ros
+	ros build bin/$(SCRIPT)
 
 %.png: %.dot
 	dot $< -T png -o $@
@@ -18,7 +22,7 b' graphs: diagrams.png'
 	tar cfvJ $@ $< extras
 
 clean:
-	rm -f $(BIN) $(DIST)
+	rm -f $(BIN) bin/$(BIN) $(DIST)
 
 clean-cache:
 	-rm -rf ~/.cache/common-lisp

src/main.lisp

@@ -1,14 +1,13 b''
 
 (in-package txt2web)
 
-(defvar *app-name* "")
+(defvar *app-name* "txt2web")
 
 (defun entry-point-no-args ()
   (setf *delivered* t)
   (entry-point uiop:*command-line-arguments*))
 
 (defun entry-point (args)
-  (setf *app-name* (uiop:argv0))
   (let ((*package* (find-package :txt2web)))
     (catch :terminate
       (let ((compiler (apply #'make-instance 'compiler (parse-opts args))))