[slime-devel] Re: Attempt to fix semantic indentation with clisp

[Marco Baringer]

Damyan Pepper <damyanp at gmail.com> writes:

> +;;; Replace cl:defmacro with our own that stores the arglists
> +(defvar *old-defmacro* (copy-symbol 'common-lisp:defmacro t))
> +
> +(defmacro defmymacro (&environment env &whole whole name params &body body)
> +  (declare (ignore body))
> +       `(progn
> +          (setf (get ',name 'swank-backend::arglist) ',params)
> +          ,(funcall (macro-function *old-defmacro*) whole env)
> +          ',name))
> +
> +(setf *old-defmacro* (copy-symbol 'common-lisp:defmacro t))
> +(setf (macro-function 'common-lisp:defmacro) (macro-function 'defmymacro))

this is really evil. what are the odds of "fixing" clisp instead?

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen