mixing Lisp and Maxima



Is it possible to mix Lisp and Maxima code in the same file and have Maxima
load, translate, and compile the file?   I haven't been able to do this
with a simple
example:

-----start of file---------
f(x) := block([ ], x + 1);

(defun $g (x)
    (add* x  1)
)
------end of file

Barton Willis