From ...
Path: archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsrouter.chello.at!newsfeed.Austria.EU.net!newsfeed.kpnqwest.at!nslave.kpnqwest.net!nloc1.kpnqwest.net!nmaster.kpnqwest.net!reader3.kpnqwest.net.POSTED!not-for-mail
Newsgroups: comp.lang.lisp
Subject: Re: output LISP
References: <a2cee19f.0109220843.5571132f@posting.google.com> <vcdlmj7ugje.fsf@russell.math.bme.hu>
Mail-Copies-To: never
From: Erik Naggum <erik@naggum.net>
Message-ID: <3210179418867315@naggum.net>
Organization: Naggum Software, Oslo, Norway
Lines: 15
User-Agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Date: Sat, 22 Sep 2001 20:30:19 GMT
X-Complaints-To: newsmaster@Norway.EU.net
X-Trace: reader3.kpnqwest.net 1001190619 193.71.66.49 (Sat, 22 Sep 2001 22:30:19 MET DST)
NNTP-Posting-Date: Sat, 22 Sep 2001 22:30:19 MET DST
Xref: archiver1.google.com comp.lang.lisp:16788

* Simon András
> (with-open-file (s "/path/to/your/output/file" :direction :output :if-exists
> :supersede)
>   (let ((*standard-output* s)) ;hope that's enough
>     (tag-analysis:tag-file "copy.txt")))

  It should have been enough to bind *standard-output* in with-open-file.
  Why do you think you need the extra let binding inside that form?

///
-- 
  Why did that stupid George W. Bush turn to Christian fundamentalism to
  fight Islamic fundamentalism?  Why use terms like "crusade", which only
  invokes fear of a repetition of that disgraceful period of Christianity
  with its _sustained_ terrorist attacks on Islam?  He is _such_ an idiot.