Remove qlot

INSTALL.md

@@ -0,0 +1,4 b''
+
+1. Install sbcl using your distribution's package manager, or download it from https://sbcl.org
+2. Install quicklisp from https://quicklisp.org E.g. `wget https://beta.quicklisp.org/quicklisp.lisp && sbcl --load quicklisp.org` then follow instructions.
+3. `make`

.hgignore

@@ -2,6 +2,7 b''
 .qlot
 .html
 .png
+.orig
 tests
-sugar-qsp
-sugar-qsp.tar.xz
+txt2web
+txt2web.tar.xz

Makefile

@@ -11,12 +11,6 b' graphs: diagrams.png'
 $(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp
 	sbcl --load build.lisp -- $(BIN)
 
-install-deps:
-	sbcl --load install-deps.lisp
-
-update-deps:
-	sbcl --load update-deps.lisp
-
 %.png: %.dot
 	dot $< -T png -o $@
 
@@ -27,13 +21,12 b' upload: $(DIST)'
 	curl --upload-file $(DIST) https://transfer.sh/$(DIST)
 	@echo
 
-distclean: clean clean-deps
-
 clean:
 	rm -f $(BIN) $(DIST)
 
-clean-deps:
-	-rm qlfile.lock
-	-rm -rf .qlot
+clean-cache:
+	-rm -rf ~/.cache/common-lisp
 
-.PHONY: all graphs install-deps update-deps clean upload
+fresh: clean clean-cache all
+
+.PHONY: all graphs upload clean clean-cache fresh

build.lisp

@@ -1,10 +1,4 b''
-(let ((root (asdf:system-source-directory :txt2web)))
-  (asdf:initialize-source-registry
-   `(:source-registry
-     :ignore-inherited-configuration
-     (:directory ,root)
-     (:tree ,(format nil "~A~A" root ".qlot/dists")))))
+(ql:quickload :txt2web)
 
-(asdf:load-system :txt2web)
 (uiop:register-image-restore-hook 'txt2web::entry-point-no-args nil)
 (uiop:dump-image "txt2web" :executable t)

src/api.ps

@@ -212,9 +212,9 b''
 ;;; "Syntax"
 
 (defun qspfor (name index from to step body)
-  (for ((i from))
-       ((< i to))
-       ((incf i step))
+  (ps:for ((i from))
+          ((< i to))
+          ((incf i step))
     (set-var name index :num i)
     (unless (await (funcall body))
       (return-from qspfor))))

src/main.lisp

@@ -96,7 +96,7 b''
        (flute:h
          (html
           (head
-           (title "SugarQSP"))
+           (title "txt2web"))
           (body
            body-template
            (style css)