fix deprecated ECL function name; small revisions;

src/ecl_fun.h

@@ -22,7 +22,7 @@ QT_BEGIN_NAMESPACE
     static const int constant = qRegisterMetaType< type >(#type);
 
 #define DEFUN(name, c_name, num_args) \
-    cl_def_c_function(c_string_to_object((char*)name), (cl_objectfn_fixed)c_name, num_args);
+    ecl_def_c_function(c_string_to_object((char*)name), (cl_objectfn_fixed)c_name, num_args);
 
 #define STRING(s) make_constant_base_string((char*)s)
 

src/lisp/ini.lisp

@@ -31,8 +31,8 @@
                       pairs)))
     `(let* ,(mapcar 'list vars exps)
        (unwind-protect
-            (progn
-              ,@body)
+           (progn
+             ,@body)
          ,(if (second vars)
               `(progn . ,(mapcar (lambda (var) (list 'qdelete var))
                                  (nreverse vars)))

src/module_interface.h

@@ -7,7 +7,7 @@
 
 QT_BEGIN_NAMESPACE
 
-class QMetaObject;
+struct QMetaObject;
 
 class ModuleInterface {
 public: