tiny revisions

examples/M-modules/quick/README.txt

@@ -20,4 +20,4 @@ a QML widget in any Qt application, combining both traditional Qt and QML.
 * "sokoban" shows how to dynamically create QML items from Lisp;
 
 * "table-view" shows how to use an ApplicationWindow as the root item, which
-    is like a QML version of a QMainWindow;
+  is like a QML version of a QMainWindow;

examples/M-modules/web-kit-engine/web-kit-engine.htm

@@ -28,6 +28,6 @@
     <h3 class="lab2">&nbsp;WebEngine</h3><br>
     <object type="application/x-web-engine" id="web-engine" class="web2">
     </object>
-    <script> function keyPressed(event, text) { if(event.keyCode == 13) Lisp.setUrl(text); }  </script>
+    <script> function keyPressed(event, text) { if(event.keyCode == 13) Lisp.setUrl(text); } </script>
   </body>
 </html>

helper/generate.lisp

@@ -284,8 +284,8 @@
     (when (and return
                (search "QList" argc)
                (search "::" argc))
-      )
       ;; TODO
+      )
     argc))
 
 (defun arg-to-c-null-value (arg)

src/ecl_fun.cpp

@@ -1173,7 +1173,8 @@ static void* ensurePersistentFunction(cl_object l_fun) {
     return (Cnil == l_ret) ? 0 : (void*)l_ret; }
 
 void FunctorOrLambda::operator()(const QVariant& var) {
-    cl_funcall(2, (cl_object)function, from_qvariant_value(var)); }
+    if(function) {
+        cl_funcall(2, (cl_object)function, from_qvariant_value(var)); }}
 
 static MetaArg toMetaArg(const QByteArray& sType, cl_object l_arg) {
     void* p = 0;