fix bug related to GET-INTERNAL-REAL-TIME, which in ECL is now micro-seconds (was: milli-seconds)

examples/cl-repl/lisp/editor.lisp

@@ -241,7 +241,7 @@
         (setf start (get-internal-real-time))
         (qsingle-shot 100 'force-repaint))
       (when (> (- (get-internal-real-time) start)
-               300)
+               (* 300 1000))
         (setf start nil)))))
 
 (defun force-repaint ()

examples/wear-os-gps/lisp/kalman.lisp

@@ -35,7 +35,7 @@
 (defun filter (lat lon accuracy speed)
   (when (and lat lon accuracy speed)
     (setf accuracy (max 1 accuracy))
-    (let ((timestamp (get-internal-real-time)))
+    (let ((timestamp (/ (get-internal-real-time) 1000.0)))
       (if *variance*
           (let ((time-inc (- timestamp *timestamp*)))
             (incf *variance* (/ (* time-inc (expt speed 2)) 1000))

examples/wear-os-gps/lisp/speed.lisp

@@ -8,7 +8,7 @@
     "After *DISTANCE-SAMPLES* samples, calculate average speed and update on
     every new distance sample."
     (push (cons (distance)
-                (get-internal-real-time))
+                (/ (get-internal-real-time) 1000.0))
           samples)
     (when (> (length samples) *distance-samples*)
       (setf samples (butlast samples))