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

Marco Baringer mb at bese.it
Wed Jun 14 12:13:22 UTC 2006


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




More information about the slime-devel mailing list