Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!ames!pasteur!ucbvax!decwrl!purdue!i.cc.purdue.edu!j.cc.purdue.edu!pur-ee!uiucdcs!eliot.cs.uiuc.edu!uicslsv!bharat
From: bharat@uicslsv.cs.uiuc.edu
Newsgroups: comp.lang.lisp
Subject: Re: query 'bout defstruct (Common LISP)
Message-ID: <4400004@uicslsv>
Date: 2 May 88 22:13:00 GMT
References: <10834@cgl.ucsf.EDU>
Lines: 15
Nf-ID: #R:cgl.ucsf.EDU:10834:uicslsv:4400004:000:355
Nf-From: uicslsv.cs.uiuc.edu!bharat    May  2 17:13:00 1988


There might be simpler ways but I use a macro for a similar purpose.

How 'bout ..

(defmacro junk (&aux gen-var)
   (setf gen-var (gentemp "FOO-"))
   `(setf ,gen-var ,(make-piece)))
  ^^^ Thats a back-quote.

It is also trivial to push the generated symbols onto some global list
to keep track of them if necessary.

-Bharat

uicsl!bharat@a.cs.uiuc.edu