#!/usr/bin/env bash
set -euo pipefail
LISP=$1
NAME=$(basename "$LISP" .lisp)
OUT="$NAME.1"
shift
sbcl --load "$LISP" \
--eval "(with-open-file (f \"$OUT\" :direction :output :if-exists :supersede)
(adopt:print-manual $NAME:*ui* :stream f))" \
--quit