Re: defmacro question - Naggum cll archive

Subject: Re: defmacro question
From: Erik Naggum <erik@naggum.net>
Date: 2000/07/26
Newsgroups: comp.lang.lisp
Message-ID: <3173614228918707@naggum.net>

* 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.