15 lines
162 B
Bash
15 lines
162 B
Bash
#!/bin/sh
|
|
usage()
|
|
{
|
|
printf 'usage: %s [file.lisp]\n' $0
|
|
exit 1
|
|
}
|
|
|
|
sed -E '/^\(defun |\(defmacro /{
|
|
i\
|
|
|
|
}' "$@" | \
|
|
sed '/^[ \t]*$/{
|
|
N
|
|
/^[ \t]*\n$/D
|
|
}'
|