#!/bin/sh
/bin/rm -f tags
egrep '\(def' $* | \
sed 's/:/ /' | \
sed 's/(setf /setf-/' | \
awk '{print $3, $1}' | \
sort > tags
