From: Jens Franzen
Subject: Re: LISP function source
Date: Mon, 20 Jun 1994 10:55:45 +0000
Message-ID: <1994Jun20.105545.10703@newsserver.rrzn.uni-hannover.de>

In article <············@sytex.com>, ····@sytex.com (Scott McLoughlin) writes:
|>Newsgroups: comp.lang.lisp
|>Path: newsserver.rrzn.uni-hannover.de!urmel.informatik.rwth-aachen.de!nntp.gmd.de!Germany.EU.net!EU.net!uunet!sytex!smcl
|>From: ····@sytex.com (Scott McLoughlin)
|>Subject: Re: LISP function source
|>Message-ID: <············@sytex.com>
|>Sender: ···@sytex.com
|>Organization: Sytex Communications, Inc
|>References: <··········@sugar.NeoSoft.COM>
|>Date: Thu, 16 Jun 1994 04:46:00 GMT
|>Lines: 40
|>
|>·······@sugar.NeoSoft.COM (Golden Geophysical) writes:
|>
|>Howdy,
|>        (defun prin1-to-string (x)
|>          (let ((s (make-string-output-stream)))

Correction: use 'let*' instead of 'let' 

|>                (prin1 x s)
|>                (get-output-stream-string s)))
|>That should do just fine.
|>

Jens Franzen        ·······@mars.lfi-main.uni-hannver.de