revision: remove redundant #-interpreter, use #-ecl-bytecmp instead

doc/help.htm

@@ -254,7 +254,7 @@
   Only useful if used with UNLESS, in order to check for a valid pointer.
   Returns T if the argument is not of type QT-OBJECT.
 
-    (unless (qnull ui:*item*)
+    (unless (qnull (find-quick-item ui:*label*))
       ...)
 
 

examples/.android-ssl-test/make.lisp

@@ -70,7 +70,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/Qt6/clog-demo/qml/main.qml

@@ -33,7 +33,7 @@ Rectangle {
     currentIndex: view.currentIndex
   }
 
-  Keys.onPressed: {
+  Keys.onPressed: (event) => {
     if (event.key === Qt.Key_Back) {
       event.accepted = true
       if (view.currentIndex === 0) {

examples/advanced-qml-auto-reload/lisp/qml-reload/auto-reload-mobile.lisp

@@ -13,8 +13,8 @@
     (unless (x:empty-string ip)
       (format nil "http://~A:8080/" ip))))
 
-(defvar *remote-ip* #+interpreter nil
+(defvar *remote-ip* #+ecl-bytecmp nil
-                    #-interpreter #.(remote-ip))
+                    #-ecl-bytecmp #.(remote-ip))
 
 (defun load* (file)
   (load (make-string-input-stream (curl (x:cc *remote-ip* file)))))

examples/advanced-qml-auto-reload/make.lisp

@@ -81,7 +81,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/app-template/make.lisp

@@ -46,7 +46,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/camera/make.lisp

@@ -67,7 +67,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/cl-repl/lisp/qml-reload/auto-reload-mobile.lisp

@@ -10,8 +10,8 @@
     (unless (x:empty-string ip)
       (format nil "http://~A:8080/" ip))))
 
-(defvar *remote-ip* #+interpreter nil
+(defvar *remote-ip* #+ecl-bytecmp nil
-                    #-interpreter #.(remote-ip))
+                    #-ecl-bytecmp #.(remote-ip))
 
 (defun load* (file)
   (load (make-string-input-stream (curl (x:cc *remote-ip* file)))))

examples/cl-repl/make-lib.lisp

@@ -52,7 +52,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "lib")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *build-type*   :fasl)

examples/cl-repl/make.lisp

@@ -92,7 +92,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/cl-repl/qml/main.qml

@@ -45,7 +45,7 @@ StackView {
     Lisp.call("editor:orientation-changed", Screen.orientation)
   }
 
-  Keys.onPressed: {
+  Keys.onPressed: (event) => {
     if (event.key === Qt.Key_Back) {
       event.accepted = true
       Lisp.call("editor:back-pressed")

examples/clog-demo/app.asd

@@ -1,7 +1,7 @@
 (defsystem :app
   :serial t
   ;; requires this CLOG fork: https://gitlab.com/eql/clog-for-mobile/-/blob/main/clog-2.2.tgz
-  :depends-on (#-clog-loaded :clog)
+  :depends-on (#-depends-loaded :clog)
   :components ((:file "lisp/package")
                (:file "lisp/ini")
                (:file "lisp/ui-vars")

examples/clog-demo/lisp/swank-quicklisp.lisp

@@ -2,7 +2,7 @@
 
 (in-package :qml)
 
-#-interpreter
+#-ecl-bytecmp
 (ffi:clines "extern void init_lib_ASDF(cl_object);")
 
 (defun %sym (symbol package)
@@ -12,6 +12,7 @@
 
 (defun ensure-asdf ()
   (unless (find-package :asdf)
+    #-ecl-bytecmp
     (ffi:c-inline nil nil :void "ecl_init_module(NULL, init_lib_ASDF)" :one-liner t)
     (in-package :qml-user))
   :asdf)

examples/clog-demo/make.lisp

@@ -84,7 +84,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/clog-demo/qml/main.qml

@@ -33,7 +33,7 @@ Rectangle {
     currentIndex: view.currentIndex
   }
 
-  Keys.onPressed: {
+  Keys.onPressed: (event) => {
     if (event.key === Qt.Key_Back) {
       event.accepted = true
       if (view.currentIndex === 0) {

examples/clog-demo/run.lisp

@@ -10,8 +10,7 @@
 (push (merge-pathnames "./")
       asdf:*central-registry*)
 
-(push :interpreter *features*)
+(push :depends-loaded *features*)
-(push :clog-loaded *features*)
 
 (asdf:operate 'asdf:load-source-op :app)
 

examples/meshtastic/make.lisp

@@ -85,7 +85,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/qsqlite/make.lisp

@@ -63,7 +63,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/swank-server/lisp/qml-reload/auto-reload-mobile.lisp

@@ -10,8 +10,8 @@
     (unless (x:empty-string ip)
       (format nil "http://~A:8080/" ip))))
 
-(defvar *remote-ip* #+interpreter nil
+(defvar *remote-ip* #+ecl-bytecmp nil
-                    #-interpreter #.(remote-ip))
+                    #-ecl-bytecmp #.(remote-ip))
 
 (defun load* (file)
   (load (make-string-input-stream (curl (x:cc *remote-ip* file)))))

examples/swank-server/make.lisp

@@ -81,7 +81,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

examples/wear-os-gps/make.lisp

@@ -38,7 +38,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter *features*)
   (defvar *asdf-system*  "app")
   (defvar *ql-libs*      (cc *current* "ql-libs.lisp"))
   (defvar *init-name*    "ini_app")

platforms/shared/make.lisp

@@ -57,7 +57,7 @@
 
 (ext:install-c-compiler)
 
-(setf *features* (remove :interpreter *features*))
+(setf *features* (remove :interpreter *features*)) ; now obsolete, see #-ecl-bytecmp
 
 (load (merge-pathnames (format nil "platforms/~A/cross-compile"
                                #+android "android"

src/cpp/ecl_ext.cpp

@@ -484,7 +484,7 @@ cl_object qnull(cl_object l_arg) {
   /// args: (qt-object)
   /// Only useful if used with UNLESS, in order to check for a valid pointer.
   /// Returns T if the argument is not of type QT-OBJECT.
-  ///   (unless (qnull ui:*item*)
+  ///   (unless (qnull (find-quick-item ui:*label*))
   ///     ...)
   QObject* qobject = toQObjectPointer(l_arg);
   ecl_return1(ecl_process_env(), (qobject == nullptr) ? ECL_T : ECL_NIL);

src/make.lisp

@@ -33,7 +33,6 @@
 
 #+mobile
 (progn
-  (pushnew :interpreter  *features*)
   (defvar *asdf-system*  "lqml")
   (defvar *init-name*    "ini_LQML")
   (defvar *library-path* (format nil "platforms/~A/lib/"