[Ecls-list] How to optimize compiler's output?

[mokehehe at gmail.com]

Thank you for answering my question.
I wrote test program, but it don't cause any compile result on ecl-0.9j-p1.

(declaim (optimize (safety 0)))
(declaim (ftype (function (fixnum fixnum fixnum) fixnum) tak))
(defun tak (x y z)
  (declare (fixnum x y z))
  (if (not (< y x))
      z
    (tak (tak (1- x) y z)
         (tak (1- y) z x)
         (tak (1- z) x y))))
(print (tak 10 5 1))
(quit 0)

I compile above source, but I can't get optimized (argument and return
type is integer) c-file.
How can I do for improve efficiency?

-- 
mokehehe