From ...
From: Erik Naggum <erik@naggum.net>
Subject: Re: defmacro question
Date: 2000/07/26
Message-ID: <3173614228918707@naggum.net>#1/1
X-Deja-AN: 651095893
References: <8ll4hf$cbd$1@nnrp1.deja.com> <rainer.joswig-86C0DF.00491126072000@news.is-europe.net>
mail-copies-to: never
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: newsmaster@eunet.no
X-Trace: oslo-nntp.eunet.no 964638908 8247 195.0.192.66 (26 Jul 2000 19:15:08 GMT)
Organization: Naggum Software; vox: +47 8800 8879; fax: +47 8800 8601; http://naggum.no; http://naggum.net
User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.7
Mime-Version: 1.0
NNTP-Posting-Date: 26 Jul 2000 19:15:08 GMT
Newsgroups: comp.lang.lisp

* Rainer Joswig <rainer.joswig@ision.net>
| (defmacro define-struct (name)
|   `(defun ,(intern (concatenate 'string "MAKE-" (symbol-name name)))
|           ()
|      "hello"))

  To avoid exposing the case-ness of symbols, I prefer (symbol-name 'make-).

#:Erik
-- 
  If this is not what you expected, please alter your expectations.