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

Damyan Pepper damyanp@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?