[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: symbol-macrolet
- To: common-lisp-object-system@SAIL.STANFORD.EDU
- Subject: Re: symbol-macrolet
- From: Gregor.pa@Xerox.COM
- Date: Fri, 20 Nov 87 14:54 PST
- Cc: kanderso@WILMA.BBN.COM
- In-reply-to: <871120094332.9.GREGOR@SPIFF.parc.xerox.com>
- Line-fold: no
OK, lets try this again. Maybe I will get it right this time:
I am not supposed to have the NOT, and environment is an &environment
argument not an &optional argument. Also today is Friday, its daylight,
and my name is Gregor. I think I have it now.
(defmacro ^2 (form &environment environment)
(if (and (symbolp form)
(eq (macroexpand-1 form environment) form))
`(* ,form ,form)
`(expt ,form 2)))
-------