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