#2174 declare in compiled code

open
nobody
4
2012-11-18
2011-03-23
Barton Willis
No

(%i14) george() := block([z : gensym()], declare(z,complex), z)$

OK:

(%i15) george();
(%o15) g3082

Not OK:

(%i16) compile(george)$
;Compiler warnings :
; In $GEORGE: Undefined function $DECLARE
; In $GEORGE: Undeclared free variable $COMPLEX

(%i17) george();
Maxima encountered a Lisp error:
Unbound variable: $COMPLEX
Automatically continuing.
To enable the Lisp debugger set *debugger-hook* to nil.

Discussion