Re: symbol-macrolet

[Gregor.pa@Xerox.COM]

    Date: Fri, 20 Nov 87 06:37:20 -0500
    From: kanderso@WILMA.BBN.COM

    I think there was an obvious bug in your example.  How about:

    (defmacro ^2 (form &optional environment)
      (if (and (symbolp form)
	       (eq (macroexpand-1 form environment) form) ; <-
	  `(* ,form ,form)
	  `(expt ,form 2)))

Oops, you're right.  I forgot NOT.  Instead it should be:

    (defmacro ^2 (form &optional environment)
      (if (and (symbolp form)
	       (not (eq (macroexpand-1 form environment) form)))
	  `(* ,form ,form)
	  `(expt ,form 2)))
-------