install: add build instructions for emscripten

src/util/wasm32-unknown-emscripten.cross_config

@@ -0,0 +1,21 @@
+CL_FIXNUM_TYPE=int
+CL_FIXNUM_BITS=32
+CL_FIXNUM_MAX=536870911L
+CL_FIXNUM_MIN=-536870912L
+CL_INT_BITS=32
+CL_LONG_BITS=32
+ECL_STACK_DIR=down
+ECL_BIGENDIAN=no
+ECL_NEWLINE=LF
+ECL_FILE_CNT=0
+ECL_STDINT_HEADER="#include <stdint.h>"
+ECL_UINT8_T=uint8_t
+ECL_UINT16_T=uint16_t
+ECL_UINT32_T=uint32_t
+ECL_UINT64_T=uint64_t
+ECL_INT8_T=int8_t
+ECL_INT16_T=int16_t
+ECL_INT32_T=int32_t
+ECL_INT64_T=int64_t
+ECL_LONG_LONG_BITS=64
+ECL_WORKING_ENVIRON=yes

src/util/webserver.lisp

@@ -0,0 +1,15 @@
+;;; bsd-2-clause, (c) 2022, Daniel Kochmański
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload "hunchentoot"))
+
+(defpackage #:webserver
+  (:use #:cl #:hunchentoot))
+(in-package #:webserver)
+
+(defvar *acceptor*
+  (make-instance 'hunchentoot:easy-acceptor :port 8888))
+
+(print `(serving ,(ext:getcwd)))
+(push (create-folder-dispatcher-and-handler "/" (uiop/os:getcwd)) *dispatch-table*)
+(start *acceptor*)