Path: utzoo!attcan!uunet!bu.edu!rpi!zaphod.mps.ohio-state.edu!usc!apple!bionet!synoptics!unix!hplabs!hpfcso!bigelow
From: bigelow@hpfcso.HP.COM (Jim Bigelow)
Newsgroups: comp.text.tex
Subject: Re: Formatting Common-Lisp Code in Latex
Message-ID: <11530001@hpfcso.HP.COM>
Date: 22 Oct 90 18:39:31 GMT
References: <28862@pasteur.Berkeley.EDU>
Organization: Hewlett-Packard, Fort Collins, CO, USA
Lines: 23

Try tgrind with the floowing addition to /usr/local/lib/vgrindefs:

clisp|cl: \
        :pb=^\((defun|defmacro)\d\a\d:bb=\(:be=\):\
        :cb=\;:ce=$:sb=":se=\e":\
        :kw=lamda defun funcall setq apply mapcar mapconcat function\
        car cdr t nil eq equal cons eval mapatoms documentation \
        caar caaar cadr cddr fset defmacro null list listp reverse atom\
        macroexpand progn prog1 prog2 if cond not and or while catch throw\
        condition-case unwind-protect ding beep visible-bell\
        defvar let let* or quote -restriction\
        remove-if member sort assoc pairlis get setf list-length < + print\
        princ terpri append \
        setq-default set:


The only problem I've had it that tgrind will not recognize function names 
with  a "-" in then as such.

Jim Bigelow
S300 Pascal
Colordo Language Lab
HP, Ft Collins, CO