hg.stevelosh.com > dotfiles

#!/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
author	Steve Losh <steve@stevelosh.com>
date	Fri, 10 Nov 2023 13:00:47 -0500
parents	c815c49ae234
children	(none)