<div class="gmail_quote">2009/11/29 Tobias C. Rittweiler <span dir="ltr"><<a href="mailto:tcr@freebits.de">tcr@freebits.de</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
In a file foo.lisp:<br>
<br>
  (defmacro m (x &environment e)<br>
     (if (typep x 'foo e)<br>
         :FOO<br>
         :BAR))<br>
<br>
ECL (Embeddable Common-Lisp) 9.12.1<br>
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya<br>
Copyright (C) 1993 Giuseppe Attardi<br>
Copyright (C) 2000 Juan J. Garcia-Ripoll<br>
ECL is free software, and you are welcome to redistribute it<br>
under certain conditions; see file 'Copyright' for details.<br>
Type :h for Help.<br>
Top level.<br>
> (compile-file "foo.lisp")<br>
<br>
;;; Loading #P"/home/tcr/software/ecl-cvs/lib/ecl-9.12.1/cmp.fas"<br>
;;; Loading #P"/home/tcr/software/ecl-cvs/lib/ecl-9.12.1/sysfun.lsp"<br>
;;; Compiling foo.lisp.<br>
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0<br>
;;; Compiling (DEFMACRO M ...).<br>
;;; Error: in file /tmp/foo.lisp, position 358, and form<br>
;;;   (FSET 'M #'(LAMBDA-BLOCK M # ...) ...)<br>
;;; The macro form (TYPEP X 'FOO E) was not expanded successfully.<br>
;;; Error detected:<br>
;;; Too many arguments supplied to a macro or a destructuring-bind form.<br>
NIL<br>
T<br>
T<br></blockquote><div><br></div><div>Fixed in CVS.</div><div><br></div><div>Juanjo </div></div><br clear="all"><br>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://juanjose.garciaripoll.googlepages.com">http://juanjose.garciaripoll.googlepages.com</a><br>