[Ecls-list] [BUG] defmacro and &environment

[Juan Jose Garcia-Ripoll]

2009/11/29 Tobias C. Rittweiler <tcr at freebits.de>

> In a file foo.lisp:
>
>  (defmacro m (x &environment e)
>     (if (typep x 'foo e)
>         :FOO
>         :BAR))
>
> ECL (Embeddable Common-Lisp) 9.12.1
> Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
> Copyright (C) 1993 Giuseppe Attardi
> Copyright (C) 2000 Juan J. Garcia-Ripoll
> ECL is free software, and you are welcome to redistribute it
> under certain conditions; see file 'Copyright' for details.
> Type :h for Help.
> Top level.
> > (compile-file "foo.lisp")
>
> ;;; Loading #P"/home/tcr/software/ecl-cvs/lib/ecl-9.12.1/cmp.fas"
> ;;; Loading #P"/home/tcr/software/ecl-cvs/lib/ecl-9.12.1/sysfun.lsp"
> ;;; Compiling foo.lisp.
> ;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
> ;;; Compiling (DEFMACRO M ...).
> ;;; Error: in file /tmp/foo.lisp, position 358, and form
> ;;;   (FSET 'M #'(LAMBDA-BLOCK M # ...) ...)
> ;;; The macro form (TYPEP X 'FOO E) was not expanded successfully.
> ;;; Error detected:
> ;;; Too many arguments supplied to a macro or a destructuring-bind form.
> NIL
> T
> T
>

Fixed in CVS.

Juanjo


-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20091129/5eba5225/attachment.html>