Writing a Lisp Function/Macro that will create functions

Question

I want to write a function/macro that will write a macro that will create a list structure. What's a good place to start. I'm looking to do something like (mkList id name phone) and having it result in a (defun (id name phone) (list :id id :name name :phone phone)), preferably with use of &rest. Any Ideas?

functions defined with defun need a name. in your defun form, the name is missing. — Rainer Joswig
– Rainer Joswig, Commented Dec 7, 2015 at 6:54
FWIW, you probably don't need that macro. The vast majority of problems can (and should) be solved without them. — Robert Harvey
– Robert Harvey, Commented Dec 7, 2015 at 6:57

Rainer Joswig · Accepted Answer · 2015-12-07 07:02:35Z

1

This should give you some hints:

CL-USER 39 > (defun foo (l)
               (cons 'list
                     (mapcan (lambda (e)
                               (list (intern (symbol-name e)
                                             (find-package "KEYWORD"))
                                     e))
                             l)))
FOO

CL-USER 40 > (foo '(a b c))
(LIST :A A :B B :C C)

answered Dec 7, 2015 at 7:02

Rainer Joswig

140k11 gold badges230 silver badges357 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

epl692 · Accepted Answer · 2015-12-10 17:09:21Z

0

(defun mkcode (item) (eval (read-from-string item))) Is what's working for me, let's me have a lot of flexibility

answered Dec 10, 2015 at 17:09

epl692

233 bronze badges

1 Comment

molbdnilo Over a year ago

This answer seems entirely unrelated to your question.

Collectives™ on Stack Overflow

Writing a Lisp Function/Macro that will create functions

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related