> On Mon, 28 May 2007, Waldek Hebisch wrote:
>
> | (defun |evalSharpOne| (x |#1|) (declare (special |#1|))
> | (EVAL `(let () (declare (special |#1|) ,x))))
>
> Have you tried this variant? It looks "reasonable" to me.
>
There is a little problem with parentheses, it should be:
(defun |evalSharpOne| (x |#1|)
(declare (special |#1|))
(EVAL `(let () (declare (special |#1|)) ,x)))
Using version above compiler warnings go away. But I did not
put it trough full test cycle.
--
Waldek Hebisch
[EMAIL PROTECTED]
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
