Eitaro Fukamachi fukamachi

Common Lisp Seminar 2019

2019/08/24 本町オープンソースラボ（大阪府大阪市中央区瓦町3-4-9） https://tcool.connpass.com/event/117789/

@fukamachi が聴いた質問をまとめました。

	(ql:quickload '(:clack :http-body))

	(defvar handler)

	(setf handler
	(clack:clackup (lambda (env)
	(if (eq (getf env :request-method) :get)
	'(200 (:content-type :text-html)
	("<html><head></head><body><form method='post' enctype='multipart/form-data'><input type='file' name='upload'><input type='submit' value='Upload'></form></body></html>"))
	`(200 () (,(prin1-to-string (http-body:parse (getf env :content-type) (getf env :content-length) (getf env :raw-body)))))))

	(defsystem "hoge"
	:class :package-inferred-system
	:pathname "src"
	:depends-on ("hoge/main")
	:in-order-to ((test-op (test-op "hoge/tests"))))

	(defsystem "hoge/tests"
	:pathname "tests"
	:depends-on ("hoge")
	:components

	# syntax=docker/dockerfile:experimental
	ARG SBCL_VERSION=2.1.8
	ARG QLOT_VERSION=0.11.4
	FROM fukamachi/qlot:${QLOT_VERSION}

	WORKDIR /app

	COPY qlfile /app
	COPY qlfile.lock /app