Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!rpi!batcomputer!cornell!rochester!pt.cs.cmu.edu!o.gp.cs.cmu.edu!andrew.cmu.edu!<UNAUTHENTICATED>+
From: William.Lott@cs.cmu.edu
Newsgroups: comp.lang.lisp
Subject: Re: monitoring functions
Message-ID: <wbyKb3W00jeiA1PcM5@cs.cmu.edu>
Date: 3 Apr 91 05:36:03 GMT
References: <14131@medusa.cs.purdue.edu> <1991Apr1.181743.18493@Think.COM>,
	<14140@medusa.cs.purdue.edu>
Organization: Carnegie Mellon, Pittsburgh, PA
Lines: 14
In-Reply-To: <14140@medusa.cs.purdue.edu>

yeh@cs.purdue.EDU (Wei Jen Yeh) writes:
> (It may not work for functions returning multiple values.)

It won't, but that is easy to fix.  Just use multiple-value-prog1
instead of the prog2:

     (progn
	(start_bench fname)
	(multiple-value-prog1
	    (apply old-function args)
	  (end_bench fname)))

-William Lott
CMU Common Lisp Group