[Ecls-list] Endless loop of compiler errors

[Juan Jose Garcia-Ripoll]

On Wednesday 13 February 2002 16:29, you wrote:
> (defmacro invoke-alien-type-method (method type &rest args)
> [...]                ,type , at args))))
>
> ...results to an endless loop of the following error message:
> ;;; You are recommended to compile again.
> ;;; The form (DEFMACRO INVOKE-ALIEN-TYPE-METHOD (METHOD TYPE &REST
> ARGS) (LET ((SLOT (METHOD-SLOT METHOD))) (ONCE-ONLY ((TYPE
> TYPE)) (LIST* 'FUNCALL (LIST 'DO (LIST (LIST 'CLASS (LIST
> 'ALIEN-TYPE-CLASS-OR-LOSE (LIST 'ALIEN-TYPE-CLASS TYPE))
> '(ALIEN-TYPE-CLASS-INCLUDE CLASS))) (LIST '(NULL CLASS) (LIST
> 'ERROR "Method ~S not defined for ~S" (LIST 'QUOTE METHOD)
> (LIST 'ALIEN-TYPE-CLASS TYPE))) (LIST 'LET (LIST (LIST 'FN
> (LIST SLOT 'CLASS))) '(WHEN FN (RETURN FN)))) TYPE ARGS)))) was
> not evaluated successfully.