[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: symbol-macrolet

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)))